4 lines
148 B
Text
4 lines
148 B
Text
C *--> FROM SCOMMON.SWORKX
|
|
C PPINIT WORK ARRAY COMMON BLOCK
|
|
COMMON /SWORKX/ LSWORK,SWORK(225000)
|
|
C
|