Skip to content

Commit

Permalink
Merge pull request OpenMathLib#4601 from martin-frbg/clapacklogical
Browse files Browse the repository at this point in the history 
Fix typedef of logical in the f2c-converted LAPACK C files to match INTERFACE64
  • Loading branch information
@martin-frbg
martin-frbg authored Apr 4, 2024
2 parents d277c6d + 0bd0df8 commit b41088b
Show file tree
Hide file tree
Showing 2,173 changed files with 6,725 additions and 25,616 deletions.
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/cgegs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1


/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/cgegv.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
11 changes: 0 additions & 11 deletions lapack-netlib/SRC/DEPRECATED/cgelqs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -256,14 +253,6 @@ typedef struct Namelist Namelist;
#define myhuge_(w) {HUGE_VAL}
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1
#ifdef __cplusplus
typedef logical (*L_fp)(...);
#else
typedef logical (*L_fp)();
#endif

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/cgelsx.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/cgeqpf.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1


/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
Expand Down
12 changes: 0 additions & 12 deletions lapack-netlib/SRC/DEPRECATED/cgeqrs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -256,15 +253,6 @@ typedef struct Namelist Namelist;
#define myhuge_(w) {HUGE_VAL}
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1
#ifdef __cplusplus
typedef logical (*L_fp)(...);
#else
typedef logical (*L_fp)();
#endif

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/cggsvd.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1


/*
You must link the resulting object file with the libraries:
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/cggsvp.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/clahrd.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1



/* Table of constant values */
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/clatzm.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1



/* Table of constant values */
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/ctzrqf.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1




Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/dgegs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1



/* -- translated by f2c (version 20000121).
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/dgegv.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
12 changes: 0 additions & 12 deletions lapack-netlib/SRC/DEPRECATED/dgelqs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -256,15 +253,6 @@ typedef struct Namelist Namelist;
#define myhuge_(w) {HUGE_VAL}
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1
#ifdef __cplusplus
typedef logical (*L_fp)(...);
#else
typedef logical (*L_fp)();
#endif

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/dgelsx.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
5 changes: 1 addition & 4 deletions lapack-netlib/SRC/DEPRECATED/dgeqpf.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -259,7 +256,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1


/*
You must link the resulting object file with the libraries:
Expand Down
12 changes: 0 additions & 12 deletions lapack-netlib/SRC/DEPRECATED/dgeqrs.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,9 +52,6 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;

#define TRUE_ (1)
Expand Down Expand Up @@ -256,15 +253,6 @@ typedef struct Namelist Namelist;
#define myhuge_(w) {HUGE_VAL}
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1
#ifdef __cplusplus
typedef logical (*L_fp)(...);
#else
typedef logical (*L_fp)();
#endif

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/dggsvd.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1


/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
Expand Down
6 changes: 3 additions & 3 deletions lapack-netlib/SRC/DEPRECATED/dggsvp.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef short int shortlogical;
typedef blasint logical;

typedef char logical1;
typedef char integer1;

Expand Down Expand Up @@ -259,7 +259,7 @@ typedef struct Namelist Namelist;

/* procedure parameter types for -A and -C++ */

#define F2C_proc_par_types 1

/* -- translated by f2c (version 20000121).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
Expand Down
Loading

0 comments on commit b41088b

Please sign in to comment.