--- DarthVader/TrackerLevel2/inc/F77/common_momanhough.f 2008/12/04 14:33:48 1.12 +++ DarthVader/TrackerLevel2/inc/F77/common_momanhough.f 2014/01/16 15:29:41 1.13 @@ -405,6 +405,7 @@ c$$$ parameter(nstepx=5) !inclusion-cut increasing steps c$$$ parameter(nstepy=5) * --- David flight + real maxcuty, maxcutx ! EM GCC4.7 parameter(cutystart=30.) parameter(cutystep=10.) !buoni??? parameter(cutxstart=5.) @@ -422,6 +423,7 @@ * -------------------------------------------------- * cloud selection * -------------------------------------------------- + integer x_min_start,x_min_step ! EM GCC4.7 parameter(x_min_start=4) parameter(x_min_step=1) @@ -431,6 +433,7 @@ common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min + integer y_min_start ! EM GCC4.7 parameter(y_min_start=3) integer ncpyz_min