delete_finter2d Subroutine

subroutine delete_finter2d(func)
  type(finter2d_type) :: func
  if(allocated(func%x))deallocate(func%x)
  if(allocated(func%y))deallocate(func%y)
  if(allocated(func%f))deallocate(func%f)
  func%imin=0
  func%jmin=0
  func%imax=0
  func%jmax=0
  func%N   =0
  func%status=.false.
end subroutine delete_finter2d