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

        n1 = IFNBLNK(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)

        n1 = IFNBLNK(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)

        n1 = IFNBLNK(iname)

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

        n1 = IFNBLNK(dname)

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

      integer n, nf, err, fid, ind, n1, lens

      n1 = ILNBLNK(atname)

      s1(1:n1) = atname(1:n1)

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

          n1 = IFNBLNK(mnc_d_names(j))

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

        n1 = IFNBLNK(name)

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

      integer i,j,k,l, n,n1, ngrid, ds,de

          n1 = ILNBLNK(mnc_d_names(l))

          IF ((n .EQ. n1) 

     &         .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN

          n1 = i + (j-1)*nSx

     &       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)

     &       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)

     &       t1,tmpV(1,k,n1), t3,tmpV(3,k,n3),

     &          tmpV(1,k,n1)  -  tmpV(3,k,n3)

     &       t1,tmpV(2,k,n1), t3,tmpV(4,k,n3),

     &          tmpV(2,k,n1)  -  tmpV(4,k,n3)

     &       t1,tmpV(1,k,n1), t3,tmpU(4,k,n3),

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

     &       t1,tmpV(2,k,n1), t3,tmpU(3,k,n3),

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

          n1 = i

          IF (MOD(n1,2).EQ.1 ) THEN

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

           n3 = 1+MOD(n1-1+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)

     &       n1,tmpV(1,k,n1), n3,tmpV(3,k,n3),

     &          tmpV(1,k,n1)  -  tmpV(3,k,n3)

     &       n1,tmpV(2,k,n1), n3,tmpV(4,k,n3),

     &          tmpV(2,k,n1)  -  tmpV(4,k,n3)

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

           n3 = 1+MOD(n1-2+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)

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

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

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

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

      INTEGER n1, n2, n3

       n1 = bi + (bj-1)*nSx

       tmpU(1,k,n1)= uFld(1,j)

       tmpU(2,k,n1)= uFld(1,sNy+1-j)

       tmpU(3,k,n1)= uFld(sNx+1,j)

       tmpU(4,k,n1)= uFld(sNx+1,sNy+1-j)

       tmpV(1,k,n1)= vFld(j,1)

       tmpV(2,k,n1)= vFld(sNx+1-j,1)

       tmpV(3,k,n1)= vFld(j,sNy+1)

       tmpV(4,k,n1)= vFld(sNx+1-j,sNy+1)