source: PSPA/transportPSPA/trunk/include/ELM26B.CIN @ 452

C ELM26B              RANDOM VARIATION OF PHYSICAL PARAMETERS
C
C PRAN2     RANDOM VARIATION FOR PARAMETERS OF TYPE 2.  (POLE FACE ROTATION)
C PRAN3     RANDOM VARIATION FOR PARAMETERS OF TYPE 3.  (DRIFT SPACE)
C PRAN4     RANDOM VARIATION FOR PARAMETERS OF TYPE 4.  (BENDING MAGNET)
C PRAN5     RANDOM VARIATION FOR PARAMETERS OF TYPE 5.  (QUADRUPOLE)
C PRAN7     RANDOM VARIATION FOR PARAMETERS OF TYPE 7.  (CENTROID SHIFT)
C PRAN11    RANDOM VARIATION FOR PARAMETERS OF TYPE 11. (ACCELERATOR)
C PRAN18    RANDOM VARIATION FOR PARAMETERS OF TYPE 18. (SEXTUPOLE)
C PRAN19    RANDOM VARIATION FOR PARAMETERS OF TYPE 19. (SOLENOID)
C PRAN20    RANDOM VARIATION FOR PAREMETERS OF TYPE 20. (COORDINATE ROTATION)
C PRAN25    RANDOM VARIATION FOR PARAMETERS OF TYPE 25. (OCTUPOLE)
C PRAN28    RANDOM VARIATION FOR PARAMETERS OF TYPE 28. (RBEND OR SBEND)
C PRAN34    RANDOM VARIATION FOR PARAMETERS OF TYPE 34. (PLASMA LENS)
C PRAN43    RANDOM VARIATION FOR PARAMETERS OF TYPE 43.(COORDINATE SYSTEM SHIFT)
C
      REAL            PRAN2(4), PRAN3, PRAN4(17), PRAN5(6), PRAN7(6)
      REAL            PRAN11(4), PRAN18(5), PRAN19(3), PRAN20
      REAL            PRAN25(4), PRAN28(23), PRAN34(5), PRAN43(6)
C
      COMMON /ELM26B/ PRAN2, PRAN3, PRAN4, PRAN5, PRAN7, PRAN11, PRAN18, 
     >                PRAN19, PRAN20, PRAN25, PRAN28, PRAN34, PRAN43