
C     INCLUDE 'Zotra1.inc'
  
C     file 'Zotra1.inc' = must be accompanied by file Zdatx.inc

C     P1SQ and PSQ moved to Zdatx.inc 
C     COTRA in TRACOR main
C        various data for original TRACOR control now input in FCALC
      COMMON /COTRA/ MULS(48,48), INDX(3,3), IDIMF, TT(3,48),
     *               EFST(48), FHST(48), PHST(48), CELLN(6), MAXHKL(3),
     *  P111, P77, EMIN, EO2AV, SCX, BOVX, DAMPX, SMM, IOMAPS, SMAX,
     *  IRR(3,3,48), IORG, BBB, D2R, R2D,
     *  ATEM1, ATEM2, ATEM3, ATEM4, NTEM5, ATEM6
C *TEM* ==> in FCALCA: AMULT, ASYMM, ALATT, ASYMCL, NSYMC, ASYMC !
C *TEM* ==> in FCALCA: P111 ==> P1SQ  and: P77 ==> PSQ (temp:PSQMAX)

C end of 'Zotra1.inc'
 