Home
last modified time | relevance | path

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

/phasta/phSolver/incompressible/
H A Delmgmr.f603 integer numSrfs, irankCoupled, srfIdList(0:MAXSURF) local
613 irankCoupled = 0
615 irankCoupled=k
617 qsurfProc(irankCoupled) = qsurfProc(irankCoupled)
671 integer irankCoupled local
687 irankCoupled = 0
689 irankCoupled=k
690 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)
718 irankCoupled = 0
720 irankCoupled=k
[all …]
H A DlesSparse.f74 irankCoupled=k
76 & + tfact*ValueListResist(irankCoupled)*
84 irankCoupled=k
86 & + tfact*ImpConvCoef(ntimeptpT+2,irankCoupled)*
94 irankCoupled=k
96 … & + tfact*RCRConvCoef(lstep+2,irankCoupled)* !check lstep+2 if restart from t.ne.0
H A Ditrdrv.f1243 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled local
1279 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled, i, k local
1286 irankCoupled = 0
1288 irankCoupled=k
1289 scalIntProc(irankCoupled) = scalIntProc(irankCoupled)