Home
last modified time | relevance | path

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

/phasta/phSolver/incompressible/
H A DlesSparse.f13 subroutine drvlesPrepDiag ( flowDiag, ilwork, argument
26 dimension flowDiag(nshg,4), ilwork(nlwork)
49 flowDiag = zero
115 call commu (flowDiag, ilwork, nflow, 'in ')
120 call bc3diag(iBC, BC, flowDiag)
126 call bc3per(iBC, flowDiag, iper, ilwork, 4)
135 if (flowDiag(i,j).ne.0)
136 & flowDiag(i,j) = 1. / sqrt(abs(flowDiag(i,j)))
H A Dlestools.c28 void DRVLESPREPDIAG( double *flowDiag, int *ilwork, int *iBC,
138 drvlesPrepDiag( usrHd->flowDiag, in lesPrepDiag()
187 usrHd->flowDiag+diagOff*usrHd->nNodes, in lesDiagScaleCp()
903 usrHd->flowDiag+pOff, in lesApG()
924 usrHd->flowDiag+qOff, in lesApG()
979 usrHd->flowDiag+p1Off, in lesApKG()
988 usrHd->flowDiag+p2Off, in lesApKG()
1010 usrHd->flowDiag+qOff, in lesApKG()
1053 usrHd->flowDiag+pOff, in lesApNGt()
1074 usrHd->flowDiag+qOff, in lesApNGt()
[all …]
H A Dsolfar.f87 & flowDiag(nshg,4), local
247 & flowDiag, sclrDiag, lesP,
273 & flowDiag, sclrDiag, lesP,
396 & flowDiag(nshg,4), local
494 & flowDiag, sclrDiag, lesP,
H A Dusr.h25 double* flowDiag ; /* global diagonal of total lhs */ member
115 double* flowDiag,
H A Dusr.c46 double* flowDiag, in usrNew() argument
79 usrHd->flowDiag = flowDiag ; in usrNew()
H A Dftools.f15 subroutine flesPrepDiag ( ien, xKebe, xGoc, flowDiag ) argument
21 dimension Diagl(npro,nshl,nflow), flowDiag(nshg, 4)
41 call local (flowDiag, Diagl, ien, nflow, 'scatter ')
/phasta/phSolver/AMG/
H A Dramg_driver.f286 & colm,rowp,lhsK,lhsP,flowDiag, argument
303 real(kind=8),intent(in),dimension(nshg,4) :: flowDiag local