6 lines
191 B
Text
6 lines
191 B
Text
|
C *--> FROM SCOMMON.SUCMDX
|
||
|
|
C PPINIT COMMAND NAMES COMMON BLOCK
|
||
|
|
COMMON /SUCMDX/ MPCMDS,NPCMDS,IPCMD,ICMDMY,PCMDS(32)
|
||
|
|
CHARACTER*8 PCMDS
|
||
|
|
C
|