50 integer iargc, lenocc, ln, lnout
55 parameter(nh=1000000, nz=2000000)
59 common/gcunit/lin,lout,nunits,lunits(5)
60 INTEGER lin,lout,nunits,lunits
67 if( iargc() .gt. 0 )
then 71 print *,
'rztog4 <rzfile> [ <call-list> ]' 72 print *,
'<rzfile> : name of the ZEBRA rz file' 73 print *,
'<call-list> : name of output call list file' 74 print *,
'(def: g3calls.dat)' 75 print *,
'You need to specify an rz file' 79 if (iargc() .gt. 1 )
then 86 write(6,*)
'rz-file "',
file(:ln),
'" doesn''t exist.' 93 call grfile(90,
file(:ln),
'i')
100 open(unit=lunlist,
file=
ofile(:lnout),status=
'unknown')
101 print *,
'Opened call list file ',
ofile(:lnout)
static int FASTCALL common(PROLOG_STATE *state, int tok)
void print(G4double elem)