additional removal of compiler warnings

cms-sw · Nov 9, 2015 · c19a9a2 · c19a9a2
1 parent 9eb58b7
commit c19a9a2
Show file tree

Hide file tree

Showing 2 changed files with 247 additions and 101 deletions.
diff --git a/GeneratorInterface/AMPTInterface/src/art1f.f b/GeneratorInterface/AMPTInterface/src/art1f.f
@@ -17560,6 +17560,7 @@ real function Xpp(srt)
      &31.6,25.9,24.0,23.1,
      &24.0,28.3,33.6,41.5,47/
 
+       xpp=0.
        pmass=0.9383 
 * 1.Calculate E_kin(lab) [MeV] from srt [GeV]
 *   Formula used:   DSQRT(s) = 2 m DSQRT(E_kin/(2m) + 1)
@@ -17614,6 +17615,7 @@ real function Xnp(srt)
       data  xarray / 410.,270.,214.5,130.,78.,53.5,
      &41.6,35.9,34.2,34.3,34.9/
 
+       xnp=0.
        pmass=0.9383
 * 1.Calculate E_kin(lab) [MeV] from srt [GeV]
 *   Formula used:   DSQRT(s) = 2 m DSQRT(E_kin/(2m) + 1)
@@ -18246,6 +18248,7 @@ real function dirct1(srt)
      &6.420560,6.431045,6.441367,6.451529,6.461533,6.471386,6.481091,    
      &6.490650,6.476413,6.297259,6.097826/
 
+      dirct1=0.
       if (srt .lt. earray(1)) then
         dirct1 = 0.00001
         return
@@ -18328,6 +18331,7 @@ real function dirct2(srt)
      &5.552088,5.593359,5.634520,5.675570,5.716515,5.757356,5.798093,    
      &5.838732,5.879272,5.919717,5.960068,5.980941/
 
+      dirct2=0.
       if (srt .lt. earray(1)) then
         dirct2 = 0.00001
         return