*                                     Include
      LOGICAL CUBIC,FORCED,HALPER,PUNCH,STEADY,TYPE,UNIAX,XRAYS,YES
      REAL BRAGG,COSPHI,COSTHE,DISPRE,DISPIM,EQUIV,FAC,FESD,FF,FMAG,
     *     FNUC,FOBS,GEOM,RM,SCALE,SCAT,SLABDA,SMM,TEXCOR,V
      INTEGER ICENT,ICYCLE,IRL,LIM,MAXCON,MAXS,MEQ,MTYP,N,NCYCLE,NTYP
*
      COMMON/OPTION/CUBIC,FORCED,HALPER,PUNCH,STEADY,TYPE,UNIAX,XRAYS,
     *              YES
      COMMON SCALE,SLABDA,ICENT,ICYCLE,IRL,LIM,MAXCON,MAXS,N,NCYCLE,
     1MEQ(30),MTYP(30),NTYP(30),BRAGG(999),COSPHI(999),COSTHE(999),
     2DISPRE(10),DISPIM(10),EQUIV(4,3,24),FAC(999),FESD(999),FF(999,10),
     3FMAG(999),FNUC(999),FOBS(999),GEOM(999),RM(9,2,24),SCAT(10),
     4SMM(51,51),TEXCOR(999),V(51)
*                                   End include
