forgotten change
authorloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 23 Feb 2011 14:02:48 +0000 (14:02 +0000)
committerloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 23 Feb 2011 14:02:48 +0000 (14:02 +0000)
TAmpt/AMPT/art1f.f

index ebf3a90..baf3f03 100644 (file)
@@ -5329,7 +5329,7 @@ c     (here taken as its central value + 2* B-W fullwidth):
           IF(PR2.LE.0.)PR2=1.e-09
           PR=SQRT(PR2)/(2.*SRT)
               if(srt.le.2.14)C1= 1.0 - 2.0 * RANART(NSEED)
-         if(srt.gt.2.14.and.srt.le.2.4)c1=ang(srt,iseed)
+         if(srt.gt.2.14.and.srt.le.2.4)c1=anga(srt,iseed)
          if(srt.gt.2.4)then
 
 clin-10/25/02 get rid of argument usage mismatch in PTR():
@@ -7517,7 +7517,7 @@ c*(12) N*(0)p-->Np
 207       PR   = PRF
           C1   = 1.0 - 2.0 * RANART(NSEED)
               if(srt.le.2.14)C1= 1.0 - 2.0 * RANART(NSEED)
-         if(srt.gt.2.14.and.srt.le.2.4)c1=ang(srt,iseed)
+         if(srt.gt.2.14.and.srt.le.2.4)c1=anga(srt,iseed)
          if(srt.gt.2.4)then
 
 clin-10/25/02 get rid of argument usage mismatch in PTR():
@@ -8806,7 +8806,7 @@ c     (here taken as its central value + 2* B-W fullwidth):
           IF(PR2.LE.0.)PR2=1.e-09
           PR=SQRT(PR2)/(2.*SRT)
              if(srt.le.2.14)C1= 1.0 - 2.0 * RANART(NSEED)
-         if(srt.gt.2.14.and.srt.le.2.4)c1=ang(srt,iseed)       
+         if(srt.gt.2.14.and.srt.le.2.4)c1=anga(srt,iseed)       
          if(srt.gt.2.4)then
 
 clin-10/25/02 get rid of argument usage mismatch in PTR():