Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A DslpwBC.f281 real*8 lnx,lny,lnz local
284 lnz=abs(nz)
285 if(lnx.gt.lny.and.lnx.gt.lnz)nmax=1
286 if(lny.gt.lnx.and.lny.gt.lnz)nmax=2
287 if(lnz.gt.lnx.and.lnz.gt.lny)nmax=3