doxygen/v8.037/Zworkaround_8h_source.html

 !        This is used when next 3 items are not recognized
 !      by ld when they are in module.
 !      (happens for cheavyInt.f and chAcol.f)
 !      values are transferred here via cworkaround in cGetXsec.f
 !
       integer::TargetNucleonNo, TargetProtonNo, colElemNo
       real(8)::TargetXs
       common /workaround/TargetXs, TargetNucleonNo, TargetProtonNo,
      *          colElemNo

real
float real
Definition: Zdef.h:2

TargetProtonNo
#define TargetProtonNo
Definition: Ztrackv.h:178

TargetXs
real *TargetMassN ! Number weighted average target mass number fixed value real *TargetAtomicN !The same for average Z of the target fixed value real *TargetZ2< Z^2 > of the target ! integer TargetNucleonNo ! target nucleon number at a collision sampled at each collision real *TargetZ2_3rd< Z > Since< Z > is almost same as or ! we simpley use this as< Z^2/3 > real *TargetZ1_3rd< Z > same reason ! integer TargetProtonNo ! target proton number ! real *TargetXs ! inelastic xs for this target common Zair *TargetZ1_3rd TargetXs
Definition: Zair.h:13

cworkaround
subroutine cworkaround(A, Z, xs, nelem)
Definition: cGetXsec.f:563

TargetNucleonNo
real *TargetMassN ! Number weighted average target mass number fixed value real *TargetAtomicN !The same for average Z of the target fixed value real *TargetZ2< Z^2 > of the target ! integer TargetNucleonNo ! target nucleon number at a collision sampled at each collision real *TargetZ2_3rd< Z > Since< Z > is almost same as or ! we simpley use this as< Z^2/3 > real *TargetZ1_3rd< Z > same reason ! integer TargetProtonNo ! target proton number ! real *TargetXs ! inelastic xs for this target common Zair *TargetZ1_3rd TargetNucleonNo
Definition: Zair.h:13

is
block data cblkIncident data *Za1ry is
Definition: cblkIncident.h:5