pdf_allocate_2d Subroutine

subroutine pdf_allocate_2d(self, Nvec)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel_2d) :: self
integer :: Nvec(2)

Calls

proc~~pdf_allocate_2d~~CallsGraph proc~pdf_allocate_2d pdf_allocate_2d n n proc~pdf_allocate_2d->n pdf pdf proc~pdf_allocate_2d->pdf x x proc~pdf_allocate_2d->x y y proc~pdf_allocate_2d->y

Source Code

subroutine pdf_allocate_2d(self,Nvec)
  type(pdf_kernel_2d) :: self
  integer             :: Nvec(2)
  if(self%status)stop "PDF_ALLOCATE: PDF already allocated"
  self%N     = Nvec
  self%Ndata = 0
  allocate(self%x(self%N(1)))
  allocate(self%y(self%N(2)))
  allocate(self%pdf(self%N(1),self%N(2)))
  self%status=.true.
  self%pdf   = 0d0
  self%sigma = 0d0
end subroutine pdf_allocate_2d