source: PSPA/transportPSPA/trunk/include/ELM20.CIN @ 463

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

transport pspa initial

File size: 436 bytes
Line 
1C ELM20               TYPE 20    COORDINATE ROTATION
2C
3C TOTROT     TOTAL Z ROTATION
4C TOTRA      SUM OF ABSOLUTE VALUES OF Z ROTATIONS
5C CSR        COSINE OF ROTATION ANGLE
6C SNR        SINE OF ROTATION ANGLE
7C CST        COSINE OF TOTAL ROTATION ANGLE
8C SNT        SINE OF TOTAL ROTATION ANGLE
9C SNSUM      SUM OF ABSOLUTE VALUES OF SINES OF INDIVIDUAL ROTATION ANGLES
10C
11      COMMON /ELM20/  TOTROT, TOTRA, CSR, SNR, CST, SNT, SNSUM
Note: See TracBrowser for help on using the repository browser.