Home
last modified time | relevance | path

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

/phasta/phSolver/incompressible/
H A Dforces.f195 irankfilesforce(:) = -1
207 irankfilesforce(isrf) = iv_node*iv_rankpernode
213 & irankfilesforce(isrf), ' on node', iv_node
217 if(irankfilesforce(isrf) .lt.0 .or.
218 & irankfilesforce(isrf) .ge. numpe) then
220 & irankfilesforce(isrf),
222 irankfilesforce(isrf) = numpe-1
228 & myrank.eq.irankfilesforce(isrf)) then
246 if(myrank.eq.irankfilesforce(isrf)) then
H A Ditrdrv.f815 & myrank.eq.irankfilesforce(isrf)) then
/phasta/phSolver/common/
H A Dcommon_c.h225 int irankfilesforce[MAXSURF+1]; member
H A Dcommon.h109 & irankfilesforce(0:MAXSURF)