Avoid duplicate fortran name

diff --git a/HBTP/hbt_event_processor.f b/HBTP/hbt_event_processor.f
index b0061ca6d62f1dcf571f403ff17fc671f2a57d30..9ade4ca88eabcbfdf8a6816f15113cb0b11fb9b2 100644 (file)
--- 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
             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
      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
      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---------------------------------------------------------------------
 
 
 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
         IMPLICIT REAL*4(A-H,O-Z)
 C
 C     LAGRANGE INTERPOLATION,UNEQUALLY SPACED POINTS