devtools/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2026-04-10 11:34:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove r_cnjg due to conflicts with f2c.

Browse Source
This commit is contained in:
Antonio Sánchez
2024-02-12 23:16:03 +00:00
committed by Rasmus Munk Larsen
parent 9229cfa822
commit 06b45905e7
9 changed files with 31 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
blas/f2c/chpmv.c
View File

@@ -12,6 +12,11 @@
#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,
complex *beta, complex *y, integer *incy, ftnlen uplo_len) {
/* System generated locals */
@@ -19,9 +24,6 @@
real r__1;
complex q__1, q__2, q__3, q__4;
/* Builtin functions */
void r_cnjg(complex *, complex *);
/* Local variables */
integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
complex temp1, temp2;