rpl/lapack/blas/izamax.f - diff

Return to izamax.f CVS log

Up to [local] / rpl / lapack / blas

version 1.15, 2018/05/29 06:55:14	version 1.18, 2023/08/07 08:38:44
Line 43	Line 43
*> \param[in] INCX	*> \param[in] INCX
*> \verbatim	*> \verbatim
*> INCX is INTEGER	*> INCX is INTEGER
*> storage spacing between elements of SX	*> storage spacing between elements of ZX
*> \endverbatim	*> \endverbatim
*	*
* Authors:	* Authors:
Line 54	Line 54
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
*> \ingroup aux_blas	*> \ingroup aux_blas
*	*
*> \par Further Details:	*> \par Further Details:
Line 71	Line 69
* =====================================================================	* =====================================================================
INTEGER FUNCTION IZAMAX(N,ZX,INCX)	INTEGER FUNCTION IZAMAX(N,ZX,INCX)
*	*
* -- Reference BLAS level1 routine (version 3.8.0) --	* -- Reference BLAS level1 routine --
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --	* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--	* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* November 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INCX,N	INTEGER INCX,N
Line 124	Line 121
END DO	END DO
END IF	END IF
RETURN	RETURN
	*
	* End of IZAMAX
	*
END	END