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