sreadA2_RC Subroutine

subroutine sreadA2_RC(pname, X, Y1)

Arguments

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

Calls

proc~~sreada2_rc~2~~CallsGraph proc~sreada2_rc~2 sreadA2_RC free_unit free_unit proc~sreada2_rc~2->free_unit ioread_control ioread_control proc~sreada2_rc~2->ioread_control reg reg proc~sreada2_rc~2->reg

Source Code

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