OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cblas.h File Reference
#include <stddef.h>
#include <stdint.h>
#include "cblas_mangling.h"

Go to the source code of this file.

Macros

#define CBLAS_INDEX   size_t /* this may vary between platforms */
#define CBLAS_INT   int32_t
#define CBLAS_ORDER   CBLAS_LAYOUT /* this for backward compatibility with CBLAS_ORDER */

Typedefs

typedef enum CBLAS_LAYOUT CBLAS_LAYOUT
typedef enum CBLAS_TRANSPOSE CBLAS_TRANSPOSE
typedef enum CBLAS_UPLO CBLAS_UPLO
typedef enum CBLAS_DIAG CBLAS_DIAG
typedef enum CBLAS_SIDE CBLAS_SIDE

Enumerations

enum  CBLAS_LAYOUT { CblasRowMajor =101 , CblasColMajor =102 }
enum  CBLAS_TRANSPOSE { CblasNoTrans =111 , CblasTrans =112 , CblasConjTrans =113 }
enum  CBLAS_UPLO { CblasUpper =121 , CblasLower =122 }
enum  CBLAS_DIAG { CblasNonUnit =131 , CblasUnit =132 }
enum  CBLAS_SIDE { CblasLeft =141 , CblasRight =142 }

Functions

double cblas_dcabs1 (const void *z)
float cblas_scabs1 (const void *c)
float cblas_sdsdot (const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY)
double cblas_dsdot (const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY)
float cblas_sdot (const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY)
double cblas_ddot (const CBLAS_INT N, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY)
void cblas_cdotu_sub (const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu)
void cblas_cdotc_sub (const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc)
void cblas_zdotu_sub (const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu)
void cblas_zdotc_sub (const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc)
float cblas_snrm2 (const CBLAS_INT N, const float *X, const CBLAS_INT incX)
float cblas_sasum (const CBLAS_INT N, const float *X, const CBLAS_INT incX)
double cblas_dnrm2 (const CBLAS_INT N, const double *X, const CBLAS_INT incX)
double cblas_dasum (const CBLAS_INT N, const double *X, const CBLAS_INT incX)
float cblas_scnrm2 (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
float cblas_scasum (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
double cblas_dznrm2 (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
double cblas_dzasum (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_isamax (const CBLAS_INT N, const float *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_idamax (const CBLAS_INT N, const double *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_icamax (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_izamax (const CBLAS_INT N, const void *X, const CBLAS_INT incX)
void cblas_sswap (const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
void cblas_scopy (const CBLAS_INT N, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
void cblas_saxpy (const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
void cblas_dswap (const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
void cblas_dcopy (const CBLAS_INT N, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
void cblas_daxpy (const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
void cblas_cswap (const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_ccopy (const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_caxpy (const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_zswap (const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_zcopy (const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_zaxpy (const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
void cblas_srotg (float *a, float *b, float *c, float *s)
void cblas_srotmg (float *d1, float *d2, float *b1, const float b2, float *P)
void cblas_srot (const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY, const float c, const float s)
void cblas_srotm (const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY, const float *P)
void cblas_drotg (double *a, double *b, double *c, double *s)
void cblas_drotmg (double *d1, double *d2, double *b1, const double b2, double *P)
void cblas_drot (const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double c, const double s)
void cblas_drotm (const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double *P)
void cblas_sscal (const CBLAS_INT N, const float alpha, float *X, const CBLAS_INT incX)
void cblas_dscal (const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT incX)
void cblas_cscal (const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX)
void cblas_zscal (const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX)
void cblas_csscal (const CBLAS_INT N, const float alpha, void *X, const CBLAS_INT incX)
void cblas_zdscal (const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT incX)
void cblas_sgemv (const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_sgbmv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_strmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_stbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_stpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
void cblas_strsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_stbsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_stpsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
void cblas_dgemv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
void cblas_dgbmv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
void cblas_dtrmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
void cblas_dtbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
void cblas_dtpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
void cblas_dtrsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
void cblas_dtbsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
void cblas_dtpsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
void cblas_cgemv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_cgbmv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_ctrmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ctbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ctpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_ctrsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ctbsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ctpsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_zgemv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_zgbmv (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_ztrmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ztbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ztpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_ztrsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ztbsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ztpsv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_ssymv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_ssbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_sspmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *Ap, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_sger (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
void cblas_ssyr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *A, const CBLAS_INT lda)
void cblas_sspr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Ap)
void cblas_ssyr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
void cblas_sspr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A)
void cblas_dsymv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
void cblas_dsbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
void cblas_dspmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *Ap, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
void cblas_dger (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
void cblas_dsyr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *A, const CBLAS_INT lda)
void cblas_dspr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Ap)
void cblas_dsyr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
void cblas_dspr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A)
void cblas_chemv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_chbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_chpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_cgeru (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_cgerc (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_cher (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
void cblas_chpr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A)
void cblas_cher2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_chpr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
void cblas_zhemv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_zhbmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_zhpmv (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_zgeru (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_zgerc (CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_zher (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
void cblas_zhpr (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A)
void cblas_zher2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_zhpr2 (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
void cblas_sgemm (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
void cblas_ssymm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
void cblas_ssyrk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float beta, float *C, const CBLAS_INT ldc)
void cblas_ssyr2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
void cblas_strmm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
void cblas_strsm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
void cblas_dgemm (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
void cblas_dsymm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
void cblas_dsyrk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double beta, double *C, const CBLAS_INT ldc)
void cblas_dsyr2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
void cblas_dtrmm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, double *B, const CBLAS_INT ldb)
void cblas_dtrsm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, double *B, const CBLAS_INT ldb)
void cblas_cgemm (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_csymm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_csyrk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_csyr2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_ctrmm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
void cblas_ctrsm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
void cblas_zgemm (CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_zsymm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_zsyrk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_zsyr2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_ztrmm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
void cblas_ztrsm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
void cblas_chemm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_cherk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const void *A, const CBLAS_INT lda, const float beta, void *C, const CBLAS_INT ldc)
void cblas_cher2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const float beta, void *C, const CBLAS_INT ldc)
void cblas_zhemm (CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
void cblas_zherk (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const void *A, const CBLAS_INT lda, const double beta, void *C, const CBLAS_INT ldc)
void cblas_zher2k (CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const double beta, void *C, const CBLAS_INT ldc)
void cblas_xerbla (CBLAS_INT p, const char *rout, const char *form,...)

Macro Definition Documentation

◆ CBLAS_INDEX

#define CBLAS_INDEX   size_t /* this may vary between platforms */

Definition at line 14 of file cblas.h.

◆ CBLAS_INT

#define CBLAS_INT   int32_t

Definition at line 23 of file cblas.h.

◆ CBLAS_ORDER

#define CBLAS_ORDER   CBLAS_LAYOUT /* this for backward compatibility with CBLAS_ORDER */

Definition at line 33 of file cblas.h.

Typedef Documentation

◆ CBLAS_DIAG

typedef enum CBLAS_DIAG CBLAS_DIAG

◆ CBLAS_LAYOUT

typedef enum CBLAS_LAYOUT CBLAS_LAYOUT

◆ CBLAS_SIDE

typedef enum CBLAS_SIDE CBLAS_SIDE

◆ CBLAS_TRANSPOSE

typedef enum CBLAS_TRANSPOSE CBLAS_TRANSPOSE

◆ CBLAS_UPLO

typedef enum CBLAS_UPLO CBLAS_UPLO

Enumeration Type Documentation

◆ CBLAS_DIAG

enum CBLAS_DIAG
Enumerator
CblasNonUnit 
CblasUnit 

Definition at line 30 of file cblas.h.

30{CblasNonUnit=131, CblasUnit=132} CBLAS_DIAG;
CBLAS_DIAG
CBLAS_DIAG
Definition cblas.h:30
CblasUnit
@ CblasUnit
Definition cblas.h:30
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:30

◆ CBLAS_LAYOUT

enum CBLAS_LAYOUT
Enumerator
CblasRowMajor 
CblasColMajor 

Definition at line 27 of file cblas.h.

27{CblasRowMajor=101, CblasColMajor=102} CBLAS_LAYOUT;
CBLAS_LAYOUT
CBLAS_LAYOUT
Definition cblas.h:27
CblasColMajor
@ CblasColMajor
Definition cblas.h:27
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:27

◆ CBLAS_SIDE

enum CBLAS_SIDE
Enumerator
CblasLeft 
CblasRight 

Definition at line 31 of file cblas.h.

31{CblasLeft=141, CblasRight=142} CBLAS_SIDE;
CBLAS_SIDE
CBLAS_SIDE
Definition cblas.h:31
CblasRight
@ CblasRight
Definition cblas.h:31
CblasLeft
@ CblasLeft
Definition cblas.h:31

◆ CBLAS_TRANSPOSE

enum CBLAS_TRANSPOSE
Enumerator
CblasNoTrans 
CblasTrans 
CblasConjTrans 

Definition at line 28 of file cblas.h.

28{CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113} CBLAS_TRANSPOSE;
CBLAS_TRANSPOSE
CBLAS_TRANSPOSE
Definition cblas.h:28
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:28
CblasTrans
@ CblasTrans
Definition cblas.h:28
CblasConjTrans
@ CblasConjTrans
Definition cblas.h:28

◆ CBLAS_UPLO

enum CBLAS_UPLO
Enumerator
CblasUpper 
CblasLower 

Definition at line 29 of file cblas.h.

29{CblasUpper=121, CblasLower=122} CBLAS_UPLO;
CBLAS_UPLO
CBLAS_UPLO
Definition cblas.h:29
CblasLower
@ CblasLower
Definition cblas.h:29
CblasUpper
@ CblasUpper
Definition cblas.h:29

Function Documentation

◆ cblas_caxpy()

void cblas_caxpy ( const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_caxpy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
22}
F77_incX
#define F77_incX
F77_incY
#define F77_incY
F77_N
#define F77_N
F77_caxpy
#define F77_caxpy(...)
Definition cblas_f77.h:240
F77_INT
#define F77_INT
Definition cblas_f77.h:32
alpha
#define alpha
Definition eval.h:35
N
#define N
Definition example_user.c:10

◆ cblas_ccopy()

void cblas_ccopy ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_ccopy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_ccopy( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_ccopy
#define F77_ccopy(...)
Definition cblas_f77.h:239

◆ cblas_cdotc_sub()

void cblas_cdotc_sub ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * dotc )

Definition at line 12 of file cblas_cdotc_sub.c.

14{
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
17#else
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21#endif
22 F77_cdotc_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotc);
23 return;
24}
F77_cdotc_sub
#define F77_cdotc_sub(...)
Definition cblas_f77.h:242

◆ cblas_cdotu_sub()

void cblas_cdotu_sub ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * dotu )

Definition at line 12 of file cblas_cdotu_sub.c.

14{
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
17#else
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21#endif
22 F77_cdotu_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotu);
23 return;
24}
F77_cdotu_sub
#define F77_cdotu_sub(...)
Definition cblas_f77.h:243

◆ cblas_cgbmv()

void cblas_cgbmv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT KL,
const CBLAS_INT KU,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_cgbmv.c.

18{
19 char TA;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA;
22#else
23 #define F77_TA &TA
24#endif
25#ifdef F77_INT
26 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
27 F77_INT F77_KL=KL,F77_KU=KU;
28#else
29 #define F77_M M
30 #define F77_N N
31 #define F77_lda lda
32 #define F77_KL KL
33 #define F77_KU KU
34 #define F77_incX incx
35 #define F77_incY incY
36#endif
37 CBLAS_INT n=0, i=0, incx=incX;
38 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
39 float ALPHA[2],BETA[2];
40 CBLAS_INT tincY, tincx;
41 float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
42 extern int CBLAS_CallFromC;
43 extern int RowMajorStrg;
44 RowMajorStrg = 0;
45
46 CBLAS_CallFromC = 1;
47 if (layout == CblasColMajor)
48 {
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 #ifdef F77_CHAR
60 F77_TA = C2F_CHAR(&TA);
61 #endif
62 F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
63 A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
64 }
65 else if (layout == CblasRowMajor)
66 {
67 RowMajorStrg = 1;
68 if (TransA == CblasNoTrans) TA = 'T';
69 else if (TransA == CblasTrans) TA = 'N';
70 else if (TransA == CblasConjTrans)
71 {
72 ALPHA[0]= *alp;
73 ALPHA[1]= -alp[1];
74 BETA[0]= *bet;
75 BETA[1]= -bet[1];
76 TA = 'N';
77 if (M > 0)
78 {
79 n = M << 1;
80 x = malloc(n*sizeof(float));
81 tx = x;
82
83 if( incX > 0 ) {
84 i = incX << 1 ;
85 tincx = 2;
86 st= x+n;
87 } else {
88 i = incX *(-2);
89 tincx = -2;
90 st = x-2;
91 x +=(n-2);
92 }
93 do
94 {
95 *x = *xx;
96 x[1] = -xx[1];
97 x += tincx ;
98 xx += i;
99 }
100 while (x != st);
101 x=tx;
102
103 #ifdef F77_INT
104 F77_incX = 1;
105 #else
106 incx = 1;
107 #endif
108
109 if( incY > 0 )
110 tincY = incY;
111 else
112 tincY = -incY;
113
114 y++;
115
116 if (N > 0)
117 {
118 i = tincY << 1;
119 n = i * N ;
120 st = y + n;
121 do {
122 *y = -(*y);
123 y += i;
124 } while(y != st);
125 y -= n;
126 }
127 }
128 else x = (float *) X;
129
130
131 }
132 else
133 {
134 cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
135 CBLAS_CallFromC = 0;
136 RowMajorStrg = 0;
137 return;
138 }
139 #ifdef F77_CHAR
140 F77_TA = C2F_CHAR(&TA);
141 #endif
142 if (TransA == CblasConjTrans)
143 F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
145 else
146 F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
147 A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
148 if (TransA == CblasConjTrans)
149 {
150 if (x != X) free(x);
151 if (N > 0)
152 {
153 do
154 {
155 *y = -(*y);
156 y += i;
157 }
158 while (y != st);
159 }
160 }
161 }
162 else cblas_xerbla(1, "cblas_cgbmv", "Illegal layout setting, %d\n", layout);
163 CBLAS_CallFromC = 0;
164 RowMajorStrg = 0;
165}
C2F_CHAR
#define C2F_CHAR(a)
Definition pblas.h:125
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:23
F77_KU
#define F77_KU
F77_TA
#define F77_TA
F77_lda
#define F77_lda
F77_M
#define F77_M
F77_KL
#define F77_KL
F77_cgbmv
#define F77_cgbmv(...)
Definition cblas_f77.h:320
CBLAS_CallFromC
int CBLAS_CallFromC
Definition cblas_globals.c:1
RowMajorStrg
int RowMajorStrg
Definition cblas_globals.c:2
y
y
Definition schur_example.m:54
x
x
Definition schur_example.m:53
n
n
Definition schur_example.m:9

◆ cblas_cgemm()

void cblas_cgemm ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_cgemm.c.

17{
18 char TA, TB;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_TB;
21#else
22 #define F77_TA &TA
23 #define F77_TB &TB
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_K K
33 #define F77_lda lda
34 #define F77_ldb ldb
35 #define F77_ldc ldc
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42
43 if( layout == CblasColMajor )
44 {
45 if(TransA == CblasTrans) TA='T';
46 else if ( TransA == CblasConjTrans ) TA='C';
47 else if ( TransA == CblasNoTrans ) TA='N';
48 else
49 {
50 cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
51 CBLAS_CallFromC = 0;
52 RowMajorStrg = 0;
53 return;
54 }
55
56 if(TransB == CblasTrans) TB='T';
57 else if ( TransB == CblasConjTrans ) TB='C';
58 else if ( TransB == CblasNoTrans ) TB='N';
59 else
60 {
61 cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66
67 #ifdef F77_CHAR
68 F77_TA = C2F_CHAR(&TA);
69 F77_TB = C2F_CHAR(&TB);
70 #endif
71
72 F77_cgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, alpha, A,
73 &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if(TransA == CblasTrans) TB='T';
78 else if ( TransA == CblasConjTrans ) TB='C';
79 else if ( TransA == CblasNoTrans ) TB='N';
80 else
81 {
82 cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
83 CBLAS_CallFromC = 0;
84 RowMajorStrg = 0;
85 return;
86 }
87 if(TransB == CblasTrans) TA='T';
88 else if ( TransB == CblasConjTrans ) TA='C';
89 else if ( TransB == CblasNoTrans ) TA='N';
90 else
91 {
92 cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
93 CBLAS_CallFromC = 0;
94 RowMajorStrg = 0;
95 return;
96 }
97 #ifdef F77_CHAR
98 F77_TA = C2F_CHAR(&TA);
99 F77_TB = C2F_CHAR(&TB);
100 #endif
101
102 F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B,
103 &F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
104 }
105 else cblas_xerbla(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109}
F77_ldc
#define F77_ldc
F77_K
#define F77_K
F77_ldb
#define F77_ldb
F77_TB
#define F77_TB
F77_cgemm
#define F77_cgemm(...)
Definition cblas_f77.h:377

◆ cblas_cgemv()

void cblas_cgemv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_cgemv.c.

17{
18 char TA;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA;
21#else
22 #define F77_TA &TA
23#endif
24#ifdef F77_INT
25 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_M M
28 #define F77_N N
29 #define F77_lda lda
30 #define F77_incX incx
31 #define F77_incY incY
32#endif
33
34 CBLAS_INT n=0, i=0, incx=incX;
35 const float *xx= (const float *)X;
36 float ALPHA[2],BETA[2];
37 CBLAS_INT tincY, tincx;
38 float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
39 const float *stx = x;
40 extern int CBLAS_CallFromC;
41 extern int RowMajorStrg;
42 RowMajorStrg = 0;
43
44 CBLAS_CallFromC = 1;
45
46 if (layout == CblasColMajor)
47 {
48 if (TransA == CblasNoTrans) TA = 'N';
49 else if (TransA == CblasTrans) TA = 'T';
50 else if (TransA == CblasConjTrans) TA = 'C';
51 else
52 {
53 cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
54 CBLAS_CallFromC = 0;
55 RowMajorStrg = 0;
56 return;
57 }
58 #ifdef F77_CHAR
59 F77_TA = C2F_CHAR(&TA);
60 #endif
61 F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
62 beta, Y, &F77_incY);
63 }
64 else if (layout == CblasRowMajor)
65 {
66 RowMajorStrg = 1;
67
68 if (TransA == CblasNoTrans) TA = 'T';
69 else if (TransA == CblasTrans) TA = 'N';
70 else if (TransA == CblasConjTrans)
71 {
72 ALPHA[0]= *( (const float *) alpha );
73 ALPHA[1]= -( *( (const float *) alpha+1) );
74 BETA[0]= *( (const float *) beta );
75 BETA[1]= -( *( (const float *) beta+1 ) );
76 TA = 'N';
77 if (M > 0)
78 {
79 n = M << 1;
80 x = malloc(n*sizeof(float));
81 tx = x;
82 if( incX > 0 ) {
83 i = incX << 1 ;
84 tincx = 2;
85 st= x+n;
86 } else {
87 i = incX *(-2);
88 tincx = -2;
89 st = x-2;
90 x +=(n-2);
91 }
92
93 do
94 {
95 *x = *xx;
96 x[1] = -xx[1];
97 x += tincx ;
98 xx += i;
99 }
100 while (x != st);
101 x=tx;
102
103 F77_incX = 1;
104
105 if(incY > 0)
106 tincY = incY;
107 else
108 tincY = -incY;
109
110 y++;
111
112 if (N > 0)
113 {
114 i = tincY << 1;
115 n = i * N ;
116 st = y + n;
117 do {
118 *y = -(*y);
119 y += i;
120 } while(y != st);
121 y -= n;
122 }
123 stx = x;
124 }
125 else stx = (const float *)X;
126 }
127 else
128 {
129 cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
130 CBLAS_CallFromC = 0;
131 RowMajorStrg = 0;
132 return;
133 }
134 #ifdef F77_CHAR
135 F77_TA = C2F_CHAR(&TA);
136 #endif
137 if (TransA == CblasConjTrans)
138 F77_cgemv(F77_TA, &F77_N, &F77_M, ALPHA, A, &F77_lda, stx,
139 &F77_incX, BETA, Y, &F77_incY);
140 else
141 F77_cgemv(F77_TA, &F77_N, &F77_M, alpha, A, &F77_lda, x,
142 &F77_incX, beta, Y, &F77_incY);
143
144 if (TransA == CblasConjTrans)
145 {
146 if (x != (const float *)X) free(x);
147 if (N > 0)
148 {
149 do
150 {
151 *y = -(*y);
152 y += i;
153 }
154 while (y != st);
155 }
156 }
157 }
158 else cblas_xerbla(1, "cblas_cgemv", "Illegal layout setting, %d\n", layout);
159 CBLAS_CallFromC = 0;
160 RowMajorStrg = 0;
161 return;
162}
F77_cgemv
#define F77_cgemv(...)
Definition cblas_f77.h:319

◆ cblas_cgerc()

void cblas_cgerc ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_cgerc.c.

15{
16#ifdef F77_INT
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_M M
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incy
23 #define F77_lda lda
24#endif
25
26 CBLAS_INT n, i, tincy, incy=incY;
27 float *y=(float *)Y, *yy=(float *)Y, *ty, *st;
28
29 extern int CBLAS_CallFromC;
30 extern int RowMajorStrg;
31 RowMajorStrg = 0;
32
33 CBLAS_CallFromC = 1;
34 if (layout == CblasColMajor)
35 {
36 F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
37 &F77_lda);
38 } else if (layout == CblasRowMajor)
39 {
40 RowMajorStrg = 1;
41 if (N > 0)
42 {
43 n = N << 1;
44 y = malloc(n*sizeof(float));
45
46 ty = y;
47 if( incY > 0 ) {
48 i = incY << 1;
49 tincy = 2;
50 st= y+n;
51 } else {
52 i = incY *(-2);
53 tincy = -2;
54 st = y-2;
55 y +=(n-2);
56 }
57 do
58 {
59 *y = *yy;
60 y[1] = -yy[1];
61 y += tincy ;
62 yy += i;
63 }
64 while (y != st);
65 y = ty;
66
67 #ifdef F77_INT
68 F77_incY = 1;
69 #else
70 incy = 1;
71 #endif
72 }
73 else y = (float *) Y;
74
75 F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
76 &F77_lda);
77 if(Y!=y)
78 free(y);
79
80 } else cblas_xerbla(1, "cblas_cgerc", "Illegal layout setting, %d\n", layout);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84}
F77_cgeru
#define F77_cgeru(...)
Definition cblas_f77.h:271
F77_cgerc
#define F77_cgerc(...)
Definition cblas_f77.h:270

◆ cblas_cgeru()

void cblas_cgeru ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 10 of file cblas_cgeru.c.

13{
14#ifdef F77_INT
15 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_M M
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21 #define F77_lda lda
22#endif
23
24 extern int CBLAS_CallFromC;
25 extern int RowMajorStrg;
26 RowMajorStrg = 0;
27
28 CBLAS_CallFromC = 1;
29
30 if (layout == CblasColMajor)
31 {
32 F77_cgeru( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
33 &F77_lda);
34 }
35 else if (layout == CblasRowMajor)
36 {
37 RowMajorStrg = 1;
38 F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
39 &F77_lda);
40 }
41 else cblas_xerbla(1, "cblas_cgeru","Illegal layout setting, %d\n", layout);
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45}

◆ cblas_chbmv()

void cblas_chbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_chbmv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_K K
29 #define F77_lda lda
30 #define F77_incX incx
31 #define F77_incY incY
32#endif
33 CBLAS_INT n, i=0, incx=incX;
34 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
35 float ALPHA[2],BETA[2];
36 CBLAS_INT tincY, tincx;
37 float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41
42 CBLAS_CallFromC = 1;
43 if (layout == CblasColMajor)
44 {
45 if (Uplo == CblasLower) UL = 'L';
46 else if (Uplo == CblasUpper) UL = 'U';
47 else
48 {
49 cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo );
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 #ifdef F77_CHAR
55 F77_UL = C2F_CHAR(&UL);
56 #endif
57 F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
58 &F77_incX, beta, Y, &F77_incY);
59 }
60 else if (layout == CblasRowMajor)
61 {
62 RowMajorStrg = 1;
63 ALPHA[0]= *alp;
64 ALPHA[1]= -alp[1];
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
67
68 if (N > 0)
69 {
70 n = N << 1;
71 x = malloc(n*sizeof(float));
72
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1 ;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95
96 #ifdef F77_INT
97 F77_incX = 1;
98 #else
99 incx = 1;
100 #endif
101
102 if(incY > 0)
103 tincY = incY;
104 else
105 tincY = -incY;
106 y++;
107
108 i = tincY << 1;
109 n = i * N ;
110 st = y + n;
111 do {
112 *y = -(*y);
113 y += i;
114 } while(y != st);
115 y -= n;
116 } else
117 x = (float *) X;
118
119 if (Uplo == CblasUpper) UL = 'L';
120 else if (Uplo == CblasLower) UL = 'U';
121 else
122 {
123 cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo);
124 CBLAS_CallFromC = 0;
125 RowMajorStrg = 0;
126 return;
127 }
128 #ifdef F77_CHAR
129 F77_UL = C2F_CHAR(&UL);
130 #endif
131 F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA,
132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
133 }
134 else
135 {
136 cblas_xerbla(1, "cblas_chbmv","Illegal layout setting, %d\n", layout);
137 CBLAS_CallFromC = 0;
138 RowMajorStrg = 0;
139 return;
140 }
141 if ( layout == CblasRowMajor )
142 {
143 RowMajorStrg = 1;
144 if(X!=x)
145 free(x);
146 if (N > 0)
147 {
148 do
149 {
150 *y = -(*y);
151 y += i;
152 }
153 while (y != st);
154 }
155 }
156 CBLAS_CallFromC = 0;
157 RowMajorStrg = 0;
158 return;
159}
F77_UL
#define F77_UL
F77_chbmv
#define F77_chbmv(...)
Definition cblas_f77.h:322

◆ cblas_chemm()

void cblas_chemm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_chemm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
67 #endif
68
69 F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
70 B, &F77_ldb, beta, C, &F77_ldc);
71 } else if (layout == CblasRowMajor)
72 {
73 RowMajorStrg = 1;
74 if( Side == CblasRight) SD='L';
75 else if ( Side == CblasLeft ) SD='R';
76 else
77 {
78 cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 if( Uplo == CblasUpper) UL='L';
85 else if ( Uplo == CblasLower ) UL='U';
86 else
87 {
88 cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
89 CBLAS_CallFromC = 0;
90 RowMajorStrg = 0;
91 return;
92 }
93
94 #ifdef F77_CHAR
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
97 #endif
98
99 F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A,
100 &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
101 }
102 else cblas_xerbla(1, "cblas_chemm", "Illegal layout setting, %d\n", layout);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106}
F77_SD
#define F77_SD
F77_chemm
#define F77_chemm(...)
Definition cblas_f77.h:379

◆ cblas_chemv()

void cblas_chemv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_chemv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incx
30 #define F77_incY incY
31#endif
32 CBLAS_INT n=0, i=0, incx=incX;
33 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
34 float ALPHA[2],BETA[2];
35 CBLAS_INT tincY, tincx;
36 float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40
41
42 CBLAS_CallFromC = 1;
43 if (layout == CblasColMajor)
44 {
45 if (Uplo == CblasUpper) UL = 'U';
46 else if (Uplo == CblasLower) UL = 'L';
47 else
48 {
49 cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo );
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 #ifdef F77_CHAR
55 F77_UL = C2F_CHAR(&UL);
56 #endif
57 F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
58 beta, Y, &F77_incY);
59 }
60 else if (layout == CblasRowMajor)
61 {
62 RowMajorStrg = 1;
63 ALPHA[0]= *alp;
64 ALPHA[1]= -alp[1];
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
67
68 if (N > 0)
69 {
70 n = N << 1;
71 x = malloc(n*sizeof(float));
72
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1 ;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95
96 #ifdef F77_INT
97 F77_incX = 1;
98 #else
99 incx = 1;
100 #endif
101
102 if(incY > 0)
103 tincY = incY;
104 else
105 tincY = -incY;
106 y++;
107
108 i = tincY << 1;
109 n = i * N ;
110 st = y + n;
111 do {
112 *y = -(*y);
113 y += i;
114 } while(y != st);
115 y -= n;
116 } else
117 x = (float *) X;
118
119
120 if (Uplo == CblasUpper) UL = 'L';
121 else if (Uplo == CblasLower) UL = 'U';
122 else
123 {
124 cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo);
125 CBLAS_CallFromC = 0;
126 RowMajorStrg = 0;
127 return;
128 }
129 #ifdef F77_CHAR
130 F77_UL = C2F_CHAR(&UL);
131 #endif
132 F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
133 BETA, Y, &F77_incY);
134 }
135 else
136 {
137 cblas_xerbla(1, "cblas_chemv","Illegal layout setting, %d\n", layout);
138 CBLAS_CallFromC = 0;
139 RowMajorStrg = 0;
140 return;
141 }
142 if ( layout == CblasRowMajor )
143 {
144 RowMajorStrg = 1;
145 if ( X != x )
146 free(x);
147 if (N > 0)
148 {
149 do
150 {
151 *y = -(*y);
152 y += i;
153 }
154 while (y != st);
155 }
156 }
157 CBLAS_CallFromC = 0;
158 RowMajorStrg = 0;
159 return;
160}
F77_chemv
#define F77_chemv(...)
Definition cblas_f77.h:321

◆ cblas_cher()

void cblas_cher ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const void * X,
const CBLAS_INT incX,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_cher.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_lda lda
28 #define F77_incX incx
29#endif
30 CBLAS_INT n, i, tincx, incx=incX;
31 float *x=(float *)X, *xx=(float *)X, *tx, *st;
32
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasLower) UL = 'L';
41 else if (Uplo == CblasUpper) UL = 'U';
42 else
43 {
44 cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo );
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 #ifdef F77_CHAR
50 F77_UL = C2F_CHAR(&UL);
51 #endif
52
53 F77_cher(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
54
55 } else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (Uplo == CblasUpper) UL = 'L';
59 else if (Uplo == CblasLower) UL = 'U';
60 else
61 {
62 cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 #endif
70 if (N > 0)
71 {
72 n = N << 1;
73 x = malloc(n*sizeof(float));
74 tx = x;
75 if( incX > 0 ) {
76 i = incX << 1 ;
77 tincx = 2;
78 st= x+n;
79 } else {
80 i = incX *(-2);
81 tincx = -2;
82 st = x-2;
83 x +=(n-2);
84 }
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95 #ifdef F77_INT
96 F77_incX = 1;
97 #else
98 incx = 1;
99 #endif
100 }
101 else x = (float *) X;
102 F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda);
103 } else
104 {
105 cblas_xerbla(1, "cblas_cher","Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109 }
110 if(X!=x)
111 free(x);
112
113 CBLAS_CallFromC = 0;
114 RowMajorStrg = 0;
115 return;
116}
F77_cher
#define F77_cher(...)
Definition cblas_f77.h:330

◆ cblas_cher2()

void cblas_cher2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_cher2.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_N N
27 #define F77_lda lda
28 #define F77_incX incx
29 #define F77_incY incy
30#endif
31 CBLAS_INT n, i, j, tincx, tincy, incx=incX, incy=incY;
32 float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
33 *yy=(float *)Y, *tx, *ty, *stx, *sty;
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasLower) UL = 'L';
43 else if (Uplo == CblasUpper) UL = 'U';
44 else
45 {
46 cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo );
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 #ifdef F77_CHAR
52 F77_UL = C2F_CHAR(&UL);
53 #endif
54
55 F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX,
56 Y, &F77_incY, A, &F77_lda);
57
58 } else if (layout == CblasRowMajor)
59 {
60 RowMajorStrg = 1;
61 if (Uplo == CblasUpper) UL = 'L';
62 else if (Uplo == CblasLower) UL = 'U';
63 else
64 {
65 cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 #endif
73 if (N > 0)
74 {
75 n = N << 1;
76 x = malloc(n*sizeof(float));
77 y = malloc(n*sizeof(float));
78 tx = x;
79 ty = y;
80 if( incX > 0 ) {
81 i = incX << 1 ;
82 tincx = 2;
83 stx= x+n;
84 } else {
85 i = incX *(-2);
86 tincx = -2;
87 stx = x-2;
88 x +=(n-2);
89 }
90
91 if( incY > 0 ) {
92 j = incY << 1;
93 tincy = 2;
94 sty= y+n;
95 } else {
96 j = incY *(-2);
97 tincy = -2;
98 sty = y-2;
99 y +=(n-2);
100 }
101
102 do
103 {
104 *x = *xx;
105 x[1] = -xx[1];
106 x += tincx ;
107 xx += i;
108 }
109 while (x != stx);
110
111 do
112 {
113 *y = *yy;
114 y[1] = -yy[1];
115 y += tincy ;
116 yy += j;
117 }
118 while (y != sty);
119
120 x=tx;
121 y=ty;
122
123 #ifdef F77_INT
124 F77_incX = 1;
125 F77_incY = 1;
126 #else
127 incx = 1;
128 incy = 1;
129 #endif
130 } else
131 {
132 x = (float *) X;
133 y = (float *) Y;
134 }
135 F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
136 &F77_incX, A, &F77_lda);
137 } else
138 {
139 cblas_xerbla(1, "cblas_cher2","Illegal layout setting, %d\n", layout);
140 CBLAS_CallFromC = 0;
141 RowMajorStrg = 0;
142 return;
143 }
144 if(X!=x)
145 free(x);
146 if(Y!=y)
147 free(y);
148
149 CBLAS_CallFromC = 0;
150 RowMajorStrg = 0;
151 return;
152}
F77_cher2
#define F77_cher2(...)
Definition cblas_f77.h:331

◆ cblas_cher2k()

void cblas_cher2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const float beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_cher2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TR, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 float ALPHA[2];
40 const float *alp=(float *)alpha;
41
42 CBLAS_CallFromC = 1;
43 RowMajorStrg = 0;
44
45 if( layout == CblasColMajor )
46 {
47
48 if( Uplo == CblasUpper) UL='U';
49 else if ( Uplo == CblasLower ) UL='L';
50 else
51 {
52 cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
53 CBLAS_CallFromC = 0;
54 RowMajorStrg = 0;
55 return;
56 }
57
58 if( Trans == CblasTrans) TR ='T';
59 else if ( Trans == CblasConjTrans ) TR='C';
60 else if ( Trans == CblasNoTrans ) TR='N';
61 else
62 {
63 cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TR = C2F_CHAR(&TR);
72 #endif
73
74 F77_cher2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
75 } else if (layout == CblasRowMajor)
76 {
77 RowMajorStrg = 1;
78
79 if( Uplo == CblasUpper) UL='L';
80 else if ( Uplo == CblasLower ) UL='U';
81 else
82 {
83 cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88 if( Trans == CblasTrans) TR ='N';
89 else if ( Trans == CblasConjTrans ) TR='N';
90 else if ( Trans == CblasNoTrans ) TR='C';
91 else
92 {
93 cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
94 CBLAS_CallFromC = 0;
95 RowMajorStrg = 0;
96 return;
97 }
98 #ifdef F77_CHAR
99 F77_UL = C2F_CHAR(&UL);
100 F77_TR = C2F_CHAR(&TR);
101 #endif
102
103 ALPHA[0]= *alp;
104 ALPHA[1]= -alp[1];
105 F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
106 }
107 else cblas_xerbla(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout);
108 CBLAS_CallFromC = 0;
109 RowMajorStrg = 0;
110 return;
111}
F77_TR
#define F77_TR
F77_cher2k
#define F77_cher2k(...)
Definition cblas_f77.h:383

◆ cblas_cherk()

void cblas_cherk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const void * A,
const CBLAS_INT lda,
const float beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_cherk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42 if( Uplo == CblasUpper) UL='U';
43 else if ( Uplo == CblasLower ) UL='L';
44 else
45 {
46 cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51
52 if( Trans == CblasTrans) TR ='T';
53 else if ( Trans == CblasConjTrans ) TR='C';
54 else if ( Trans == CblasNoTrans ) TR='N';
55 else
56 {
57 cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 #ifdef F77_CHAR
64 F77_UL = C2F_CHAR(&UL);
65 F77_TR = C2F_CHAR(&TR);
66 #endif
67
68 F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
69 &beta, C, &F77_ldc);
70 } else if (layout == CblasRowMajor)
71 {
72 RowMajorStrg = 1;
73 if( Uplo == CblasUpper) UL='L';
74 else if ( Uplo == CblasLower ) UL='U';
75 else
76 {
77 cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
78 CBLAS_CallFromC = 0;
79 RowMajorStrg = 0;
80 return;
81 }
82 if( Trans == CblasTrans) TR ='N';
83 else if ( Trans == CblasConjTrans ) TR='N';
84 else if ( Trans == CblasNoTrans ) TR='C';
85 else
86 {
87 cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
88 CBLAS_CallFromC = 0;
89 RowMajorStrg = 0;
90 return;
91 }
92
93 #ifdef F77_CHAR
94 F77_UL = C2F_CHAR(&UL);
95 F77_SD = C2F_CHAR(&SD);
96 #endif
97
98 F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
99 &beta, C, &F77_ldc);
100 }
101 else cblas_xerbla(1, "cblas_cherk", "Illegal layout setting, %d\n", layout);
102 CBLAS_CallFromC = 0;
103 RowMajorStrg = 0;
104 return;
105}
F77_cherk
#define F77_cherk(...)
Definition cblas_f77.h:381

◆ cblas_chpmv()

void cblas_chpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * Ap,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_chpmv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_incX incx
29 #define F77_incY incY
30#endif
31 CBLAS_INT n, i=0, incx=incX;
32 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
33 float ALPHA[2],BETA[2];
34 CBLAS_INT tincY, tincx;
35 float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
36 extern int CBLAS_CallFromC;
37 extern int RowMajorStrg;
38 RowMajorStrg = 0;
39
40 CBLAS_CallFromC = 1;
41 if (layout == CblasColMajor)
42 {
43 if (Uplo == CblasLower) UL = 'L';
44 else if (Uplo == CblasUpper) UL = 'U';
45 else
46 {
47 cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo );
48 CBLAS_CallFromC = 0;
49 RowMajorStrg = 0;
50 return;
51 }
52 #ifdef F77_CHAR
53 F77_UL = C2F_CHAR(&UL);
54 #endif
55 F77_chpmv(F77_UL, &F77_N, alpha, AP, X,
56 &F77_incX, beta, Y, &F77_incY);
57 }
58 else if (layout == CblasRowMajor)
59 {
60 RowMajorStrg = 1;
61 ALPHA[0]= *alp;
62 ALPHA[1]= -alp[1];
63 BETA[0]= *bet;
64 BETA[1]= -bet[1];
65
66 if (N > 0)
67 {
68 n = N << 1;
69 x = malloc(n*sizeof(float));
70
71 tx = x;
72 if( incX > 0 ) {
73 i = incX << 1;
74 tincx = 2;
75 st= x+n;
76 } else {
77 i = incX *(-2);
78 tincx = -2;
79 st = x-2;
80 x +=(n-2);
81 }
82
83 do
84 {
85 *x = *xx;
86 x[1] = -xx[1];
87 x += tincx ;
88 xx += i;
89 }
90 while (x != st);
91 x=tx;
92
93
94 #ifdef F77_INT
95 F77_incX = 1;
96 #else
97 incx = 1;
98 #endif
99
100 if(incY > 0)
101 tincY = incY;
102 else
103 tincY = -incY;
104 y++;
105
106 i = tincY << 1;
107 n = i * N ;
108 st = y + n;
109 do {
110 *y = -(*y);
111 y += i;
112 } while(y != st);
113 y -= n;
114 } else
115 x = (float *) X;
116
117
118 if (Uplo == CblasUpper) UL = 'L';
119 else if (Uplo == CblasLower) UL = 'U';
120 else
121 {
122 cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo );
123 CBLAS_CallFromC = 0;
124 RowMajorStrg = 0;
125 return;
126 }
127 #ifdef F77_CHAR
128 F77_UL = C2F_CHAR(&UL);
129 #endif
130
131 F77_chpmv(F77_UL, &F77_N, ALPHA,
132 AP, x, &F77_incX, BETA, Y, &F77_incY);
133 }
134 else
135 {
136 cblas_xerbla(1, "cblas_chpmv","Illegal layout setting, %d\n", layout);
137 CBLAS_CallFromC = 0;
138 RowMajorStrg = 0;
139 return;
140 }
141 if ( layout == CblasRowMajor )
142 {
143 RowMajorStrg = 1;
144 if(X!=x)
145 free(x);
146 if (N > 0)
147 {
148 do
149 {
150 *y = -(*y);
151 y += i;
152 }
153 while (y != st);
154 }
155 }
156
157 CBLAS_CallFromC = 0;
158 RowMajorStrg = 0;
159 return;
160}
F77_chpmv
#define F77_chpmv(...)
Definition cblas_f77.h:323

