13
13
DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,
14
14
# PUP(5,MAXNUP),VTIMUP(MAXNUP),SPINUP(MAXNUP)
15
15
character*80 event_file,fname1,executable,inputfile,pref
17
17
character*10 MonteCarlo,mc
19
19
integer evts,leftover,loc,loc1,loc2,num_file,sumevt