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

Last change on this file since 447 was 15, checked in by lemeur, 12 years ago

transport pspa initial

File size: 235 bytes
Line 
1C ELM19               TYPE 19   SOLENOID
2C
3C KL     K * LENGTH.
4C KO     K TERM IN HARMONIC OSCILLATOR EQUATION.
5C KOP    KO * P, KO = TERM IN HARMONIC OSCILLATOR
6C
7      REAL            KL, KO, KOP
8C
9      COMMON /ELM19/  KL, KO, KOP
Note: See TracBrowser for help on using the repository browser.