5 * Revision 1.1.1.1 1996/04/01 15:02:24 mclareni
11 #if !defined(CERNLIB_DOUBLE)
14 CALL MTLPRT(NAME,'E102',
15 +'not available on this machine - see documentation')
21 CALL MTLPRT(NAME,'E102',
22 +'not available on this machine - see documentation')
28 #if defined(CERNLIB_DOUBLE)
36 IF(DA(K) .LE. D) GO TO 5
48 IF(DA(K) .GE. D) GO TO 6