source: PSPA/transportPSPA/trunk/include/ELM6.CIN @ 452

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

transport pspa initial

File size: 327 bytes
Line 
1C ELM6                UPDATE
2C
3C AP        APERTURE.
4C CAP       TRUE IF 13. 10. IS PRESENT.
5C JA        SECOND ITEM ON AN UPDATE CARD (ALWAYS ZERO).
6C KA        INDICATES WHICH TRANSFER MATRIX IS UPDATED
7C
8      LOGICAL         CAP
9      INTEGER         JA, KA
10      REAL            AP
11C
12      COMMON /ELM6/   AP, CAP, JA, KA
Note: See TracBrowser for help on using the repository browser.