source: PSPA/transportPSPA/trunk/include/ELM8H.CIN @ 445

C ELM8H       TYPE 8  QUANTITIES USED IN MISALIGNMENT CALCULATIONS
C
C CT(6,6)      TERM A1 OR QUANTITY (A1-RA0) 
C                        IN EQUATION (8), PAGE A-79, SLAC 91.
C CT0(6,6)     TERM A0 IN EQUATION (8) PAGE A-79 SLAC 91.
C CT1(3,3)     MATRIX USED TO EVALUATE CROSS PRODUCT.
C DMC          INDICATOR THAT MISALIGNMENT CALCULATION IS TO BE DONE
C NMMAX        NUMBER OF CONTRIBUTIONS TO MISALIGNMENT TABLE IN ENTIRE RUN.
C NM           NUMBER OF ENTRIES IN MISALIGNMENT TABLE
C
      INTEGER         NM, NMMAX
      LOGICAL         DMC
      REAL            CT(6,6), CT0(6,6), CT1(3,3), CTL(36) 
      EQUIVALENCE     (CT(1,1),CTL(1))

C
      COMMON /ELM8H/  CT, CT0, CT1, DMC, NMMAX, NM