data_readA1_R Subroutine

subroutine data_readA1_R(pname, Y1)

Arguments

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

Calls

proc~~data_reada1_r~2~~CallsGraph proc~data_reada1_r~2 data_readA1_R file_gunzip file_gunzip proc~data_reada1_r~2->file_gunzip file_gzip file_gzip proc~data_reada1_r~2->file_gzip free_unit free_unit proc~data_reada1_r~2->free_unit ioread_control ioread_control proc~data_reada1_r~2->ioread_control reg reg proc~data_reada1_r~2->reg

Source Code

subroutine data_readA1_R(pname,Y1)
  integer               :: i,Np
  character(len=*)      :: pname
  real(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_R