Searched refs:tmpr (Results 1 – 1 of 1) sorted by relevance
12 real*8, allocatable, dimension(:) :: tmpr local54 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))=ibig66 deallocate(tmpr)