Searched refs:sV (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 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
[all …]
|