DIMENSION       R2VS(6,6,NPVAR), R2VSL(36,NPVAR)
      EQUIVALENCE     (R2VS(1,1,1),R2VSL(1,1))
      COMMON /R2VS/   R2VS