idamax.f (interfaces/blas/F77/idamax.f)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12

      INTEGER FUNCTION IDAMAX( N, X, INCX )

      INTEGER               INCX, N

      DOUBLE PRECISION      X(*)

      INTEGER               TEMP

      CALL IDAMAX_SUB( N, X, INCX, TEMP )

      IDAMAX = TEMP

      RETURN

      END