objects.h 315 B

123456789101112
  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)