sreadA1_RR Subroutine

subroutine sreadA1_RR(pname, X, Y1)

Arguments

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

Calls

proc~~sreada1_rr~2~~CallsGraph proc~sreada1_rr~2 sreadA1_RR free_unit free_unit proc~sreada1_rr~2->free_unit ioread_control ioread_control proc~sreada1_rr~2->ioread_control reg reg proc~sreada1_rr~2->reg

Source Code

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