rpl/lapack/blas/zdotu.f - diff

Return to zdotu.f CVS log

Up to [local] / rpl / lapack / blas

Diff for /rpl/lapack/blas/zdotu.f between versions 1.16 and 1.17

version 1.16, 2018/05/29 07:19:42	version 1.17, 2023/08/07 08:38:44
Line 39	Line 39
*>	*>
*> \param[in] ZX	*> \param[in] ZX
*> \verbatim	*> \verbatim
> ZX is REAL array, dimension ( 1 + ( N - 1 )abs( INCX ) )	> ZX is COMPLEX16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
*> \endverbatim	*> \endverbatim
*>	*>
*> \param[in] INCX	*> \param[in] INCX
Line 50	Line 50
*>	*>
*> \param[in] ZY	*> \param[in] ZY
*> \verbatim	*> \verbatim
> ZY is REAL array, dimension ( 1 + ( N - 1 )abs( INCY ) )	> ZY is COMPLEX16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
*> \endverbatim	*> \endverbatim
*>	*>
*> \param[in] INCY	*> \param[in] INCY
Line 67	Line 67
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
*> \ingroup complex16_blas_level1	*> \ingroup complex16_blas_level1
*	*
*> \par Further Details:	*> \par Further Details:
Line 83	Line 81
* =====================================================================	* =====================================================================
COMPLEX*16 FUNCTION ZDOTU(N,ZX,INCX,ZY,INCY)	COMPLEX*16 FUNCTION ZDOTU(N,ZX,INCX,ZY,INCY)
*	*
* -- 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,INCY,N	INTEGER INCX,INCY,N
Line 128	Line 125
END IF	END IF
ZDOTU = ZTEMP	ZDOTU = ZTEMP
RETURN	RETURN
	*
	* End of ZDOTU
	*
END	END

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.16
changed lines
	Added in v.1.17