Lines Matching refs:sV

1476         real*8, allocatable :: sV(:,:)  local
1572           ALLOCATE(gNodes(facenNo), sV(nsd,facenNo))
1573           sV = 0D0
1579                   IF (.NOT.BTEST(iBC(i),3)) sV(1,j) = 1D0
1580                   IF (.NOT.BTEST(iBC(i),4)) sV(2,j) = 1D0
1581                   IF (.NOT.BTEST(iBC(i),5)) sV(3,j) = 1D0
1585      2         nsd, BC_TYPE_Dir, gNodes, sV)
1587           DEALLOCATE(sV)
1664               ALLOCATE(gNodes(facenNo), sV(1,facenNo))
1665               sV = 0D0
1675      2         1, BC_TYPE_Dir, gNodes, sV(1,:))
1677            DEALLOCATE(sV)