1*35973Sbostic C 2*35973Sbostic C OBJECTS 3*35973Sbostic C 4*35973Sbostic COMMON /OBJCTS/ OLNT,ODESC1(220),ODESC2(220),ODESCO(220), 5*35973Sbostic & OACTIO(220),OFLAG1(220),OFLAG2(220),OFVAL(220), 6*35973Sbostic & OTVAL(220),OSIZE(220),OCAPAC(220),OROOM(220), 7*35973Sbostic & OADV(220),OCAN(220),OREAD(220) 8*35973Sbostic INTEGER EQO(220,14) 9*35973Sbostic EQUIVALENCE (ODESC1, EQO) 10*35973Sbostic C 11*35973Sbostic COMMON /OROOM2/ R2LNT,OROOM2(20),RROOM2(20) 12