source:
PSPA/transportPSPA/trunk/include/ELM5B.CIN
@
445
Last change on this file since 445 was 15, checked in by , 12 years ago | |
---|---|
File size: 310 bytes |
Line | |
---|---|
1 | C ELM5B MATRIX ELEMENTS FOR QUADRUPOLES |
2 | C |
3 | C CS COSINE(KL) FOR PLANE BEING CALCULATED |
4 | C SN SINE(KL) FOR PLANE BEING CALCULATED |
5 | C JQUAD INDEX TELLING IF HORIZONTAL OR VERTICAL PLANE. |
6 | C |
7 | INTEGER JQUAD |
8 | REAL CS, SN |
9 | C |
10 | COMMON /ELM5B/ CS, SN, JQUAD |
Note: See TracBrowser
for help on using the repository browser.