5 * Revision 1.1.1.1 1996/04/01 15:02:14 mclareni
10 C This will be TRIINT,IF=DOUBLE and TRIINT64,IF=-DOUBLE
11 FUNCTION TRIINT(F,NSD,NPT,EPS,X1,Y1,X2,Y2,X3,Y3)
13 C INTEGRATION OVER A TRIANGLE USING A 7-, 25- OR 64-POINT FORMULA,
14 C WITH OR WITHOUT SUBDIVISION OF THE TRIANGLE.
18 PARAMETER (NAME = 'TRIINT')
19 #include "triintcod.inc"
23 101 FORMAT('INCORRECT NUMBER OF POINTS =',I5)