OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
lapacke_example_aux.c File Reference
#include <lapacke.h>
#include <stdio.h>

Go to the source code of this file.

Functions

void print_matrix_rowmajor (char *desc, lapack_int m, lapack_int n, double *mat, lapack_int ldm)
void print_matrix_colmajor (char *desc, lapack_int m, lapack_int n, double *mat, lapack_int ldm)
void print_vector (char *desc, lapack_int n, lapack_int *vec)

Function Documentation

◆ print_matrix_colmajor()

void print_matrix_colmajor ( char * desc,
lapack_int m,
lapack_int n,
double * mat,
lapack_int ldm )

Definition at line 17 of file lapacke_example_aux.c.

17 {
18 lapack_int i, j;
19 printf( "\n %s\n", desc );
20
21 for( i = 0; i < m; i++ ) {
22 for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i+j*ldm] );
23 printf( "\n" );
24 }
25}
#define lapack_int
Definition lapack.h:83
n

◆ print_matrix_rowmajor()

void print_matrix_rowmajor ( char * desc,
lapack_int m,
lapack_int n,
double * mat,
lapack_int ldm )

Definition at line 5 of file lapacke_example_aux.c.

5 {
6 lapack_int i, j;
7 printf( "\n %s\n", desc );
8
9 for( i = 0; i < m; i++ ) {
10 for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i*ldm+j] );
11 printf( "\n" );
12 }
13}

◆ print_vector()

void print_vector ( char * desc,
lapack_int n,
lapack_int * vec )

Definition at line 28 of file lapacke_example_aux.c.

28 {
29 lapack_int j;
30 printf( "\n %s\n", desc );
31 for( j = 0; j < n; j++ ) printf( " %6i", vec[j] );
32 printf( "\n" );
33}