data_saveA1_C Subroutine

subroutine data_saveA1_C(pname, Y1)

Arguments

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

Calls

proc~~data_savea1_c~2~~CallsGraph proc~data_savea1_c~2 data_saveA1_C file_gzip file_gzip proc~data_savea1_c~2->file_gzip free_unit free_unit proc~data_savea1_c~2->free_unit reg reg proc~data_savea1_c~2->reg

Source Code

subroutine data_saveA1_C(pname,Y1)
  integer                              :: i,Np
  character(len=*)                     :: pname
  complex(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_C