◆ cblas_chpr()

void cblas_chpr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const void * X,
const CBLAS_INT incX,
void * A )

Definition at line 12 of file cblas_chpr.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_incX incx
28#endif
29 CBLAS_INT n, i, tincx, incx=incX;
30 float *x=(float *)X, *xx=(float *)X, *tx, *st;
31
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasLower) UL = 'L';
40 else if (Uplo == CblasUpper) UL = 'U';
41 else
42 {
43 cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51
52 F77_chpr(F77_UL, &F77_N, &alpha, X, &F77_incX, A);
53
54 } else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 if (N > 0)
70 {
71 n = N << 1;
72 x = malloc(n*sizeof(float));
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84 do
85 {
86 *x = *xx;
87 x[1] = -xx[1];
88 x += tincx ;
89 xx += i;
90 }
91 while (x != st);
92 x=tx;
93 #ifdef F77_INT
94 F77_incX = 1;
95 #else
96 incx = 1;
97 #endif
98 }
99 else x = (float *) X;
100
101 F77_chpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A);
102
103 } else
104 {
105 cblas_xerbla(1, "cblas_chpr","Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109 }
110 if(X!=x)
111 free(x);
112 CBLAS_CallFromC = 0;
113 RowMajorStrg = 0;
114 return;
115}
F77_chpr
#define F77_chpr(...)
Definition cblas_f77.h:332

◆ cblas_chpr2()

void cblas_chpr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * Ap )

Definition at line 12 of file cblas_chpr2.c.

16{
17 char UL;
18#ifdef F77_CHAR
19 F77_CHAR F77_UL;
20#else
21 #define F77_UL &UL
22#endif
23
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_incX incx
29 #define F77_incY incy
30#endif
31 CBLAS_INT n, i, j, tincx, tincy, incx=incX, incy=incY;
32 float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
33 *yy=(float *)Y, *tx, *ty, *stx, *sty;
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasLower) UL = 'L';
43 else if (Uplo == CblasUpper) UL = 'U';
44 else
45 {
46 cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo );
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 #ifdef F77_CHAR
52 F77_UL = C2F_CHAR(&UL);
53 #endif
54
55 F77_chpr2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, Ap);
56
57 } else if (layout == CblasRowMajor)
58 {
59 RowMajorStrg = 1;
60 if (Uplo == CblasUpper) UL = 'L';
61 else if (Uplo == CblasLower) UL = 'U';
62 else
63 {
64 cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo);
65 CBLAS_CallFromC = 0;
66 RowMajorStrg = 0;
67 return;
68 }
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 #endif
72 if (N > 0)
73 {
74 n = N << 1;
75 x = malloc(n*sizeof(float));
76 y = malloc(n*sizeof(float));
77 tx = x;
78 ty = y;
79 if( incX > 0 ) {
80 i = incX << 1 ;
81 tincx = 2;
82 stx= x+n;
83 } else {
84 i = incX *(-2);
85 tincx = -2;
86 stx = x-2;
87 x +=(n-2);
88 }
89
90 if( incY > 0 ) {
91 j = incY << 1;
92 tincy = 2;
93 sty= y+n;
94 } else {
95 j = incY *(-2);
96 tincy = -2;
97 sty = y-2;
98 y +=(n-2);
99 }
100
101 do
102 {
103 *x = *xx;
104 x[1] = -xx[1];
105 x += tincx ;
106 xx += i;
107 }
108 while (x != stx);
109 do
110 {
111 *y = *yy;
112 y[1] = -yy[1];
113 y += tincy ;
114 yy += j;
115 }
116 while (y != sty);
117
118 x=tx;
119 y=ty;
120
121 #ifdef F77_INT
122 F77_incX = 1;
123 F77_incY = 1;
124 #else
125 incx = 1;
126 incy = 1;
127 #endif
128
129 } else
130 {
131 x = (float *) X;
132 y = (void *) Y;
133 }
134 F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap);
135 } else
136 {
137 cblas_xerbla(1, "cblas_chpr2","Illegal layout setting, %d\n", layout);
138 CBLAS_CallFromC = 0;
139 RowMajorStrg = 0;
140 return;
141 }
142 if(X!=x)
143 free(x);
144 if(Y!=y)
145 free(y);
146 CBLAS_CallFromC = 0;
147 RowMajorStrg = 0;
148 return;
149}
F77_chpr2
#define F77_chpr2(...)
Definition cblas_f77.h:333

◆ cblas_cscal()

void cblas_cscal ( const CBLAS_INT N,
const void * alpha,
void * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_cscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_cscal( &F77_N, alpha, X, &F77_incX);
21}
F77_cscal
#define F77_cscal(...)
Definition cblas_f77.h:244

◆ cblas_csscal()

void cblas_csscal ( const CBLAS_INT N,
const float alpha,
void * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_csscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_csscal( &F77_N, &alpha, X, &F77_incX);
21}
F77_csscal
#define F77_csscal(...)
Definition cblas_f77.h:246

◆ cblas_cswap()

void cblas_cswap ( const CBLAS_INT N,
void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_cswap.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_cswap( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_cswap
#define F77_cswap(...)
Definition cblas_f77.h:238

◆ cblas_csymm()

void cblas_csymm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_csymm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
67 #endif
68
69 F77_csymm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
70 B, &F77_ldb, beta, C, &F77_ldc);
71 } else if (layout == CblasRowMajor)
72 {
73 RowMajorStrg = 1;
74 if( Side == CblasRight) SD='L';
75 else if ( Side == CblasLeft ) SD='R';
76 else
77 {
78 cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 if( Uplo == CblasUpper) UL='L';
85 else if ( Uplo == CblasLower ) UL='U';
86 else
87 {
88 cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
89 CBLAS_CallFromC = 0;
90 RowMajorStrg = 0;
91 return;
92 }
93
94 #ifdef F77_CHAR
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
97 #endif
98
99 F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
100 B, &F77_ldb, beta, C, &F77_ldc);
101 }
102 else cblas_xerbla(1, "cblas_csymm", "Illegal layout setting, %d\n", layout);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106}
F77_csymm
#define F77_csymm(...)
Definition cblas_f77.h:378

◆ cblas_csyr2k()

void cblas_csyr2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_csyr2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TR, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Uplo == CblasUpper) UL='U';
46 else if ( Uplo == CblasLower ) UL='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Trans == CblasTrans) TR ='T';
56 else if ( Trans == CblasConjTrans ) TR='C';
57 else if ( Trans == CblasNoTrans ) TR='N';
58 else
59 {
60 cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65
66
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TR = C2F_CHAR(&TR);
70 #endif
71
72 F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
73 B, &F77_ldb, beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if( Uplo == CblasUpper) UL='L';
78 else if ( Uplo == CblasLower ) UL='U';
79 else
80 {
81 cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86 if( Trans == CblasTrans) TR ='N';
87 else if ( Trans == CblasConjTrans ) TR='N';
88 else if ( Trans == CblasNoTrans ) TR='T';
89 else
90 {
91 cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
92 CBLAS_CallFromC = 0;
93 RowMajorStrg = 0;
94 return;
95 }
96
97 #ifdef F77_CHAR
98 F77_UL = C2F_CHAR(&UL);
99 F77_TR = C2F_CHAR(&TR);
100 #endif
101
102 F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
103 }
104 else cblas_xerbla(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108}
F77_csyr2k
#define F77_csyr2k(...)
Definition cblas_f77.h:382

◆ cblas_csyrk()

void cblas_csyrk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_csyrk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42
43 if( Uplo == CblasUpper) UL='U';
44 else if ( Uplo == CblasLower ) UL='L';
45 else
46 {
47 cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
48 CBLAS_CallFromC = 0;
49 RowMajorStrg = 0;
50 return;
51 }
52
53 if( Trans == CblasTrans) TR ='T';
54 else if ( Trans == CblasConjTrans ) TR='C';
55 else if ( Trans == CblasNoTrans ) TR='N';
56 else
57 {
58 cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TR = C2F_CHAR(&TR);
68 #endif
69
70 F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
71 beta, C, &F77_ldc);
72 } else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if( Uplo == CblasUpper) UL='L';
76 else if ( Uplo == CblasLower ) UL='U';
77 else
78 {
79 cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84 if( Trans == CblasTrans) TR ='N';
85 else if ( Trans == CblasConjTrans ) TR='N';
86 else if ( Trans == CblasNoTrans ) TR='T';
87 else
88 {
89 cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
90 CBLAS_CallFromC = 0;
91 RowMajorStrg = 0;
92 return;
93 }
94
95 #ifdef F77_CHAR
96 F77_UL = C2F_CHAR(&UL);
97 F77_TR = C2F_CHAR(&TR);
98 #endif
99
100 F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
101 beta, C, &F77_ldc);
102 }
103 else cblas_xerbla(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout);
104 CBLAS_CallFromC = 0;
105 RowMajorStrg = 0;
106 return;
107}
F77_csyrk
#define F77_csyrk(...)
Definition cblas_f77.h:380

◆ cblas_ctbmv()

void cblas_ctbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctbmv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 float *st=0, *x=(float *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if(incX > 0)
99 tincX = incX;
100 else
101 tincX = -incX;
102 i = tincX << 1;
103 n = i * N;
104 x++;
105 st = x + n;
106 do
107 {
108 *x = -(*x);
109 x+= i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137
138 F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
139 &F77_incX);
140
141 if (TransA == CblasConjTrans)
142 {
143 if (N > 0)
144 {
145 do
146 {
147 *x = -(*x);
148 x += i;
149 }
150 while (x != st);
151 }
152 }
153 }
154 else cblas_xerbla(1, "cblas_ctbmv", "Illegal layout setting, %d\n", layout);
155 CBLAS_CallFromC = 0;
156 RowMajorStrg = 0;
157 return;
158}
F77_DI
#define F77_DI
F77_ctbmv
#define F77_ctbmv(...)
Definition cblas_f77.h:325

◆ cblas_ctbsv()

void cblas_ctbsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctbsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 float *st=0,*x=(float *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if ( incX > 0 )
99 tincX = incX;
100 else
101 tincX = -incX;
102
103 n = N*2*(tincX);
104
105 x++;
106
107 st=x+n;
108
109 i = tincX << 1;
110 do
111 {
112 *x = -(*x);
113 x+=i;
114 }
115 while (x != st);
116 x -= n;
117 }
118 }
119 else
120 {
121 cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
122 CBLAS_CallFromC = 0;
123 RowMajorStrg = 0;
124 return;
125 }
126
127 if (Diag == CblasUnit) DI = 'U';
128 else if (Diag == CblasNonUnit) DI = 'N';
129 else
130 {
131 cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
132 CBLAS_CallFromC = 0;
133 RowMajorStrg = 0;
134 return;
135 }
136 #ifdef F77_CHAR
137 F77_UL = C2F_CHAR(&UL);
138 F77_TA = C2F_CHAR(&TA);
139 F77_DI = C2F_CHAR(&DI);
140 #endif
141
142 F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
143 &F77_incX);
144
145 if (TransA == CblasConjTrans)
146 {
147 if (N > 0)
148 {
149 do
150 {
151 *x = -(*x);
152 x+= i;
153 }
154 while (x != st);
155 }
156 }
157 }
158 else cblas_xerbla(1, "cblas_ctbsv", "Illegal layout setting, %d\n", layout);
159 CBLAS_CallFromC = 0;
160 RowMajorStrg = 0;
161 return;
162}
F77_ctbsv
#define F77_ctbsv(...)
Definition cblas_f77.h:328

◆ cblas_ctpmv()

