sreadA1_RC Subroutine

subroutine sreadA1_RC(pname, X, Y1)

Arguments

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

Calls

proc~~sreada1_rc~2~~CallsGraph proc~sreada1_rc~2 sreadA1_RC free_unit free_unit proc~sreada1_rc~2->free_unit ioread_control ioread_control proc~sreada1_rc~2->ioread_control reg reg proc~sreada1_rc~2->reg

Source Code

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