MINICERN/mathlib/gen/d/rtriint.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:14  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 C This will be TRIINT,IF=DOUBLE and TRIINT64,IF=-DOUBLE
  11       FUNCTION RTRINT(F,NSD,NPT,EPS,X1,Y1,X2,Y2,X3,Y3)
  12 C
  13 C     INTEGRATION OVER A TRIANGLE USING A 7-, 25- OR 64-POINT FORMULA,
  14 C     WITH OR WITHOUT SUBDIVISION OF THE TRIANGLE.
  15 C
  16       CHARACTER NAME*(*)
  17       CHARACTER*80 ERRTXT
  18       PARAMETER (NAME = 'RTRINT')
  19 #include "triintcod.inc"
  20
  21    99 RTRINT=H
  22       RETURN
  23   101 FORMAT('INCORRECT NUMBER OF POINTS =',I5)
  24       END