a02aeb236c
Former-commit-id:06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f] Former-commit-id:9f19e3f712
5 lines
191 B
Text
5 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
|