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

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

transport pspa initial

File size: 325 bytes
Line 
1C ELM24A              TYPE 24 -- DEFINE SECTION AND REPEATS
2C
3C JDEF          BEGINNING, END, OR CALLING OF DEFINED SECTION
4C NADDEF(2)     BEGINNING AND END  OF DEFINED SECTION
5C
6      INTEGER         JDEF, NADDEF(2), NBEG, NEND
7      EQUIVALENCE     (NBEG,NADDEF(1)), (NEND, NADDEF(2))
8C
9      COMMON /ELM24A/ JDEF, NADDEF
Note: See TracBrowser for help on using the repository browser.