LAPACK  3.8.0 LAPACK: Linear Algebra PACKage

## ◆ F77_zgerc()

 void F77_zgerc ( int * layout, int * m, int * n, CBLAS_TEST_ZOMPLEX * alpha, CBLAS_TEST_ZOMPLEX * x, int * incx, CBLAS_TEST_ZOMPLEX * y, int * incy, CBLAS_TEST_ZOMPLEX * a, int * lda )

Definition at line 117 of file c_zblas2.c.

119  {
121  int i,j,LDA;
122
123  if (*layout == TEST_ROW_MJR) {
124  LDA = *n+1;
125  A=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
126  for( i=0; i<*m; i++ )
127  for( j=0; j<*n; j++ ){
128  A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
129  A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
130  }
131  cblas_zgerc( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA );
132  for( i=0; i<*m; i++ )
133  for( j=0; j<*n; j++ ){
134  a[ (*lda)*j+i ].real=A[ LDA*i+j ].real;
135  a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag;
136  }
137  free(A);
138  }
139  else if (*layout == TEST_COL_MJR)
140  cblas_zgerc( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
141  else
142  cblas_zgerc( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
143 }
#define LDA
Definition: example_user.c:12
#define UNDEFINED
Definition: cblas_test.h:19
#define TEST_ROW_MJR
Definition: cblas_test.h:12
void cblas_zgerc(CBLAS_LAYOUT layout, const int M, const int N, const void *alpha, const void *X, const int incX, const void *Y, const int incY, void *A, const int lda)
Definition: cblas_zgerc.c:12
#define TEST_COL_MJR
Definition: cblas_test.h:16
Here is the call graph for this function: