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

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

transport pspa initial

File size: 310 bytes
Line 
1C ELM5B               MATRIX ELEMENTS FOR QUADRUPOLES
2C
3C CS        COSINE(KL) FOR PLANE BEING CALCULATED
4C SN        SINE(KL) FOR PLANE BEING CALCULATED
5C JQUAD     INDEX TELLING IF HORIZONTAL OR VERTICAL PLANE.
6C
7      INTEGER         JQUAD
8      REAL            CS, SN
9C
10      COMMON /ELM5B/  CS, SN, JQUAD
Note: See TracBrowser for help on using the repository browser.