OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree: 3597827c93
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '3597827c93'
${ noResults }
OpenBLAS/reference/ixaminf.f

42 lines
966 B
Raw Blame History 

  1.       integer function ixaminf(n,zx,incx)

  2. c

  3. c     finds the index of element having min. absolute value.

  4. c     jack dongarra, 1/15/85.

  5. c     modified 3/93 to return if incx .le. 0.

  6. c     modified 12/3/93, array(1) declarations changed to array(*)

  7. c

  8.       complex*20 zx(*)

  9.       real*10 smin

  10.       integer i,incx,ix,n

  11.       real*10 qcabs1

  12. c

  13.       ixaminf = 0

  14.       if( n.lt.1 .or. incx.le.0 )return

  15.       ixaminf = 1

  16.       if(n.eq.1)return

  17.       if(incx.eq.1)go to 20

  18. c

  19. c        code for increment not equal to 1

  20. c

  21.       ix = 1

  22.       smin = qcabs1(zx(1))

  23.       ix = ix + incx

  24.       do 10 i = 2,n

  25.          if(qcabs1(zx(ix)).ge.smin) go to 5

  26.          ixaminf = i

  27.          smin = qcabs1(zx(ix))

  28.     5    ix = ix + incx

  29.    10 continue

  30.       return

  31. c

  32. c        code for increment equal to 1

  33. c

  34.    20 smin = qcabs1(zx(1))

  35.       do 30 i = 2,n

  36.          if(qcabs1(zx(i)).ge.smin) go to 30

  37.          ixaminf = i

  38.          smin = qcabs1(zx(i))

  39.    30 continue

  40.       return

  41.       end