splotA1_RC Subroutine

subroutine splotA1_RC(pname, X, Y1, append)

Arguments

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

Calls

proc~~splota1_rc~2~~CallsGraph proc~splota1_rc~2 splotA1_RC dimag dimag proc~splota1_rc~2->dimag free_unit free_unit proc~splota1_rc~2->free_unit reg reg proc~splota1_rc~2->reg

Source Code

subroutine splotA1_RC(pname,X,Y1,append)
  integer                       :: i,j,Np
  character(len=*)              :: pname
  real(8),dimension(:)          :: X
  complex(8),dimension(size(X)) :: Y1
  logical,optional              :: append
  logical                       :: check,append_
  append_=.false.;if(present(append))append_=append
  if(append_)then
     inquire(file=reg(pname),exist=check)
     open(free_unit(unit),file=reg(pname),position="append")
     if(check)write(unit,*)
  else
     open(free_unit(unit),file=reg(pname))
  endif
  Np=size(X)
  do i=1,Np
     write(unit,*)X(i),dimag(Y1(i)),dreal(Y1(i))
  enddo
  close(unit)
end subroutine splotA1_RC