data_readA1_C Subroutine

subroutine data_readA1_C(pname, Y1)

Arguments

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

Calls

proc~~data_reada1_c~2~~CallsGraph proc~data_reada1_c~2 data_readA1_C file_gunzip file_gunzip proc~data_reada1_c~2->file_gunzip file_gzip file_gzip proc~data_reada1_c~2->file_gzip free_unit free_unit proc~data_reada1_c~2->free_unit ioread_control ioread_control proc~data_reada1_c~2->ioread_control reg reg proc~data_reada1_c~2->reg

Source Code

subroutine data_readA1_C(pname,Y1)
  integer                :: i,Np
  character(len=*)       :: pname
  complex(8),dimension(:):: Y1
  !
  call file_gunzip(reg(pname))
  call ioread_control(pname,control)
  !
  open(free_unit(unit),file=reg(pname))
  !
  Np=size(Y1)
  !
  do i=1,Np
     read(unit,*)Y1(i)
  enddo
  close(unit)
  call file_gzip(reg(pname))
end subroutine data_readA1_C