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