C
C---This inlcude file contains information about symmetry of 
C---aniso B-value, conversion from iso B to aniso B and 
C---other useful arrays necessary for anisotropic refinement
C---celsym.fh should be included before this include file
C
      REAL RMATR_ORT2CELL(3,3),RO_UNIT(3,3),DCOSA,DCOSB,DCOSG,
     +     DSINA,DSINB,DSING,DCOSZ,UUCELL2ORTH(6,6),
     +     UUORTH2CELL(6,6)
     + 
      REAL  RealSymm_Aniso(6,6,MAXSYM)

      COMMON /anis_symm/ RMATR_ORT2CELL,RO_UNIT,UUCELL2ORTH,
     +                   UUORTH2CELL,RealSymm_Aniso
      COMMON /anis_scal/ DCOSA,DCOSB,DCOSG,DSINA,DSINB,DSING,DCOSZ