pdf_read_1d Subroutine

subroutine pdf_read_1d(self, pfile)

Arguments

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

Calls

proc~~pdf_read_1d~2~~CallsGraph proc~pdf_read_1d~2 pdf_read_1d free_unit free_unit proc~pdf_read_1d~2->free_unit pdf_allocate pdf_allocate proc~pdf_read_1d~2->pdf_allocate

Source Code

subroutine pdf_read_1d(self,pfile)
  type(pdf_kernel) :: self    
  character(len=*) :: pfile
  integer          :: i,N,unit
  if(.not.self%status)write(*,"(A)")"PDF_READ: PDF not allocated"
  open(free_unit(unit),file=trim(pfile))
  read(unit,*)N
  call pdf_allocate(self,N)
  read(unit,*)self%xmin
  read(unit,*)self%xmax
  read(unit,*)self%dx
  read(unit,*)self%Ndata   
  read(unit,*)self%x
  read(unit,*)self%pdf
  read(unit,*)self%sigma
  read(unit,*)self%status
  read(unit,*)self%variance
  read(unit,*)self%rescale
  close(unit)
end subroutine pdf_read_1d