geometry 12 + 24 && recent media properties

[u/mrichter/AliRoot.git] / HBTAN / fsiini.F

diff --git a/HBTAN/fsiini.F b/HBTAN/fsiini.F
index f3c1421cc85376777e06ea09c1780851a961557f..b68faf57f09fd4fca3a36d21d6343f1f7caf10f6 100644 (file)
--- a/HBTAN/fsiini.F
+++ b/HBTAN/fsiini.F
@@ -231,7 +231,7 @@ c--       Include 'common_fsi_c.inc'
        GPIPI=OM/AAPI(1,J)                                                                     
        GPIPI=GPIPI*(1+(AAPI(3,J)-AAPI(1,J)**2)*XX+AAPI(4,J)*XX*XX)                            
        GPIPI=GPIPI/(1+(AAPI(3,J)+AAPI(2,J)/AAPI(1,J))*XX)                                     
-                                                                                       
+       GPIPIOLD=GPIPI                                                                
        END   
       
        FUNCTION GPIN(X,J)