| Directory: | ./ |
|---|---|
| File: | misc/ismin.f |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 6 | 0.0% |
| Branches: | 0 | 4 | 0.0% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | ! | ||
| 2 | ! $Header$ | ||
| 3 | ! | ||
| 4 | ✗ | FUNCTION ismin(n,sx,incx) | |
| 5 | c | ||
| 6 | IMPLICIT NONE | ||
| 7 | c | ||
| 8 | integer n,i,incx,ismin,ix | ||
| 9 | real sx((n-1)*incx+1),sxmin | ||
| 10 | c | ||
| 11 | ix=1 | ||
| 12 | ismin=1 | ||
| 13 | ✗ | sxmin=sx(1) | |
| 14 | ✗ | DO i=1,n-1 | |
| 15 | ✗ | ix=ix+incx | |
| 16 | ✗ | if(sx(ix).lt.sxmin) then | |
| 17 | sxmin=sx(ix) | ||
| 18 | ✗ | ismin=i+1 | |
| 19 | endif | ||
| 20 | ENDDO | ||
| 21 | c | ||
| 22 | return | ||
| 23 | end | ||
| 24 | C | ||
| 25 |