Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A Dfillsparse.f245 integer rowvl, rowvh, rowv local
250 rowvl = 1
255 100 if ( rowvh-rowvl .gt. 1 ) then
256 rowv = ( rowvh + rowvl ) / 2
260 rowvl = rowv
267 sparseloc = rowvl