data_saveV_C Subroutine

subroutine data_saveV_C(pname, Y1, X)

Arguments

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

Calls

proc~~data_savev_c~~CallsGraph proc~data_savev_c data_saveV_C data_store data_store proc~data_savev_c->data_store dimag dimag proc~data_savev_c->dimag reg reg proc~data_savev_c->reg

Source Code

subroutine data_saveV_C(pname,Y1,X)
  integer                              :: i,Np
  character(len=*)                     :: pname
  complex(8),dimension(:)              :: Y1
  real(8),optional,dimension(size(Y1)) :: X
  Np=size(Y1)  
  open(719,file=reg(pname))
  do i=1,Np
     if(present(X))then
        write(719,*)X(i),dimag(Y1(i)),dreal(Y1(i))
     else
        write(719,*)dimag(Y1(i)),dreal(Y1(i))
     endif
  enddo
  close(719)
  call data_store(reg(pname))
end subroutine data_saveV_C