source: PSPA/transportPSPA/trunk/include/ELM16C.CIN @ 370

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

transport pspa initial

File size: 355 bytes
Line 
1C  ELM16C             INITIAL FLOOR COORDINATES
2C
3C XINIT      INITIAL FLOOR X VALUE
4C YINIT      INITIAL FLOOR Y VALUE
5C ZINIT      INITIAL FLOOR Z VALUE
6C THINIT     INITIAL FLOOR COORDINATE AZIMUTH
7C PHINIT     INITIAL FLOOR COORDINATE PITCH
8C
9      REAL  XINIT, YINIT, ZINIT, THINIT, PHINIT
10C
11      COMMON /ELM16C/ XINIT, YINIT, ZINIT, THINIT, PHINIT
Note: See TracBrowser for help on using the repository browser.