
C     INCLUDE 'Zfcala.inc'

C     ------ /FCALCA/ for various control parameters and reflection data
      COMMON /FCALCA/     
     *                CELPAR(10), ITRS(24),
     *                HKLX(3,24), IDHKL(24), HCODE,    FOBS,     SIG,
     *                STL,        STL2,      ISS,      ENORM,
     *                FP,         PHIP,      FAP,      FBP,      EPSIL,
     *                EPSIL2,     SF2,       SF2P,     FPEXP(2,24)

*          AMULT,     ASYMM,      ALATT,     ASYMCL,   NSYMC,    ASYMC,

C        FCALCA includes arrays FITFO, FITFC and FITFC2 by equivalences
*     DIMENSION FITFO(3), FITFC(2), FITFC2(51)
*     EQUIVALENCE (HCODE, FITFO(1)), (FP, FITFC(1)), (EPSIL2, FITFC2(1))

C end of 'Zfcala.inc'
 