pdf_set_range_2d Subroutine

subroutine pdf_set_range_2d(self, a, b)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel_2d) :: self
real(kind=8) :: a(2)
real(kind=8) :: b(2)

Calls

proc~~pdf_set_range_2d~~CallsGraph proc~pdf_set_range_2d pdf_set_range_2d dx dx proc~pdf_set_range_2d->dx linspace linspace proc~pdf_set_range_2d->linspace n n proc~pdf_set_range_2d->n

Source Code

subroutine pdf_set_range_2d(self,a,b)
  type(pdf_kernel_2d) :: self
  real(8)             :: a(2)
  real(8)             :: b(2)
  if(.not.self%status)stop "PDF_SET_RANGE: PDF not allocated"
  self%xmin=a
  self%xmax=b
  self%x = linspace(a(1),b(1),self%N(1),mesh=self%dx(1))
  self%y = linspace(a(2),b(2),self%N(2),mesh=self%dx(2))
end subroutine pdf_set_range_2d