Home
last modified time | relevance | path

Searched refs:facenNo (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/incompressible/
H A Ditrdrv.f1473 INTEGER svLS_nFaces, gnNo, nNo, faIn, facenNo local
1568 facenNo = 0
1570 IF (IBITS(iBC(i),3,3) .NE. 0) facenNo = facenNo + 1
1572 ALLOCATE(gNodes(facenNo), sV(nsd,facenNo))
1584 CALL svLS_BC_CREATE(svLS_lhs, faIn, facenNo,
1659 facenNo = 0
1662 IF (btest(iBC(i),ib)) facenNo = facenNo + 1
1664 ALLOCATE(gNodes(facenNo), sV(1,facenNo))
1674 CALL svLS_BC_CREATE(svLS_lhs_S(isolsc), faIn, facenNo,