integerfunctioniqminf(n,dx,incx)
c
cfindstheindexofelementhavingmin.value.
cjackdongarra,linpack,3/11/78.
cmodified3/93toreturnifincx.le.0.
cmodified12/3/93,array(1)declarationschangedtoarray(*)
c
real*10dx(*),dmin
integeri,incx,ix,n
c
iqminf=0
if(n.lt.1.or.incx.le.0)return
iqminf=1
if(n.eq.1)return
if(incx.eq.1)go to20
c
ccodeforincrementnotequalto1
c
ix=1
dmin=dx(1)
ix=ix+incx
do10i=2,n
if(dx(ix).ge.dmin)go to5
iqminf=i
dmin=dx(ix)
5ix=ix+incx
10continue
return
c
ccodeforincrementequalto1
c
20dmin=dx(1)
do30i=2,n
if(dx(i).ge.dmin)go to30
iqminf=i
dmin=dx(i)
30continue
return
end