sreadA3_RR Subroutine

subroutine sreadA3_RR(pname, X, Y1)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: pname
real(kind=8), dimension(size(Y1,3)) :: X
real(kind=8), dimension(:,:,:) :: Y1

Calls

proc~~sreada3_rr~2~~CallsGraph proc~sreada3_rr~2 sreadA3_RR free_unit free_unit proc~sreada3_rr~2->free_unit ioread_control ioread_control proc~sreada3_rr~2->ioread_control reg reg proc~sreada3_rr~2->reg

Source Code

subroutine sreadA3_RR(pname,X,Y1)
  integer                       :: i,j,k,Ny1,Ny2,Ny3
  character(len=*)              :: pname
  real(8),dimension(:,:,:)      :: Y1
  real(8),dimension(size(Y1,3)) :: X
  call ioread_control(pname,control)
  open(free_unit(unit),file=reg(pname))
  !
  Ny1=size(Y1,1)
  Ny2=size(Y1,2)
  Ny3=size(Y1,3)
  !
  do i=1,Ny1
     do j=1,Ny2
        do k=1,Ny3
           read(unit,*)X(k),Y1(i,j,k)
        enddo
     enddo
  enddo
  close(unit)
end subroutine sreadA3_RR