| c This is 'globals.inc' |
| c |
| c scatter, shared |
| dimension |
| . mtl (nmrmax), |
| . dns (nmrmax), |
| . tmp (nmrmax), |
| . atrat(nmrmax), |
| . sig (nmrmax,negp1), |
| . scrat (nmrmax,negp1), |
| . sigtot(nmrmax,negp1), |
| . sigth (nmrmax), |
| . opcv ( negp1) |
| |
| c common, shared /material/ nreg |
| common /material/ nreg |
| |
| c common, private /pmaterial/ |
| common /pmaterial/ |
| . mtl , |
| . dns , |
| . tmp , |
| . atrat |
| c common, shared /xsec/ opec |
| common /xsec/ opec |
| |
| c common, private /pxsec/ |
| common /pxsec/ |
| . sig , |
| . scrat , |
| . sigtot, |
| . sigth , |
| . opcv |
| |
| c common, shared /controls/ igroup,ixopec,isorst,irr,ithom,icross, |
| common /controls/ igroup,ixopec,isorst,irr,ithom,icross, |
| . dtol,tcen,xmult,ilib,illib,title(20) |
| |
| c common, shared /newcom/ bwgt !Formerly 1st item in /samples/. |
| common /newcom/ bwgt !Formerly 1st item in /samples/. |
| |
| |
| c common /samples/ nescgp(negrps), enesc(negrps), wcut, wmin, wmax, |
| c . wlost, wesc, wrr, wabs, wcen, epgain, etot, |
| c . npart, nphtot, nploss, |
| c . nlost, nesc, nrr, nabs, ncen, |
| c . nscat, nsplt, ntrac |
| |
| |
| c |
| c O nothing |
| c 1 summary only |
| c 2 full output |
| c |
| integer print_flag |
| common /output_flags/ |
| . print_flag |
| |