rpl/lapack/blas/xerbla_array.f - diff

Return to xerbla_array.f CVS log

Up to [local] / rpl / lapack / blas

version 1.7, 2018/05/29 07:19:42	version 1.8, 2023/08/07 08:38:44
Line 73	Line 73
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016
*
*> \ingroup aux_blas	*> \ingroup aux_blas
*	*
* =====================================================================	* =====================================================================
SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)	SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
*	*
* -- Reference BLAS level1 routine (version 3.7.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..--
* December 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER SRNAME_LEN, INFO	INTEGER SRNAME_LEN, INFO
Line 108	Line 105
EXTERNAL XERBLA	EXTERNAL XERBLA
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
SRNAME = ''	SRNAME = ' '
DO I = 1, MIN( SRNAME_LEN, LEN( SRNAME ) )	DO I = 1, MIN( SRNAME_LEN, LEN( SRNAME ) )
SRNAME( I:I ) = SRNAME_ARRAY( I )	SRNAME( I:I ) = SRNAME_ARRAY( I )
END DO	END DO
Line 116	Line 113
CALL XERBLA( SRNAME, INFO )	CALL XERBLA( SRNAME, INFO )

RETURN	RETURN
	*
	* End of XERBLA_ARRAY
	*
END	END