5 * Revision 1.1.1.1 1996/04/01 15:02:14 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 FUNCTION DTRINT(F,NSD,NPT,EPS,X1,Y1,X2,Y2,X3,Y3)
13 #include "gen/imp128.inc"
16 PARAMETER (NAME = 'DTRINT')
18 CALL MTLPRT(NAME,'D105.0','Not available on this machine')