5 lines
221 B
Text
5 lines
221 B
Text
C *--> FROM COMMON.CRSORT
|
|
COMMON/CRSORT/NUSEAR(10),IDEFIN(30),MSAVE,MC
|
|
C NUSEAR IS NUMBER OF POSITIONS USED IN EACH ARRAY
|
|
C IDEFIN(I)=1 IF CSAVE CALLED WITH ISLOT=I
|
|
C
|