“…(5),JPAR (5,50),XCOMP (5,50), CXOPER (5,50),PITEM (5,50),NASM(5),NCOMP (5,50,5),XMACH (5,50,4), CPT (5,50,4),COUNT,ARR,TPT,CPATH(5),PATH (5,50),CPMOD(5),RWK(1000), CRASM(1000),ROPT(1000),NOPT(5),ZZ (14),A(15),BD (5,50),QMC(4) C,XPATH (5,50) COMMON QSET(50000) EQUIVALENCE (NSET(1),QSET (1) (5,50),XCOMP (5,50), CXOPER (5,50),PITEM (5,50),NASM(5),NCOMP (5,50,5),XMACH (5,50,4), CPT (5,50,4),COUNT,ARR,TPT,CPATH(5),PATH (5,50),CPMOD(5),RWK(1000), CRASM(1000),ROPT(1000),NOPT(5),ZZ (14),A(15),BD (5,50) (4).EQ.ATRIB (7))GO TO 15 RWK(JOB)=RWK(JOB)-ATRIB (7) ROPT(~OB)=~OPT(JOB)-1…”