C+
C NAME:
C	MidPnt
C PURPOSE:
C CATEGORY:
C CALLING SEQUENCE:
	subroutine MidPnt(Func, A,B,S,N)
C INPUTS:
C OUTPUTS:
C INCLUDE:
C	include	'midpnt_inc.h'
C PROCEDURE:
C	See Numerical Recipes
C MODIFICATION HISTORY:
C	JUN-1993, Paul Hick (UCSD)
C-
	    real	Func
	    real	A
	    real	B
	    real	S
	    integer	N

	save		IT

	include	'midpnt_inc.h'

	return
	end