init_finter_c Subroutine

subroutine init_finter_c(func, xin, fin, N)

Arguments

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

Calls

proc~~init_finter_c~~CallsGraph proc~init_finter_c init_finter_c delete_finter delete_finter proc~init_finter_c->delete_finter dimag dimag proc~init_finter_c->dimag f f proc~init_finter_c->f g g proc~init_finter_c->g x x proc~init_finter_c->x

Source Code

subroutine init_finter_c(func,Xin,Fin,N)
  type(finter_type) :: func
  real(8)           :: xin(:)
  complex(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%g(Lin))
  func%X    = Xin
  func%F    = dreal(fin)
  func%G    = dimag(fin)
  func%Imax = Lin
  func%Imin = 1
  func%N    = N
  func%status=.true.
end subroutine init_finter_c