data_readV_C Subroutine

subroutine data_readV_C(pname, Y1)

Arguments

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

Calls

proc~~data_readv_c~~CallsGraph proc~data_readv_c data_readV_C data_open data_open proc~data_readv_c->data_open data_store data_store proc~data_readv_c->data_store str str proc~data_readv_c->str

Source Code

subroutine data_readV_C(pname,Y1)
  integer                :: i,Np
  character(len=*)       :: pname
  complex(8),dimension(:):: Y1
  real(8)                :: reY1,imY1
  Np=size(Y1)  
  call data_open(trim(pname))
  include "ioread_control.f90"
  open(719,file=str(pname))
  do i=1,Np
     read(719,*)imY1,reY1
     Y1(i)=cmplx(reY1,imY1,8)
  enddo
  close(719)
  call data_store(pname)
end subroutine data_readV_C