data_readV_R Subroutine

subroutine data_readV_R(pname, Y1)

Arguments

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

Calls

proc~~data_readv_r~~CallsGraph proc~data_readv_r data_readV_R data_open data_open proc~data_readv_r->data_open data_store data_store proc~data_readv_r->data_store str str proc~data_readv_r->str

Source Code

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