rpl/lapack/blas/dsyrk.f - diff

Return to dsyrk.f CVS log

Up to [local] / rpl / lapack / blas

version 1.15, 2018/05/29 07:19:42	version 1.16, 2023/08/07 08:38:43
Line 148	Line 148
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016
*
*> \ingroup double_blas_level3	*> \ingroup double_blas_level3
*	*
*> \par Further Details:	*> \par Further Details:
Line 169	Line 167
* =====================================================================	* =====================================================================
SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)	SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
*	*
* -- Reference BLAS level3 routine (version 3.7.0) --	* -- Reference BLAS level3 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..--
* December 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
DOUBLE PRECISION ALPHA,BETA	DOUBLE PRECISION ALPHA,BETA
Line 359	Line 356
*	*
RETURN	RETURN
*	*
* End of DSYRK .	* End of DSYRK
*	*
END	END