C+
C NAME:
C	MidInf
C PURPOSE:
C CATEGORY:
C CALLING SEQUENCE:
	subroutine MidInf( Funk, AA,BB,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	Funk
	    real	AA
	    real	BB
	    real	S
	    integer	N

	save		IT
	Func(X) = Funk(1./X)/(X*X)

	B = 1./AA
	A = 1./BB

	include	'midpnt_inc.h'

	return
	end