c(((((((((((((((((((((((((((((((( zanaas (((((((((((((((((((((((((((((((
c             next includes the consts for index of proton ,gamma etc
      include 'zsimcn'
       common /zanaas/
     1  k1ry, e0, cos1ry, zob, sumnrm,
     2  jscint, discle, disclp, deone, deonea(nidsc),
     3  sage, rmu, rmu2, enff, frcde, efne
c
       common/ zanaac/
     1 idsc(nidsc), vsn
       character idsc*16, vsn*8
c
c  nidsc: # of scintillator structures usabale.
c   k1ry: 1 ry particle type (0=gamma, 1=proton)
c     e0: 1 ry energy in tev
c cos1ry: cos of zenith angle of 1ry
c    zob: specified observation depth (vertical g/cm**2)
c sumnrm: normalization factor such that rho(r)<de>2pir dr /sumnrm
c         becomes 1 when integrated.  here rho(r) is the density
c         of ptcls at r(m.u) which give rise energy deposit in
c         scintillator, <de> the average energy deposit at r.
c jscint: 0---> scintillator structure not yet specifed
c         1---> .1cmfe + 3.5cm scinti
c         2---> .5cmpb + .1cm fe + 3.5cm scinti
c discle: discrimination level in terms of energy loss in scinti
c         (for vertical relativistic particles)
c disclp: discrimination level in terms of equiv. ptcl # in scinti
c         (for vertical relativistic particles)
c  deone: energy loss in the current scinti in mev corresponding to
c            one particle.
c deonea: array to contain energy loss for one particle for each
c         structure of scinti.
c   sage: age of the shower
c    rmu: moliere unit (m) for the observation depth and current
c         shower
c   rmu2: rmu**2
c   enff: n(de>0)/ne(by b approx)  where n(de>0) is the # of ptcls
c         which give de>0 in scinti
c  frcde: over all fraction of particles with energy deposit >
c         discle (see m in kdig)
c   efne: effective # of particles which give de>discl in scinti.
c    vsn: version of the anaas
c
c)))))))))))))))))))))))))))))))) zanaas )))))))))))))))))))))))))))))))
