trapcom.h

c   PARAMETERS
c    ntrys - Number of integrations, each with half the x step of the last
c    nint1 - Number of steps between lowest and highest x values
c    npoints - Largest number of points evaluated for use in the integration
c
c   Variables
c    x   -   x values at which the function is evaluated
c    y   -   values of the function for corresponding values of x
c    np  -   number of points currently used in x and y
c    ansreal - Actual Value of the integral
c    ansnum  - Value of the integral obtained from a Trapezoidal Rule
c
      integer ntrys,nint1,npoints
      parameter (ntrys=8,nint1=10,npoints=nint1*2**(ntrys-1)+1 )
      common x(npoints),y(npoints)
      real x,y
      common/misc/np
      include 'trapcom1.h'
      integer np