init_finter2d Subroutine

subroutine init_finter2d(func, xin, yin, fin, N)

Arguments

Type IntentOptional Attributes Name
type(finter2d_type) :: func
real(kind=8) :: xin(:)
real(kind=8) :: yin(:)
real(kind=8) :: fin(size(xin),size(yin))
integer :: N

Calls

proc~~init_finter2d~~CallsGraph proc~init_finter2d init_finter2d f f proc~init_finter2d->f x x proc~init_finter2d->x y y proc~init_finter2d->y

Source Code

subroutine init_finter2d(func,Xin,Yin,Fin,N)
  type(finter2d_type) :: func
  real(8)       :: xin(:),yin(:)
  real(8)       :: fin(size(xin),size(yin))
  integer       :: N,Lx,Ly
  if(func%status)deallocate(func%x,func%y,func%f)
  Lx=size(xin) ; Ly=size(yin)
  allocate(func%x(Lx),func%y(Ly),func%f(Lx,Ly))
  func%X    = Xin
  func%Y    = Yin
  func%F    = Fin
  func%Imin = 1
  func%Jmin = 1
  func%Imax = Lx
  func%Jmax = Ly
  func%N    = N
  func%status=.true.
end subroutine init_finter2d