











      INTEGER       MAXITM
      PARAMETER     (MAXITM = 100)
      INTEGER       MITEMS(9,MAXITM), RAMA_FRM, RAMA_TO, IQ7317, 
     +              IQ7318, IQ7355, IQ7356, IQ7371, IQ7372
      CHARACTER*80  MITEXT(9,MAXITM), RAMA_NAME
      CHARACTER*4   AQ7317, AQ7355
      EQUIVALENCE   (AQ7317,IQ7317)
      EQUIVALENCE   (AQ7355,IQ7355)

      COMMON        /MOLITM1/
     +               MITEXT, AQ7317

      COMMON        /MOLITM2/
     +               IQ7372, MITEMS, IQ7318

      COMMON        /RAMA01/  
     +               RAMA_FRM, IQ7371, RAMA_TO, IQ7356

      COMMON        /RAMA02/  
     +               RAMA_NAME, AQ7355
