




































      INTEGER      MAXLAB, MAXLLN, MAXGPCR
      PARAMETER    (MAXLAB = 80)
      PARAMETER    (MAXLLN = 40)
      PARAMETER    (MAXGPCR=2000)

      INTEGER      CUPDLST(2,MAXLAB), LABTXC(MAXLAB), LABTYC(MAXLAB),
     +             LABTZM(MAXLAB), GPCRUSE, GPCRCOL(MAXGPCR),
     +             IQ7401, IQ7402, IQ7403, IQ7404, IQ7405
      REAL         XIDA(3,MAXLAB), YIDA(3,MAXLAB), ZIDA(3,MAXLAB),
     +             XIRA(3,MAXLAB), GPCRXYZ(3,MAXGPCR)
      CHARACTER*1  GPCRLAB(MAXGPCR)
      CHARACTER*4  AQ7405
      CHARACTER*(MAXLLN) LABTXT(MAXLAB), LABTYT(MAXLAB), 
     +             LABTZT(MAXLAB),LABTRT(MAXLAB)
      EQUIVALENCE  (AQ7405,IQ7405)

      COMMON      /LABEL1/
     +             CUPDLST, LABTXC, LABTYC, IQ7401,
     +             LABTZM, GPCRUSE, GPCRCOL, IQ7402

      COMMON      /LABEL2/
     +             LABTXT, LABTYT, LABTZT, LABTRT, AQ7405

      COMMON      /LABEL3/
     +             XIDA, YIDA, ZIDA, IQ7403, XIRA, GPCRXYZ, IQ7404

      COMMON      /LABEL4/
     +             GPCRLAB
