63



PL/I OPTIMIZING COMPILER MPBRAND:PROCEDURE OPTIONS(MAIN);

 STMT LEV NT

 157 1 0 M=0; /* NUMBER OF ROWS
 158 1 0 NC=0; /* NUMBER OF COLUMN ENTRIES
 159 1 0 NR=O; /* NUMBER OF RHS ENTRIES
 160 1 0 GET SKIP EDIT (CARD) (A(80));
 161 1 o DO WHILE (CARDI-.- 'ENDATA');
 162 1 1 IF (SUBSTR(CARD,1,4) -= 'NAME')THEN
 IF (SUBSTR(CARD,10,5) = 'TABLE' ) THEN
 CALL SETQFLAG;
 163 1 1 ELSE CALL PROCESS COEFFICIENT;
 164 1 1 GET SKIP EDIT (CARD) (A(80));
 165 1 1 END;
 166 1 0 CALL WRITEROWS SECTION;
 167 1 0 CALL SORT COLUMNS;
 168 1 0 CALL WRITE COLUMNSSECTION;
 169 1 0 CALL WRITERHS_SECTION;
 170 1 0 END;


Figure 12.--Source listing for iPSRAND documentation--continued.