C ELM19               TYPE 19   SOLENOID
C
C KL     K * LENGTH.
C KO     K TERM IN HARMONIC OSCILLATOR EQUATION.
C KOP    KO * P, KO = TERM IN HARMONIC OSCILLATOR
C
      REAL            KL, KO, KOP
C
      COMMON /ELM19/  KL, KO, KOP