data_saveA1_R Subroutine

subroutine data_saveA1_R(pname, Y1)

Arguments

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

Calls

proc~~data_savea1_r~2~~CallsGraph proc~data_savea1_r~2 data_saveA1_R file_gzip file_gzip proc~data_savea1_r~2->file_gzip free_unit free_unit proc~data_savea1_r~2->free_unit reg reg proc~data_savea1_r~2->reg

Source Code

subroutine data_saveA1_R(pname,Y1)
  integer                              :: i,Np
  character(len=*)                     :: pname
  real(8),dimension(:)                 :: Y1
  Np=size(Y1)
  open(free_unit(unit),file=reg(pname))
  do i=1,Np
     write(unit,*)Y1(i)
  enddo
  close(unit)
  call file_gzip(reg(pname))
end subroutine data_saveA1_R