pdf_allocate_1d Subroutine

subroutine pdf_allocate_1d(self, N)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel) :: self
integer :: N

Calls

proc~~pdf_allocate_1d~2~~CallsGraph proc~pdf_allocate_1d~2 pdf_allocate_1d pdf pdf proc~pdf_allocate_1d~2->pdf x x proc~pdf_allocate_1d~2->x

Source Code

subroutine pdf_allocate_1d(self,N)
  type(pdf_kernel) :: self
  integer          :: N
  if(self%status)stop "PDF_ALLOCATE: PDF already allocated"
  self%N    = N
  self%Ndata= 0
  allocate(self%x(N))
  allocate(self%pdf(N))
  self%status=.true.
  self%pdf = 0d0
  self%sigma = 0d0
end subroutine pdf_allocate_1d