source:
PSPA/transportPSPA/trunk/include/ELM19.CIN
@
447
Last change on this file since 447 was 15, checked in by , 12 years ago | |
---|---|
File size: 235 bytes |
Line | |
---|---|
1 | C ELM19 TYPE 19 SOLENOID |
2 | C |
3 | C KL K * LENGTH. |
4 | C KO K TERM IN HARMONIC OSCILLATOR EQUATION. |
5 | C KOP KO * P, KO = TERM IN HARMONIC OSCILLATOR |
6 | C |
7 | REAL KL, KO, KOP |
8 | C |
9 | COMMON /ELM19/ KL, KO, KOP |
Note: See TracBrowser
for help on using the repository browser.