source: PSPA/transportPSPA/trunk/include/ELM13B.CIN @ 447

C ELM13B              PRINT ELEMENT
C
C NOR      TRUE IF BEAM MATRIX IS TO BE PRINTED AFTER EACH ELEMENT.
C TWP      TRUE IF ACCELERATOR PARAMETERS ARE TO BE PRINTED AFTER EACH ELEMENT
C CPS      TRUE IF CPR HAS BEEN SET
C CPR      TRUE IF CENTROID COORDINATES ARE TO BE PRINTED WITH BEAM ELLIPSE 
C               DIMENSIONS IF CENTROID IS OFF AXIS.
C LAY      TRUE IF A LAYOUT OF COORDINATES IS TO BE DONE
C RAT      TRUE IF TRANSFER MATRIX IS TO BE PRINTED AFTER EACH ELEMENT
C BAX      TRUE IF BEAM LINE IS TO BE REALIGNED ALONG BEAM CENTROID
C R1P      TRUE IF BEAM CENTROID IS CURRENTLY DISPLACED WITH REALIGNMENT 
C               TO OCCUR
C SUPP     TRUE IF PHYSICAL PARAMETERS ARE NOT TO BE PRINTED
C ONLY     TRUE IF ONLY FITTING INFORMATION IS TO BE PRINTED
C TERSE    TRUE IF ABBREVIATED PRINT FORMAT IS TO BE USED
C ACCEL    TRUE IF BEAM MATRIX IS TO BE EXPRESSED IN ACCELERATOR NOTATION
C UNRO     TRUE IF VARIED PARAMETERS ARE TO BE PRINTED WITH EXTRA PRECISION
C               ABOUT DISPLACED TRAJECTORY
C ELPR     TRUE IF ELEMENTS ARE TO BE PRINTED IN OUTPUT
C ANIN     TRUE IF PARAMETERS DESCRIBING BENDING MAGNET IN PURELY NUMERICAL 
C               INPUT ARE TO BE INTERPRETED AS LENGTH AND BEND ANGLE.
C NARROW   TRUE IF BEAM MATRIX IS NOT TO GO BEYOND 80TH COLUMN
C PRON     TRUE IF CALCULATED OUTPUT IS PRINTED
C PMK      TRUE IF MARKERS ARE PRINTED AS BEAM LINE ELEMENTS
C LAY191   TRUE OF EXTRA PRECISION LAYOUT IS TO BE PRINTED
C PBP      TRUE IF EFFECTIVE BEND POINT POSITION IS TO BE PRINTED IN FLOOR
C               COORDINATES
C WARN20   TRUE IF WARNING IN PRINTED FOR SROT NOT MULTIPLE OF 90 DEGREES
C NPFR     INDICATOR FOR MODE OF DETERMINING POLE FACE ROTATION ANGLE.
C
      LOGICAL         NOR, TWP, CPS, CPR, LAY, RAT, BAX, R1P, SUPP, ONLY
      LOGICAL         TERSE, ACCEL, UNRO, ELPR, ANIN
      LOGICAL         NARROW, PRON, PMK, LAY191, PBP, WARN20
C
      COMMON /ELM13B/ NOR, TWP, CPS, CPR, LAY, RAT, BAX, R1P, SUPP,
     1                ONLY, TERSE, ACCEL, UNRO, ELPR, ANIN,
     2                NARROW, PRON, PMK, LAY191, PBP, WARN20, NPFR