Fix signatures of external functions in the f2c-generated C sources
This commit is contained in:
@@ -654,11 +654,11 @@ real clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab,
|
||||
|
||||
/* Local variables */
|
||||
real absa;
|
||||
extern /* Subroutine */ int scombssq_(real *, real *);
|
||||
extern /* Subroutine */ void scombssq_(real *, real *);
|
||||
integer i__, j, l;
|
||||
extern logical lsame_(char *, char *);
|
||||
real value;
|
||||
extern /* Subroutine */ int classq_(integer *, complex *, integer *, real
|
||||
extern /* Subroutine */ void classq_(integer *, complex *, integer *, real
|
||||
*, real *);
|
||||
extern logical sisnan_(real *);
|
||||
real colssq[2], sum, ssq[2];
|
||||
|
||||
Reference in New Issue
Block a user