Corrections for F77 compliance
authoralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 11 Mar 2004 19:20:14 +0000 (19:20 +0000)
committeralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 11 Mar 2004 19:20:14 +0000 (19:20 +0000)
HIJING/hijing1_36/fjetrig.F

index 02e3b92..a5b8ad8 100644 (file)
@@ -8,7 +8,7 @@ C
        DIMENSION X(10)
        SAVE
        PTMIN=ABS(HIPR1(10))-0.25
-       PTMIN=MAX(PTMIN,HIPR1(8))
+       PTMIN=MAX(PTMIN,DBLE(HIPR1(8)))
        AM2=0.D0
        IF(IHPR2(3).EQ.3) THEN
           AM2=HIPR1(7)**2