splotM_RC Subroutine

subroutine splotM_RC(pname, X, Y1, Y2, append)

Arguments

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

Calls

proc~~splotm_rc~~CallsGraph proc~splotm_rc splotM_RC dimag dimag proc~splotm_rc->dimag

Source Code

subroutine splotM_RC(pname,X,Y1,Y2,append)
  integer                                     :: i,j,Ny1,Ny2
  character(len=*)                            :: pname
  complex(8),dimension(:,:)                   :: Y1
  complex(8),dimension(size(Y1,1),size(Y1,2)),optional :: Y2
  real(8),dimension(size(Y1,2))               :: X
  logical,optional                    :: append
  logical                             :: check,rw
  rw=.false.;if(present(append))rw=append
  Ny1=size(Y1,1) ; Ny2=size(Y1,2)
  open(719,file=adjustl(trim(pname)))
  if(present(Y2))then
     do i=1,Ny1
        do j=1,Ny2
           write(719,"(F21.12,4(F21.12))")X(j),dimag(Y1(i,j)),dreal(Y1(i,j)),&
                dimag(Y2(i,j)),dreal(Y2(i,j))
        enddo
        write(719,*)""
     enddo
  else
     do i=1,Ny1
        do j=1,Ny2
           write(719,*)X(j),dimag(Y1(i,j)),dreal(Y1(i,j))
        enddo
        write(719,*)""
     enddo
  endif
  close(719)
end subroutine splotM_RC