delete_finter Subroutine

subroutine delete_finter(func)
  type(finter_type) :: func
  if(allocated(func%x))deallocate(func%x)
  if(allocated(func%f))deallocate(func%f)
  if(allocated(func%g))deallocate(func%g)
  func%imax=0
  func%imin=0
  func%N   =0
  func%status=.false.
end subroutine delete_finter