OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
lapacke_ssbgv.c File Reference
#include "lapacke_utils.h"

Go to the source code of this file.

Functions

lapack_int LAPACKE_ssbgv (int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float *ab, lapack_int ldab, float *bb, lapack_int ldbb, float *w, float *z, lapack_int ldz)

Function Documentation

◆ LAPACKE_ssbgv()

lapack_int LAPACKE_ssbgv ( int matrix_layout,
char jobz,
char uplo,
lapack_int n,
lapack_int ka,
lapack_int kb,
float * ab,
lapack_int ldab,
float * bb,
lapack_int ldbb,
float * w,
float * z,
lapack_int ldz )

Definition at line 35 of file lapacke_ssbgv.c.

39{
40 lapack_int info = 0;
41 float* work = NULL;
42 if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
43 LAPACKE_xerbla( "LAPACKE_ssbgv", -1 );
44 return -1;
45 }
46#ifndef LAPACK_DISABLE_NAN_CHECK
47 if( LAPACKE_get_nancheck() ) {
48 /* Optionally check input matrices for NaNs */
49 if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) {
50 return -7;
51 }
52 if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) {
53 return -9;
54 }
55 }
56#endif
57 /* Allocate memory for working array(s) */
58 work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,3*n) );
59 if( work == NULL ) {
61 goto exit_level_0;
62 }
63 /* Call middle-level interface */
64 info = LAPACKE_ssbgv_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab,
65 bb, ldbb, w, z, ldz, work );
66 /* Release memory and exit */
67 LAPACKE_free( work );
68exit_level_0:
69 if( info == LAPACK_WORK_MEMORY_ERROR ) {
70 LAPACKE_xerbla( "LAPACKE_ssbgv", info );
71 }
72 return info;
73}
#define lapack_int
Definition lapack.h:83
#define LAPACK_WORK_MEMORY_ERROR
Definition lapacke.h:55
#define LAPACK_COL_MAJOR
Definition lapacke.h:53
#define LAPACKE_free(p)
Definition lapacke.h:46
#define LAPACK_ROW_MAJOR
Definition lapacke.h:52
lapack_int LAPACKE_ssbgv_work(int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float *ab, lapack_int ldab, float *bb, lapack_int ldbb, float *w, float *z, lapack_int ldz, float *work)
int LAPACKE_get_nancheck(void)
#define LAPACKE_malloc(size)
Definition lapacke.h:43
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_logical LAPACKE_ssb_nancheck(int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float *ab, lapack_int ldab)
#define MAX(x, y)
n