X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=HBTP%2Fhbt_event_processor.f;h=9ade4ca88eabcbfdf8a6816f15113cb0b11fb9b2;hb=d2e100c53566d1d11ce53ae22bdda10ef5ba03d7;hp=b0061ca6d62f1dcf571f403ff17fc671f2a57d30;hpb=b46c29f4c24376150a12632147774c35cb776c88;p=u%2Fmrichter%2FAliRoot.git

diff --git a/HBTP/hbt_event_processor.f b/HBTP/hbt_event_processor.f
index b0061ca6d62..9ade4ca88ea 100644
--- a/HBTP/hbt_event_processor.f
+++ b/HBTP/hbt_event_processor.f
@@ -3427,10 +3427,10 @@ CCC   Compute Coulomb Correction factor for options 1, 2 and 3:
             if(sign .lt. 0) factor = c2_coul_unlike(max_c2_coul - 1)
          else
             if(sign .gt. 0) then
-               Call LAGRNG(q,q_coul,factor,c2_coul_like,
+               Call LAGRNG1(q,q_coul,factor,c2_coul_like,
      1                     max_c2_coul,1,5,max_c2_coul,1)
             else if(sign .lt. 0) then
-               Call LAGRNG(q,q_coul,factor,c2_coul_unlike,
+               Call LAGRNG1(q,q_coul,factor,c2_coul_unlike,
      1                     max_c2_coul,1,5,max_c2_coul,1)
             end if
          end if
@@ -3442,7 +3442,7 @@ CCC   Compute Coulomb Correction factor for options 1, 2 and 3:
 C---------------------------------------------------------------------
 
 
-      SUBROUTINE LAGRNG (X,ARG,Y,VAL,NDIM,NFS,NPTS,MAXARG,MAXFS)
+      SUBROUTINE LAGRNG1 (X,ARG,Y,VAL,NDIM,NFS,NPTS,MAXARG,MAXFS)
         IMPLICIT REAL*4(A-H,O-Z)
 C
 C     LAGRANGE INTERPOLATION,UNEQUALLY SPACED POINTS