mirror of
https://gitlab.com/libeigen/eigen.git
synced 2025-04-22 01:29:35 +08:00
Remove r_cnjg due to conflicts with f2c.
This commit is contained in:
parent
9229cfa822
commit
06b45905e7
@ -18,7 +18,7 @@ set(EigenBlas_SRCS single.cpp double.cpp complex_single.cpp complex_double.cpp
|
|||||||
f2c/lsame.c f2c/dspmv.c f2c/ssbmv.c f2c/chbmv.c
|
f2c/lsame.c f2c/dspmv.c f2c/ssbmv.c f2c/chbmv.c
|
||||||
f2c/sspmv.c f2c/zhbmv.c f2c/chpmv.c f2c/dsbmv.c
|
f2c/sspmv.c f2c/zhbmv.c f2c/chpmv.c f2c/dsbmv.c
|
||||||
f2c/zhpmv.c f2c/dtbmv.c f2c/stbmv.c f2c/ctbmv.c
|
f2c/zhpmv.c f2c/dtbmv.c f2c/stbmv.c f2c/ctbmv.c
|
||||||
f2c/ztbmv.c f2c/d_cnjg.c f2c/r_cnjg.c
|
f2c/ztbmv.c
|
||||||
)
|
)
|
||||||
|
|
||||||
if (EIGEN_Fortran_COMPILER_WORKS)
|
if (EIGEN_Fortran_COMPILER_WORKS)
|
||||||
|
@ -12,6 +12,11 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void r_cnjg(complex *r, complex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *x,
|
/* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *x,
|
||||||
integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len) {
|
integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len) {
|
||||||
/* System generated locals */
|
/* System generated locals */
|
||||||
@ -19,9 +24,6 @@
|
|||||||
real r__1;
|
real r__1;
|
||||||
complex q__1, q__2, q__3, q__4;
|
complex q__1, q__2, q__3, q__4;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void r_cnjg(complex *, complex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
|
integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
|
||||||
complex temp1, temp2;
|
complex temp1, temp2;
|
||||||
|
@ -12,6 +12,11 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void r_cnjg(complex *r, complex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx,
|
/* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx,
|
||||||
complex *beta, complex *y, integer *incy, ftnlen uplo_len) {
|
complex *beta, complex *y, integer *incy, ftnlen uplo_len) {
|
||||||
/* System generated locals */
|
/* System generated locals */
|
||||||
@ -19,9 +24,6 @@
|
|||||||
real r__1;
|
real r__1;
|
||||||
complex q__1, q__2, q__3, q__4;
|
complex q__1, q__2, q__3, q__4;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void r_cnjg(complex *, complex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
|
integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
|
||||||
complex temp1, temp2;
|
complex temp1, temp2;
|
||||||
|
@ -12,15 +12,17 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void r_cnjg(complex *r, complex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda,
|
/* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda,
|
||||||
complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len) {
|
complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len) {
|
||||||
/* System generated locals */
|
/* System generated locals */
|
||||||
integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
|
integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
|
||||||
complex q__1, q__2, q__3;
|
complex q__1, q__2, q__3;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void r_cnjg(complex *, complex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, l, ix, jx, kx, info;
|
integer i__, j, l, ix, jx, kx, info;
|
||||||
complex temp;
|
complex temp;
|
||||||
|
@ -1,6 +0,0 @@
|
|||||||
#include "datatypes.h"
|
|
||||||
|
|
||||||
void d_cnjg(doublecomplex *r, doublecomplex *z) {
|
|
||||||
r->r = z->r;
|
|
||||||
r->i = -(z->i);
|
|
||||||
}
|
|
@ -1,6 +0,0 @@
|
|||||||
#include "datatypes.h"
|
|
||||||
|
|
||||||
void r_cnjg(complex *r, complex *z) {
|
|
||||||
r->r = z->r;
|
|
||||||
r->i = -(z->i);
|
|
||||||
}
|
|
@ -12,6 +12,11 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void d_cnjg(doublecomplex *r, doublecomplex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda,
|
/* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda,
|
||||||
doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy,
|
doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy,
|
||||||
ftnlen uplo_len) {
|
ftnlen uplo_len) {
|
||||||
@ -20,9 +25,6 @@
|
|||||||
doublereal d__1;
|
doublereal d__1;
|
||||||
doublecomplex z__1, z__2, z__3, z__4;
|
doublecomplex z__1, z__2, z__3, z__4;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void d_cnjg(doublecomplex *, doublecomplex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
|
integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
|
||||||
doublecomplex temp1, temp2;
|
doublecomplex temp1, temp2;
|
||||||
|
@ -12,6 +12,11 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void d_cnjg(doublecomplex *r, doublecomplex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x,
|
/* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x,
|
||||||
integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len) {
|
integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len) {
|
||||||
/* System generated locals */
|
/* System generated locals */
|
||||||
@ -19,9 +24,6 @@
|
|||||||
doublereal d__1;
|
doublereal d__1;
|
||||||
doublecomplex z__1, z__2, z__3, z__4;
|
doublecomplex z__1, z__2, z__3, z__4;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void d_cnjg(doublecomplex *, doublecomplex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
|
integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
|
||||||
doublecomplex temp1, temp2;
|
doublecomplex temp1, temp2;
|
||||||
|
@ -12,15 +12,17 @@
|
|||||||
|
|
||||||
#include "datatypes.h"
|
#include "datatypes.h"
|
||||||
|
|
||||||
|
static inline void d_cnjg(doublecomplex *r, doublecomplex *z) {
|
||||||
|
r->r = z->r;
|
||||||
|
r->i = -(z->i);
|
||||||
|
}
|
||||||
|
|
||||||
/* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda,
|
/* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda,
|
||||||
doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len) {
|
doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len) {
|
||||||
/* System generated locals */
|
/* System generated locals */
|
||||||
integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
|
integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
|
||||||
doublecomplex z__1, z__2, z__3;
|
doublecomplex z__1, z__2, z__3;
|
||||||
|
|
||||||
/* Builtin functions */
|
|
||||||
void d_cnjg(doublecomplex *, doublecomplex *);
|
|
||||||
|
|
||||||
/* Local variables */
|
/* Local variables */
|
||||||
integer i__, j, l, ix, jx, kx, info;
|
integer i__, j, l, ix, jx, kx, info;
|
||||||
doublecomplex temp;
|
doublecomplex temp;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user