Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A Dgenadj.f12 real*8, allocatable, dimension(:) :: tmpr local
54 allocate (tmpr(tmprdim(1)))
57 tmpr(1:ncol)=row_fill_list(i,1:ncol)
60 imin=minval(tmpr(1:ncol))
61 mloc=minloc(tmpr(1:ncol))
63 tmpr(mloc(1))=ibig
66 deallocate(tmpr)