C VARY      VARY CODES
C
C VCODE(100)   VARY CODE AS EXPLICITLY REPRESENTED
C
      INTEGER         VCODE(100)
      COMMON /VCODE/   VCODE