pdf_print_pfile_2d Subroutine

subroutine pdf_print_pfile_2d(self, pfile, normalize)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel_2d) :: self
character(len=*) :: pfile
logical, optional :: normalize

Calls

proc~~pdf_print_pfile_2d~~CallsGraph proc~pdf_print_pfile_2d pdf_print_pfile_2d pdf_normalize pdf_normalize proc~pdf_print_pfile_2d->pdf_normalize splot3d splot3d proc~pdf_print_pfile_2d->splot3d

Source Code

subroutine pdf_print_pfile_2d(self,pfile,normalize)
  type(pdf_kernel_2d) :: self    
  character(len=*)    :: pfile
  logical,optional    :: normalize
  logical             :: normalize_
  integer             :: i,unit
  if(.not.self%status)stop "PDF_WRITE: PDF not allocated"
  normalize_ = .true.; if(present(normalize))normalize_=normalize
  if(normalize_)call pdf_normalize(self)
  call splot3d(pfile,self%x,self%y,self%pdf)
end subroutine pdf_print_pfile_2d