pdf_print_moments_pfile_1d Subroutine

subroutine pdf_print_moments_pfile_1d(self, pfile)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel) :: self
character(len=*) :: pfile

Calls

proc~~pdf_print_moments_pfile_1d~2~~CallsGraph proc~pdf_print_moments_pfile_1d~2 pdf_print_moments_pfile_1d free_unit free_unit proc~pdf_print_moments_pfile_1d~2->free_unit pdf_curt_1d pdf_curt_1d proc~pdf_print_moments_pfile_1d~2->pdf_curt_1d pdf_mean_1d pdf_mean_1d proc~pdf_print_moments_pfile_1d~2->pdf_mean_1d pdf_sdev_1d pdf_sdev_1d proc~pdf_print_moments_pfile_1d~2->pdf_sdev_1d pdf_skew_1d pdf_skew_1d proc~pdf_print_moments_pfile_1d~2->pdf_skew_1d

Source Code

subroutine pdf_print_moments_pfile_1d(self,pfile)
  type(pdf_kernel) :: self    
  character(len=*) :: pfile
  integer          :: i,unit
  if(.not.self%status)stop "PDF_WRITE: PDF not allocated"
  open(free_unit(unit),file=trim(pfile))
  write(unit,*)pdf_mean_1d(self),pdf_sdev_1d(self),pdf_skew_1d(self),pdf_curt_1d(self)
  close(unit)
end subroutine pdf_print_moments_pfile_1d