void cblas_ctpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * Ap,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctpmv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 CBLAS_INT n, i=0, tincX;
31 float *st=0,*x=(float *)X;
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 if (TransA == CblasNoTrans) TA = 'N';
49 else if (TransA == CblasTrans) TA = 'T';
50 else if (TransA == CblasConjTrans) TA = 'C';
51 else
52 {
53 cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
54 CBLAS_CallFromC = 0;
55 RowMajorStrg = 0;
56 return;
57 }
58 if (Diag == CblasUnit) DI = 'U';
59 else if (Diag == CblasNonUnit) DI = 'N';
60 else
61 {
62 cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TA = C2F_CHAR(&TA);
70 F77_DI = C2F_CHAR(&DI);
71 #endif
72 F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
73 }
74 else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if (Uplo == CblasUpper) UL = 'L';
78 else if (Uplo == CblasLower) UL = 'U';
79 else
80 {
81 cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86
87 if (TransA == CblasNoTrans) TA = 'T';
88 else if (TransA == CblasTrans) TA = 'N';
89 else if (TransA == CblasConjTrans)
90 {
91 TA = 'N';
92 if ( N > 0)
93 {
94 if(incX > 0)
95 tincX = incX;
96 else
97 tincX = -incX;
98 i = tincX << 1;
99 n = i * N;
100 x++;
101 st = x + n;
102 do
103 {
104 *x = -(*x);
105 x += i;
106 }
107 while (x != st);
108 x -= n;
109 }
110 }
111 else
112 {
113 cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
114 CBLAS_CallFromC = 0;
115 RowMajorStrg = 0;
116 return;
117 }
118
119 if (Diag == CblasUnit) DI = 'U';
120 else if (Diag == CblasNonUnit) DI = 'N';
121 else
122 {
123 cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
124 CBLAS_CallFromC = 0;
125 RowMajorStrg = 0;
126 return;
127 }
128 #ifdef F77_CHAR
129 F77_UL = C2F_CHAR(&UL);
130 F77_TA = C2F_CHAR(&TA);
131 F77_DI = C2F_CHAR(&DI);
132 #endif
133
134 F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
135 if (TransA == CblasConjTrans)
136 {
137 if (N > 0)
138 {
139 do
140 {
141 *x = -(*x);
142 x += i;
143 }
144 while (x != st);
145 }
146 }
147 }
148 else cblas_xerbla(1, "cblas_ctpmv", "Illegal layout setting, %d\n", layout);
149 CBLAS_CallFromC = 0;
150 RowMajorStrg = 0;
151 return;
152}
F77_ctpmv
#define F77_ctpmv(...)
Definition cblas_f77.h:326

◆ cblas_ctpsv()

void cblas_ctpsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * Ap,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctpsv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 CBLAS_INT n, i=0, tincX;
31 float *st=0, *x=(float*)X;
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 if (TransA == CblasNoTrans) TA = 'N';
49 else if (TransA == CblasTrans) TA = 'T';
50 else if (TransA == CblasConjTrans) TA = 'C';
51 else
52 {
53 cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
54 CBLAS_CallFromC = 0;
55 RowMajorStrg = 0;
56 return;
57 }
58 if (Diag == CblasUnit) DI = 'U';
59 else if (Diag == CblasNonUnit) DI = 'N';
60 else
61 {
62 cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TA = C2F_CHAR(&TA);
70 F77_DI = C2F_CHAR(&DI);
71 #endif
72 F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
73 }
74 else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if (Uplo == CblasUpper) UL = 'L';
78 else if (Uplo == CblasLower) UL = 'U';
79 else
80 {
81 cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86
87 if (TransA == CblasNoTrans) TA = 'T';
88 else if (TransA == CblasTrans) TA = 'N';
89 else if (TransA == CblasConjTrans)
90 {
91 TA = 'N';
92 if ( N > 0)
93 {
94 if ( incX > 0 )
95 tincX = incX;
96 else
97 tincX = -incX;
98
99 n = N*2*(tincX);
100
101 x++;
102
103 st=x+n;
104
105 i = tincX << 1;
106 do
107 {
108 *x = -(*x);
109 x+=i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137
138 F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
139
140 if (TransA == CblasConjTrans)
141 {
142 if (N > 0)
143 {
144 do
145 {
146 *x = -(*x);
147 x += i;
148 }
149 while (x != st);
150 }
151 }
152 }
153 else cblas_xerbla(1, "cblas_ctpsv", "Illegal layout setting, %d\n", layout);
154 CBLAS_CallFromC = 0;
155 RowMajorStrg = 0;
156 return;
157}
F77_ctpsv
#define F77_ctpsv(...)
Definition cblas_f77.h:329

◆ cblas_ctrmm()

void cblas_ctrmm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
void * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_ctrmm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight ) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53 if( Uplo == CblasUpper ) UL='U';
54 else if ( Uplo == CblasLower ) UL='L';
55 else
56 {
57 cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 if( TransA == CblasTrans ) TA ='T';
64 else if ( TransA == CblasConjTrans ) TA='C';
65 else if ( TransA == CblasNoTrans ) TA='N';
66 else
67 {
68 cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73
74 if( Diag == CblasUnit ) DI='U';
75 else if ( Diag == CblasNonUnit ) DI='N';
76 else cblas_xerbla(5, "cblas_ctrmm",
77 "Illegal Diag setting, %d\n", Diag);
78
79 #ifdef F77_CHAR
80 F77_UL = C2F_CHAR(&UL);
81 F77_TA = C2F_CHAR(&TA);
82 F77_SD = C2F_CHAR(&SD);
83 F77_DI = C2F_CHAR(&DI);
84 #endif
85
86 F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, alpha, A, &F77_lda, B, &F77_ldb);
87 } else if (layout == CblasRowMajor)
88 {
89 RowMajorStrg = 1;
90 if( Side == CblasRight ) SD='L';
91 else if ( Side == CblasLeft ) SD='R';
92 else
93 {
94 cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if( Uplo == CblasUpper ) UL='L';
101 else if ( Uplo == CblasLower ) UL='U';
102 else
103 {
104 cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109
110 if( TransA == CblasTrans ) TA ='T';
111 else if ( TransA == CblasConjTrans ) TA='C';
112 else if ( TransA == CblasNoTrans ) TA='N';
113 else
114 {
115 cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
116 CBLAS_CallFromC = 0;
117 RowMajorStrg = 0;
118 return;
119 }
120
121 if( Diag == CblasUnit ) DI='U';
122 else if ( Diag == CblasNonUnit ) DI='N';
123 else
124 {
125 cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag);
126 CBLAS_CallFromC = 0;
127 RowMajorStrg = 0;
128 return;
129 }
130
131 #ifdef F77_CHAR
132 F77_UL = C2F_CHAR(&UL);
133 F77_TA = C2F_CHAR(&TA);
134 F77_SD = C2F_CHAR(&SD);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137
138 F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
139 }
140 else cblas_xerbla(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout);
141 CBLAS_CallFromC = 0;
142 RowMajorStrg = 0;
143 return;
144}
F77_ctrmm
#define F77_ctrmm(...)
Definition cblas_f77.h:384

◆ cblas_ctrmv()

void cblas_ctrmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctrmv.c.

15{
16 char TA;
17 char UL;
18 char DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_DI &DI
25#endif
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
28#else
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 float *st=0,*x=(float *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if(incX > 0)
99 tincX = incX;
100 else
101 tincX = -incX;
102 i = tincX << 1;
103 n = i * N;
104 st = x + n;
105 do
106 {
107 x[1] = -x[1];
108 x+= i;
109 }
110 while (x != st);
111 x -= n;
112 }
113 }
114 else
115 {
116 cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
117 CBLAS_CallFromC = 0;
118 RowMajorStrg = 0;
119 return;
120 }
121
122 if (Diag == CblasUnit) DI = 'U';
123 else if (Diag == CblasNonUnit) DI = 'N';
124 else
125 {
126 cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
127 CBLAS_CallFromC = 0;
128 RowMajorStrg = 0;
129 return;
130 }
131 #ifdef F77_CHAR
132 F77_UL = C2F_CHAR(&UL);
133 F77_TA = C2F_CHAR(&TA);
134 F77_DI = C2F_CHAR(&DI);
135 #endif
136 F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
137 &F77_incX);
138 if (TransA == CblasConjTrans)
139 {
140 if (N > 0)
141 {
142 do
143 {
144 x[1] = -x[1];
145 x += i;
146 }
147 while (x != st);
148 }
149 }
150 }
151 else cblas_xerbla(1, "cblas_ctrmv", "Illegal layout setting, %d\n", layout);
152 CBLAS_CallFromC = 0;
153 RowMajorStrg = 0;
154 return;
155}
F77_ctrmv
#define F77_ctrmv(...)
Definition cblas_f77.h:324

◆ cblas_ctrsm()

void cblas_ctrsm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
void * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_ctrsm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Side == CblasRight) SD='R';
46 else if ( Side == CblasLeft ) SD='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Uplo == CblasUpper) UL='U';
56 else if ( Uplo == CblasLower ) UL='L';
57 else
58 {
59 cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
60 CBLAS_CallFromC = 0;
61 RowMajorStrg = 0;
62 return;
63 }
64
65 if( TransA == CblasTrans) TA ='T';
66 else if ( TransA == CblasConjTrans ) TA='C';
67 else if ( TransA == CblasNoTrans ) TA='N';
68 else
69 {
70 cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
71 CBLAS_CallFromC = 0;
72 RowMajorStrg = 0;
73 return;
74 }
75
76 if( Diag == CblasUnit ) DI='U';
77 else if ( Diag == CblasNonUnit ) DI='N';
78 else
79 {
80 cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84 }
85
86 #ifdef F77_CHAR
87 F77_UL = C2F_CHAR(&UL);
88 F77_TA = C2F_CHAR(&TA);
89 F77_SD = C2F_CHAR(&SD);
90 F77_DI = C2F_CHAR(&DI);
91 #endif
92
93 F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, alpha, A,
94 &F77_lda, B, &F77_ldb);
95 } else if (layout == CblasRowMajor)
96 {
97 RowMajorStrg = 1;
98
99 if( Side == CblasRight) SD='L';
100 else if ( Side == CblasLeft ) SD='R';
101 else
102 {
103 cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
104 CBLAS_CallFromC = 0;
105 RowMajorStrg = 0;
106 return;
107 }
108
109 if( Uplo == CblasUpper) UL='L';
110 else if ( Uplo == CblasLower ) UL='U';
111 else
112 {
113 cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
114 CBLAS_CallFromC = 0;
115 RowMajorStrg = 0;
116 return;
117 }
118
119 if( TransA == CblasTrans) TA ='T';
120 else if ( TransA == CblasConjTrans ) TA='C';
121 else if ( TransA == CblasNoTrans ) TA='N';
122 else
123 {
124 cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
125 CBLAS_CallFromC = 0;
126 RowMajorStrg = 0;
127 return;
128 }
129
130 if( Diag == CblasUnit ) DI='U';
131 else if ( Diag == CblasNonUnit ) DI='N';
132 else
133 {
134 cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
135 CBLAS_CallFromC = 0;
136 RowMajorStrg = 0;
137 return;
138 }
139
140 #ifdef F77_CHAR
141 F77_UL = C2F_CHAR(&UL);
142 F77_TA = C2F_CHAR(&TA);
143 F77_SD = C2F_CHAR(&SD);
144 F77_DI = C2F_CHAR(&DI);
145 #endif
146
147
148 F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A,
149 &F77_lda, B, &F77_ldb);
150 }
151 else cblas_xerbla(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout);
152 CBLAS_CallFromC = 0;
153 RowMajorStrg = 0;
154 return;
155}
F77_ctrsm
#define F77_ctrsm(...)
Definition cblas_f77.h:385

◆ cblas_ctrsv()

void cblas_ctrsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ctrsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_lda lda
30 #define F77_incX incX
31#endif
32 CBLAS_INT n, i=0, tincX;
33 float *st=0,*x=(float *)X;
34 extern int CBLAS_CallFromC;
35 extern int RowMajorStrg;
36 RowMajorStrg = 0;
37
38 CBLAS_CallFromC = 1;
39 if (layout == CblasColMajor)
40 {
41 if (Uplo == CblasUpper) UL = 'U';
42 else if (Uplo == CblasLower) UL = 'L';
43 else
44 {
45 cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
46 CBLAS_CallFromC = 0;
47 RowMajorStrg = 0;
48 return;
49 }
50 if (TransA == CblasNoTrans) TA = 'N';
51 else if (TransA == CblasTrans) TA = 'T';
52 else if (TransA == CblasConjTrans) TA = 'C';
53 else
54 {
55 cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
56 CBLAS_CallFromC = 0;
57 RowMajorStrg = 0;
58 return;
59 }
60 if (Diag == CblasUnit) DI = 'U';
61 else if (Diag == CblasNonUnit) DI = 'N';
62 else
63 {
64 cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
65 CBLAS_CallFromC = 0;
66 RowMajorStrg = 0;
67 return;
68 }
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TA = C2F_CHAR(&TA);
72 F77_DI = C2F_CHAR(&DI);
73 #endif
74 F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
75 &F77_incX);
76 }
77 else if (layout == CblasRowMajor)
78 {
79 RowMajorStrg = 1;
80 if (Uplo == CblasUpper) UL = 'L';
81 else if (Uplo == CblasLower) UL = 'U';
82 else
83 {
84 cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
85 CBLAS_CallFromC = 0;
86 RowMajorStrg = 0;
87 return;
88 }
89
90 if (TransA == CblasNoTrans) TA = 'T';
91 else if (TransA == CblasTrans) TA = 'N';
92 else if (TransA == CblasConjTrans)
93 {
94 TA = 'N';
95 if ( N > 0)
96 {
97 if ( incX > 0 )
98 tincX = incX;
99 else
100 tincX = -incX;
101
102 n = N*2*(tincX);
103 x++;
104 st=x+n;
105 i = tincX << 1;
106 do
107 {
108 *x = -(*x);
109 x+=i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137 F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
138 &F77_incX);
139 if (TransA == CblasConjTrans)
140 {
141 if (N > 0)
142 {
143 do
144 {
145 *x = -(*x);
146 x += i;
147 }
148 while (x != st);
149 }
150 }
151 }
152 else cblas_xerbla(1, "cblas_ctrsv", "Illegal layout setting, %d\n", layout);
153 CBLAS_CallFromC = 0;
154 RowMajorStrg = 0;
155 return;
156}
F77_ctrsv
#define F77_ctrsv(...)
Definition cblas_f77.h:327

◆ cblas_dasum()

double cblas_dasum ( const CBLAS_INT N,
const double * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_dasum.c.

13{
14 double asum;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_dasum_sub( &F77_N, X, &F77_incX, &asum);
22 return asum;
23}
F77_dasum_sub
#define F77_dasum_sub(...)
Definition cblas_f77.h:233

◆ cblas_daxpy()

void cblas_daxpy ( const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
double * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_daxpy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_daxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY);
22}
F77_daxpy
#define F77_daxpy(...)
Definition cblas_f77.h:227

◆ cblas_dcabs1()

double cblas_dcabs1 ( const void * z)

◆ cblas_dcopy()

void cblas_dcopy ( const CBLAS_INT N,
const double * X,
const CBLAS_INT incX,
double * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_dcopy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_dcopy( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_dcopy
#define F77_dcopy(...)
Definition cblas_f77.h:226

◆ cblas_ddot()

double cblas_ddot ( const CBLAS_INT N,
const double * X,
const CBLAS_INT incX,
const double * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_ddot.c.

14{
15 double dot;
16#ifdef F77_INT
17 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_N N
20 #define F77_incX incX
21 #define F77_incY incY
22#endif
23 F77_ddot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
F77_ddot_sub
#define F77_ddot_sub(...)
Definition cblas_f77.h:230

◆ cblas_dgbmv()

void cblas_dgbmv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT KL,
const CBLAS_INT KU,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * X,
const CBLAS_INT incX,
const double beta,
double * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_dgbmv.c.

17{
18 char TA;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA;
21#else
22 #define F77_TA &TA
23#endif
24#ifdef F77_INT
25 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26 F77_INT F77_KL=KL,F77_KU=KU;
27#else
28 #define F77_M M
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_KL KL
32 #define F77_KU KU
33 #define F77_incX incX
34 #define F77_incY incY
35#endif
36 extern int CBLAS_CallFromC;
37 extern int RowMajorStrg;
38 RowMajorStrg = 0;
39
40 CBLAS_CallFromC = 1;
41 if (layout == CblasColMajor)
42 {
43 if (TransA == CblasNoTrans) TA = 'N';
44 else if (TransA == CblasTrans) TA = 'T';
45 else if (TransA == CblasConjTrans) TA = 'C';
46 else
47 {
48 cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53 #ifdef F77_CHAR
54 F77_TA = C2F_CHAR(&TA);
55 #endif
56 F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
57 A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
58 }
59 else if (layout == CblasRowMajor)
60 {
61 RowMajorStrg = 1;
62 if (TransA == CblasNoTrans) TA = 'T';
63 else if (TransA == CblasTrans) TA = 'N';
64 else if (TransA == CblasConjTrans) TA = 'N';
65 else
66 {
67 cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
68 CBLAS_CallFromC = 0;
69 RowMajorStrg = 0;
70 return;
71 }
72 #ifdef F77_CHAR
73 F77_TA = C2F_CHAR(&TA);
74 #endif
75 F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
76 A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
77 }
78 else cblas_xerbla(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81}
F77_dgbmv
#define F77_dgbmv(...)
Definition cblas_f77.h:302

◆ cblas_dgemm()

void cblas_dgemm ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * B,
const CBLAS_INT ldb,
const double beta,
double * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_dgemm.c.

17{
18 char TA, TB;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_TB;
21#else
22 #define F77_TA &TA
23 #define F77_TB &TB
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_K K
33 #define F77_lda lda
34 #define F77_ldb ldb
35 #define F77_ldc ldc
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42
43 if( layout == CblasColMajor )
44 {
45 if(TransA == CblasTrans) TA='T';
46 else if ( TransA == CblasConjTrans ) TA='C';
47 else if ( TransA == CblasNoTrans ) TA='N';
48 else
49 {
50 cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
51 CBLAS_CallFromC = 0;
52 RowMajorStrg = 0;
53 return;
54 }
55
56 if(TransB == CblasTrans) TB='T';
57 else if ( TransB == CblasConjTrans ) TB='C';
58 else if ( TransB == CblasNoTrans ) TB='N';
59 else
60 {
61 cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66
67 #ifdef F77_CHAR
68 F77_TA = C2F_CHAR(&TA);
69 F77_TB = C2F_CHAR(&TB);
70 #endif
71
72 F77_dgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, &alpha, A,
73 &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if(TransA == CblasTrans) TB='T';
78 else if ( TransA == CblasConjTrans ) TB='C';
79 else if ( TransA == CblasNoTrans ) TB='N';
80 else
81 {
82 cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
83 CBLAS_CallFromC = 0;
84 RowMajorStrg = 0;
85 return;
86 }
87 if(TransB == CblasTrans) TA='T';
88 else if ( TransB == CblasConjTrans ) TA='C';
89 else if ( TransB == CblasNoTrans ) TA='N';
90 else
91 {
92 cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
93 CBLAS_CallFromC = 0;
94 RowMajorStrg = 0;
95 return;
96 }
97 #ifdef F77_CHAR
98 F77_TA = C2F_CHAR(&TA);
99 F77_TB = C2F_CHAR(&TB);
100 #endif
101
102 F77_dgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B,
103 &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
104 }
105 else cblas_xerbla(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109}
F77_dgemm
#define F77_dgemm(...)
Definition cblas_f77.h:368

◆ cblas_dgemv()

void cblas_dgemv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * X,
const CBLAS_INT incX,
const double beta,
double * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_dgemv.c.

16{
17 char TA;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA;
20#else
21 #define F77_TA &TA
22#endif
23#ifdef F77_INT
24 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_M M
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (TransA == CblasNoTrans) TA = 'N';
40 else if (TransA == CblasTrans) TA = 'T';
41 else if (TransA == CblasConjTrans) TA = 'C';
42 else
43 {
44 cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 #ifdef F77_CHAR
50 F77_TA = C2F_CHAR(&TA);
51 #endif
52 F77_dgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
53 &beta, Y, &F77_incY);
54 }
55 else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (TransA == CblasNoTrans) TA = 'T';
59 else if (TransA == CblasTrans) TA = 'N';
60 else if (TransA == CblasConjTrans) TA = 'N';
61 else
62 {
63 cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_TA = C2F_CHAR(&TA);
70 #endif
71 F77_dgemv(F77_TA, &F77_N, &F77_M, &alpha, A, &F77_lda, X,
72 &F77_incX, &beta, Y, &F77_incY);
73 }
74 else cblas_xerbla(1, "cblas_dgemv", "Illegal layout setting, %d\n", layout);
75 CBLAS_CallFromC = 0;
76 RowMajorStrg = 0;
77 return;
78}
F77_dgemv
#define F77_dgemv(...)
Definition cblas_f77.h:301

◆ cblas_dger()

void cblas_dger ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
const double * Y,
const CBLAS_INT incY,
double * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_dger.c.

15{
16#ifdef F77_INT
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_M M
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incY
23 #define F77_lda lda
24#endif
25
26 extern int CBLAS_CallFromC;
27 extern int RowMajorStrg;
28 RowMajorStrg = 0;
29
30 CBLAS_CallFromC = 1;
31 if (layout == CblasColMajor)
32 {
33 F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
34 &F77_lda);
35 }
36 else if (layout == CblasRowMajor)
37 {
38 RowMajorStrg = 1;
39 F77_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A,
40 &F77_lda);
41
42 }
43 else cblas_xerbla(1, "cblas_dger", "Illegal layout setting, %d\n", layout);
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47}
F77_dger
#define F77_dger(...)
Definition cblas_f77.h:269

◆ cblas_dnrm2()

double cblas_dnrm2 ( const CBLAS_INT N,
const double * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_dnrm2.c.

13{
14 double nrm2;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_dnrm2_sub( &F77_N, X, &F77_incX, &nrm2);
22 return nrm2;
23}
F77_dnrm2_sub
#define F77_dnrm2_sub(...)
Definition cblas_f77.h:232

◆ cblas_drot()

void cblas_drot ( const CBLAS_INT N,
double * X,
const CBLAS_INT incX,
double * Y,
const CBLAS_INT incY,
const double c,
const double s )

Definition at line 11 of file cblas_drot.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_drot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s);
22 return;
23}
F77_drot
#define F77_drot(...)
Definition cblas_f77.h:221

◆ cblas_drotg()

void cblas_drotg ( double * a,
double * b,
double * c,
double * s )

Definition at line 11 of file cblas_drotg.c.

12{
13 F77_drotg(a,b,c,s);
14}
F77_drotg
#define F77_drotg(...)
Definition cblas_f77.h:222

◆ cblas_drotm()

void cblas_drotm ( const CBLAS_INT N,
double * X,
const CBLAS_INT incX,
double * Y,
const CBLAS_INT incY,
const double * P )

Definition at line 3 of file cblas_drotm.c.

5{
6#ifdef F77_INT
7 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
8#else
9 #define F77_N N
10 #define F77_incX incX
11 #define F77_incY incY
12#endif
13 F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P);
14}
F77_drotm
#define F77_drotm(...)
Definition cblas_f77.h:223

◆ cblas_drotmg()

void cblas_drotmg ( double * d1,
double * d2,
double * b1,
const double b2,
double * P )

Definition at line 11 of file cblas_drotmg.c.

13{
14 F77_drotmg(d1,d2,b1,&b2,p);
15}
F77_drotmg
#define F77_drotmg(...)
Definition cblas_f77.h:224

◆ cblas_dsbmv()

void cblas_dsbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * X,
const CBLAS_INT incX,
const double beta,
double * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_dsbmv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_K K
29 #define F77_lda lda
30 #define F77_incX incX
31 #define F77_incY incY
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo );
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 #ifdef F77_CHAR
50 F77_UL = C2F_CHAR(&UL);
51 #endif
52 F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
53 &F77_incX, &beta, Y, &F77_incY);
54 }
55 else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (Uplo == CblasUpper) UL = 'L';
59 else if (Uplo == CblasLower) UL = 'U';
60 else
61 {
62 cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 #endif
70 F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha,
71 A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
72 }
73 else cblas_xerbla(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout);
74 CBLAS_CallFromC = 0;
75 RowMajorStrg = 0;
76 return;
77}
F77_dsbmv
#define F77_dsbmv(...)
Definition cblas_f77.h:304

◆ cblas_dscal()

void cblas_dscal ( const CBLAS_INT N,
const double alpha,
double * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_dscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_dscal( &F77_N, &alpha, X, &F77_incX);
21}
F77_dscal
#define F77_dscal(...)
Definition cblas_f77.h:231

◆ cblas_dsdot()

double cblas_dsdot ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_dsdot.c.

14{
15 double dot;
16#ifdef F77_INT
17 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_N N
20 #define F77_incX incX
21 #define F77_incY incY
22#endif
23 F77_dsdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
F77_dsdot_sub
#define F77_dsdot_sub(...)
Definition cblas_f77.h:229

◆ cblas_dspmv()

void cblas_dspmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * Ap,
const double * X,
const CBLAS_INT incX,
const double beta,
double * Y,
const CBLAS_INT incY )

Definition at line 13 of file cblas_dspmv.c.

18{
19 char UL;
20#ifdef F77_CHAR
21 F77_CHAR F77_UL;
22#else
23 #define F77_UL &UL
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
27#else
28 #define F77_N N
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51 F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,
52 &F77_incX, &beta, Y, &F77_incY);
53 }
54 else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 F77_dspmv(F77_UL, &F77_N, &alpha,
70 AP, X,&F77_incX, &beta, Y, &F77_incY);
71 }
72 else cblas_xerbla(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_dspmv
#define F77_dspmv(...)
Definition cblas_f77.h:305

◆ cblas_dspr()

void cblas_dspr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
double * Ap )

Definition at line 12 of file cblas_dspr.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_incX incX
28#endif
29 extern int CBLAS_CallFromC;
30 extern int RowMajorStrg;
31 RowMajorStrg = 0;
32 CBLAS_CallFromC = 1;
33 if (layout == CblasColMajor)
34 {
35 if (Uplo == CblasLower) UL = 'L';
36 else if (Uplo == CblasUpper) UL = 'U';
37 else
38 {
39 cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
40 CBLAS_CallFromC = 0;
41 RowMajorStrg = 0;
42 return;
43 }
44 #ifdef F77_CHAR
45 F77_UL = C2F_CHAR(&UL);
46 #endif
47
48 F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
49
50 } else if (layout == CblasRowMajor)
51 {
52 RowMajorStrg = 1;
53 if (Uplo == CblasLower) UL = 'U';
54 else if (Uplo == CblasUpper) UL = 'L';
55 else
56 {
57 cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62 #ifdef F77_CHAR
63 F77_UL = C2F_CHAR(&UL);
64 #endif
65 F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
66 } else cblas_xerbla(1, "cblas_dspr", "Illegal layout setting, %d\n", layout);
67 CBLAS_CallFromC = 0;
68 RowMajorStrg = 0;
69 return;
70}
F77_dspr
#define F77_dspr(...)
Definition cblas_f77.h:313

◆ cblas_dspr2()

void cblas_dspr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
const double * Y,
const CBLAS_INT incY,
double * A )

Definition at line 10 of file cblas_dspr2.c.

