| @@ -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 ); | ||||
| } | } | ||||
| @@ -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 ); | ||||
| } | } | ||||
| @@ -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" ); | ||||
| } | } | ||||