Lines Matching refs:EdgeBasis

1499      REAL(KIND=dp), ALLOCATABLE :: EdgeBasis(:), dEdgeBasisdx(:,:), Basis(:),dBasisdx(:,:)  local
1562      ALLOCATE( EdgeBasis(En), dEdgeBasisdx(En,3), Basis(Pn), dBasisdx(Pn,3), &
1702                EdgeBasis, dEdgeBasisdx )
1707               u = SUM( EdgeBasis(1:En) * EdgeNodes % x(1:En) )
1708               v = SUM( EdgeBasis(1:En) * EdgeNodes % y(1:En) )
1709               w = SUM( EdgeBasis(1:En) * EdgeNodes % z(1:En) )
1719            u = SUM( EdgeBasis(1:En) * x(1:En) )
1720            v = SUM( EdgeBasis(1:En) * y(1:En) )
1721            w = SUM( EdgeBasis(1:En) * z(1:En) )
1726            Viscosity = SUM( NodalViscosity(1:En) * EdgeBasis(1:En) )
1732            Residual = Residual + MATMUL( Force(:,1:En), EdgeBasis(1:En) ) - &
1733                  SUM( ExtPressure(1:En) * EdgeBasis(1:En) ) * Normal
1739               Slip = SUM( SlipCoeff(i,1:En) * EdgeBasis(1:En) )
1833      DEALLOCATE( EdgeBasis, dEdgeBasisdx, Basis, dBasisdx, x, y, z,   &
1868                EdgeBasis(:), Basis(:), dBasisdx(:,:)  local
1912      ALLOCATE( NodalViscosity(En), x(En), y(En), z(En), EdgeBasis(En), &
1930              EdgeBasis, dBasisdx )
1937            u = SUM( EdgeBasis(1:En) * EdgeNodes % x(1:En) )
1938            v = SUM( EdgeBasis(1:En) * EdgeNodes % y(1:En) )
1939            w = SUM( EdgeBasis(1:En) * EdgeNodes % z(1:En) )
1972            u = SUM( EdgeBasis(1:En) * x(1:En) )
1973            v = SUM( EdgeBasis(1:En) * y(1:En) )
1974            w = SUM( EdgeBasis(1:En) * z(1:En) )
1986            Viscosity = SUM( NodalViscosity(1:En) * EdgeBasis(1:En) )
2067      DEALLOCATE( NodalViscosity, x, y, z, EdgeBasis, &