13{
14 char UL;
15#ifdef F77_CHAR
16 F77_CHAR F77_UL;
17#else
18 #define F77_UL &UL
19#endif
20
21#ifdef F77_INT
22 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
23#else
24 #define F77_N N
25 #define F77_incX incX
26 #define F77_incY incY
27#endif
28
29 extern int CBLAS_CallFromC;
30 extern int RowMajorStrg;
31 RowMajorStrg = 0;
32 CBLAS_CallFromC = 1;
33 if (layout == CblasColMajor)
34 {
35 if (Uplo == CblasLower) UL = 'L';
36 else if (Uplo == CblasUpper) UL = 'U';
37 else
38 {
39 cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
40 CBLAS_CallFromC = 0;
41 RowMajorStrg = 0;
42 return;
43 }
44 #ifdef F77_CHAR
45 F77_UL = C2F_CHAR(&UL);
46 #endif
47
48 F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
49
50 } else if (layout == CblasRowMajor)
51 {
52 RowMajorStrg = 1;
53 if (Uplo == CblasLower) UL = 'U';
54 else if (Uplo == CblasUpper) UL = 'L';
55 else
56 {
57 cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62 #ifdef F77_CHAR
63 F77_UL = C2F_CHAR(&UL);
64 #endif
65 F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
66 } else cblas_xerbla(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout);
67 CBLAS_CallFromC = 0;
68 RowMajorStrg = 0;
69 return;
70}
F77_dspr2
#define F77_dspr2(...)
Definition cblas_f77.h:314

◆ cblas_dswap()

void cblas_dswap ( const CBLAS_INT N,
double * X,
const CBLAS_INT incX,
double * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_dswap.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_dswap( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_dswap
#define F77_dswap(...)
Definition cblas_f77.h:225

◆ cblas_dsymm()

void cblas_dsymm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * B,
const CBLAS_INT ldb,
const double beta,
double * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_dsymm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
67 #endif
68
69 F77_dsymm(F77_SD, F77_UL, &F77_M, &F77_N, &alpha, A, &F77_lda,
70 B, &F77_ldb, &beta, C, &F77_ldc);
71 } else if (layout == CblasRowMajor)
72 {
73 RowMajorStrg = 1;
74 if( Side == CblasRight) SD='L';
75 else if ( Side == CblasLeft ) SD='R';
76 else
77 {
78 cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 if( Uplo == CblasUpper) UL='L';
85 else if ( Uplo == CblasLower ) UL='U';
86 else
87 {
88 cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
89 CBLAS_CallFromC = 0;
90 RowMajorStrg = 0;
91 return;
92 }
93
94 #ifdef F77_CHAR
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
97 #endif
98
99 F77_dsymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B,
100 &F77_ldb, &beta, C, &F77_ldc);
101 }
102 else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106}
F77_dsymm
#define F77_dsymm(...)
Definition cblas_f77.h:369

◆ cblas_dsymv()

void cblas_dsymv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * X,
const CBLAS_INT incX,
const double beta,
double * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_dsymv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51 F77_dsymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
52 &F77_incX, &beta, Y, &F77_incY);
53 }
54 else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 F77_dsymv(F77_UL, &F77_N, &alpha,
70 A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
71 }
72 else cblas_xerbla(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_dsymv
#define F77_dsymv(...)
Definition cblas_f77.h:303

◆ cblas_dsyr()

void cblas_dsyr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
double * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_dsyr.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX, F77_lda=lda;
25#else
26 #define F77_N N
27 #define F77_incX incX
28 #define F77_lda lda
29#endif
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33 CBLAS_CallFromC = 1;
34 if (layout == CblasColMajor)
35 {
36 if (Uplo == CblasLower) UL = 'L';
37 else if (Uplo == CblasUpper) UL = 'U';
38 else
39 {
40 cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
41 CBLAS_CallFromC = 0;
42 RowMajorStrg = 0;
43 return;
44 }
45 #ifdef F77_CHAR
46 F77_UL = C2F_CHAR(&UL);
47 #endif
48
49 F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
50
51 } else if (layout == CblasRowMajor)
52 {
53 RowMajorStrg = 1;
54 if (Uplo == CblasLower) UL = 'U';
55 else if (Uplo == CblasUpper) UL = 'L';
56 else
57 {
58 cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63 #ifdef F77_CHAR
64 F77_UL = C2F_CHAR(&UL);
65 #endif
66 F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
67 } else cblas_xerbla(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout);
68 CBLAS_CallFromC = 0;
69 RowMajorStrg = 0;
70 return;
71}
F77_dsyr
#define F77_dsyr(...)
Definition cblas_f77.h:312

◆ cblas_dsyr2()

void cblas_dsyr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const double * X,
const CBLAS_INT incX,
const double * Y,
const CBLAS_INT incY,
double * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_dsyr2.c.

16{
17 char UL;
18#ifdef F77_CHAR
19 F77_CHAR F77_UL;
20#else
21 #define F77_UL &UL
22#endif
23
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY, F77_lda=lda;
26#else
27 #define F77_N N
28 #define F77_incX incX
29 #define F77_incY incY
30 #define F77_lda lda
31#endif
32
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasLower) UL = 'L';
40 else if (Uplo == CblasUpper) UL = 'U';
41 else
42 {
43 cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51
52 F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
53 &F77_lda);
54
55 } else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (Uplo == CblasLower) UL = 'U';
59 else if (Uplo == CblasUpper) UL = 'L';
60 else
61 {
62 cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 #endif
70 F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
71 &F77_lda);
72 } else cblas_xerbla(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_dsyr2
#define F77_dsyr2(...)
Definition cblas_f77.h:315

◆ cblas_dsyr2k()

void cblas_dsyr2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double * B,
const CBLAS_INT ldb,
const double beta,
double * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_dsyr2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Uplo == CblasUpper) UL='U';
46 else if ( Uplo == CblasLower ) UL='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Trans == CblasTrans) TR ='T';
56 else if ( Trans == CblasConjTrans ) TR='C';
57 else if ( Trans == CblasNoTrans ) TR='N';
58 else
59 {
60 cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65
66
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TR = C2F_CHAR(&TR);
70 #endif
71
72 F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
73 B, &F77_ldb, &beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if( Uplo == CblasUpper) UL='L';
78 else if ( Uplo == CblasLower ) UL='U';
79 else
80 {
81 cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86 if( Trans == CblasTrans) TR ='N';
87 else if ( Trans == CblasConjTrans ) TR='N';
88 else if ( Trans == CblasNoTrans ) TR='T';
89 else
90 {
91 cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
92 CBLAS_CallFromC = 0;
93 RowMajorStrg = 0;
94 return;
95 }
96
97 #ifdef F77_CHAR
98 F77_UL = C2F_CHAR(&UL);
99 F77_TR = C2F_CHAR(&TR);
100 #endif
101
102 F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B,
103 &F77_ldb, &beta, C, &F77_ldc);
104 }
105 else cblas_xerbla(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109}
F77_dsyr2k
#define F77_dsyr2k(...)
Definition cblas_f77.h:371

◆ cblas_dsyrk()

void cblas_dsyrk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const double * A,
const CBLAS_INT lda,
const double beta,
double * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_dsyrk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42
43 if( Uplo == CblasUpper) UL='U';
44 else if ( Uplo == CblasLower ) UL='L';
45 else
46 {
47 cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
48 CBLAS_CallFromC = 0;
49 RowMajorStrg = 0;
50 return;
51 }
52
53 if( Trans == CblasTrans) TR ='T';
54 else if ( Trans == CblasConjTrans ) TR='C';
55 else if ( Trans == CblasNoTrans ) TR='N';
56 else
57 {
58 cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TR = C2F_CHAR(&TR);
68 #endif
69
70 F77_dsyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
71 &beta, C, &F77_ldc);
72 } else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if( Uplo == CblasUpper) UL='L';
76 else if ( Uplo == CblasLower ) UL='U';
77 else
78 {
79 cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84 if( Trans == CblasTrans) TR ='N';
85 else if ( Trans == CblasConjTrans ) TR='N';
86 else if ( Trans == CblasNoTrans ) TR='T';
87 else
88 {
89 cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
90 CBLAS_CallFromC = 0;
91 RowMajorStrg = 0;
92 return;
93 }
94
95 #ifdef F77_CHAR
96 F77_UL = C2F_CHAR(&UL);
97 F77_TR = C2F_CHAR(&TR);
98 #endif
99
100 F77_dsyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
101 &beta, C, &F77_ldc);
102 }
103 else cblas_xerbla(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout);
104 CBLAS_CallFromC = 0;
105 RowMajorStrg = 0;
106 return;
107}
F77_dsyrk
#define F77_dsyrk(...)
Definition cblas_f77.h:370

◆ cblas_dtbmv()

void cblas_dtbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const double * A,
const CBLAS_INT lda,
double * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_dtbmv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_dtbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114
115 F77_dtbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
116 &F77_incX);
117
118 }
119 else cblas_xerbla(1, "cblas_dtbmv", "Illegal layout setting, %d\n", layout);
120 CBLAS_CallFromC = 0;
121 RowMajorStrg = 0;
122}
F77_dtbmv
#define F77_dtbmv(...)
Definition cblas_f77.h:307

◆ cblas_dtbsv()

void cblas_dtbsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const double * A,
const CBLAS_INT lda,
double * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_dtbsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_dtbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114
115 F77_dtbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
116 &F77_incX);
117 }
118 else cblas_xerbla(1, "cblas_dtbsv", "Illegal layout setting, %d\n", layout);
119 CBLAS_CallFromC = 0;
120 RowMajorStrg = 0;
121 return;
122}
F77_dtbsv
#define F77_dtbsv(...)
Definition cblas_f77.h:309

◆ cblas_dtpmv()

void cblas_dtpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const double * Ap,
double * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_dtpmv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasUpper) UL = 'U';
38 else if (Uplo == CblasLower) UL = 'L';
39 else
40 {
41 cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 if (TransA == CblasNoTrans) TA = 'N';
47 else if (TransA == CblasTrans) TA = 'T';
48 else if (TransA == CblasConjTrans) TA = 'C';
49 else
50 {
51 cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
52 CBLAS_CallFromC = 0;
53 RowMajorStrg = 0;
54 return;
55 }
56 if (Diag == CblasUnit) DI = 'U';
57 else if (Diag == CblasNonUnit) DI = 'N';
58 else
59 {
60 cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TA = C2F_CHAR(&TA);
68 F77_DI = C2F_CHAR(&DI);
69 #endif
70 F77_dtpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
71 }
72 else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if (Uplo == CblasUpper) UL = 'L';
76 else if (Uplo == CblasLower) UL = 'U';
77 else
78 {
79 cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84
85 if (TransA == CblasNoTrans) TA = 'T';
86 else if (TransA == CblasTrans) TA = 'N';
87 else if (TransA == CblasConjTrans) TA = 'N';
88 else
89 {
90 cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
91 CBLAS_CallFromC = 0;
92 RowMajorStrg = 0;
93 return;
94 }
95
96 if (Diag == CblasUnit) DI = 'U';
97 else if (Diag == CblasNonUnit) DI = 'N';
98 else
99 {
100 cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
101 CBLAS_CallFromC = 0;
102 RowMajorStrg = 0;
103 return;
104 }
105 #ifdef F77_CHAR
106 F77_UL = C2F_CHAR(&UL);
107 F77_TA = C2F_CHAR(&TA);
108 F77_DI = C2F_CHAR(&DI);
109 #endif
110
111 F77_dtpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
112 }
113 else cblas_xerbla(1, "cblas_dtpmv", "Illegal layout setting, %d\n", layout);
114 CBLAS_CallFromC = 0;
115 RowMajorStrg = 0;
116 return;
117}
F77_dtpmv
#define F77_dtpmv(...)
Definition cblas_f77.h:310

◆ cblas_dtpsv()

void cblas_dtpsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const double * Ap,
double * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_dtpsv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasUpper) UL = 'U';
38 else if (Uplo == CblasLower) UL = 'L';
39 else
40 {
41 cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 if (TransA == CblasNoTrans) TA = 'N';
47 else if (TransA == CblasTrans) TA = 'T';
48 else if (TransA == CblasConjTrans) TA = 'C';
49 else
50 {
51 cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
52 CBLAS_CallFromC = 0;
53 RowMajorStrg = 0;
54 return;
55 }
56 if (Diag == CblasUnit) DI = 'U';
57 else if (Diag == CblasNonUnit) DI = 'N';
58 else
59 {
60 cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TA = C2F_CHAR(&TA);
68 F77_DI = C2F_CHAR(&DI);
69 #endif
70 F77_dtpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
71 }
72 else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if (Uplo == CblasUpper) UL = 'L';
76 else if (Uplo == CblasLower) UL = 'U';
77 else
78 {
79 cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84
85 if (TransA == CblasNoTrans) TA = 'T';
86 else if (TransA == CblasTrans) TA = 'N';
87 else if (TransA == CblasConjTrans) TA = 'N';
88 else
89 {
90 cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
91 CBLAS_CallFromC = 0;
92 RowMajorStrg = 0;
93 return;
94 }
95
96 if (Diag == CblasUnit) DI = 'U';
97 else if (Diag == CblasNonUnit) DI = 'N';
98 else
99 {
100 cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
101 CBLAS_CallFromC = 0;
102 RowMajorStrg = 0;
103 return;
104 }
105 #ifdef F77_CHAR
106 F77_UL = C2F_CHAR(&UL);
107 F77_TA = C2F_CHAR(&TA);
108 F77_DI = C2F_CHAR(&DI);
109 #endif
110
111 F77_dtpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
112
113 }
114 else cblas_xerbla(1, "cblas_dtpsv", "Illegal layout setting, %d\n", layout);
115 CBLAS_CallFromC = 0;
116 RowMajorStrg = 0;
117 return;
118}
F77_dtpsv
#define F77_dtpsv(...)
Definition cblas_f77.h:311

◆ cblas_dtrmm()

void cblas_dtrmm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const double alpha,
const double * A,
const CBLAS_INT lda,
double * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_dtrmm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53 if( Uplo == CblasUpper) UL='U';
54 else if ( Uplo == CblasLower ) UL='L';
55 else
56 {
57 cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 if( TransA == CblasTrans) TA ='T';
64 else if ( TransA == CblasConjTrans ) TA='C';
65 else if ( TransA == CblasNoTrans ) TA='N';
66 else
67 {
68 cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73
74 if( Diag == CblasUnit ) DI='U';
75 else if ( Diag == CblasNonUnit ) DI='N';
76 else
77 {
78 cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 #ifdef F77_CHAR
85 F77_UL = C2F_CHAR(&UL);
86 F77_TA = C2F_CHAR(&TA);
87 F77_SD = C2F_CHAR(&SD);
88 F77_DI = C2F_CHAR(&DI);
89 #endif
90
91 F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha, A, &F77_lda, B, &F77_ldb);
92 } else if (layout == CblasRowMajor)
93 {
94 RowMajorStrg = 1;
95 if( Side == CblasRight) SD='L';
96 else if ( Side == CblasLeft ) SD='R';
97 else
98 {
99 cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
100 CBLAS_CallFromC = 0;
101 RowMajorStrg = 0;
102 return;
103 }
104
105 if( Uplo == CblasUpper) UL='L';
106 else if ( Uplo == CblasLower ) UL='U';
107 else
108 {
109 cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
110 CBLAS_CallFromC = 0;
111 RowMajorStrg = 0;
112 return;
113 }
114
115 if( TransA == CblasTrans) TA ='T';
116 else if ( TransA == CblasConjTrans ) TA='C';
117 else if ( TransA == CblasNoTrans ) TA='N';
118 else
119 {
120 cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
121 CBLAS_CallFromC = 0;
122 RowMajorStrg = 0;
123 return;
124 }
125
126 if( Diag == CblasUnit ) DI='U';
127 else if ( Diag == CblasNonUnit ) DI='N';
128 else
129 {
130 cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
131 CBLAS_CallFromC = 0;
132 RowMajorStrg = 0;
133 return;
134 }
135
136 #ifdef F77_CHAR
137 F77_UL = C2F_CHAR(&UL);
138 F77_TA = C2F_CHAR(&TA);
139 F77_SD = C2F_CHAR(&SD);
140 F77_DI = C2F_CHAR(&DI);
141 #endif
142 F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
143 }
144 else cblas_xerbla(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout);
145 CBLAS_CallFromC = 0;
146 RowMajorStrg = 0;
147 return;
148}
F77_dtrmm
#define F77_dtrmm(...)
Definition cblas_f77.h:372

◆ cblas_dtrmv()

void cblas_dtrmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const double * A,
const CBLAS_INT lda,
double * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_dtrmv.c.

17{
18 char TA;
19 char UL;
20 char DI;
21#ifdef F77_CHAR
22 F77_CHAR F77_TA, F77_UL, F77_DI;
23#else
24 #define F77_TA &TA
25 #define F77_UL &UL
26 #define F77_DI &DI
27#endif
28#ifdef F77_INT
29 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
30#else
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_incX incX
34#endif
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_dtrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans) TA = 'N';
94 else
95 {
96 cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
97 CBLAS_CallFromC = 0;
98 RowMajorStrg = 0;
99 return;
100 }
101
102 if (Diag == CblasUnit) DI = 'U';
103 else if (Diag == CblasNonUnit) DI = 'N';
104 else
105 {
106 cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
107 CBLAS_CallFromC = 0;
108 RowMajorStrg = 0;
109 return;
110 }
111 #ifdef F77_CHAR
112 F77_UL = C2F_CHAR(&UL);
113 F77_TA = C2F_CHAR(&TA);
114 F77_DI = C2F_CHAR(&DI);
115 #endif
116 F77_dtrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
117 &F77_incX);
118 } else cblas_xerbla(1, "cblas_dtrmv", "Illegal layout setting, %d\n", layout);
119 CBLAS_CallFromC = 0;
120 RowMajorStrg = 0;
121 return;
122}
F77_dtrmv
#define F77_dtrmv(...)
Definition cblas_f77.h:306

◆ cblas_dtrsm()

void cblas_dtrsm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const double alpha,
const double * A,
const CBLAS_INT lda,
double * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_dtrsm.c.

18{
19 char UL, TA, SD, DI;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
22#else
23 #define F77_TA &TA
24 #define F77_UL &UL
25 #define F77_SD &SD
26 #define F77_DI &DI
27#endif
28
29#ifdef F77_INT
30 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
31#else
32 #define F77_M M
33 #define F77_N N
34 #define F77_lda lda
35 #define F77_ldb ldb
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42
43 if( layout == CblasColMajor )
44 {
45 if ( Side == CblasRight) SD='R';
46 else if ( Side == CblasLeft ) SD='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 if ( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 if ( TransA == CblasTrans ) TA='T';
65 else if ( TransA == CblasConjTrans) TA='C';
66 else if ( TransA == CblasNoTrans ) TA='N';
67 else
68 {
69 cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
70 CBLAS_CallFromC = 0;
71 RowMajorStrg = 0;
72 return;
73 }
74
75 if ( Diag == CblasUnit ) DI='U';
76 else if ( Diag == CblasNonUnit) DI='N';
77 else
78 {
79 cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84
85 #ifdef F77_CHAR
86 F77_UL = C2F_CHAR(&UL);
87 F77_TA = C2F_CHAR(&TA);
88 F77_SD = C2F_CHAR(&SD);
89 F77_DI = C2F_CHAR(&DI);
90 #endif
91
92 F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha,
93 A, &F77_lda, B, &F77_ldb);
94 }
95 else if (layout == CblasRowMajor)
96 {
97 RowMajorStrg = 1;
98 if ( Side == CblasRight) SD='L';
99 else if ( Side == CblasLeft ) SD='R';
100 else
101 {
102 cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106 }
107
108 if ( Uplo == CblasUpper) UL='L';
109 else if ( Uplo == CblasLower) UL='U';
110 else
111 {
112 cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
113 CBLAS_CallFromC = 0;
114 RowMajorStrg = 0;
115 return;
116 }
117
118 if ( TransA == CblasTrans ) TA='T';
119 else if ( TransA == CblasConjTrans) TA='C';
120 else if ( TransA == CblasNoTrans ) TA='N';
121 else
122 {
123 cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
124 CBLAS_CallFromC = 0;
125 RowMajorStrg = 0;
126 return;
127 }
128
129 if ( Diag == CblasUnit ) DI='U';
130 else if ( Diag == CblasNonUnit) DI='N';
131 else
132 {
133 cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
134 CBLAS_CallFromC = 0;
135 RowMajorStrg = 0;
136 return;
137 }
138
139 #ifdef F77_CHAR
140 F77_UL = C2F_CHAR(&UL);
141 F77_TA = C2F_CHAR(&TA);
142 F77_SD = C2F_CHAR(&SD);
143 F77_DI = C2F_CHAR(&DI);
144 #endif
145
146 F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A,
147 &F77_lda, B, &F77_ldb);
148 }
149 else cblas_xerbla(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout);
150 CBLAS_CallFromC = 0;
151 RowMajorStrg = 0;
152 return;
153}
F77_dtrsm
#define F77_dtrsm(...)
Definition cblas_f77.h:373

◆ cblas_dtrsv()

void cblas_dtrsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const double * A,
const CBLAS_INT lda,
double * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_dtrsv.c.

15{
16 char TA;
17 char UL;
18 char DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_DI &DI
25#endif
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
28#else
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_dtrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114 F77_dtrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
115 &F77_incX);
116 }
117 else cblas_xerbla(1, "cblas_dtrsv", "Illegal layout setting, %d\n", layout);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121}
F77_dtrsv
#define F77_dtrsv(...)
Definition cblas_f77.h:308

◆ cblas_dzasum()

double cblas_dzasum ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_dzasum.c.

13{
14 double asum;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_dzasum_sub( &F77_N, X, &F77_incX, &asum);
22 return asum;
23}
F77_dzasum_sub
#define F77_dzasum_sub(...)
Definition cblas_f77.h:261

◆ cblas_dznrm2()

double cblas_dznrm2 ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_dznrm2.c.

13{
14 double nrm2;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_dznrm2_sub( &F77_N, X, &F77_incX, &nrm2);
22 return nrm2;
23}
F77_dznrm2_sub
#define F77_dznrm2_sub(...)
Definition cblas_f77.h:260

◆ cblas_icamax()

CBLAS_INDEX cblas_icamax ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_icamax.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_iamax;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 CBLAS_INT F77_iamax;
20#endif
21 F77_icamax_sub( &F77_N, X, &F77_incX, &F77_iamax );
22 return ( F77_iamax > 0 )
23 ? (CBLAS_INDEX)( F77_iamax-1 )
24 : (CBLAS_INDEX) 0;
25}
CBLAS_INDEX
#define CBLAS_INDEX
Definition cblas.h:14
F77_icamax_sub
#define F77_icamax_sub(...)
Definition cblas_f77.h:245

◆ cblas_idamax()

CBLAS_INDEX cblas_idamax ( const CBLAS_INT N,
const double * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_idamax.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_iamax;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 CBLAS_INT F77_iamax;
20#endif
21 F77_idamax_sub( &F77_N, X, &F77_incX, &F77_iamax );
22 return ( F77_iamax > 0 )
23 ? (CBLAS_INDEX)( F77_iamax-1 )
24 : (CBLAS_INDEX) 0;
25}
F77_idamax_sub
#define F77_idamax_sub(...)
Definition cblas_f77.h:234

◆ cblas_isamax()

CBLAS_INDEX cblas_isamax ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_isamax.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_iamax;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 CBLAS_INT F77_iamax;
20#endif
21 F77_isamax_sub( &F77_N, X, &F77_incX, &F77_iamax );
22 return ( F77_iamax > 0 )
23 ? (CBLAS_INDEX)( F77_iamax-1 )
24 : (CBLAS_INDEX) 0;
25}
F77_isamax_sub
#define F77_isamax_sub(...)
Definition cblas_f77.h:217

◆ cblas_izamax()

CBLAS_INDEX cblas_izamax ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_izamax.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_iamax;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 CBLAS_INT F77_iamax;
20#endif
21 F77_izamax_sub( &F77_N, X, &F77_incX, &F77_iamax );
22 return ( F77_iamax > 0 )
23 ? (CBLAS_INDEX)( F77_iamax-1 )
24 : (CBLAS_INDEX) 0;
25}
F77_izamax_sub
#define F77_izamax_sub(...)
Definition cblas_f77.h:262

◆ cblas_sasum()

float cblas_sasum ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_sasum.c.

13{
14 float asum;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_sasum_sub( &F77_N, X, &F77_incX, &asum);
22 return asum;
23}
F77_sasum_sub
#define F77_sasum_sub(...)
Definition cblas_f77.h:216

◆ cblas_saxpy()

void cblas_saxpy ( const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_saxpy.c.

14{
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
17#else
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21#endif
22 F77_saxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY);
23}
F77_saxpy
#define F77_saxpy(...)
Definition cblas_f77.h:211

◆ cblas_scabs1()

float cblas_scabs1 ( const void * c)

◆ cblas_scasum()

float cblas_scasum ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_scasum.c.

13{
14 float asum;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_scasum_sub( &F77_N, X, &F77_incX, &asum);
22 return asum;
23}
F77_scasum_sub
#define F77_scasum_sub(...)
Definition cblas_f77.h:248

◆ cblas_scnrm2()

float cblas_scnrm2 ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_scnrm2.c.

13{
14 float nrm2;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_scnrm2_sub( &F77_N, X, &F77_incX, &nrm2);
22 return nrm2;
23}
F77_scnrm2_sub
#define F77_scnrm2_sub(...)
Definition cblas_f77.h:247

◆ cblas_scopy()

