forgotten change

diff --git a/TAmpt/AMPT/art1f.f b/TAmpt/AMPT/art1f.f
index ebf3a904a8adbb90bd34da96f179f70a71a039e1..baf3f032fffcf4d6f2a26b04b18b85886ef7ddbd 100644 (file)
--- a/TAmpt/AMPT/art1f.f
+++ b/TAmpt/AMPT/art1f.f
@@ -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():