diff --git a/sims/rain.pl b/sims/rain.pl index d92894c279f4c890da92a0810080a6188906d9c7..cf8df1280d70b670c8ce0ee14f181b806e733e89 100755 --- a/sims/rain.pl +++ b/sims/rain.pl @@ -561,6 +561,7 @@ for ($i=0; $i<$nofruns; $i++) { @ecuts=(800.,800.,800.,800.); # ecuts for ANDES } } + #true of false unless ($batch) { print "###################################################################\n"; @@ -568,7 +569,14 @@ for ($i=0; $i<$nofruns; $i++) { print "###################################################################\n"; } - $muaddi=get("Get additional info for muons, EM and neutrinos",'F',"MUADDI, EMADDI, NUADDI"); +# MUADDI. For v<7.4005, EMADDI AND NUADDI does not work, only MUADDI + $muaddi=""; + if ($crk_ver eq "73500") { + $muaddi=get("Get additional info for muons",'F',"MUADDI"); + } else { + $muaddi=get("Get additional info for muons, EM and neutrinos",'F',"MUADDI, EMADDI, NUADDI"); + } + $plotsh=get("Write add- files for track plot of secondaries",'F',"PLOTSH"); $datbas=get("Write .dbase file",'T',"DATBAS"); $llongi=get("Track longitudinal development of secondaries (LONGI)", 'F',"LLONGI"); @@ -670,7 +678,6 @@ ECUTS $ecuts[0] $ecuts[1] $ecuts[2] $ecuts[3] $curvout $muadditxt - MUMULT T MAXPRT 0 ELMFLG F T