void cblas_scopy ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_scopy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_scopy( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_scopy
#define F77_scopy(...)
Definition cblas_f77.h:210

◆ cblas_sdot()

float cblas_sdot ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_sdot.c.

14{
15 float dot;
16#ifdef F77_INT
17 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_N N
20 #define F77_incX incX
21 #define F77_incY incY
22#endif
23 F77_sdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
F77_sdot_sub
#define F77_sdot_sub(...)
Definition cblas_f77.h:212

◆ cblas_sdsdot()

float cblas_sdsdot ( const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_sdsdot.c.

14{
15 float dot;
16#ifdef F77_INT
17 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_N N
20 #define F77_incX incX
21 #define F77_incY incY
22#endif
23 F77_sdsdot_sub( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
F77_sdsdot_sub
#define F77_sdsdot_sub(...)
Definition cblas_f77.h:213

◆ cblas_sgbmv()

void cblas_sgbmv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT KL,
const CBLAS_INT KU,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * X,
const CBLAS_INT incX,
const float beta,
float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_sgbmv.c.

18{
19 char TA;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA;
22#else
23 #define F77_TA &TA
24#endif
25#ifdef F77_INT
26 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
27 F77_INT F77_KL=KL,F77_KU=KU;
28#else
29 #define F77_M M
30 #define F77_N N
31 #define F77_lda lda
32 #define F77_KL KL
33 #define F77_KU KU
34 #define F77_incX incX
35 #define F77_incY incY
36#endif
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40
41 CBLAS_CallFromC = 1;
42 if (layout == CblasColMajor)
43 {
44 if (TransA == CblasNoTrans) TA = 'N';
45 else if (TransA == CblasTrans) TA = 'T';
46 else if (TransA == CblasConjTrans) TA = 'C';
47 else
48 {
49 cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 #ifdef F77_CHAR
55 F77_TA = C2F_CHAR(&TA);
56 #endif
57 F77_sgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
58 A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
59 }
60 else if (layout == CblasRowMajor)
61 {
62 RowMajorStrg = 1;
63 if (TransA == CblasNoTrans) TA = 'T';
64 else if (TransA == CblasTrans) TA = 'N';
65 else if (TransA == CblasConjTrans) TA = 'N';
66 else
67 {
68 cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73 #ifdef F77_CHAR
74 F77_TA = C2F_CHAR(&TA);
75 #endif
76 F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
77 A ,&F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
78 }
79 else cblas_xerbla(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83}
F77_sgbmv
#define F77_sgbmv(...)
Definition cblas_f77.h:284

◆ cblas_sgemm()

void cblas_sgemm ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * B,
const CBLAS_INT ldb,
const float beta,
float * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_sgemm.c.

17{
18 char TA, TB;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_TB;
21#else
22 #define F77_TA &TA
23 #define F77_TB &TB
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_K K
33 #define F77_lda lda
34 #define F77_ldb ldb
35 #define F77_ldc ldc
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42 if( layout == CblasColMajor )
43 {
44 if(TransA == CblasTrans) TA='T';
45 else if ( TransA == CblasConjTrans ) TA='C';
46 else if ( TransA == CblasNoTrans ) TA='N';
47 else
48 {
49 cblas_xerbla(2, "cblas_sgemm",
50 "Illegal TransA setting, %d\n", TransA);
51 CBLAS_CallFromC = 0;
52 RowMajorStrg = 0;
53 return;
54 }
55
56 if(TransB == CblasTrans) TB='T';
57 else if ( TransB == CblasConjTrans ) TB='C';
58 else if ( TransB == CblasNoTrans ) TB='N';
59 else
60 {
61 cblas_xerbla(3, "cblas_sgemm",
62 "Illegal TransB setting, %d\n", TransB);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67
68 #ifdef F77_CHAR
69 F77_TA = C2F_CHAR(&TA);
70 F77_TB = C2F_CHAR(&TB);
71 #endif
72
73 F77_sgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if(TransA == CblasTrans) TB='T';
78 else if ( TransA == CblasConjTrans ) TB='C';
79 else if ( TransA == CblasNoTrans ) TB='N';
80 else
81 {
82 cblas_xerbla(2, "cblas_sgemm",
83 "Illegal TransA setting, %d\n", TransA);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88 if(TransB == CblasTrans) TA='T';
89 else if ( TransB == CblasConjTrans ) TA='C';
90 else if ( TransB == CblasNoTrans ) TA='N';
91 else
92 {
93 cblas_xerbla(2, "cblas_sgemm",
94 "Illegal TransB setting, %d\n", TransB);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99 #ifdef F77_CHAR
100 F77_TA = C2F_CHAR(&TA);
101 F77_TB = C2F_CHAR(&TB);
102 #endif
103
104 F77_sgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
105 } else
106 cblas_xerbla(1, "cblas_sgemm",
107 "Illegal layout setting, %d\n", layout);
108 CBLAS_CallFromC = 0;
109 RowMajorStrg = 0;
110}
F77_sgemm
#define F77_sgemm(...)
Definition cblas_f77.h:359

◆ cblas_sgemv()

void cblas_sgemv ( const CBLAS_LAYOUT layout,
const CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * X,
const CBLAS_INT incX,
const float beta,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_sgemv.c.

16{
17 char TA;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA;
20#else
21 #define F77_TA &TA
22#endif
23#ifdef F77_INT
24 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_M M
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (TransA == CblasNoTrans) TA = 'N';
41 else if (TransA == CblasTrans) TA = 'T';
42 else if (TransA == CblasConjTrans) TA = 'C';
43 else
44 {
45 cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA);
46 CBLAS_CallFromC = 0;
47 RowMajorStrg = 0;
48 }
49 #ifdef F77_CHAR
50 F77_TA = C2F_CHAR(&TA);
51 #endif
52 F77_sgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
53 &beta, Y, &F77_incY);
54 }
55 else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (TransA == CblasNoTrans) TA = 'T';
59 else if (TransA == CblasTrans) TA = 'N';
60 else if (TransA == CblasConjTrans) TA = 'N';
61 else
62 {
63 cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_TA = C2F_CHAR(&TA);
70 #endif
71 F77_sgemv(F77_TA, &F77_N, &F77_M, &alpha, A, &F77_lda, X,
72 &F77_incX, &beta, Y, &F77_incY);
73 }
74 else cblas_xerbla(1, "cblas_sgemv", "Illegal layout setting, %d\n", layout);
75 CBLAS_CallFromC = 0;
76 RowMajorStrg = 0;
77 return;
78}
F77_sgemv
#define F77_sgemv(...)
Definition cblas_f77.h:283

◆ cblas_sger()

void cblas_sger ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY,
float * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_sger.c.

15{
16#ifdef F77_INT
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_M M
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incY
23 #define F77_lda lda
24#endif
25
26 extern int CBLAS_CallFromC;
27 extern int RowMajorStrg;
28 RowMajorStrg = 0;
29
30 CBLAS_CallFromC = 1;
31 if (layout == CblasColMajor)
32 {
33 F77_sger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
34 &F77_lda);
35 }
36 else if (layout == CblasRowMajor)
37 {
38 RowMajorStrg = 1;
39 F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A,
40 &F77_lda);
41 }
42 else cblas_xerbla(1, "cblas_sger", "Illegal layout setting, %d\n", layout);
43 CBLAS_CallFromC = 0;
44 RowMajorStrg = 0;
45 return;
46}
F77_sger
#define F77_sger(...)
Definition cblas_f77.h:268

◆ cblas_snrm2()

float cblas_snrm2 ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX )

Definition at line 12 of file cblas_snrm2.c.

13{
14 float nrm2;
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX;
17#else
18 #define F77_N N
19 #define F77_incX incX
20#endif
21 F77_snrm2_sub( &F77_N, X, &F77_incX, &nrm2);
22 return nrm2;
23}
F77_snrm2_sub
#define F77_snrm2_sub(...)
Definition cblas_f77.h:215

◆ cblas_srot()

void cblas_srot ( const CBLAS_INT N,
float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY,
const float c,
const float s )

Definition at line 11 of file cblas_srot.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_srot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s);
22}
F77_srot
#define F77_srot(...)
Definition cblas_f77.h:205

◆ cblas_srotg()

void cblas_srotg ( float * a,
float * b,
float * c,
float * s )

Definition at line 11 of file cblas_srotg.c.

12{
13 F77_srotg(a,b,c,s);
14}
F77_srotg
#define F77_srotg(...)
Definition cblas_f77.h:206

◆ cblas_srotm()

void cblas_srotm ( const CBLAS_INT N,
float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY,
const float * P )

Definition at line 11 of file cblas_srotm.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_srotm( &F77_N, X, &F77_incX, Y, &F77_incY, P);
22}
F77_srotm
#define F77_srotm(...)
Definition cblas_f77.h:207

◆ cblas_srotmg()

void cblas_srotmg ( float * d1,
float * d2,
float * b1,
const float b2,
float * P )

Definition at line 11 of file cblas_srotmg.c.

13{
14 F77_srotmg(d1,d2,b1,&b2,p);
15}
F77_srotmg
#define F77_srotmg(...)
Definition cblas_f77.h:208

◆ cblas_ssbmv()

void cblas_ssbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * X,
const CBLAS_INT incX,
const float beta,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_ssbmv.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_N N
27 #define F77_K K
28 #define F77_lda lda
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo );
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 #ifdef F77_CHAR
50 F77_UL = C2F_CHAR(&UL);
51 #endif
52 F77_ssbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
53 &F77_incX, &beta, Y, &F77_incY);
54 }else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 F77_ssbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
70 &F77_incX, &beta, Y, &F77_incY);
71 }
72 else cblas_xerbla(1, "cblas_ssbmv", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_ssbmv
#define F77_ssbmv(...)
Definition cblas_f77.h:286

◆ cblas_sscal()

void cblas_sscal ( const CBLAS_INT N,
const float alpha,
float * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_sscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_sscal( &F77_N, &alpha, X, &F77_incX);
21}
F77_sscal
#define F77_sscal(...)
Definition cblas_f77.h:214

◆ cblas_sspmv()

void cblas_sspmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * Ap,
const float * X,
const CBLAS_INT incX,
const float beta,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_sspmv.c.

16{
17 char UL;
18#ifdef F77_CHAR
19 F77_CHAR F77_UL;
20#else
21 #define F77_UL &UL
22#endif
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_N N
27 #define F77_incX incX
28 #define F77_incY incY
29#endif
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasUpper) UL = 'U';
38 else if (Uplo == CblasLower) UL = 'L';
39 else
40 {
41 cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo );
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 #ifdef F77_CHAR
47 F77_UL = C2F_CHAR(&UL);
48 #endif
49 F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,
50 &F77_incX, &beta, Y, &F77_incY);
51 }
52 else if (layout == CblasRowMajor)
53 {
54 RowMajorStrg = 1;
55 if (Uplo == CblasUpper) UL = 'L';
56 else if (Uplo == CblasLower) UL = 'U';
57 else
58 {
59 cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo);
60 CBLAS_CallFromC = 0;
61 RowMajorStrg = 0;
62 return;
63 }
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 #endif
67 F77_sspmv(F77_UL, &F77_N, &alpha,
68 AP, X,&F77_incX, &beta, Y, &F77_incY);
69 }
70 else cblas_xerbla(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout);
71 CBLAS_CallFromC = 0;
72 RowMajorStrg = 0;
73}
F77_sspmv
#define F77_sspmv(...)
Definition cblas_f77.h:287

◆ cblas_sspr()

void cblas_sspr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
float * Ap )

Definition at line 12 of file cblas_sspr.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_incX incX
28#endif
29
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasLower) UL = 'L';
38 else if (Uplo == CblasUpper) UL = 'U';
39 else
40 {
41 cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 #ifdef F77_CHAR
47 F77_UL = C2F_CHAR(&UL);
48 #endif
49
50 F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
51
52 } else if (layout == CblasRowMajor)
53 {
54 RowMajorStrg = 1;
55 if (Uplo == CblasLower) UL = 'U';
56 else if (Uplo == CblasUpper) UL = 'L';
57 else
58 {
59 cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
60 CBLAS_CallFromC = 0;
61 RowMajorStrg = 0;
62 return;
63 }
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 #endif
67 F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
68 } else cblas_xerbla(1, "cblas_sspr", "Illegal layout setting, %d\n", layout);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72}
F77_sspr
#define F77_sspr(...)
Definition cblas_f77.h:295

◆ cblas_sspr2()

void cblas_sspr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY,
float * A )

Definition at line 12 of file cblas_sspr2.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_N N
27 #define F77_incX incX
28 #define F77_incY incY
29#endif
30
31 extern int CBLAS_CallFromC;
32 extern int RowMajorStrg;
33 RowMajorStrg = 0;
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasLower) UL = 'L';
38 else if (Uplo == CblasUpper) UL = 'U';
39 else
40 {
41 cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 #ifdef F77_CHAR
47 F77_UL = C2F_CHAR(&UL);
48 #endif
49
50 F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
51
52 } else if (layout == CblasRowMajor)
53 {
54 RowMajorStrg = 1;
55 if (Uplo == CblasLower) UL = 'U';
56 else if (Uplo == CblasUpper) UL = 'L';
57 else
58 {
59 cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
60 CBLAS_CallFromC = 0;
61 RowMajorStrg = 0;
62 return;
63 }
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 #endif
67 F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
68 } else cblas_xerbla(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71}
F77_sspr2
#define F77_sspr2(...)
Definition cblas_f77.h:296

◆ cblas_sswap()

void cblas_sswap ( const CBLAS_INT N,
float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_sswap.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_sswap( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_sswap
#define F77_sswap(...)
Definition cblas_f77.h:209

◆ cblas_ssymm()

void cblas_ssymm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * B,
const CBLAS_INT ldb,
const float beta,
float * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_ssymm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_ssymm",
49 "Illegal Side setting, %d\n", Side);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Uplo == CblasUpper) UL='U';
56 else if ( Uplo == CblasLower ) UL='L';
57 else
58 {
59 cblas_xerbla(3, "cblas_ssymm",
60 "Illegal Uplo setting, %d\n", Uplo);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 F77_SD = C2F_CHAR(&SD);
69 #endif
70
71 F77_ssymm(F77_SD, F77_UL, &F77_M, &F77_N, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
72 } else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if( Side == CblasRight) SD='L';
76 else if ( Side == CblasLeft ) SD='R';
77 else
78 {
79 cblas_xerbla(2, "cblas_ssymm",
80 "Illegal Side setting, %d\n", Side);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84 }
85
86 if( Uplo == CblasUpper) UL='L';
87 else if ( Uplo == CblasLower ) UL='U';
88 else
89 {
90 cblas_xerbla(3, "cblas_ssymm",
91 "Illegal Uplo setting, %d\n", Uplo);
92 CBLAS_CallFromC = 0;
93 RowMajorStrg = 0;
94 return;
95 }
96
97 #ifdef F77_CHAR
98 F77_UL = C2F_CHAR(&UL);
99 F77_SD = C2F_CHAR(&SD);
100 #endif
101
102 F77_ssymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
103 } else cblas_xerbla(1, "cblas_ssymm",
104 "Illegal layout setting, %d\n", layout);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108}
F77_ssymm
#define F77_ssymm(...)
Definition cblas_f77.h:360

◆ cblas_ssymv()

void cblas_ssymv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * X,
const CBLAS_INT incX,
const float beta,
float * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_ssymv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incX
30 #define F77_incY incY
31#endif
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51 F77_ssymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
52 &F77_incX, &beta, Y, &F77_incY);
53 }
54 else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 F77_ssymv(F77_UL, &F77_N, &alpha,
70 A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
71 }
72 else cblas_xerbla(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_ssymv
#define F77_ssymv(...)
Definition cblas_f77.h:285

◆ cblas_ssyr()

void cblas_ssyr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
float * A,
const CBLAS_INT lda )

Definition at line 11 of file cblas_ssyr.c.

14{
15 char UL;
16#ifdef F77_CHAR
17 F77_CHAR F77_UL;
18#else
19 #define F77_UL &UL
20#endif
21
22#ifdef F77_INT
23 F77_INT F77_N=N, F77_incX=incX, F77_lda=lda;
24#else
25 #define F77_N N
26 #define F77_incX incX
27 #define F77_lda lda
28#endif
29 extern int CBLAS_CallFromC;
30 extern int RowMajorStrg;
31 RowMajorStrg = 0;
32 CBLAS_CallFromC = 1;
33 if (layout == CblasColMajor)
34 {
35 if (Uplo == CblasLower) UL = 'L';
36 else if (Uplo == CblasUpper) UL = 'U';
37 else
38 {
39 cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
40 CBLAS_CallFromC = 0;
41 RowMajorStrg = 0;
42 return;
43 }
44 #ifdef F77_CHAR
45 F77_UL = C2F_CHAR(&UL);
46 #endif
47
48 F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
49
50 } else if (layout == CblasRowMajor)
51 {
52 RowMajorStrg = 1;
53 if (Uplo == CblasLower) UL = 'U';
54 else if (Uplo == CblasUpper) UL = 'L';
55 else
56 {
57 cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62 #ifdef F77_CHAR
63 F77_UL = C2F_CHAR(&UL);
64 #endif
65 F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
66 } else cblas_xerbla(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout);
67 CBLAS_CallFromC = 0;
68 RowMajorStrg = 0;
69 return;
70}
F77_ssyr
#define F77_ssyr(...)
Definition cblas_f77.h:294

◆ cblas_ssyr2()

void cblas_ssyr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const float alpha,
const float * X,
const CBLAS_INT incX,
const float * Y,
const CBLAS_INT incY,
float * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_ssyr2.c.

16{
17 char UL;
18#ifdef F77_CHAR
19 F77_CHAR F77_UL;
20#else
21 #define F77_UL &UL
22#endif
23
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY, F77_lda=lda;
26#else
27 #define F77_N N
28 #define F77_incX incX
29 #define F77_incY incY
30 #define F77_lda lda
31#endif
32
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasLower) UL = 'L';
40 else if (Uplo == CblasUpper) UL = 'U';
41 else
42 {
43 cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51
52 F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
53 &F77_lda);
54
55 } else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (Uplo == CblasLower) UL = 'U';
59 else if (Uplo == CblasUpper) UL = 'L';
60 else
61 {
62 cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 #endif
70 F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
71 &F77_lda);
72 } else cblas_xerbla(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout);
73 CBLAS_CallFromC = 0;
74 RowMajorStrg = 0;
75 return;
76}
F77_ssyr2
#define F77_ssyr2(...)
Definition cblas_f77.h:297

◆ cblas_ssyr2k()

void cblas_ssyr2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float * B,
const CBLAS_INT ldb,
const float beta,
float * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_ssyr2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Uplo == CblasUpper) UL='U';
46 else if ( Uplo == CblasLower ) UL='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_ssyr2k",
50 "Illegal Uplo setting, %d\n", Uplo);
51 CBLAS_CallFromC = 0;
52 RowMajorStrg = 0;
53 return;
54 }
55
56 if( Trans == CblasTrans) TR ='T';
57 else if ( Trans == CblasConjTrans ) TR='C';
58 else if ( Trans == CblasNoTrans ) TR='N';
59 else
60 {
61 cblas_xerbla(3, "cblas_ssyr2k",
62 "Illegal Trans setting, %d\n", Trans);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67
68
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TR = C2F_CHAR(&TR);
72 #endif
73
74 F77_ssyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
75 } else if (layout == CblasRowMajor)
76 {
77 RowMajorStrg = 1;
78 if( Uplo == CblasUpper) UL='L';
79 else if ( Uplo == CblasLower ) UL='U';
80 else
81 {
82 cblas_xerbla(3, "cblas_ssyr2k",
83 "Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88 if( Trans == CblasTrans) TR ='N';
89 else if ( Trans == CblasConjTrans ) TR='N';
90 else if ( Trans == CblasNoTrans ) TR='T';
91 else
92 {
93 cblas_xerbla(3, "cblas_ssyr2k",
94 "Illegal Trans setting, %d\n", Trans);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 #ifdef F77_CHAR
101 F77_UL = C2F_CHAR(&UL);
102 F77_TR = C2F_CHAR(&TR);
103 #endif
104
105 F77_ssyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
106 } else cblas_xerbla(1, "cblas_ssyr2k",
107 "Illegal layout setting, %d\n", layout);
108 CBLAS_CallFromC = 0;
109 RowMajorStrg = 0;
110 return;
111}
F77_ssyr2k
#define F77_ssyr2k(...)
Definition cblas_f77.h:362

◆ cblas_ssyrk()

void cblas_ssyrk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const float * A,
const CBLAS_INT lda,
const float beta,
float * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_ssyrk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42
43 if( Uplo == CblasUpper) UL='U';
44 else if ( Uplo == CblasLower ) UL='L';
45 else
46 {
47 cblas_xerbla(2, "cblas_ssyrk",
48 "Illegal Uplo setting, %d\n", Uplo);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Trans == CblasTrans) TR ='T';
55 else if ( Trans == CblasConjTrans ) TR='C';
56 else if ( Trans == CblasNoTrans ) TR='N';
57 else
58 {
59 cblas_xerbla(3, "cblas_ssyrk",
60 "Illegal Trans setting, %d\n", Trans);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65
66
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TR = C2F_CHAR(&TR);
70 #endif
71
72 F77_ssyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc);
73 } else if (layout == CblasRowMajor)
74 {
75 RowMajorStrg = 1;
76 if( Uplo == CblasUpper) UL='L';
77 else if ( Uplo == CblasLower ) UL='U';
78 else
79 {
80 cblas_xerbla(3, "cblas_ssyrk",
81 "Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86 if( Trans == CblasTrans) TR ='N';
87 else if ( Trans == CblasConjTrans ) TR='N';
88 else if ( Trans == CblasNoTrans ) TR='T';
89 else
90 {
91 cblas_xerbla(3, "cblas_ssyrk",
92 "Illegal Trans setting, %d\n", Trans);
93 CBLAS_CallFromC = 0;
94 RowMajorStrg = 0;
95 return;
96 }
97
98 #ifdef F77_CHAR
99 F77_UL = C2F_CHAR(&UL);
100 F77_TR = C2F_CHAR(&TR);
101 #endif
102
103 F77_ssyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc);
104 } else cblas_xerbla(1, "cblas_ssyrk",
105 "Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109}
F77_ssyrk
#define F77_ssyrk(...)
Definition cblas_f77.h:361

◆ cblas_stbmv()

void cblas_stbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const float * A,
const CBLAS_INT lda,
float * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_stbmv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_stbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114
115 F77_stbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
116 &F77_incX);
117 }
118 else cblas_xerbla(1, "cblas_stbmv", "Illegal layout setting, %d\n", layout);
119 CBLAS_CallFromC = 0;
120 RowMajorStrg = 0;
121 return;
122}
F77_stbmv
#define F77_stbmv(...)
Definition cblas_f77.h:289

◆ cblas_stbsv()

void cblas_stbsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const float * A,
const CBLAS_INT lda,
float * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_stbsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_stbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114
115 F77_stbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
116 &F77_incX);
117 }
118 else cblas_xerbla(1, "cblas_stbsv", "Illegal layout setting, %d\n", layout);
119 CBLAS_CallFromC = 0;
120 RowMajorStrg = 0;
121 return;
122}
F77_stbsv
#define F77_stbsv(...)
Definition cblas_f77.h:291

◆ cblas_stpmv()

void cblas_stpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const float * Ap,
float * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_stpmv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_incX incX
30#endif
31 extern int CBLAS_CallFromC;
32 extern int RowMajorStrg;
33 RowMajorStrg = 0;
34
35 CBLAS_CallFromC = 1;
36 if (layout == CblasColMajor)
37 {
38 if (Uplo == CblasUpper) UL = 'U';
39 else if (Uplo == CblasLower) UL = 'L';
40 else
41 {
42 cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
43 CBLAS_CallFromC = 0;
44 RowMajorStrg = 0;
45 return;
46 }
47 if (TransA == CblasNoTrans) TA = 'N';
48 else if (TransA == CblasTrans) TA = 'T';
49 else if (TransA == CblasConjTrans) TA = 'C';
50 else
51 {
52 cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
53 CBLAS_CallFromC = 0;
54 RowMajorStrg = 0;
55 return;
56 }
57 if (Diag == CblasUnit) DI = 'U';
58 else if (Diag == CblasNonUnit) DI = 'N';
59 else
60 {
61 cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 F77_TA = C2F_CHAR(&TA);
69 F77_DI = C2F_CHAR(&DI);
70 #endif
71 F77_stpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
72 }
73 else if (layout == CblasRowMajor)
74 {
75 RowMajorStrg = 1;
76 if (Uplo == CblasUpper) UL = 'L';
77 else if (Uplo == CblasLower) UL = 'U';
78 else
79 {
80 cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84 }
85
86 if (TransA == CblasNoTrans) TA = 'T';
87 else if (TransA == CblasTrans) TA = 'N';
88 else if (TransA == CblasConjTrans) TA = 'N';
89 else
90 {
91 cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
92 CBLAS_CallFromC = 0;
93 RowMajorStrg = 0;
94 return;
95 }
96
97 if (Diag == CblasUnit) DI = 'U';
98 else if (Diag == CblasNonUnit) DI = 'N';
99 else
100 {
101 cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
102 CBLAS_CallFromC = 0;
103 RowMajorStrg = 0;
104 return;
105 }
106 #ifdef F77_CHAR
107 F77_UL = C2F_CHAR(&UL);
108 F77_TA = C2F_CHAR(&TA);
109 F77_DI = C2F_CHAR(&DI);
110 #endif
111
112 F77_stpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
113 }
114 else cblas_xerbla(1, "cblas_stpmv", "Illegal layout setting, %d\n", layout);
115 CBLAS_CallFromC = 0;
116 RowMajorStrg = 0;
117 return;
118}
F77_stpmv
#define F77_stpmv(...)
Definition cblas_f77.h:292

◆ cblas_stpsv()

void cblas_stpsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const float * Ap,
float * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_stpsv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 extern int CBLAS_CallFromC;
31 extern int RowMajorStrg;
32 RowMajorStrg = 0;
33
34 CBLAS_CallFromC = 1;
35 if (layout == CblasColMajor)
36 {
37 if (Uplo == CblasUpper) UL = 'U';
38 else if (Uplo == CblasLower) UL = 'L';
39 else
40 {
41 cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
42 CBLAS_CallFromC = 0;
43 RowMajorStrg = 0;
44 return;
45 }
46 if (TransA == CblasNoTrans) TA = 'N';
47 else if (TransA == CblasTrans) TA = 'T';
48 else if (TransA == CblasConjTrans) TA = 'C';
49 else
50 {
51 cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
52 CBLAS_CallFromC = 0;
53 RowMajorStrg = 0;
54 return;
55 }
56 if (Diag == CblasUnit) DI = 'U';
57 else if (Diag == CblasNonUnit) DI = 'N';
58 else
59 {
60 cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TA = C2F_CHAR(&TA);
68 F77_DI = C2F_CHAR(&DI);
69 #endif
70 F77_stpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
71 }
72 else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if (Uplo == CblasUpper) UL = 'L';
76 else if (Uplo == CblasLower) UL = 'U';
77 else
78 {
79 cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84
85 if (TransA == CblasNoTrans) TA = 'T';
86 else if (TransA == CblasTrans) TA = 'N';
87 else if (TransA == CblasConjTrans) TA = 'N';
88 else
89 {
90 cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
91 CBLAS_CallFromC = 0;
92 RowMajorStrg = 0;
93 return;
94 }
95
96 if (Diag == CblasUnit) DI = 'U';
97 else if (Diag == CblasNonUnit) DI = 'N';
98 else
99 {
100 cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
101 CBLAS_CallFromC = 0;
102 RowMajorStrg = 0;
103 return;
104 }
105 #ifdef F77_CHAR
106 F77_UL = C2F_CHAR(&UL);
107 F77_TA = C2F_CHAR(&TA);
108 F77_DI = C2F_CHAR(&DI);
109 #endif
110
111 F77_stpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
112
113 }
114 else cblas_xerbla(1, "cblas_stpsv", "Illegal layout setting, %d\n", layout);
115 CBLAS_CallFromC = 0;
116 RowMajorStrg = 0;
117 return;
118}
F77_stpsv
#define F77_stpsv(...)
Definition cblas_f77.h:293

◆ cblas_strmm()

