1: C 2: C PARSER OUTPUT 3: C 4: LOGICAL PRSWON 5: COMMON /PRSVEC/ PRSA,PRSI,PRSO,PRSWON,PRSCON 6: C 7: C PARSER STATE 8: C 9: COMMON /ORPHS/ OFLAG,OACT,OSLOT,OPREP,ONAME 10: INTEGER ORP(5) 11: EQUIVALENCE (OFLAG, ORP) 12: C 13: COMMON /LAST/ LASTIT 14: C 15: COMMON /PV/ ACT,O1,O2,P1,P2 16: INTEGER OBJVEC(2),PRPVEC(2),PVEC(5) 17: EQUIVALENCE (OBJVEC(1),O1),(PRPVEC(1),P1),(PVEC(1),ACT) 18: C 19: COMMON /SYNTAX/ VFLAG,DOBJ,DFL1,DFL2,DFW1,DFW2, 20: & IOBJ,IFL1,IFL2,IFW1,IFW2 21: INTEGER SYN(11) 22: EQUIVALENCE (VFLAG, SYN) 23: C 24: COMMON /SYNFLG/ SDIR,SIND,SSTD,SFLIP,SDRIV,SVMASK 25: C 26: COMMON /OBJFLG/ VABIT,VRBIT,VTBIT,VCBIT,VEBIT,VFBIT,VPMASK