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