C DATA0B              PERTAINS TO VARY CODES
C
C TIE(IDALIM)   INTEGER    INTERNAL (EXTERNAL) VARY CODES. CORRESPONDS
C                        TO THE DATA ARRAY.
      INTEGER         TIE (IDALIM)
C
      COMMON /DATA0B/ TIE