void cblas_strmm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const float alpha,
const float * A,
const CBLAS_INT lda,
float * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_strmm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53 if( Uplo == CblasUpper) UL='U';
54 else if ( Uplo == CblasLower ) UL='L';
55 else
56 {
57 cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 if( TransA == CblasTrans) TA ='T';
64 else if ( TransA == CblasConjTrans ) TA='C';
65 else if ( TransA == CblasNoTrans ) TA='N';
66 else
67 {
68 cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73
74 if( Diag == CblasUnit ) DI='U';
75 else if ( Diag == CblasNonUnit ) DI='N';
76 else
77 {
78 cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 #ifdef F77_CHAR
85 F77_UL = C2F_CHAR(&UL);
86 F77_TA = C2F_CHAR(&TA);
87 F77_SD = C2F_CHAR(&SD);
88 F77_DI = C2F_CHAR(&DI);
89 #endif
90
91 F77_strmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha, A, &F77_lda, B, &F77_ldb);
92 } else if (layout == CblasRowMajor)
93 {
94 RowMajorStrg = 1;
95 if( Side == CblasRight) SD='L';
96 else if ( Side == CblasLeft ) SD='R';
97 else
98 {
99 cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
100 CBLAS_CallFromC = 0;
101 RowMajorStrg = 0;
102 return;
103 }
104
105 if( Uplo == CblasUpper) UL='L';
106 else if ( Uplo == CblasLower ) UL='U';
107 else
108 {
109 cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo);
110 CBLAS_CallFromC = 0;
111 RowMajorStrg = 0;
112 return;
113 }
114
115 if( TransA == CblasTrans) TA ='T';
116 else if ( TransA == CblasConjTrans ) TA='C';
117 else if ( TransA == CblasNoTrans ) TA='N';
118 else
119 {
120 cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA);
121 CBLAS_CallFromC = 0;
122 RowMajorStrg = 0;
123 return;
124 }
125
126 if( Diag == CblasUnit ) DI='U';
127 else if ( Diag == CblasNonUnit ) DI='N';
128 else
129 {
130 cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag);
131 CBLAS_CallFromC = 0;
132 RowMajorStrg = 0;
133 return;
134 }
135#ifdef F77_CHAR
136 F77_UL = C2F_CHAR(&UL);
137 F77_TA = C2F_CHAR(&TA);
138 F77_SD = C2F_CHAR(&SD);
139 F77_DI = C2F_CHAR(&DI);
140#endif
141 F77_strmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A,
142 &F77_lda, B, &F77_ldb);
143 }
144 else cblas_xerbla(1, "cblas_strmm", "Illegal layout setting, %d\n", layout);
145 CBLAS_CallFromC = 0;
146 RowMajorStrg = 0;
147 return;
148}
F77_strmm
#define F77_strmm(...)
Definition cblas_f77.h:363

◆ cblas_strmv()

void cblas_strmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const float * A,
const CBLAS_INT lda,
float * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_strmv.c.

16{
17 char TA;
18 char UL;
19 char DI;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA, F77_UL, F77_DI;
22#else
23 #define F77_TA &TA
24 #define F77_UL &UL
25 #define F77_DI &DI
26#endif
27#ifdef F77_INT
28 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
29#else
30 #define F77_N N
31 #define F77_lda lda
32 #define F77_incX incX
33#endif
34 extern int CBLAS_CallFromC;
35 extern int RowMajorStrg;
36 RowMajorStrg = 0;
37
38 CBLAS_CallFromC = 1;
39 if (layout == CblasColMajor)
40 {
41 if (Uplo == CblasUpper) UL = 'U';
42 else if (Uplo == CblasLower) UL = 'L';
43 else
44 {
45 cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
46 CBLAS_CallFromC = 0;
47 RowMajorStrg = 0;
48 return;
49 }
50 if (TransA == CblasNoTrans) TA = 'N';
51 else if (TransA == CblasTrans) TA = 'T';
52 else if (TransA == CblasConjTrans) TA = 'C';
53 else
54 {
55 cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
56 CBLAS_CallFromC = 0;
57 RowMajorStrg = 0;
58 return;
59 }
60 if (Diag == CblasUnit) DI = 'U';
61 else if (Diag == CblasNonUnit) DI = 'N';
62 else
63 {
64 cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
65 CBLAS_CallFromC = 0;
66 RowMajorStrg = 0;
67 return;
68 }
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TA = C2F_CHAR(&TA);
72 F77_DI = C2F_CHAR(&DI);
73 #endif
74 F77_strmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
75 &F77_incX);
76 }
77 else if (layout == CblasRowMajor)
78 {
79 RowMajorStrg = 1;
80 if (Uplo == CblasUpper) UL = 'L';
81 else if (Uplo == CblasLower) UL = 'U';
82 else
83 {
84 cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
85 CBLAS_CallFromC = 0;
86 RowMajorStrg = 0;
87 return;
88 }
89
90 if (TransA == CblasNoTrans) TA = 'T';
91 else if (TransA == CblasTrans) TA = 'N';
92 else if (TransA == CblasConjTrans) TA = 'N';
93 else
94 {
95 cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
96 CBLAS_CallFromC = 0;
97 RowMajorStrg = 0;
98 return;
99 }
100
101 if (Diag == CblasUnit) DI = 'U';
102 else if (Diag == CblasNonUnit) DI = 'N';
103 else
104 {
105 cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109 }
110 #ifdef F77_CHAR
111 F77_UL = C2F_CHAR(&UL);
112 F77_TA = C2F_CHAR(&TA);
113 F77_DI = C2F_CHAR(&DI);
114 #endif
115 F77_strmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
116 &F77_incX);
117 }
118 else cblas_xerbla(1, "cblas_strmv", "Illegal layout setting, %d\n", layout);
119 CBLAS_CallFromC = 0;
120 RowMajorStrg = 0;
121 return;
122}
F77_strmv
#define F77_strmv(...)
Definition cblas_f77.h:288

◆ cblas_strsm()

void cblas_strsm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const float alpha,
const float * A,
const CBLAS_INT lda,
float * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_strsm.c.

18{
19 char UL, TA, SD, DI;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
22#else
23 #define F77_TA &TA
24 #define F77_UL &UL
25 #define F77_SD &SD
26 #define F77_DI &DI
27#endif
28
29#ifdef F77_INT
30 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
31#else
32 #define F77_M M
33 #define F77_N N
34 #define F77_lda lda
35 #define F77_ldb ldb
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42
43 if( layout == CblasColMajor )
44 {
45 if( Side == CblasRight) SD='R';
46 else if ( Side == CblasLeft ) SD='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63 if( TransA == CblasTrans) TA ='T';
64 else if ( TransA == CblasConjTrans ) TA='C';
65 else if ( TransA == CblasNoTrans ) TA='N';
66 else
67 {
68 cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73 if( Diag == CblasUnit ) DI='U';
74 else if ( Diag == CblasNonUnit ) DI='N';
75 else
76 {
77 cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
78 CBLAS_CallFromC = 0;
79 RowMajorStrg = 0;
80 return;
81 }
82 #ifdef F77_CHAR
83 F77_UL = C2F_CHAR(&UL);
84 F77_TA = C2F_CHAR(&TA);
85 F77_SD = C2F_CHAR(&SD);
86 F77_DI = C2F_CHAR(&DI);
87 #endif
88
89 F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha, A, &F77_lda, B, &F77_ldb);
90 } else if (layout == CblasRowMajor)
91 {
92 RowMajorStrg = 1;
93 if( Side == CblasRight) SD='L';
94 else if ( Side == CblasLeft ) SD='R';
95 else
96 {
97 cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
98 CBLAS_CallFromC = 0;
99 RowMajorStrg = 0;
100 return;
101 }
102 if( Uplo == CblasUpper) UL='L';
103 else if ( Uplo == CblasLower ) UL='U';
104 else
105 {
106 cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
107 CBLAS_CallFromC = 0;
108 RowMajorStrg = 0;
109 return;
110 }
111 if( TransA == CblasTrans) TA ='T';
112 else if ( TransA == CblasConjTrans ) TA='C';
113 else if ( TransA == CblasNoTrans ) TA='N';
114 else
115 {
116 cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
117 CBLAS_CallFromC = 0;
118 RowMajorStrg = 0;
119 return;
120 }
121 if( Diag == CblasUnit ) DI='U';
122 else if ( Diag == CblasNonUnit ) DI='N';
123 else
124 {
125 cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
126 CBLAS_CallFromC = 0;
127 RowMajorStrg = 0;
128 return;
129 }
130 #ifdef F77_CHAR
131 F77_UL = C2F_CHAR(&UL);
132 F77_TA = C2F_CHAR(&TA);
133 F77_SD = C2F_CHAR(&SD);
134 F77_DI = C2F_CHAR(&DI);
135 #endif
136
137 F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
138 }
139 else cblas_xerbla(1, "cblas_strsm", "Illegal layout setting, %d\n", layout);
140 CBLAS_CallFromC = 0;
141 RowMajorStrg = 0;
142 return;
143}
F77_strsm
#define F77_strsm(...)
Definition cblas_f77.h:364

◆ cblas_strsv()

void cblas_strsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const float * A,
const CBLAS_INT lda,
float * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_strsv.c.

15{
16 char TA;
17 char UL;
18 char DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_DI &DI
25#endif
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
28#else
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasUpper) UL = 'U';
41 else if (Uplo == CblasLower) UL = 'L';
42 else
43 {
44 cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 if (Diag == CblasUnit) DI = 'U';
60 else if (Diag == CblasNonUnit) DI = 'N';
61 else
62 {
63 cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68 #ifdef F77_CHAR
69 F77_UL = C2F_CHAR(&UL);
70 F77_TA = C2F_CHAR(&TA);
71 F77_DI = C2F_CHAR(&DI);
72 #endif
73 F77_strsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
74 &F77_incX);
75 }
76 else if (layout == CblasRowMajor)
77 {
78 RowMajorStrg = 1;
79 if (Uplo == CblasUpper) UL = 'L';
80 else if (Uplo == CblasLower) UL = 'U';
81 else
82 {
83 cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88
89 if (TransA == CblasNoTrans) TA = 'T';
90 else if (TransA == CblasTrans) TA = 'N';
91 else if (TransA == CblasConjTrans) TA = 'N';
92 else
93 {
94 cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
95 CBLAS_CallFromC = 0;
96 RowMajorStrg = 0;
97 return;
98 }
99
100 if (Diag == CblasUnit) DI = 'U';
101 else if (Diag == CblasNonUnit) DI = 'N';
102 else
103 {
104 cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108 }
109 #ifdef F77_CHAR
110 F77_UL = C2F_CHAR(&UL);
111 F77_TA = C2F_CHAR(&TA);
112 F77_DI = C2F_CHAR(&DI);
113 #endif
114 F77_strsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
115 &F77_incX);
116 }
117 else cblas_xerbla(1, "cblas_strsv", "Illegal layout setting, %d\n", layout);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121}
F77_strsv
#define F77_strsv(...)
Definition cblas_f77.h:290

◆ cblas_xerbla()

void cblas_xerbla ( CBLAS_INT p,
const char * rout,
const char * form,
... )

Definition at line 12 of file cblas_xerbla.c.

13{
14 extern int RowMajorStrg;
15 char empty[1] = "";
16 va_list argptr;
17
18 va_start(argptr, form);
19
20 if (RowMajorStrg)
21 {
22 if (strstr(rout,"gemm") != 0)
23 {
24 if (info == 5 ) info = 4;
25 else if (info == 4 ) info = 5;
26 else if (info == 11) info = 9;
27 else if (info == 9 ) info = 11;
28 }
29 else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0)
30 {
31 if (info == 5 ) info = 4;
32 else if (info == 4 ) info = 5;
33 }
34 else if (strstr(rout,"trmm") != 0 || strstr(rout,"trsm") != 0)
35 {
36 if (info == 7 ) info = 6;
37 else if (info == 6 ) info = 7;
38 }
39 else if (strstr(rout,"gemv") != 0)
40 {
41 if (info == 4) info = 3;
42 else if (info == 3) info = 4;
43 }
44 else if (strstr(rout,"gbmv") != 0)
45 {
46 if (info == 4) info = 3;
47 else if (info == 3) info = 4;
48 else if (info == 6) info = 5;
49 else if (info == 5) info = 6;
50 }
51 else if (strstr(rout,"ger") != 0)
52 {
53 if (info == 3) info = 2;
54 else if (info == 2) info = 3;
55 else if (info == 8) info = 6;
56 else if (info == 6) info = 8;
57 }
58 else if ( (strstr(rout,"her2") != 0 || strstr(rout,"hpr2") != 0)
59 && strstr(rout,"her2k") == 0 )
60 {
61 if (info == 8) info = 6;
62 else if (info == 6) info = 8;
63 }
64 }
65 if (info)
66 fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);
67 vfprintf(stderr, form, argptr);
68 va_end(argptr);
69 if (info && !info)
70 F77_xerbla(empty, &info); /* Force link of our F77 error handler */
71 exit(-1);
72}
F77_xerbla
#define F77_xerbla(...)
Definition cblas_f77.h:534

◆ cblas_zaxpy()

void cblas_zaxpy ( const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_zaxpy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_zaxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
22}
F77_zaxpy
#define F77_zaxpy(...)
Definition cblas_f77.h:254

◆ cblas_zcopy()

void cblas_zcopy ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_zcopy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_zcopy( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_zcopy
#define F77_zcopy(...)
Definition cblas_f77.h:253

◆ cblas_zdotc_sub()

void cblas_zdotc_sub ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * dotc )

Definition at line 12 of file cblas_zdotc_sub.c.

14{
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
17#else
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21#endif
22 F77_zdotc_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotc);
23 return;
24}
F77_zdotc_sub
#define F77_zdotc_sub(...)
Definition cblas_f77.h:256

◆ cblas_zdotu_sub()

void cblas_zdotu_sub ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * dotu )

Definition at line 12 of file cblas_zdotu_sub.c.

14{
15#ifdef F77_INT
16 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
17#else
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21#endif
22 F77_zdotu_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotu);
23 return;
24}
F77_zdotu_sub
#define F77_zdotu_sub(...)
Definition cblas_f77.h:257

◆ cblas_zdscal()

void cblas_zdscal ( const CBLAS_INT N,
const double alpha,
void * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_zdscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_zdscal( &F77_N, &alpha, X, &F77_incX);
21}
F77_zdscal
#define F77_zdscal(...)
Definition cblas_f77.h:258

◆ cblas_zgbmv()

void cblas_zgbmv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT KL,
const CBLAS_INT KU,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_zgbmv.c.

18{
19 char TA;
20#ifdef F77_CHAR
21 F77_CHAR F77_TA;
22#else
23 #define F77_TA &TA
24#endif
25#ifdef F77_INT
26 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
27 F77_INT F77_KL=KL,F77_KU=KU;
28#else
29 #define F77_M M
30 #define F77_N N
31 #define F77_lda lda
32 #define F77_KL KL
33 #define F77_KU KU
34 #define F77_incX incx
35 #define F77_incY incY
36#endif
37 CBLAS_INT n, i=0, incx=incX;
38 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
39 double ALPHA[2],BETA[2];
40 CBLAS_INT tincY, tincx;
41 double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
42 extern int CBLAS_CallFromC;
43 extern int RowMajorStrg;
44 RowMajorStrg = 0;
45
46 CBLAS_CallFromC = 1;
47 if (layout == CblasColMajor)
48 {
49 if (TransA == CblasNoTrans) TA = 'N';
50 else if (TransA == CblasTrans) TA = 'T';
51 else if (TransA == CblasConjTrans) TA = 'C';
52 else
53 {
54 cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
55 CBLAS_CallFromC = 0;
56 RowMajorStrg = 0;
57 return;
58 }
59 #ifdef F77_CHAR
60 F77_TA = C2F_CHAR(&TA);
61 #endif
62 F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
63 A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
64 }
65 else if (layout == CblasRowMajor)
66 {
67 RowMajorStrg = 1;
68 if (TransA == CblasNoTrans) TA = 'T';
69 else if (TransA == CblasTrans) TA = 'N';
70 else if (TransA == CblasConjTrans)
71 {
72 ALPHA[0]= *alp;
73 ALPHA[1]= -alp[1];
74 BETA[0]= *bet;
75 BETA[1]= -bet[1];
76 TA = 'N';
77 if (M > 0)
78 {
79 n = M << 1;
80 x = malloc(n*sizeof(double));
81 tx = x;
82
83 if( incX > 0 ) {
84 i = incX << 1 ;
85 tincx = 2;
86 st= x+n;
87 } else {
88 i = incX *(-2);
89 tincx = -2;
90 st = x-2;
91 x +=(n-2);
92 }
93 do
94 {
95 *x = *xx;
96 x[1] = -xx[1];
97 x += tincx ;
98 xx += i;
99 }
100 while (x != st);
101 x=tx;
102
103 #ifdef F77_INT
104 F77_incX = 1;
105 #else
106 incx = 1;
107 #endif
108
109 if( incY > 0 )
110 tincY = incY;
111 else
112 tincY = -incY;
113
114 y++;
115
116 if (N > 0)
117 {
118 i = tincY << 1;
119 n = i * N ;
120 st = y + n;
121 do {
122 *y = -(*y);
123 y += i;
124 } while(y != st);
125 y -= n;
126 }
127 }
128 else x = (double *) X;
129
130
131 }
132 else
133 {
134 cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
135 CBLAS_CallFromC = 0;
136 RowMajorStrg = 0;
137 return;
138 }
139 #ifdef F77_CHAR
140 F77_TA = C2F_CHAR(&TA);
141 #endif
142 if (TransA == CblasConjTrans)
143 F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
145 else
146 F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
147 A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
148 if (TransA == CblasConjTrans)
149 {
150 if (x != X) free(x);
151 if (N > 0)
152 {
153 do
154 {
155 *y = -(*y);
156 y += i;
157 }
158 while (y != st);
159 }
160 }
161 }
162 else cblas_xerbla(1, "cblas_zgbmv", "Illegal layout setting, %d\n", layout);
163 CBLAS_CallFromC = 0;
164 RowMajorStrg = 0;
165 return;
166}
F77_zgbmv
#define F77_zgbmv(...)
Definition cblas_f77.h:338

◆ cblas_zgemm()

void cblas_zgemm ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zgemm.c.

17{
18 char TA, TB;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_TB;
21#else
22 #define F77_TA &TA
23 #define F77_TB &TB
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_K K
33 #define F77_lda lda
34 #define F77_ldb ldb
35 #define F77_ldc ldc
36#endif
37
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41 CBLAS_CallFromC = 1;
42
43 if( layout == CblasColMajor )
44 {
45 if(TransA == CblasTrans) TA='T';
46 else if ( TransA == CblasConjTrans ) TA='C';
47 else if ( TransA == CblasNoTrans ) TA='N';
48 else
49 {
50 cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
51 CBLAS_CallFromC = 0;
52 RowMajorStrg = 0;
53 return;
54 }
55
56 if(TransB == CblasTrans) TB='T';
57 else if ( TransB == CblasConjTrans ) TB='C';
58 else if ( TransB == CblasNoTrans ) TB='N';
59 else
60 {
61 cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66
67 #ifdef F77_CHAR
68 F77_TA = C2F_CHAR(&TA);
69 F77_TB = C2F_CHAR(&TB);
70 #endif
71
72 F77_zgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, alpha, A,
73 &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if(TransA == CblasTrans) TB='T';
78 else if ( TransA == CblasConjTrans ) TB='C';
79 else if ( TransA == CblasNoTrans ) TB='N';
80 else
81 {
82 cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
83 CBLAS_CallFromC = 0;
84 RowMajorStrg = 0;
85 return;
86 }
87 if(TransB == CblasTrans) TA='T';
88 else if ( TransB == CblasConjTrans ) TA='C';
89 else if ( TransB == CblasNoTrans ) TA='N';
90 else
91 {
92 cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
93 CBLAS_CallFromC = 0;
94 RowMajorStrg = 0;
95 return;
96 }
97 #ifdef F77_CHAR
98 F77_TA = C2F_CHAR(&TA);
99 F77_TB = C2F_CHAR(&TB);
100 #endif
101
102 F77_zgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B,
103 &F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
104 }
105 else cblas_xerbla(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109}
F77_zgemm
#define F77_zgemm(...)
Definition cblas_f77.h:389

◆ cblas_zgemv()

void cblas_zgemv ( CBLAS_LAYOUT layout,
CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_zgemv.c.

17{
18 char TA;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA;
21#else
22 #define F77_TA &TA
23#endif
24#ifdef F77_INT
25 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_M M
28 #define F77_N N
29 #define F77_lda lda
30 #define F77_incX incx
31 #define F77_incY incY
32#endif
33
34 CBLAS_INT n, i=0, incx=incX;
35 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
36 double ALPHA[2],BETA[2];
37 CBLAS_INT tincY, tincx;
38 double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
39 extern int CBLAS_CallFromC;
40 extern int RowMajorStrg;
41 RowMajorStrg = 0;
42
43 CBLAS_CallFromC = 1;
44
45 if (layout == CblasColMajor)
46 {
47 if (TransA == CblasNoTrans) TA = 'N';
48 else if (TransA == CblasTrans) TA = 'T';
49 else if (TransA == CblasConjTrans) TA = 'C';
50 else
51 {
52 cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
53 CBLAS_CallFromC = 0;
54 RowMajorStrg = 0;
55 return;
56 }
57 #ifdef F77_CHAR
58 F77_TA = C2F_CHAR(&TA);
59 #endif
60 F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
61 beta, Y, &F77_incY);
62 }
63 else if (layout == CblasRowMajor)
64 {
65 RowMajorStrg = 1;
66
67 if (TransA == CblasNoTrans) TA = 'T';
68 else if (TransA == CblasTrans) TA = 'N';
69 else if (TransA == CblasConjTrans)
70 {
71 ALPHA[0]= *alp;
72 ALPHA[1]= -alp[1];
73 BETA[0]= *bet;
74 BETA[1]= -bet[1];
75 TA = 'N';
76 if (M > 0)
77 {
78 n = M << 1;
79 x = malloc(n*sizeof(double));
80 tx = x;
81 if( incX > 0 ) {
82 i = incX << 1 ;
83 tincx = 2;
84 st= x+n;
85 } else {
86 i = incX *(-2);
87 tincx = -2;
88 st = x-2;
89 x +=(n-2);
90 }
91
92 do
93 {
94 *x = *xx;
95 x[1] = -xx[1];
96 x += tincx ;
97 xx += i;
98 }
99 while (x != st);
100 x=tx;
101
102 #ifdef F77_INT
103 F77_incX = 1;
104 #else
105 incx = 1;
106 #endif
107
108 if(incY > 0)
109 tincY = incY;
110 else
111 tincY = -incY;
112
113 y++;
114
115 if (N > 0)
116 {
117 i = tincY << 1;
118 n = i * N ;
119 st = y + n;
120 do {
121 *y = -(*y);
122 y += i;
123 } while(y != st);
124 y -= n;
125 }
126 }
127 else x = (double *) X;
128 }
129 else
130 {
131 cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
132 CBLAS_CallFromC = 0;
133 RowMajorStrg = 0;
134 return;
135 }
136 #ifdef F77_CHAR
137 F77_TA = C2F_CHAR(&TA);
138 #endif
139 if (TransA == CblasConjTrans)
140 F77_zgemv(F77_TA, &F77_N, &F77_M, ALPHA, A, &F77_lda, x,
141 &F77_incX, BETA, Y, &F77_incY);
142 else
143 F77_zgemv(F77_TA, &F77_N, &F77_M, alpha, A, &F77_lda, x,
144 &F77_incX, beta, Y, &F77_incY);
145
146 if (TransA == CblasConjTrans)
147 {
148 if (x != (double *)X) free(x);
149 if (N > 0)
150 {
151 do
152 {
153 *y = -(*y);
154 y += i;
155 }
156 while (y != st);
157 }
158 }
159 }
160 else cblas_xerbla(1, "cblas_zgemv", "Illegal layout setting, %d\n", layout);
161 CBLAS_CallFromC = 0;
162 RowMajorStrg = 0;
163 return;
164}
F77_zgemv
#define F77_zgemv(...)
Definition cblas_f77.h:337

◆ cblas_zgerc()

void cblas_zgerc ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_zgerc.c.

15{
16#ifdef F77_INT
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_M M
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incy
23 #define F77_lda lda
24#endif
25
26 CBLAS_INT n, i, tincy, incy=incY;
27 double *y=(double *)Y, *yy=(double *)Y, *ty, *st;
28
29 extern int CBLAS_CallFromC;
30 extern int RowMajorStrg;
31 RowMajorStrg = 0;
32
33 CBLAS_CallFromC = 1;
34 if (layout == CblasColMajor)
35 {
36 F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
37 &F77_lda);
38 } else if (layout == CblasRowMajor)
39 {
40 RowMajorStrg = 1;
41 if (N > 0)
42 {
43 n = N << 1;
44 y = malloc(n*sizeof(double));
45
46 ty = y;
47 if( incY > 0 ) {
48 i = incY << 1;
49 tincy = 2;
50 st= y+n;
51 } else {
52 i = incY *(-2);
53 tincy = -2;
54 st = y-2;
55 y +=(n-2);
56 }
57 do
58 {
59 *y = *yy;
60 y[1] = -yy[1];
61 y += tincy ;
62 yy += i;
63 }
64 while (y != st);
65 y = ty;
66
67 #ifdef F77_INT
68 F77_incY = 1;
69 #else
70 incy = 1;
71 #endif
72 }
73 else y = (double *) Y;
74
75 F77_zgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
76 &F77_lda);
77 if(Y!=y)
78 free(y);
79
80 } else cblas_xerbla(1, "cblas_zgerc", "Illegal layout setting, %d\n", layout);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84}
F77_zgeru
#define F77_zgeru(...)
Definition cblas_f77.h:273
F77_zgerc
#define F77_zgerc(...)
Definition cblas_f77.h:272

◆ cblas_zgeru()

void cblas_zgeru ( CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 10 of file cblas_zgeru.c.

13{
14#ifdef F77_INT
15 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_M M
18 #define F77_N N
19 #define F77_incX incX
20 #define F77_incY incY
21 #define F77_lda lda
22#endif
23
24 extern int CBLAS_CallFromC;
25 extern int RowMajorStrg;
26 RowMajorStrg = 0;
27 CBLAS_CallFromC = 1;
28
29 if (layout == CblasColMajor)
30 {
31 F77_zgeru( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
32 &F77_lda);
33 }
34 else if (layout == CblasRowMajor)
35 {
36 RowMajorStrg = 1;
37 F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
38 &F77_lda);
39 }
40 else cblas_xerbla(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout);
41 CBLAS_CallFromC = 0;
42 RowMajorStrg = 0;
43 return;
44}

◆ cblas_zhbmv()

