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 |