init_finter_d Subroutine

subroutine init_finter_d(func, xin, fin, N)

Arguments

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

Calls

proc~~init_finter_d~~CallsGraph proc~init_finter_d init_finter_d delete_finter delete_finter proc~init_finter_d->delete_finter f f proc~init_finter_d->f x x proc~init_finter_d->x

Source Code

subroutine init_finter_d(func,Xin,Fin,N)
  type(finter_type) :: func
  real(8)           :: xin(:)
  real(8)           :: fin(size(xin))
  integer           :: N,Lin
  if(func%status)call delete_finter(func)
  Lin=size(xin)
  allocate(func%x(Lin),func%f(Lin))
  func%X    = Xin
  func%F    = Fin
  func%Imax = Lin
  func%Imin = 1
  func%N    = N
  func%status=.true.
end subroutine init_finter_d