void cblas_zhbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_zhbmv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_K K
29 #define F77_lda lda
30 #define F77_incX incx
31 #define F77_incY incY
32#endif
33 CBLAS_INT n, i=0, incx=incX;
34 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
35 double ALPHA[2],BETA[2];
36 CBLAS_INT tincY, tincx;
37 double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
38 extern int CBLAS_CallFromC;
39 extern int RowMajorStrg;
40 RowMajorStrg = 0;
41
42 CBLAS_CallFromC = 1;
43 if (layout == CblasColMajor)
44 {
45 if (Uplo == CblasLower) UL = 'L';
46 else if (Uplo == CblasUpper) UL = 'U';
47 else
48 {
49 cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo );
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 #ifdef F77_CHAR
55 F77_UL = C2F_CHAR(&UL);
56 #endif
57 F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
58 &F77_incX, beta, Y, &F77_incY);
59 }
60 else if (layout == CblasRowMajor)
61 {
62 RowMajorStrg = 1;
63 ALPHA[0]= *alp;
64 ALPHA[1]= -alp[1];
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
67
68 if (N > 0)
69 {
70 n = N << 1;
71 x = malloc(n*sizeof(double));
72
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1 ;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95
96 #ifdef F77_INT
97 F77_incX = 1;
98 #else
99 incx = 1;
100 #endif
101
102 if(incY > 0)
103 tincY = incY;
104 else
105 tincY = -incY;
106 y++;
107
108 i = tincY << 1;
109 n = i * N ;
110 st = y + n;
111 do {
112 *y = -(*y);
113 y += i;
114 } while(y != st);
115 y -= n;
116 } else
117 x = (double *) X;
118
119 if (Uplo == CblasUpper) UL = 'L';
120 else if (Uplo == CblasLower) UL = 'U';
121 else
122 {
123 cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo);
124 CBLAS_CallFromC = 0;
125 RowMajorStrg = 0;
126 return;
127 }
128 #ifdef F77_CHAR
129 F77_UL = C2F_CHAR(&UL);
130 #endif
131 F77_zhbmv(F77_UL, &F77_N, &F77_K, ALPHA,
132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
133 }
134 else
135 {
136 cblas_xerbla(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout);
137 CBLAS_CallFromC = 0;
138 RowMajorStrg = 0;
139 return;
140 }
141 if ( layout == CblasRowMajor )
142 {
143 RowMajorStrg = 1;
144 if(X!=x)
145 free(x);
146 if (N > 0)
147 {
148 do
149 {
150 *y = -(*y);
151 y += i;
152 }
153 while (y != st);
154 }
155 }
156 CBLAS_CallFromC = 0;
157 RowMajorStrg = 0;
158 return;
159}
F77_zhbmv
#define F77_zhbmv(...)
Definition cblas_f77.h:340

◆ cblas_zhemm()

void cblas_zhemm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zhemm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
67 #endif
68
69 F77_zhemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
70 B, &F77_ldb, beta, C, &F77_ldc);
71 } else if (layout == CblasRowMajor)
72 {
73 RowMajorStrg = 1;
74 if( Side == CblasRight) SD='L';
75 else if ( Side == CblasLeft ) SD='R';
76 else
77 {
78 cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 if( Uplo == CblasUpper) UL='L';
85 else if ( Uplo == CblasLower ) UL='U';
86 else
87 {
88 cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
89 CBLAS_CallFromC = 0;
90 RowMajorStrg = 0;
91 return;
92 }
93
94 #ifdef F77_CHAR
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
97 #endif
98
99 F77_zhemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A,
100 &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
101 }
102 else cblas_xerbla(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106}
F77_zhemm
#define F77_zhemm(...)
Definition cblas_f77.h:391

◆ cblas_zhemv()

void cblas_zhemv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_zhemv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_lda lda
29 #define F77_incX incx
30 #define F77_incY incY
31#endif
32 CBLAS_INT n, i=0, incx=incX;
33 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
34 double ALPHA[2],BETA[2];
35 CBLAS_INT tincY, tincx;
36 double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40
41
42 CBLAS_CallFromC = 1;
43 if (layout == CblasColMajor)
44 {
45 if (Uplo == CblasUpper) UL = 'U';
46 else if (Uplo == CblasLower) UL = 'L';
47 else
48 {
49 cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo );
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54 #ifdef F77_CHAR
55 F77_UL = C2F_CHAR(&UL);
56 #endif
57 F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
58 beta, Y, &F77_incY);
59 }
60 else if (layout == CblasRowMajor)
61 {
62 RowMajorStrg = 1;
63 ALPHA[0]= *alp;
64 ALPHA[1]= -alp[1];
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
67
68 if (N > 0)
69 {
70 n = N << 1;
71 x = malloc(n*sizeof(double));
72
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1 ;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95
96 #ifdef F77_INT
97 F77_incX = 1;
98 #else
99 incx = 1;
100 #endif
101
102 if(incY > 0)
103 tincY = incY;
104 else
105 tincY = -incY;
106 y++;
107
108 i = tincY << 1;
109 n = i * N ;
110 st = y + n;
111 do {
112 *y = -(*y);
113 y += i;
114 } while(y != st);
115 y -= n;
116 } else
117 x = (double *) X;
118
119
120 if (Uplo == CblasUpper) UL = 'L';
121 else if (Uplo == CblasLower) UL = 'U';
122 else
123 {
124 cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo);
125 CBLAS_CallFromC = 0;
126 RowMajorStrg = 0;
127 return;
128 }
129 #ifdef F77_CHAR
130 F77_UL = C2F_CHAR(&UL);
131 #endif
132 F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
133 BETA, Y, &F77_incY);
134 }
135 else
136 {
137 cblas_xerbla(1, "cblas_zhemv","Illegal layout setting, %d\n", layout);
138 CBLAS_CallFromC = 0;
139 RowMajorStrg = 0;
140 return;
141 }
142 if ( layout == CblasRowMajor )
143 {
144 RowMajorStrg = 1;
145 if ( X != x )
146 free(x);
147 if (N > 0)
148 {
149 do
150 {
151 *y = -(*y);
152 y += i;
153 }
154 while (y != st);
155 }
156 }
157 CBLAS_CallFromC = 0;
158 RowMajorStrg = 0;
159 return;
160}
F77_zhemv
#define F77_zhemv(...)
Definition cblas_f77.h:339

◆ cblas_zher()

void cblas_zher ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const void * X,
const CBLAS_INT incX,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_zher.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_lda lda
28 #define F77_incX incx
29#endif
30 CBLAS_INT n, i, tincx, incx=incX;
31 double *x=(double *)X, *xx=(double *)X, *tx, *st;
32
33 extern int CBLAS_CallFromC;
34 extern int RowMajorStrg;
35 RowMajorStrg = 0;
36
37 CBLAS_CallFromC = 1;
38 if (layout == CblasColMajor)
39 {
40 if (Uplo == CblasLower) UL = 'L';
41 else if (Uplo == CblasUpper) UL = 'U';
42 else
43 {
44 cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo );
45 CBLAS_CallFromC = 0;
46 RowMajorStrg = 0;
47 return;
48 }
49 #ifdef F77_CHAR
50 F77_UL = C2F_CHAR(&UL);
51 #endif
52
53 F77_zher(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
54
55 } else if (layout == CblasRowMajor)
56 {
57 RowMajorStrg = 1;
58 if (Uplo == CblasUpper) UL = 'L';
59 else if (Uplo == CblasLower) UL = 'U';
60 else
61 {
62 cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 #endif
70 if (N > 0)
71 {
72 n = N << 1;
73 x = malloc(n*sizeof(double));
74 tx = x;
75 if( incX > 0 ) {
76 i = incX << 1 ;
77 tincx = 2;
78 st= x+n;
79 } else {
80 i = incX *(-2);
81 tincx = -2;
82 st = x-2;
83 x +=(n-2);
84 }
85 do
86 {
87 *x = *xx;
88 x[1] = -xx[1];
89 x += tincx ;
90 xx += i;
91 }
92 while (x != st);
93 x=tx;
94
95 #ifdef F77_INT
96 F77_incX = 1;
97 #else
98 incx = 1;
99 #endif
100 }
101 else x = (double *) X;
102 F77_zher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda);
103 } else cblas_xerbla(1, "cblas_zher", "Illegal layout setting, %d\n", layout);
104 if(X!=x)
105 free(x);
106
107 CBLAS_CallFromC = 0;
108 RowMajorStrg = 0;
109 return;
110}
F77_zher
#define F77_zher(...)
Definition cblas_f77.h:348

◆ cblas_zher2()

void cblas_zher2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * A,
const CBLAS_INT lda )

Definition at line 12 of file cblas_zher2.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
25#else
26 #define F77_N N
27 #define F77_lda lda
28 #define F77_incX incx
29 #define F77_incY incy
30#endif
31 CBLAS_INT n, i, j, tincx, tincy, incx=incX, incy=incY;
32 double *x=(double *)X, *xx=(double *)X, *y=(double *)Y,
33 *yy=(double *)Y, *tx, *ty, *stx, *sty;
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasLower) UL = 'L';
43 else if (Uplo == CblasUpper) UL = 'U';
44 else
45 {
46 cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo );
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 #ifdef F77_CHAR
52 F77_UL = C2F_CHAR(&UL);
53 #endif
54
55 F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX,
56 Y, &F77_incY, A, &F77_lda);
57
58 } else if (layout == CblasRowMajor)
59 {
60 RowMajorStrg = 1;
61 if (Uplo == CblasUpper) UL = 'L';
62 else if (Uplo == CblasLower) UL = 'U';
63 else
64 {
65 cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 #endif
73 if (N > 0)
74 {
75 n = N << 1;
76 x = malloc(n*sizeof(double));
77 y = malloc(n*sizeof(double));
78 tx = x;
79 ty = y;
80 if( incX > 0 ) {
81 i = incX << 1 ;
82 tincx = 2;
83 stx= x+n;
84 } else {
85 i = incX *(-2);
86 tincx = -2;
87 stx = x-2;
88 x +=(n-2);
89 }
90
91 if( incY > 0 ) {
92 j = incY << 1;
93 tincy = 2;
94 sty= y+n;
95 } else {
96 j = incY *(-2);
97 tincy = -2;
98 sty = y-2;
99 y +=(n-2);
100 }
101
102 do
103 {
104 *x = *xx;
105 x[1] = -xx[1];
106 x += tincx ;
107 xx += i;
108 }
109 while (x != stx);
110
111 do
112 {
113 *y = *yy;
114 y[1] = -yy[1];
115 y += tincy ;
116 yy += j;
117 }
118 while (y != sty);
119
120 x=tx;
121 y=ty;
122
123 #ifdef F77_INT
124 F77_incX = 1;
125 F77_incY = 1;
126 #else
127 incx = 1;
128 incy = 1;
129 #endif
130 } else
131 {
132 x = (double *) X;
133 y = (double *) Y;
134 }
135 F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
136 &F77_incX, A, &F77_lda);
137 }
138 else
139 {
140 cblas_xerbla(1, "cblas_zher2", "Illegal layout setting, %d\n", layout);
141 CBLAS_CallFromC = 0;
142 RowMajorStrg = 0;
143 return;
144 }
145 if(X!=x)
146 free(x);
147 if(Y!=y)
148 free(y);
149
150 CBLAS_CallFromC = 0;
151 RowMajorStrg = 0;
152 return;
153}
F77_zher2
#define F77_zher2(...)
Definition cblas_f77.h:349

◆ cblas_zher2k()

void cblas_zher2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const double beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zher2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TR, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 double ALPHA[2];
40 const double *alp=(double *)alpha;
41
42 CBLAS_CallFromC = 1;
43 RowMajorStrg = 0;
44
45 if( layout == CblasColMajor )
46 {
47
48 if( Uplo == CblasUpper) UL='U';
49 else if ( Uplo == CblasLower ) UL='L';
50 else
51 {
52 cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
53 CBLAS_CallFromC = 0;
54 RowMajorStrg = 0;
55 return;
56 }
57
58 if( Trans == CblasTrans) TR ='T';
59 else if ( Trans == CblasConjTrans ) TR='C';
60 else if ( Trans == CblasNoTrans ) TR='N';
61 else
62 {
63 cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
64 CBLAS_CallFromC = 0;
65 RowMajorStrg = 0;
66 return;
67 }
68
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TR = C2F_CHAR(&TR);
72 #endif
73
74 F77_zher2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
75 } else if (layout == CblasRowMajor)
76 {
77 RowMajorStrg = 1;
78
79 if( Uplo == CblasUpper) UL='L';
80 else if ( Uplo == CblasLower ) UL='U';
81 else
82 {
83 cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
84 CBLAS_CallFromC = 0;
85 RowMajorStrg = 0;
86 return;
87 }
88 if( Trans == CblasTrans) TR ='N';
89 else if ( Trans == CblasConjTrans ) TR='N';
90 else if ( Trans == CblasNoTrans ) TR='C';
91 else
92 {
93 cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
94 CBLAS_CallFromC = 0;
95 RowMajorStrg = 0;
96 return;
97 }
98 #ifdef F77_CHAR
99 F77_UL = C2F_CHAR(&UL);
100 F77_TR = C2F_CHAR(&TR);
101 #endif
102
103 ALPHA[0]= *alp;
104 ALPHA[1]= -alp[1];
105 F77_zher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
106 } else cblas_xerbla(1, "cblas_zher2k", "Illegal layout setting, %d\n", layout);
107 CBLAS_CallFromC = 0;
108 RowMajorStrg = 0;
109 return;
110}
F77_zher2k
#define F77_zher2k(...)
Definition cblas_f77.h:395

◆ cblas_zherk()

void cblas_zherk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const void * A,
const CBLAS_INT lda,
const double beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zherk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42 if( Uplo == CblasUpper) UL='U';
43 else if ( Uplo == CblasLower ) UL='L';
44 else
45 {
46 cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51
52 if( Trans == CblasTrans) TR ='T';
53 else if ( Trans == CblasConjTrans ) TR='C';
54 else if ( Trans == CblasNoTrans ) TR='N';
55 else
56 {
57 cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 #ifdef F77_CHAR
64 F77_UL = C2F_CHAR(&UL);
65 F77_TR = C2F_CHAR(&TR);
66 #endif
67
68 F77_zherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
69 &beta, C, &F77_ldc);
70 } else if (layout == CblasRowMajor)
71 {
72 RowMajorStrg = 1;
73 if( Uplo == CblasUpper) UL='L';
74 else if ( Uplo == CblasLower ) UL='U';
75 else
76 {
77 cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
78 CBLAS_CallFromC = 0;
79 RowMajorStrg = 0;
80 return;
81 }
82 if( Trans == CblasTrans) TR ='N';
83 else if ( Trans == CblasConjTrans ) TR='N';
84 else if ( Trans == CblasNoTrans ) TR='C';
85 else
86 {
87 cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
88 CBLAS_CallFromC = 0;
89 RowMajorStrg = 0;
90 return;
91 }
92
93 #ifdef F77_CHAR
94 F77_UL = C2F_CHAR(&UL);
95 F77_SD = C2F_CHAR(&SD);
96 #endif
97
98 F77_zherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
99 &beta, C, &F77_ldc);
100 }
101 else cblas_xerbla(1, "cblas_zherk", "Illegal layout setting, %d\n", layout);
102 CBLAS_CallFromC = 0;
103 RowMajorStrg = 0;
104 return;
105}
F77_zherk
#define F77_zherk(...)
Definition cblas_f77.h:393

◆ cblas_zhpmv()

void cblas_zhpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * Ap,
const void * X,
const CBLAS_INT incX,
const void * beta,
void * Y,
const CBLAS_INT incY )

Definition at line 12 of file cblas_zhpmv.c.

17{
18 char UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_UL;
21#else
22 #define F77_UL &UL
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_incX incx
29 #define F77_incY incY
30#endif
31 CBLAS_INT n, i=0, incx=incX;
32 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
33 double ALPHA[2],BETA[2];
34 CBLAS_INT tincY, tincx;
35 double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
36 extern int CBLAS_CallFromC;
37 extern int RowMajorStrg;
38 RowMajorStrg = 0;
39
40 CBLAS_CallFromC = 1;
41 if (layout == CblasColMajor)
42 {
43 if (Uplo == CblasLower) UL = 'L';
44 else if (Uplo == CblasUpper) UL = 'U';
45 else
46 {
47 cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo );
48 CBLAS_CallFromC = 0;
49 RowMajorStrg = 0;
50 return;
51 }
52 #ifdef F77_CHAR
53 F77_UL = C2F_CHAR(&UL);
54 #endif
55 F77_zhpmv(F77_UL, &F77_N, alpha, AP, X,
56 &F77_incX, beta, Y, &F77_incY);
57 }
58 else if (layout == CblasRowMajor)
59 {
60 RowMajorStrg = 1;
61 ALPHA[0]= *alp;
62 ALPHA[1]= -alp[1];
63 BETA[0]= *bet;
64 BETA[1]= -bet[1];
65
66 if (N > 0)
67 {
68 n = N << 1;
69 x = malloc(n*sizeof(double));
70
71 tx = x;
72 if( incX > 0 ) {
73 i = incX << 1;
74 tincx = 2;
75 st= x+n;
76 } else {
77 i = incX *(-2);
78 tincx = -2;
79 st = x-2;
80 x +=(n-2);
81 }
82
83 do
84 {
85 *x = *xx;
86 x[1] = -xx[1];
87 x += tincx ;
88 xx += i;
89 }
90 while (x != st);
91 x=tx;
92
93
94 #ifdef F77_INT
95 F77_incX = 1;
96 #else
97 incx = 1;
98 #endif
99
100 if(incY > 0)
101 tincY = incY;
102 else
103 tincY = -incY;
104 y++;
105
106 i = tincY << 1;
107 n = i * N ;
108 st = y + n;
109 do {
110 *y = -(*y);
111 y += i;
112 } while(y != st);
113 y -= n;
114 } else
115 x = (double *) X;
116
117
118 if (Uplo == CblasUpper) UL = 'L';
119 else if (Uplo == CblasLower) UL = 'U';
120 else
121 {
122 cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo );
123 CBLAS_CallFromC = 0;
124 RowMajorStrg = 0;
125 return;
126 }
127 #ifdef F77_CHAR
128 F77_UL = C2F_CHAR(&UL);
129 #endif
130
131 F77_zhpmv(F77_UL, &F77_N, ALPHA,
132 AP, x, &F77_incX, BETA, Y, &F77_incY);
133 }
134 else
135 {
136 cblas_xerbla(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout);
137 CBLAS_CallFromC = 0;
138 RowMajorStrg = 0;
139 return;
140 }
141 if ( layout == CblasRowMajor )
142 {
143 RowMajorStrg = 1;
144 if(X!=x)
145 free(x);
146 if (N > 0)
147 {
148 do
149 {
150 *y = -(*y);
151 y += i;
152 }
153 while (y != st);
154 }
155 }
156
157 CBLAS_CallFromC = 0;
158 RowMajorStrg = 0;
159 return;
160}
F77_zhpmv
#define F77_zhpmv(...)
Definition cblas_f77.h:341

◆ cblas_zhpr()

void cblas_zhpr ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const double alpha,
const void * X,
const CBLAS_INT incX,
void * A )

Definition at line 12 of file cblas_zhpr.c.

15{
16 char UL;
17#ifdef F77_CHAR
18 F77_CHAR F77_UL;
19#else
20 #define F77_UL &UL
21#endif
22
23#ifdef F77_INT
24 F77_INT F77_N=N, F77_incX=incX;
25#else
26 #define F77_N N
27 #define F77_incX incx
28#endif
29 CBLAS_INT n, i, tincx, incx=incX;
30 double *x=(double *)X, *xx=(double *)X, *tx, *st;
31
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasLower) UL = 'L';
40 else if (Uplo == CblasUpper) UL = 'U';
41 else
42 {
43 cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo );
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 #ifdef F77_CHAR
49 F77_UL = C2F_CHAR(&UL);
50 #endif
51
52 F77_zhpr(F77_UL, &F77_N, &alpha, X, &F77_incX, A);
53
54 } else if (layout == CblasRowMajor)
55 {
56 RowMajorStrg = 1;
57 if (Uplo == CblasUpper) UL = 'L';
58 else if (Uplo == CblasLower) UL = 'U';
59 else
60 {
61 cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo);
62 CBLAS_CallFromC = 0;
63 RowMajorStrg = 0;
64 return;
65 }
66 #ifdef F77_CHAR
67 F77_UL = C2F_CHAR(&UL);
68 #endif
69 if (N > 0)
70 {
71 n = N << 1;
72 x = malloc(n*sizeof(double));
73 tx = x;
74 if( incX > 0 ) {
75 i = incX << 1;
76 tincx = 2;
77 st= x+n;
78 } else {
79 i = incX *(-2);
80 tincx = -2;
81 st = x-2;
82 x +=(n-2);
83 }
84 do
85 {
86 *x = *xx;
87 x[1] = -xx[1];
88 x += tincx ;
89 xx += i;
90 }
91 while (x != st);
92 x=tx;
93 #ifdef F77_INT
94 F77_incX = 1;
95 #else
96 incx = 1;
97 #endif
98 }
99 else x = (double *) X;
100
101 F77_zhpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A);
102
103 } else
104 {
105 cblas_xerbla(1, "cblas_zhpr","Illegal layout setting, %d\n", layout);
106 CBLAS_CallFromC = 0;
107 RowMajorStrg = 0;
108 return;
109 }
110 if(X!=x)
111 free(x);
112 CBLAS_CallFromC = 0;
113 RowMajorStrg = 0;
114 return;
115}
F77_zhpr
#define F77_zhpr(...)
Definition cblas_f77.h:350

◆ cblas_zhpr2()

void cblas_zhpr2 ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
const CBLAS_INT N,
const void * alpha,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * Ap )

Definition at line 12 of file cblas_zhpr2.c.

16{
17 char UL;
18#ifdef F77_CHAR
19 F77_CHAR F77_UL;
20#else
21 #define F77_UL &UL
22#endif
23
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
26#else
27 #define F77_N N
28 #define F77_incX incx
29 #define F77_incY incy
30#endif
31 CBLAS_INT n, i, j, incx=incX, incy=incY;
32 double *x=(double *)X, *xx=(double *)X, *y=(double *)Y,
33 *yy=(double *)Y, *stx, *sty;
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasLower) UL = 'L';
43 else if (Uplo == CblasUpper) UL = 'U';
44 else
45 {
46 cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo );
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 #ifdef F77_CHAR
52 F77_UL = C2F_CHAR(&UL);
53 #endif
54
55 F77_zhpr2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, Ap);
56
57 } else if (layout == CblasRowMajor)
58 {
59 RowMajorStrg = 1;
60 if (Uplo == CblasUpper) UL = 'L';
61 else if (Uplo == CblasLower) UL = 'U';
62 else
63 {
64 cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo);
65 CBLAS_CallFromC = 0;
66 RowMajorStrg = 0;
67 return;
68 }
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 #endif
72 if (N > 0)
73 {
74 n = N << 1;
75 x = malloc(n*sizeof(double));
76 y = malloc(n*sizeof(double));
77 stx = x + n;
78 sty = y + n;
79 if( incX > 0 )
80 i = incX << 1;
81 else
82 i = incX *(-2);
83
84 if( incY > 0 )
85 j = incY << 1;
86 else
87 j = incY *(-2);
88 do
89 {
90 *x = *xx;
91 x[1] = -xx[1];
92 x += 2;
93 xx += i;
94 } while (x != stx);
95 do
96 {
97 *y = *yy;
98 y[1] = -yy[1];
99 y += 2;
100 yy += j;
101 }
102 while (y != sty);
103 x -= n;
104 y -= n;
105
106 #ifdef F77_INT
107 if(incX > 0 )
108 F77_incX = 1;
109 else
110 F77_incX = -1;
111
112 if(incY > 0 )
113 F77_incY = 1;
114 else
115 F77_incY = -1;
116
117 #else
118 if(incX > 0 )
119 incx = 1;
120 else
121 incx = -1;
122
123 if(incY > 0 )
124 incy = 1;
125 else
126 incy = -1;
127 #endif
128
129 } else
130 {
131 x = (double *) X;
132 y = (void *) Y;
133 }
134 F77_zhpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap);
135 }
136 else
137 {
138 cblas_xerbla(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout);
139 CBLAS_CallFromC = 0;
140 RowMajorStrg = 0;
141 return;
142 }
143 if(X!=x)
144 free(x);
145 if(Y!=y)
146 free(y);
147 CBLAS_CallFromC = 0;
148 RowMajorStrg = 0;
149 return;
150}
F77_zhpr2
#define F77_zhpr2(...)
Definition cblas_f77.h:351

◆ cblas_zscal()

void cblas_zscal ( const CBLAS_INT N,
const void * alpha,
void * X,
const CBLAS_INT incX )

Definition at line 11 of file cblas_zscal.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX;
16#else
17 #define F77_N N
18 #define F77_incX incX
19#endif
20 F77_zscal( &F77_N, alpha, X, &F77_incX);
21}
F77_zscal
#define F77_zscal(...)
Definition cblas_f77.h:259

◆ cblas_zswap()

void cblas_zswap ( const CBLAS_INT N,
void * X,
const CBLAS_INT incX,
void * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_zswap.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_zswap( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
F77_zswap
#define F77_zswap(...)
Definition cblas_f77.h:252

◆ cblas_zsymm()

void cblas_zsymm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zsymm.c.

17{
18 char SD, UL;
19#ifdef F77_CHAR
20 F77_CHAR F77_SD, F77_UL;
21#else
22 #define F77_SD &SD
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_M M
31 #define F77_N N
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53
54 if( Uplo == CblasUpper) UL='U';
55 else if ( Uplo == CblasLower ) UL='L';
56 else
57 {
58 cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64 #ifdef F77_CHAR
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
67 #endif
68
69 F77_zsymm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
70 B, &F77_ldb, beta, C, &F77_ldc);
71 } else if (layout == CblasRowMajor)
72 {
73 RowMajorStrg = 1;
74 if( Side == CblasRight) SD='L';
75 else if ( Side == CblasLeft ) SD='R';
76 else
77 {
78 cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 if( Uplo == CblasUpper) UL='L';
85 else if ( Uplo == CblasLower ) UL='U';
86 else
87 {
88 cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
89 CBLAS_CallFromC = 0;
90 RowMajorStrg = 0;
91 return;
92 }
93
94 #ifdef F77_CHAR
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
97 #endif
98
99 F77_zsymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
100 B, &F77_ldb, beta, C, &F77_ldc);
101 }
102 else cblas_xerbla(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout);
103 CBLAS_CallFromC = 0;
104 RowMajorStrg = 0;
105 return;
106}
F77_zsymm
#define F77_zsymm(...)
Definition cblas_f77.h:390

◆ cblas_zsyr2k()

void cblas_zsyr2k ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * B,
const CBLAS_INT ldb,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zsyr2k.c.

17{
18 char UL, TR;
19#ifdef F77_CHAR
20 F77_CHAR F77_TR, F77_UL;
21#else
22 #define F77_TR &TR
23 #define F77_UL &UL
24#endif
25
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_ldb=ldb;
28 F77_INT F77_ldc=ldc;
29#else
30 #define F77_N N
31 #define F77_K K
32 #define F77_lda lda
33 #define F77_ldb ldb
34 #define F77_ldc ldc
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Uplo == CblasUpper) UL='U';
46 else if ( Uplo == CblasLower ) UL='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Trans == CblasTrans) TR ='T';
56 else if ( Trans == CblasConjTrans ) TR='C';
57 else if ( Trans == CblasNoTrans ) TR='N';
58 else
59 {
60 cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
61 CBLAS_CallFromC = 0;
62 RowMajorStrg = 0;
63 return;
64 }
65
66
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TR = C2F_CHAR(&TR);
70 #endif
71
72 F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
73 B, &F77_ldb, beta, C, &F77_ldc);
74 } else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if( Uplo == CblasUpper) UL='L';
78 else if ( Uplo == CblasLower ) UL='U';
79 else
80 {
81 cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86 if( Trans == CblasTrans) TR ='N';
87 else if ( Trans == CblasConjTrans ) TR='N';
88 else if ( Trans == CblasNoTrans ) TR='T';
89 else
90 {
91 cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
92 CBLAS_CallFromC = 0;
93 RowMajorStrg = 0;
94 return;
95 }
96
97 #ifdef F77_CHAR
98 F77_UL = C2F_CHAR(&UL);
99 F77_TR = C2F_CHAR(&TR);
100 #endif
101
102 F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
103 }
104 else cblas_xerbla(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout);
105 CBLAS_CallFromC = 0;
106 RowMajorStrg = 0;
107 return;
108}
F77_zsyr2k
#define F77_zsyr2k(...)
Definition cblas_f77.h:394

