| 1 |
*KEEP,MMICAP. |
| 2 |
C |
| 3 |
C |
| 4 |
COMMON/ MMICAP / LMAG2,LCISO,LGE2MO,LMOMA,LMOX1,LMOX2, |
| 5 |
+ LMOX3,LMOX4 |
| 6 |
COMMON/ MICPAR / LMIST |
| 7 |
COMMON/ MIFILE / LMIFIL |
| 8 |
COMMON/ MICTMP / LTEMP,NTUNIT,NTNAME,NTMPNI,NTCOMM,NTDATS,NTLIST |
| 9 |
PARAMETER (KWBANK=69000,KWWORK=5200) |
| 10 |
COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16) |
| 11 |
+ ,LMAIN,LR1,WS(KWBANK) |
| 12 |
DIMENSION IQ(2),Q(2),LQ(8000),IWS(2) |
| 13 |
EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1)) |
| 14 |
EQUIVALENCE (JCG,JGSTAT) |
| 15 |
COMMON/GCLINK/JDIGI ,JDRAW ,JHEAD ,JHITS ,JKINE ,JMATE ,JPART |
| 16 |
+ ,JROTM ,JRUNG ,JSET ,JSTAK ,JGSTAT,JTMED ,JTRACK,JVERTX |
| 17 |
+ ,JVOLUM,JXYZ ,JGPAR ,JGPAR2,JSKLT |
| 18 |
C |
| 19 |
DIMENSION LD(1),D(1) |
| 20 |
EQUIVALENCE (D(1),Q(1)),(LD(1),IQ(1)) |
| 21 |
CHARACTER*24 DATSTR |
| 22 |
CHARACTER*80 COMMEN |
| 23 |
COMMON/ MICMAT / DATSTR,COMMEN,MATIDS(100,20,2) |
| 24 |
C |
Parent Directory
| 
Revision Log