5 * Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
8 * Revision 1.1.1.1 1999/05/18 15:55:34 fca
11 * Revision 1.1.1.1 1996/04/01 15:01:54 mclareni
15 #include "gen/pilot.h"
16 #if !defined(CERNLIB_IBM)
17 #if defined(CERNLIB_DOUBLE)
20 #include "gen/imp64.inc"
23 PARAMETER(NAME='GAMMA/DGAMMA')
25 #if !defined(CERNLIB_DOUBLE)
29 PARAMETER(NAME='GAMMA')
36 DATA C( 0) /3.65738 77250 83382 44D0/
37 DATA C( 1) /1.95754 34566 61268 27D0/
38 DATA C( 2) /0.33829 71138 26160 39D0/
39 DATA C( 3) /0.04208 95127 65575 49D0/
40 DATA C( 4) /0.00428 76504 82129 09D0/
41 DATA C( 5) /0.00036 52121 69294 62D0/
42 DATA C( 6) /0.00002 74006 42226 42D0/
43 DATA C( 7) /0.00000 18124 02333 65D0/
44 DATA C( 8) /0.00000 01096 57758 66D0/
45 DATA C( 9) /0.00000 00059 87184 05D0/
46 DATA C(10) /0.00000 00003 07690 81D0/
47 DATA C(11) /0.00000 00000 14317 93D0/
48 DATA C(12) /0.00000 00000 00651 09D0/
49 DATA C(13) /0.00000 00000 00025 96D0/
50 DATA C(14) /0.00000 00000 00001 11D0/
51 DATA C(15) /0.00000 00000 00000 04D0/
56 CALL MTLPRT(NAME,'C302.1',ERRTXT)
78 #if defined(CERNLIB_DOUBLE)
81 #if !defined(CERNLIB_DOUBLE)
85 101 FORMAT('ARGUMENT IS NEGATIVE = ',1P,E15.1)