◆ cblas_zsyrk()

void cblas_zsyrk ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
const void * alpha,
const void * A,
const CBLAS_INT lda,
const void * beta,
void * C,
const CBLAS_INT ldc )

Definition at line 12 of file cblas_zsyrk.c.

16{
17 char UL, TR;
18#ifdef F77_CHAR
19 F77_CHAR F77_TR, F77_UL;
20#else
21 #define F77_TR &TR
22 #define F77_UL &UL
23#endif
24
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_K=K, F77_lda=lda;
27 F77_INT F77_ldc=ldc;
28#else
29 #define F77_N N
30 #define F77_K K
31 #define F77_lda lda
32 #define F77_ldc ldc
33#endif
34
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38 CBLAS_CallFromC = 1;
39
40 if( layout == CblasColMajor )
41 {
42
43 if( Uplo == CblasUpper) UL='U';
44 else if ( Uplo == CblasLower ) UL='L';
45 else
46 {
47 cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
48 CBLAS_CallFromC = 0;
49 RowMajorStrg = 0;
50 return;
51 }
52
53 if( Trans == CblasTrans) TR ='T';
54 else if ( Trans == CblasConjTrans ) TR='C';
55 else if ( Trans == CblasNoTrans ) TR='N';
56 else
57 {
58 cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
59 CBLAS_CallFromC = 0;
60 RowMajorStrg = 0;
61 return;
62 }
63
64
65 #ifdef F77_CHAR
66 F77_UL = C2F_CHAR(&UL);
67 F77_TR = C2F_CHAR(&TR);
68 #endif
69
70 F77_zsyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
71 beta, C, &F77_ldc);
72 } else if (layout == CblasRowMajor)
73 {
74 RowMajorStrg = 1;
75 if( Uplo == CblasUpper) UL='L';
76 else if ( Uplo == CblasLower ) UL='U';
77 else
78 {
79 cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
80 CBLAS_CallFromC = 0;
81 RowMajorStrg = 0;
82 return;
83 }
84 if( Trans == CblasTrans) TR ='N';
85 else if ( Trans == CblasConjTrans ) TR='N';
86 else if ( Trans == CblasNoTrans ) TR='T';
87 else
88 {
89 cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
90 CBLAS_CallFromC = 0;
91 RowMajorStrg = 0;
92 return;
93 }
94
95 #ifdef F77_CHAR
96 F77_UL = C2F_CHAR(&UL);
97 F77_TR = C2F_CHAR(&TR);
98 #endif
99
100 F77_zsyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
101 beta, C, &F77_ldc);
102 }
103 else cblas_xerbla(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout);
104 CBLAS_CallFromC = 0;
105 RowMajorStrg = 0;
106 return;
107}
F77_zsyrk
#define F77_zsyrk(...)
Definition cblas_f77.h:392

◆ cblas_ztbmv()

void cblas_ztbmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztbmv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 double *st=0, *x=(double *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ztbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if(incX > 0)
99 tincX = incX;
100 else
101 tincX = -incX;
102 i = tincX << 1;
103 n = i * N;
104 x++;
105 st = x + n;
106 do
107 {
108 *x = -(*x);
109 x+= i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137
138 F77_ztbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
139 &F77_incX);
140
141 if (TransA == CblasConjTrans)
142 {
143 if (N > 0)
144 {
145 do
146 {
147 *x = -(*x);
148 x += i;
149 }
150 while (x != st);
151 }
152 }
153 }
154 else cblas_xerbla(1, "cblas_ztbmv", "Illegal layout setting, %d\n", layout);
155 CBLAS_CallFromC = 0;
156 RowMajorStrg = 0;
157 return;
158}
F77_ztbmv
#define F77_ztbmv(...)
Definition cblas_f77.h:343

◆ cblas_ztbsv()

void cblas_ztbsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const CBLAS_INT K,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztbsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_K K
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 double *st=0,*x=(double *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ztbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if ( incX > 0 )
99 tincX = incX;
100 else
101 tincX = -incX;
102
103 n = N*2*(tincX);
104
105 x++;
106
107 st=x+n;
108
109 i = tincX << 1;
110 do
111 {
112 *x = -(*x);
113 x+=i;
114 }
115 while (x != st);
116 x -= n;
117 }
118 }
119 else
120 {
121 cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
122 CBLAS_CallFromC = 0;
123 RowMajorStrg = 0;
124 return;
125 }
126
127 if (Diag == CblasUnit) DI = 'U';
128 else if (Diag == CblasNonUnit) DI = 'N';
129 else
130 {
131 cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
132 CBLAS_CallFromC = 0;
133 RowMajorStrg = 0;
134 return;
135 }
136 #ifdef F77_CHAR
137 F77_UL = C2F_CHAR(&UL);
138 F77_TA = C2F_CHAR(&TA);
139 F77_DI = C2F_CHAR(&DI);
140 #endif
141
142 F77_ztbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
143 &F77_incX);
144
145 if (TransA == CblasConjTrans)
146 {
147 if (N > 0)
148 {
149 do
150 {
151 *x = -(*x);
152 x+= i;
153 }
154 while (x != st);
155 }
156 }
157 }
158 else cblas_xerbla(1, "cblas_ztbsv", "Illegal layout setting, %d\n", layout);
159 CBLAS_CallFromC = 0;
160 RowMajorStrg = 0;
161 return;
162}
F77_ztbsv
#define F77_ztbsv(...)
Definition cblas_f77.h:346

◆ cblas_ztpmv()

void cblas_ztpmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * Ap,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztpmv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 CBLAS_INT n, i=0, tincX;
31 double *st=0,*x=(double *)X;
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 if (TransA == CblasNoTrans) TA = 'N';
49 else if (TransA == CblasTrans) TA = 'T';
50 else if (TransA == CblasConjTrans) TA = 'C';
51 else
52 {
53 cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
54 CBLAS_CallFromC = 0;
55 RowMajorStrg = 0;
56 return;
57 }
58 if (Diag == CblasUnit) DI = 'U';
59 else if (Diag == CblasNonUnit) DI = 'N';
60 else
61 {
62 cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TA = C2F_CHAR(&TA);
70 F77_DI = C2F_CHAR(&DI);
71 #endif
72 F77_ztpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
73 }
74 else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if (Uplo == CblasUpper) UL = 'L';
78 else if (Uplo == CblasLower) UL = 'U';
79 else
80 {
81 cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86
87 if (TransA == CblasNoTrans) TA = 'T';
88 else if (TransA == CblasTrans) TA = 'N';
89 else if (TransA == CblasConjTrans)
90 {
91 TA = 'N';
92 if ( N > 0)
93 {
94 if(incX > 0)
95 tincX = incX;
96 else
97 tincX = -incX;
98 i = tincX << 1;
99 n = i * N;
100 x++;
101 st = x + n;
102 do
103 {
104 *x = -(*x);
105 x += i;
106 }
107 while (x != st);
108 x -= n;
109 }
110 }
111 else
112 {
113 cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
114 CBLAS_CallFromC = 0;
115 RowMajorStrg = 0;
116 return;
117 }
118
119 if (Diag == CblasUnit) DI = 'U';
120 else if (Diag == CblasNonUnit) DI = 'N';
121 else
122 {
123 cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
124 CBLAS_CallFromC = 0;
125 RowMajorStrg = 0;
126 return;
127 }
128 #ifdef F77_CHAR
129 F77_UL = C2F_CHAR(&UL);
130 F77_TA = C2F_CHAR(&TA);
131 F77_DI = C2F_CHAR(&DI);
132 #endif
133
134 F77_ztpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
135 if (TransA == CblasConjTrans)
136 {
137 if (N > 0)
138 {
139 do
140 {
141 *x = -(*x);
142 x += i;
143 }
144 while (x != st);
145 }
146 }
147 }
148 else cblas_xerbla(1, "cblas_ztpmv", "Illegal layout setting, %d\n", layout);
149 CBLAS_CallFromC = 0;
150 RowMajorStrg = 0;
151 return;
152}
F77_ztpmv
#define F77_ztpmv(...)
Definition cblas_f77.h:344

◆ cblas_ztpsv()

void cblas_ztpsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * Ap,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztpsv.c.

13{
14 char TA;
15 char UL;
16 char DI;
17#ifdef F77_CHAR
18 F77_CHAR F77_TA, F77_UL, F77_DI;
19#else
20 #define F77_TA &TA
21 #define F77_UL &UL
22 #define F77_DI &DI
23#endif
24#ifdef F77_INT
25 F77_INT F77_N=N, F77_incX=incX;
26#else
27 #define F77_N N
28 #define F77_incX incX
29#endif
30 CBLAS_INT n, i=0, tincX;
31 double *st=0, *x=(double*)X;
32 extern int CBLAS_CallFromC;
33 extern int RowMajorStrg;
34 RowMajorStrg = 0;
35
36 CBLAS_CallFromC = 1;
37 if (layout == CblasColMajor)
38 {
39 if (Uplo == CblasUpper) UL = 'U';
40 else if (Uplo == CblasLower) UL = 'L';
41 else
42 {
43 cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
44 CBLAS_CallFromC = 0;
45 RowMajorStrg = 0;
46 return;
47 }
48 if (TransA == CblasNoTrans) TA = 'N';
49 else if (TransA == CblasTrans) TA = 'T';
50 else if (TransA == CblasConjTrans) TA = 'C';
51 else
52 {
53 cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
54 CBLAS_CallFromC = 0;
55 RowMajorStrg = 0;
56 return;
57 }
58 if (Diag == CblasUnit) DI = 'U';
59 else if (Diag == CblasNonUnit) DI = 'N';
60 else
61 {
62 cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
63 CBLAS_CallFromC = 0;
64 RowMajorStrg = 0;
65 return;
66 }
67 #ifdef F77_CHAR
68 F77_UL = C2F_CHAR(&UL);
69 F77_TA = C2F_CHAR(&TA);
70 F77_DI = C2F_CHAR(&DI);
71 #endif
72 F77_ztpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
73 }
74 else if (layout == CblasRowMajor)
75 {
76 RowMajorStrg = 1;
77 if (Uplo == CblasUpper) UL = 'L';
78 else if (Uplo == CblasLower) UL = 'U';
79 else
80 {
81 cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
82 CBLAS_CallFromC = 0;
83 RowMajorStrg = 0;
84 return;
85 }
86
87 if (TransA == CblasNoTrans) TA = 'T';
88 else if (TransA == CblasTrans) TA = 'N';
89 else if (TransA == CblasConjTrans)
90 {
91 TA = 'N';
92 if ( N > 0)
93 {
94 if ( incX > 0 )
95 tincX = incX;
96 else
97 tincX = -incX;
98
99 n = N*2*(tincX);
100
101 x++;
102
103 st=x+n;
104
105 i = tincX << 1;
106 do
107 {
108 *x = -(*x);
109 x+=i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137
138 F77_ztpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
139
140 if (TransA == CblasConjTrans)
141 {
142 if (N > 0)
143 {
144 do
145 {
146 *x = -(*x);
147 x += i;
148 }
149 while (x != st);
150 }
151 }
152 }
153 else cblas_xerbla(1, "cblas_ztpsv", "Illegal layout setting, %d\n", layout);
154 CBLAS_CallFromC = 0;
155 RowMajorStrg = 0;
156 return;
157}
F77_ztpsv
#define F77_ztpsv(...)
Definition cblas_f77.h:347

◆ cblas_ztrmm()

void cblas_ztrmm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
void * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_ztrmm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44 if( Side == CblasRight ) SD='R';
45 else if ( Side == CblasLeft ) SD='L';
46 else
47 {
48 cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
49 CBLAS_CallFromC = 0;
50 RowMajorStrg = 0;
51 return;
52 }
53 if( Uplo == CblasUpper ) UL='U';
54 else if ( Uplo == CblasLower ) UL='L';
55 else
56 {
57 cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
58 CBLAS_CallFromC = 0;
59 RowMajorStrg = 0;
60 return;
61 }
62
63 if( TransA == CblasTrans ) TA ='T';
64 else if ( TransA == CblasConjTrans ) TA='C';
65 else if ( TransA == CblasNoTrans ) TA='N';
66 else
67 {
68 cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
69 CBLAS_CallFromC = 0;
70 RowMajorStrg = 0;
71 return;
72 }
73
74 if( Diag == CblasUnit ) DI='U';
75 else if ( Diag == CblasNonUnit ) DI='N';
76 else
77 {
78 cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
79 CBLAS_CallFromC = 0;
80 RowMajorStrg = 0;
81 return;
82 }
83
84 #ifdef F77_CHAR
85 F77_UL = C2F_CHAR(&UL);
86 F77_TA = C2F_CHAR(&TA);
87 F77_SD = C2F_CHAR(&SD);
88 F77_DI = C2F_CHAR(&DI);
89 #endif
90
91 F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, alpha, A, &F77_lda, B, &F77_ldb);
92 } else if (layout == CblasRowMajor)
93 {
94 RowMajorStrg = 1;
95 if( Side == CblasRight ) SD='L';
96 else if ( Side == CblasLeft ) SD='R';
97 else
98 {
99 cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
100 CBLAS_CallFromC = 0;
101 RowMajorStrg = 0;
102 return;
103 }
104
105 if( Uplo == CblasUpper ) UL='L';
106 else if ( Uplo == CblasLower ) UL='U';
107 else
108 {
109 cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
110 CBLAS_CallFromC = 0;
111 RowMajorStrg = 0;
112 return;
113 }
114
115 if( TransA == CblasTrans ) TA ='T';
116 else if ( TransA == CblasConjTrans ) TA='C';
117 else if ( TransA == CblasNoTrans ) TA='N';
118 else
119 {
120 cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
121 CBLAS_CallFromC = 0;
122 RowMajorStrg = 0;
123 return;
124 }
125
126 if( Diag == CblasUnit ) DI='U';
127 else if ( Diag == CblasNonUnit ) DI='N';
128 else
129 {
130 cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
131 CBLAS_CallFromC = 0;
132 RowMajorStrg = 0;
133 return;
134 }
135
136 #ifdef F77_CHAR
137 F77_UL = C2F_CHAR(&UL);
138 F77_TA = C2F_CHAR(&TA);
139 F77_SD = C2F_CHAR(&SD);
140 F77_DI = C2F_CHAR(&DI);
141 #endif
142
143 F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
144 }
145 else cblas_xerbla(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout);
146 CBLAS_CallFromC = 0;
147 RowMajorStrg = 0;
148 return;
149}
F77_ztrmm
#define F77_ztrmm(...)
Definition cblas_f77.h:396

◆ cblas_ztrmv()

void cblas_ztrmv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztrmv.c.

15{
16 char TA;
17 char UL;
18 char DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_DI &DI
25#endif
26#ifdef F77_INT
27 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
28#else
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_incX incX
32#endif
33 CBLAS_INT n, i=0, tincX;
34 double *st=0,*x=(double *)X;
35 extern int CBLAS_CallFromC;
36 extern int RowMajorStrg;
37 RowMajorStrg = 0;
38
39 CBLAS_CallFromC = 1;
40 if (layout == CblasColMajor)
41 {
42 if (Uplo == CblasUpper) UL = 'U';
43 else if (Uplo == CblasLower) UL = 'L';
44 else
45 {
46 cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
47 CBLAS_CallFromC = 0;
48 RowMajorStrg = 0;
49 return;
50 }
51 if (TransA == CblasNoTrans) TA = 'N';
52 else if (TransA == CblasTrans) TA = 'T';
53 else if (TransA == CblasConjTrans) TA = 'C';
54 else
55 {
56 cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
57 CBLAS_CallFromC = 0;
58 RowMajorStrg = 0;
59 return;
60 }
61 if (Diag == CblasUnit) DI = 'U';
62 else if (Diag == CblasNonUnit) DI = 'N';
63 else
64 {
65 cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
66 CBLAS_CallFromC = 0;
67 RowMajorStrg = 0;
68 return;
69 }
70 #ifdef F77_CHAR
71 F77_UL = C2F_CHAR(&UL);
72 F77_TA = C2F_CHAR(&TA);
73 F77_DI = C2F_CHAR(&DI);
74 #endif
75 F77_ztrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
76 &F77_incX);
77 }
78 else if (layout == CblasRowMajor)
79 {
80 RowMajorStrg = 1;
81 if (Uplo == CblasUpper) UL = 'L';
82 else if (Uplo == CblasLower) UL = 'U';
83 else
84 {
85 cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
86 CBLAS_CallFromC = 0;
87 RowMajorStrg = 0;
88 return;
89 }
90
91 if (TransA == CblasNoTrans) TA = 'T';
92 else if (TransA == CblasTrans) TA = 'N';
93 else if (TransA == CblasConjTrans)
94 {
95 TA = 'N';
96 if ( N > 0)
97 {
98 if(incX > 0)
99 tincX = incX;
100 else
101 tincX = -incX;
102 i = tincX << 1;
103 n = i * N;
104 x++;
105 st = x + n;
106 do
107 {
108 *x = -(*x);
109 x += i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137 F77_ztrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
138 &F77_incX);
139 if (TransA == CblasConjTrans)
140 {
141 if (N > 0)
142 {
143 do
144 {
145 *x = -(*x);
146 x += i;
147 }
148 while (x != st);
149 }
150 }
151 }
152 else cblas_xerbla(1, "cblas_ztrmv", "Illegal layout setting, %d\n", layout);
153 CBLAS_CallFromC = 0;
154 RowMajorStrg = 0;
155 return;
156}
F77_ztrmv
#define F77_ztrmv(...)
Definition cblas_f77.h:342

◆ cblas_ztrsm()

void cblas_ztrsm ( CBLAS_LAYOUT layout,
CBLAS_SIDE Side,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
const void * alpha,
const void * A,
const CBLAS_INT lda,
void * B,
const CBLAS_INT ldb )

Definition at line 12 of file cblas_ztrsm.c.

17{
18 char UL, TA, SD, DI;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
21#else
22 #define F77_TA &TA
23 #define F77_UL &UL
24 #define F77_SD &SD
25 #define F77_DI &DI
26#endif
27
28#ifdef F77_INT
29 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_ldb=ldb;
30#else
31 #define F77_M M
32 #define F77_N N
33 #define F77_lda lda
34 #define F77_ldb ldb
35#endif
36
37 extern int CBLAS_CallFromC;
38 extern int RowMajorStrg;
39 RowMajorStrg = 0;
40 CBLAS_CallFromC = 1;
41
42 if( layout == CblasColMajor )
43 {
44
45 if( Side == CblasRight) SD='R';
46 else if ( Side == CblasLeft ) SD='L';
47 else
48 {
49 cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
50 CBLAS_CallFromC = 0;
51 RowMajorStrg = 0;
52 return;
53 }
54
55 if( Uplo == CblasUpper) UL='U';
56 else if ( Uplo == CblasLower ) UL='L';
57 else
58 {
59 cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
60 CBLAS_CallFromC = 0;
61 RowMajorStrg = 0;
62 return;
63 }
64
65 if( TransA == CblasTrans) TA ='T';
66 else if ( TransA == CblasConjTrans ) TA='C';
67 else if ( TransA == CblasNoTrans ) TA='N';
68 else
69 {
70 cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
71 CBLAS_CallFromC = 0;
72 RowMajorStrg = 0;
73 return;
74 }
75
76 if( Diag == CblasUnit ) DI='U';
77 else if ( Diag == CblasNonUnit ) DI='N';
78 else
79 {
80 cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
81 CBLAS_CallFromC = 0;
82 RowMajorStrg = 0;
83 return;
84 }
85
86 #ifdef F77_CHAR
87 F77_UL = C2F_CHAR(&UL);
88 F77_TA = C2F_CHAR(&TA);
89 F77_SD = C2F_CHAR(&SD);
90 F77_DI = C2F_CHAR(&DI);
91 #endif
92
93 F77_ztrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, alpha, A,
94 &F77_lda, B, &F77_ldb);
95 } else if (layout == CblasRowMajor)
96 {
97 RowMajorStrg = 1;
98
99 if( Side == CblasRight) SD='L';
100 else if ( Side == CblasLeft ) SD='R';
101 else
102 {
103 cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
104 CBLAS_CallFromC = 0;
105 RowMajorStrg = 0;
106 return;
107 }
108
109 if( Uplo == CblasUpper) UL='L';
110 else if ( Uplo == CblasLower ) UL='U';
111 else
112 {
113 cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
114 CBLAS_CallFromC = 0;
115 RowMajorStrg = 0;
116 return;
117 }
118
119 if( TransA == CblasTrans) TA ='T';
120 else if ( TransA == CblasConjTrans ) TA='C';
121 else if ( TransA == CblasNoTrans ) TA='N';
122 else
123 {
124 cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
125 CBLAS_CallFromC = 0;
126 RowMajorStrg = 0;
127 return;
128 }
129
130 if( Diag == CblasUnit ) DI='U';
131 else if ( Diag == CblasNonUnit ) DI='N';
132 else
133 {
134 cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
135 CBLAS_CallFromC = 0;
136 RowMajorStrg = 0;
137 return;
138 }
139
140 #ifdef F77_CHAR
141 F77_UL = C2F_CHAR(&UL);
142 F77_TA = C2F_CHAR(&TA);
143 F77_SD = C2F_CHAR(&SD);
144 F77_DI = C2F_CHAR(&DI);
145 #endif
146
147
148 F77_ztrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A,
149 &F77_lda, B, &F77_ldb);
150 }
151 else cblas_xerbla(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout);
152 CBLAS_CallFromC = 0;
153 RowMajorStrg = 0;
154 return;
155}
F77_ztrsm
#define F77_ztrsm(...)
Definition cblas_f77.h:397

◆ cblas_ztrsv()

void cblas_ztrsv ( CBLAS_LAYOUT layout,
CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA,
CBLAS_DIAG Diag,
const CBLAS_INT N,
const void * A,
const CBLAS_INT lda,
void * X,
const CBLAS_INT incX )

Definition at line 10 of file cblas_ztrsv.c.

14{
15 char TA;
16 char UL;
17 char DI;
18#ifdef F77_CHAR
19 F77_CHAR F77_TA, F77_UL, F77_DI;
20#else
21 #define F77_TA &TA
22 #define F77_UL &UL
23 #define F77_DI &DI
24#endif
25#ifdef F77_INT
26 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
27#else
28 #define F77_N N
29 #define F77_lda lda
30 #define F77_incX incX
31#endif
32 CBLAS_INT n, i=0, tincX;
33 double *st=0,*x=(double *)X;
34 extern int CBLAS_CallFromC;
35 extern int RowMajorStrg;
36 RowMajorStrg = 0;
37
38 CBLAS_CallFromC = 1;
39 if (layout == CblasColMajor)
40 {
41 if (Uplo == CblasUpper) UL = 'U';
42 else if (Uplo == CblasLower) UL = 'L';
43 else
44 {
45 cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
46 CBLAS_CallFromC = 0;
47 RowMajorStrg = 0;
48 return;
49 }
50 if (TransA == CblasNoTrans) TA = 'N';
51 else if (TransA == CblasTrans) TA = 'T';
52 else if (TransA == CblasConjTrans) TA = 'C';
53 else
54 {
55 cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
56 CBLAS_CallFromC = 0;
57 RowMajorStrg = 0;
58 return;
59 }
60 if (Diag == CblasUnit) DI = 'U';
61 else if (Diag == CblasNonUnit) DI = 'N';
62 else
63 {
64 cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
65 CBLAS_CallFromC = 0;
66 RowMajorStrg = 0;
67 return;
68 }
69 #ifdef F77_CHAR
70 F77_UL = C2F_CHAR(&UL);
71 F77_TA = C2F_CHAR(&TA);
72 F77_DI = C2F_CHAR(&DI);
73 #endif
74 F77_ztrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
75 &F77_incX);
76 }
77 else if (layout == CblasRowMajor)
78 {
79 RowMajorStrg = 1;
80 if (Uplo == CblasUpper) UL = 'L';
81 else if (Uplo == CblasLower) UL = 'U';
82 else
83 {
84 cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
85 CBLAS_CallFromC = 0;
86 RowMajorStrg = 0;
87 return;
88 }
89
90 if (TransA == CblasNoTrans) TA = 'T';
91 else if (TransA == CblasTrans) TA = 'N';
92 else if (TransA == CblasConjTrans)
93 {
94 TA = 'N';
95 if ( N > 0)
96 {
97 if ( incX > 0 )
98 tincX = incX;
99 else
100 tincX = -incX;
101
102 n = N*2*(tincX);
103 x++;
104 st=x+n;
105 i = tincX << 1;
106 do
107 {
108 *x = -(*x);
109 x+=i;
110 }
111 while (x != st);
112 x -= n;
113 }
114 }
115 else
116 {
117 cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
118 CBLAS_CallFromC = 0;
119 RowMajorStrg = 0;
120 return;
121 }
122
123 if (Diag == CblasUnit) DI = 'U';
124 else if (Diag == CblasNonUnit) DI = 'N';
125 else
126 {
127 cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
128 CBLAS_CallFromC = 0;
129 RowMajorStrg = 0;
130 return;
131 }
132 #ifdef F77_CHAR
133 F77_UL = C2F_CHAR(&UL);
134 F77_TA = C2F_CHAR(&TA);
135 F77_DI = C2F_CHAR(&DI);
136 #endif
137 F77_ztrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
138 &F77_incX);
139 if (TransA == CblasConjTrans)
140 {
141 if (N > 0)
142 {
143 do
144 {
145 *x = -(*x);
146 x += i;
147 }
148 while (x != st);
149 }
150 }
151 }
152 else cblas_xerbla(1, "cblas_ztrsv", "Illegal layout setting, %d\n", layout);
153 CBLAS_CallFromC = 0;
154 RowMajorStrg = 0;
155 return;
156}
F77_ztrsv
#define F77_ztrsv(...)
Definition cblas_f77.h:345