1*35973Sbostic C 2*35973Sbostic C ROOMS 3*35973Sbostic C 4*35973Sbostic COMMON /ROOMS/ RLNT,RDESC2,RDESC1(200),REXIT(200), 5*35973Sbostic & RACTIO(200),RVAL(200),RFLAG(200) 6*35973Sbostic INTEGER RRAND(200) 7*35973Sbostic EQUIVALENCE (RVAL,RRAND) 8*35973Sbostic INTEGER EQR(200,5) 9*35973Sbostic EQUIVALENCE (RDESC1, EQR) 10