floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add macros for 32/64bit integer printf

This commit is contained in:
Martin Kroeker 2022-11-13 22:50:02 +01:00 committed by GitHub
parent 8b3f9715ec
commit 29dc086f38
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/LAPACKE/example/example_DGESV_colmajor.c
View File

@ -25,11 +25,9 @@
LAPACKE_dgesv (col-major, high-level) Example Program Results LAPACKE_dgesv (col-major, high-level) Example Program Results
-- LAPACKE Example routine (version 3.7.0) -- -- LAPACKE Example routine --
-- LAPACK is a software package provided by Univ. of Tennessee, -- -- LAPACK 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
*/ */
/* Includes */ /* Includes */
#include <stdlib.h> #include <stdlib.h>
@ -94,7 +92,7 @@ int main(int argc, char **argv) {
/* Check for the exact singularity */ /* Check for the exact singularity */
if( info > 0 ) { if( info > 0 ) {
printf( "The diagonal element of the triangular factor of A,\n" ); printf( "The diagonal element of the triangular factor of A,\n" );
printf( "U(%i,%i) is zero, so that A is singular;\n", info, info ); printf( "U(%" LAPACK_IFMT ",%" LAPACK_IFMT ") is zero, so that A is singular;\n", info, info );
printf( "the solution could not be computed.\n" ); printf( "the solution could not be computed.\n" );
exit( 1 ); exit( 1 );
} }

6
lapack-netlib/LAPACKE/example/example_DGESV_rowmajor.c
View File

@ -25,11 +25,9 @@
LAPACKE_dgesv (row-major, high-level) Example Program Results LAPACKE_dgesv (row-major, high-level) Example Program Results
-- LAPACKE Example routine (version 3.7.0) -- -- LAPACKE Example routine --
-- LAPACK is a software package provided by Univ. of Tennessee, -- -- LAPACK 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
*/ */
#include <stdlib.h> #include <stdlib.h>
#include <stdio.h> #include <stdio.h>
@ -91,7 +89,7 @@ int main(int argc, char **argv) {
/* Check for the exact singularity */ /* Check for the exact singularity */
if( info > 0 ) { if( info > 0 ) {
printf( "The diagonal element of the triangular factor of A,\n" ); printf( "The diagonal element of the triangular factor of A,\n" );
printf( "U(%i,%i) is zero, so that A is singular;\n", info, info ); printf( "U(%" LAPACK_IFMT ",%" LAPACK_IFMT ") is zero, so that A is singular;\n", info, info );
printf( "the solution could not be computed.\n" ); printf( "the solution could not be computed.\n" );
exit( 1 ); exit( 1 );
} }

2
lapack-netlib/LAPACKE/example/lapacke_example_aux.c
View File

@ -28,6 +28,6 @@ void print_matrix_colmajor( char* desc, lapack_int m, lapack_int n, double* mat,
void print_vector( char* desc, lapack_int n, lapack_int* vec ) { void print_vector( char* desc, lapack_int n, lapack_int* vec ) {
lapack_int j; lapack_int j;
printf( "\n %s\n", desc ); printf( "\n %s\n", desc );
for( j = 0; j < n; j++ ) printf( " %6i", vec[j] ); for( j = 0; j < n; j++ ) printf( " %6" LAPACK_IFMT, vec[j] );
printf( "\n" ); printf( "\n" );
} }