integer n, nvf,nvl, n1,n2, indv, ic

        n2 = ILNBLNK(tname)

        IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN

     &         tname(n1:n2), ''' has more than ', MNC_MAX_CHAR,

          n2 = MNC_MAX_CHAR + n1 - 1

        mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)

        n2 = ILNBLNK(tval)

        IF ((n2-n1+1) .GT. MNC_MAX_CATT) THEN

     &         tval(n1:n2), ''' has more than ', MNC_MAX_CATT,

          n2 = MNC_MAX_CATT + n1 - 1

        IF ((n1 .NE. 0) .AND. (n2 .NE. 0)) THEN

          mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2)

        n2 = ILNBLNK(iname)

        mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2)

        n2 = ILNBLNK(dname)

        mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2)

      integer ndv, did, ns,ne, n1,n2, indg, indv

          n2 = ILNBLNK(mnc_d_names(j))

          IF (((ne-ns) .EQ. (n2-n1)) 

        n2 = ILNBLNK(name)

        mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)

      INTEGER n0, n2

      n2 = 2

          n2 = 0

          IF ( W2_tileProc(t2).EQ.myProcId+1 ) n2 = W2_tileIndex(t2)

          IF ( n2.GE.1 .AND. exch2_pij(3,4,t1).EQ.-1 ) THEN

     &       t1,tmpU(1,k,n1), t2,tmpV(4,k,n2),

     &          tmpU(1,k,n1)  -  tmpV(4,k,n2)

     &       t1,tmpU(2,k,n1), t2,tmpV(3,k,n2),

     &          tmpU(2,k,n1)  -  tmpV(3,k,n2)

          IF ( n2.GE.1 .AND. exch2_pij(4,4,t1).EQ.1 ) THEN

     &       t1,tmpU(1,k,n1), t2,tmpU(3,k,n2),

     &          tmpU(1,k,n1)  -  tmpU(3,k,n2)

     &       t1,tmpU(2,k,n1), t2,tmpU(4,k,n2),

     &          tmpU(2,k,n1)  -  tmpU(4,k,n2)

           n2 = 1+MOD(n1-2+5,6)

     &       n1,tmpU(1,k,n1), n2,tmpV(4,k,n2),

     &          tmpU(1,k,n1)  -  tmpV(4,k,n2)

     &       n1,tmpU(2,k,n1), n2,tmpV(3,k,n2),

     &          tmpU(2,k,n1)  -  tmpV(3,k,n2)

           n2 = 1+MOD(n1-1+5,6)

     &       n1,tmpU(1,k,n1), n2,tmpU(3,k,n2),

     &          tmpU(1,k,n1)  -  tmpU(3,k,n2)

     &       n1,tmpU(2,k,n1), n2,tmpU(4,k,n2),

     &          tmpU(2,k,n1)  -  tmpU(4,k,n2)

      INTEGER n1, n2, n3