aoc_2023/day24/target/debug/build/openblas-src-178f641a078e9484/stderr

83087 lines
4.4 MiB

/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
rotmg.c:108:6: warning: absolute value function 'fabsf' given an argument of type 'long double' but has parameter of type 'float' which may cause truncation of value [-Wabsolute-value]
if(ABS(dq1) > ABS(dq2))
^
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:108:6: note: use function 'fabsl' instead
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:108:17: warning: absolute value function 'fabsf' given an argument of type 'long double' but has parameter of type 'float' which may cause truncation of value [-Wabsolute-value]
if(ABS(dq1) > ABS(dq2))
^
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:108:17: note: use function 'fabsl' instead
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:177:10: warning: absolute value function 'fabsf' given an argument of type 'long double' but has parameter of type 'float' which may cause truncation of value [-Wabsolute-value]
while (ABS(*dd1) > GAMSQ) {
^
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:177:10: note: use function 'fabsl' instead
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:185:10: warning: absolute value function 'fabsf' given an argument of type 'long double' but has parameter of type 'float' which may cause truncation of value [-Wabsolute-value]
while (ABS(*dd2) <= RGAMSQ && *dd2 != ZERO) {
^
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:185:10: note: use function 'fabsl' instead
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:191:10: warning: absolute value function 'fabsf' given an argument of type 'long double' but has parameter of type 'float' which may cause truncation of value [-Wabsolute-value]
while (ABS(*dd2) > GAMSQ) {
^
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
rotmg.c:191:10: note: use function 'fabsl' instead
rotmg.c:50:16: note: expanded from macro 'ABS'
#define ABS(x) fabsf(x)
^
5 warnings generated.
ar: creating archive ../libopenblas_haswellp-r0.3.21.a
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
ztbsv_U.c:91:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_U.c:91:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
ztbsv_U.c:91:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:9: ztbsv_U.c:91:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
warning: ^
absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
ztbsv_U.c:91:21: note: use function 'fabsl' instead
ztbsv_L.c: if (fabs(ar) >= fabs(ai)){89
: ^~~~9
: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){ fabsl
^
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:9: note: use function 'fabsl' instead
ztbsv_L.c:89:9 if (fabs(ar) >= fabs(ai)){: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
^~~~
ztbsv_L.c:89:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
fabsl if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_U.c:91:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_U.c:91:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
2 warnings generated.
ztbsv_U.c:91:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_U.c:91:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_U.c:91:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztbsv_L.c:89:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztbsv_L.c:89:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
ztpsv_U.c:80:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_U.c:80:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
ztpsv_L.c:85:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_L.c:85:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_U.c:80:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_U.c:80:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_U.c:80:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){ztpsv_L.c
:85:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
^~~~ if (fabs(ar) >= fabs(ai)){
^
fabsl
ztpsv_L.c:ztpsv_U.c85:11: note: use function 'fabsl' instead
: if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
80:ztpsv_L.c:85:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:23: note: ztpsv_U.c:80:21: note: use function 'fabsl' instead
use function 'fabsl' instead if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
2 warnings generated.
ztpsv_U.c:80:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:9: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_U.c:80:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_U.c:80:21: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_L.c:85:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_L.c:85:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_L.c:85:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztpsv_L.c:85:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztpsv_L.c:85:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
ztrsv_U.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
ztrsv_L.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
2 warnings generated.
ztrsv_L.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_L.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_L.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:11: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:11: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
ztrsv_U.c:104:23: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ar) >= fabs(ai)){
^
ztrsv_U.c:104:23: note: use function 'fabsl' instead
if (fabs(ar) >= fabs(ai)){
^~~~
fabsl
2 warnings generated.
2 warnings generated.
2 warnings generated.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
parameter.c:273:7: warning: unused variable 'size' [-Wunused-variable]
int size = 16;
^
1 warning generated.
abs.c:55:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
real = fabs(real);
^
abs.c:55:9: note: use function 'fabsl' instead
real = fabs(real);
^~~~
fabsl
abs.c:56:9: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
imag = fabs(imag);
^
abs.c:56:9: note: use function 'fabsl' instead
imag = fabs(imag);
^~~~
fabsl
2 warnings generated.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
../kernel/x86_64/../generic/trsm_kernel_LT.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:55:18: warning: unused variable 'ctemp18' [-Wunused-variable]
FLOAT ctemp17, ctemp18, ctemp19, ctemp20;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:55:27: warning: unused variable 'ctemp19' [-Wunused-variable]
FLOAT ctemp17, ctemp18, ctemp19, ctemp20;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:55:36: warning: unused variable 'ctemp20' [-Wunused-variable]
FLOAT ctemp17, ctemp18, ctemp19, ctemp20;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:56:9: warning: unused variable 'ctemp21' [-Wunused-variable]
FLOAT ctemp21, ctemp22, ctemp23, ctemp24;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:56:18: warning: unused variable 'ctemp22' [-Wunused-variable]
FLOAT ctemp21, ctemp22, ctemp23, ctemp24;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:57:18: warning: unused variable 'ctemp26' [-Wunused-variable]
FLOAT ctemp25, ctemp26, ctemp27, ctemp28;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:57:27: warning: unused variable 'ctemp27' [-Wunused-variable]
FLOAT ctemp25, ctemp26, ctemp27, ctemp28;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:57:36: warning: unused variable 'ctemp28' [-Wunused-variable]
FLOAT ctemp25, ctemp26, ctemp27, ctemp28;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:58:9: warning: unused variable 'ctemp29' [-Wunused-variable]
FLOAT ctemp29, ctemp30, ctemp31, ctemp32;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:58:18: warning: unused variable 'ctemp30' [-Wunused-variable]
FLOAT ctemp29, ctemp30, ctemp31, ctemp32;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:59:18: warning: unused variable 'ctemp34' [-Wunused-variable]
FLOAT ctemp33, ctemp34, ctemp35, ctemp36;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:59:27: warning: unused variable 'ctemp35' [-Wunused-variable]
FLOAT ctemp33, ctemp34, ctemp35, ctemp36;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:59:36: warning: unused variable 'ctemp36' [-Wunused-variable]
FLOAT ctemp33, ctemp34, ctemp35, ctemp36;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:60:9: warning: unused variable 'ctemp37' [-Wunused-variable]
FLOAT ctemp37, ctemp38, ctemp39, ctemp40;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:60:18: warning: unused variable 'ctemp38' [-Wunused-variable]
FLOAT ctemp37, ctemp38, ctemp39, ctemp40;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:61:18: warning: unused variable 'ctemp42' [-Wunused-variable]
FLOAT ctemp41, ctemp42, ctemp43, ctemp44;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:61:27: warning: unused variable 'ctemp43' [-Wunused-variable]
FLOAT ctemp41, ctemp42, ctemp43, ctemp44;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:61:36: warning: unused variable 'ctemp44' [-Wunused-variable]
FLOAT ctemp41, ctemp42, ctemp43, ctemp44;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:62:9: warning: unused variable 'ctemp45' [-Wunused-variable]
FLOAT ctemp45, ctemp46, ctemp47, ctemp48;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:62:18: warning: unused variable 'ctemp46' [-Wunused-variable]
FLOAT ctemp45, ctemp46, ctemp47, ctemp48;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:63:18: warning: unused variable 'ctemp50' [-Wunused-variable]
FLOAT ctemp49, ctemp50, ctemp51, ctemp52;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:63:27: warning: unused variable 'ctemp51' [-Wunused-variable]
FLOAT ctemp49, ctemp50, ctemp51, ctemp52;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:63:36: warning: unused variable 'ctemp52' [-Wunused-variable]
FLOAT ctemp49, ctemp50, ctemp51, ctemp52;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:64:9: warning: unused variable 'ctemp53' [-Wunused-variable]
FLOAT ctemp53, ctemp54, ctemp55, ctemp56;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:64:18: warning: unused variable 'ctemp54' [-Wunused-variable]
FLOAT ctemp53, ctemp54, ctemp55, ctemp56;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:65:18: warning: unused variable 'ctemp58' [-Wunused-variable]
FLOAT ctemp57, ctemp58, ctemp59, ctemp60;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:65:27: warning: unused variable 'ctemp59' [-Wunused-variable]
FLOAT ctemp57, ctemp58, ctemp59, ctemp60;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:65:36: warning: unused variable 'ctemp60' [-Wunused-variable]
FLOAT ctemp57, ctemp58, ctemp59, ctemp60;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:66:9: warning: unused variable 'ctemp61' [-Wunused-variable]
FLOAT ctemp61, ctemp62, ctemp63, ctemp64;
^
../kernel/x86_64/dgemm_ncopy_8_skylakex.c:66:18: warning: unused variable 'ctemp62' [-Wunused-variable]
FLOAT ctemp61, ctemp62, ctemp63, ctemp64;
^
../kernel/x86_64/dtrsm_kernel_RN_haswell.c:541:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
1 warning generated.
30 warnings generated.
1 warning generated.
../kernel/x86_64/../generic/trsm_kernel_LT.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_LT.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_RN.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_RN.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
1 warning generated.
1 warning generated.
1 warning generated.
1 warning generated.
generic/ztrmm_ltcopy_8.c:47:52: warning: variable 'a08' set but not used [-Wunused-but-set-variable]
FLOAT *a01, *a02, *a03 ,*a04, *a05, *a06, *a07, *a08;
^
1 warning generated.
../kernel/x86_64/../generic/trsm_kernel_LT.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_LT.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_RN.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
../kernel/x86_64/../generic/trsm_kernel_RN.c:182:18: warning: variable 'jj' set but not used [-Wunused-but-set-variable]
BLASLONG i, j, jj;
^
1 warning generated.
1 warning generated.
1 warning generated.
1 warning generated.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
zgetf2_k.c:115:6: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(temp1) >= fabs(temp2)){
^
zgetf2_k.c:115:6: note: use function 'fabsl' instead
if (fabs(temp1) >= fabs(temp2)){
^~~~
fabsl
zgetf2_k.c:115:21: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(temp1) >= fabs(temp2)){
^
zgetf2_k.c:115:21: note: use function 'fabsl' instead
if (fabs(temp1) >= fabs(temp2)){
^~~~
fabsl
2 warnings generated.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
/bin/sh: gfortran: command not found
expr: syntax error
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
ztrti2_U.c:76:7: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ajj_r) >= fabs(ajj_i)){
^
ztrti2_U.c:76:7: note: use function 'fabsl' instead
if (fabs(ajj_r) >= fabs(ajj_i)){
^~~~
fabsl
ztrti2_U.c:76:22: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ajj_r) >= fabs(ajj_i)){
^
ztrti2_U.c:76:22: note: use function 'fabsl' instead
if (fabs(ajj_r) >= fabs(ajj_i)){
^~~~
fabsl
2 warnings generated.
ztrti2_L.c:75:7: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ajj_r) >= fabs(ajj_i)){
^
ztrti2_L.c:75:7: note: use function 'fabsl' instead
if (fabs(ajj_r) >= fabs(ajj_i)){
^~~~
fabsl
ztrti2_L.c:75:22: warning: absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]
if (fabs(ajj_r) >= fabs(ajj_i)){
^
ztrti2_L.c:75:22: note: use function 'fabsl' instead
if (fabs(ajj_r) >= fabs(ajj_i)){
^~~~
fabsl
2 warnings generated.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
spotrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spotrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spotrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spotrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spotrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spotrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spotrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spotrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spotrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spotrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgetrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgetrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgetrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgetrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgetrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgetrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgetrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgetrf2.csgbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbcon.c:282:15: sgbrfs.cwarning: :250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbbrd.c:787:34sgbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
unused function 'dpow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
static double dpow_ui(double x, integer n) {sgbrfs.c
: ^
282sgbcon.c::309:1523:: : warning: warning: '&&' within '||' [-Wlogical-op-parentheses]
unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbrfs.c:309:23: } else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
warning: ~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
warning: unused function 'cpow_ui' [-Wunused-function] ^
sgbrfs.c:337:24:static _Complex float cpow_ui(_Complex float x, integer n) { warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
^static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
sgbcon.c:337static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
^
sgbrfs.c:443:20:24: warning: unused function 'zpow_ui' [-Wunused-function]
warning: static _Complex double zpow_ui(_Complex double x, integer n) {unused function 'cdotu_' [-Wunused-function]
^
sgbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
static integer pow_ii(integer x, integer n) { ^
^sgbbrd.c:sgbrfs.c:474
:20: sgbcon.c:367:warning: 787unused function 'zdotu_' [-Wunused-function]
:3416: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {warning:
^
: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbcon.c:374sgbbrd.c:789:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
: } else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
sgbbrd.c:789:36: note: place parentheses around the '&&' expression to silence this warning
16 } else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
: warning: unused function 'smaxloc_' [-Wunused-function]
sgbbrd.c:791:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sgbbrd.c:791:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbbrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbbrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbbrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbbrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbbrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbbrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbbrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbbrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbbrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbbrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbbrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbbrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
sgbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebak.c:250:13: sgbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbtrs.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";:
270 ^:
14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {sgebak.c
^
sgbtrs.c:282:270:14: warning: unused function 'spow_ui' [-Wunused-function]
:15: warning: unused function 'dpow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgebak.c:static double dpow_ui(double x, integer n) {
^
sgbtrs.c282:15: warning: unused function 'dpow_ui' [-Wunused-function]
:static double dpow_ui(double x, integer n) {309:23: warning:
^
sgebak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static _Complex double zpow_ui(_Complex double x, integer n) {
^
^
sgebak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]sgbtrs.c
:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
static integer pow_ii(integer x, integer n) {
^
sgbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
sgebak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgebak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgebak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbtrs.c:374:static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgebak.c:16381::20 :warning: warning: unused function 'smaxloc_' [-Wunused-function]
unused function 'cdotc_' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {sgebak.c:412:20:
warning: unused function 'zdotc_' [-Wunused-function]
^
sgbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
sgebak.c ^:
474:20sgbtrs.c:: 474warning: :20: warning: unused function 'zdotu_' [-Wunused-function]
unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
sgebal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgebal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgebal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgebal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgebal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgebal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgebal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgebal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgebal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
sgebd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgebd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgebd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgebd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgebd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgebd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgebd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgebd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgebd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgebrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgebrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgebrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgebrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgebrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgebrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgebrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgebrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgebrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgebrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgecon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgecon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgecon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgecon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgecon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgecon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgecon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgecon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgecon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgecon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgecon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgecon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgees.c:824:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgees.c:824:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
sgees.c:967:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&wr[i__], &wi[i__]);
^
sgees.c:1083:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*select)(&wr[i__], &wi[i__]);
^
12 warnings generated.
sgees.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgees.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgees.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgees.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgees.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgees.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgees.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgees.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgees.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgees.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgees.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgees.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgeesx.c:891:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
sgeesx.c:891:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
sgeesx.c:898:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgeesx.c:898:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
12 warnings generated.
sgeesx.c:1058:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&wr[i__], &wi[i__]);
^
sgeesx.c:1196:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*select)(&wr[i__], &wi[i__]);
^
sgeesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
16 warnings generated.
sgeev.c:810:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgeev.c:810:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
sgeev.c:812:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgeev.c:812:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
sgeev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeevx.c:936:6: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! (wantvl && wantvr)) {
^~~~~~~~~~~~~~~~~~~~~~~
sgeevx.c:936:6: note: place parentheses around the '&&' expression to silence this warning
&& ! (wantvl && wantvr)) {
^
)
sgeevx.c:942:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgeevx.c:942:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
sgeevx.c:944:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
sgeevx.c:944:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
sgehd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgehd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgehd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgehd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgehd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgehd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgehd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgehd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgehd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgehd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgehd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgehd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgehrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgehrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgehrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgehrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgehrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgehrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgehrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgehrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgehrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgehrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgehrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgehrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgelq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgelqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgelsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
15 warnings generated.
sgelss.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelss.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelss.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelss.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelss.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelss.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelss.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelss.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelss.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelss.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelss.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelss.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeql2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeql2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeql2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeql2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeql2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeql2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeql2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeql2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeql2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeql2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeql2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeql2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgeqlf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqlf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqlf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqlf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqlf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqlf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqlf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqlf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqlf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqlf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqlf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqlf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgeqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgeqr2p.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqr2p.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqr2p.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqr2p.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqr2p.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqr2p.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqr2p.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqr2p.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqr2p.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr2p.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqr2p.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr2p.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
sgeqrfp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqrfp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqrfp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqrfp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqrfp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqrfp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqrfp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqrfp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqrfp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrfp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrfp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrfp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgerfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgerfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgerfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgerfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgerfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgerfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgerfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgerfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgerfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgerfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgerq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgerq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgerq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgerq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgerq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgerq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgerq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgerq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgerq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgerq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgerqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgerqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgerqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgerqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgerqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgerqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgerqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgerqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgerqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgerqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgerqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesdd.c:844:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~^~~~~~~~~~~~
sgesdd.c:844:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
( )
sgesdd.c:844:68: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
sgesdd.c:844:68: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
(
sgesdd.c:847:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~
sgesdd.c:847:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
sgesdd.c:847:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~~~~
sgesdd.c:847:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
sgesdd.c:848:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
wntqo && *m >= *n && *ldvt < *n) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
sgesdd.c:848:24: note: place parentheses around the '&&' expression to silence this warning
wntqo && *m >= *n && *ldvt < *n) {
^
( )
sgesc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvd.c:830:62: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
~~ ~~~~~~^~~~~~~~
sgesvd.c:830:62: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
^
( )
sgesvd.c:838:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntuas && *ldu < *m) {
~~ ~~~~~~~^~~~~~~~~~~~
sgesvd.c:838:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntuas && *ldu < *m) {
^
( )
sgesvd.c:840:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~
sgesvd.c:840:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
sgesvd.c:840:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~~~~
sgesvd.c:840:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
12 warnings generated.
sgesdd.c:762:37: warning: variable 'lwork_sorgbr_p_mm__' set but not used [-Wunused-but-set-variable]
integer ie, il, ir, bdspac, iu, lwork_sorgbr_p_mm__;
^
sgesdd.c:766:13: warning: variable 'lwork_sorgbr_q_nn__' set but not used [-Wunused-but-set-variable]
integer lwork_sorgbr_q_nn__;
^
sgesdd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesdd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesdd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesdd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesdd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesdd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesdd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesdd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesdd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesdd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesdd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesdd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgesvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvdx.c:821:10: warning: variable 'abstol' set but not used [-Wunused-but-set-variable]
real abstol;
^
sgesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvdx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgetc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgetc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgetc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgetc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgetc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgetc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgetc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgetc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgetri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {sggbak.c
^
:250:13: warning: unused variable 'junk' [-Wunused-variable]sgetri.c:282:15:
warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
static _Complex float cpow_ui(_Complex float x, integer n) {
^ ^
sgetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
sggbak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {static float spow_ui(float x, integer n) {
^
sggbak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggbak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
^
sgetri.c:350:16static _Complex float cpow_ui(_Complex float x, integer n) {
: ^
sggbak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggbak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
warning: unused function 'pow_ii' [-Wunused-function] ^
sggbak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggbak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggbak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ ^
sgetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
sggbak.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
:412static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:20static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
warning: unused function 'zdotc_' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggbak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggbak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
19 warnings generated.
12 warnings generated.
sggbal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggbal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggbal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggbal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggbal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggbal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggbal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggbal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggbal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggbal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggbal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgges.c:944:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sgges.c:944:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
sgges.c:946:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sgges.c:946:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
sgges.c:1139:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sgges.c:1240:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sgges.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgges.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgges.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgges.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgges.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgges.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgges.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgges.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgges.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgges.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgges.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgges.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgges3.c:940:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sgges3.c:940:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
sgges3.c:942:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sgges3.c:942:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
sgges3.c:1141:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sgges3.c:1241:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sgges3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgges3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgges3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgges3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgges3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgges3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgges3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgges3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgges3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgges3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgges3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgges3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggesx.c:1038:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
sggesx.c:1038:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
sggesx.c:1047:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sggesx.c:1047:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
sggesx.c:1049:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
sggesx.c:1049:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
sggesx.c:1260:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sggesx.c:1385:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
sggesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
sggev.c:880:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggev.c:880:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
sggev.c:882:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggev.c:882:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
sggev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggev3.c:879:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggev3.c:879:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
sggev3.c:881:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggev3.c:881:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
sggevx.c:1072:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggevx.c:1072:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
sggevx.c:1074:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
sggevx.c:1074:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
sggev3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggev3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggev3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggev3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggev3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggev3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggev3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggev3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggev3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggev3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggev3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggev3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
16 warnings generated.
17 warnings generated.
14 warnings generated.
sggglm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggglm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggglm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggglm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggglm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggglm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggglm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggglm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggglm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggglm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggglm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggglm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgghrd.c:820:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilq && *ldq < *n || *ldq < 1) {
~~~~^~~~~~~~~~~~ ~~
sgghrd.c:820:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilq && *ldq < *n || *ldq < 1) {
^
( )
sgghrd.c:822:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilz && *ldz < *n || *ldz < 1) {
~~~~^~~~~~~~~~~~ ~~
sgghrd.c:822:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilz && *ldz < *n || *ldz < 1) {
^
( )
14 warnings generated.
sgghrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgghrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgghrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgghrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgghrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgghrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgghrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgghrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgghrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgghrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgghrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgghrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgghd3.c:861:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantq && *ldq < *n || *ldq < 1) {
~~~~~~^~~~~~~~~~~~ ~~
sgghd3.c:861:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantq && *ldq < *n || *ldq < 1) {
^
( )
sgghd3.c:863:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantz && *ldz < *n || *ldz < 1) {
~~~~~~^~~~~~~~~~~~ ~~
sgghd3.c:863:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantz && *ldz < *n || *ldz < 1) {
^
( )
sgghd3.c:1012:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
~~~~~~~~~~~~~~~^~~ ~~
sgghd3.c:1012:42: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
^
( )
12 warnings generated.
sgghd3.c:1374:46: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
~~~~~~~~~~~~~~~^~~ ~~
sgghd3.c:1374:46: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
^
( )
sgghd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgghd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgghd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgghd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgghd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgghd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgghd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgghd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgghd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {14 warnings generated.
^
sgghd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgghd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgghd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
14 warnings generated.
sgglse.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgglse.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgglse.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgglse.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgglse.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgglse.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgglse.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgglse.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgglse.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgglse.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgglse.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgglse.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sggrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggsvd3.c:961:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvd3.c:961:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
sggsvd3.c:963:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvd3.c:963:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
sggsvd3.c:965:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvd3.c:965:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
12 warnings generated.
sggsvd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggsvd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggsvd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggsvd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggsvd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggsvd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggsvd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggsvd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggsvd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggsvd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggsvd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggsvd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sggsvp3.c:882:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvp3.c:882:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
sggsvp3.c:884:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvp3.c:884:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
sggsvp3.c:886:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sggsvp3.c:886:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
sggsvp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sggsvp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sggsvp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sggsvp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sggsvp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sggsvp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sggsvp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sggsvp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sggsvp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggsvp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sggsvp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sggsvp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgtcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgtcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgtcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgtcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgtcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgtcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgtcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgtcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
16 warnings generated.
sgtrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgtrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgtrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgtrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgtrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgtrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgtrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgtrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgtrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgtsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgtsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgtsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgtsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgtsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgtsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgtsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgtsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgtsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgtsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgtsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgtsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgtsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgtsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgtsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgtsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
sgttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgtts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgtts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgtts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgtts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgtts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgtts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgtts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgtts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgtts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgtts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgtts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
shgeqz.c:978:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || ilq && *ldq < *n) {
~~ ~~~~^~~~~~~~~~~~
shgeqz.c:978:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || ilq && *ldq < *n) {
^
( )
shgeqz.c:980:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || ilz && *ldz < *n) {
~~ ~~~~^~~~~~~~~~~~
shgeqz.c:980:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || ilz && *ldz < *n) {
^
( )
shgeqz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
shgeqz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
shgeqz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
shgeqz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
shgeqz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
shgeqz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
shgeqz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
shgeqz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
shgeqz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shgeqz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
shgeqz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shgeqz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz0.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqz0.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqz0.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqz0.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqz0.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqz0.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqz0.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqz0.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqz0.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz0.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz0.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz0.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slaqz1.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqz1.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqz1.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqz1.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqz1.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqz1.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqz1.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqz1.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqz1.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz1.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz1.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz1.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slaqz2.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqz2.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqz2.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqz2.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqz2.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqz2.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqz2.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqz2.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqz2.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz2.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz2.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz2.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slaqz4.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqz4.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqz4.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqz4.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqz4.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqz4.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqz4.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqz4.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqz4.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz4.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz4.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz4.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz3.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqz3.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqz3.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqz3.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqz3.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqz3.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqz3.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqz3.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqz3.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz3.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqz3.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqz3.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
shsein.c:889:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
shsein.c:889:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
shsein.c:891:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
shsein.c:891:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
shsein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
shsein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
shsein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
shsein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
shsein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
shsein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
shsein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
shsein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
shsein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shsein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
shsein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shsein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
shseqr.c:919:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
shseqr.c:919:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
shseqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
shseqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
shseqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
shseqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
shseqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
shseqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
shseqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
shseqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
shseqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shseqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
shseqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
shseqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slabrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slabrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slabrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slabrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slabrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slabrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slabrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slabrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slabrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slabrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slabrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slabrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slacon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slacon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slacon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slacon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slacon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slacon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slacon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slacon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slacon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slacon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
slacn2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slacn2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slacn2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slacn2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slacn2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slacn2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slacn2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slacn2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slacn2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacn2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slacn2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacn2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
16 warnings generated.
slaexc.c:787:8: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
~~~~^~~ ~~
slaexc.c:787:8: note: place parentheses around the '+' expression to silence this warning
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
^
( )
slaexc.c:787:41: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
~~~~^~~ ~~
slaexc.c:787:41: note: place parentheses around the '+' expression to silence this warning
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
^
( )
slaexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slags2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slags2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slags2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slags2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slags2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slags2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slags2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slags2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slags2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slags2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slags2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slags2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slag2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slag2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slag2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slag2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slag2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slag2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slag2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slag2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slag2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slag2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slag2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slag2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagtm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagtm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagtm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagtm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagtm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagtm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagtm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagtm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagtm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagtm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagtm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagtm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
slagv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagv2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagv2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slahqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slahqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slahqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slahqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slahqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slahqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slahqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slahqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slahqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slahqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slahr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slahr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slahr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slahr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slahr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slahr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slahr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slahr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slahr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slahr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaic1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaic1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaic1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaic1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaic1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaic1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaic1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaic1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaic1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaic1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaic1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaic1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaln2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaln2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaln2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaln2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaln2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaln2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaln2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaln2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaln2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaln2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaln2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaln2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slals0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slals0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slals0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slals0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slals0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slals0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slals0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slals0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slals0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slals0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slals0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slals0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slalsa.c:949:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
slalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slalsa.c:949:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
slalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slalsa.c:963:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slalsa.c:963:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slalsa.c:1008:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
slalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slalsa.c:1008:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
slalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
12 warnings generated.
slalsa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slalsa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slalsa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slalsa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slalsa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slalsa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slalsa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slalsa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slalsa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slalsa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slalsa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slalsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slalsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slalsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slalsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slalsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slalsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slalsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slalsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slalsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slalsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slalsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slalsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slangb.c:754:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slangb.c:781:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slangb.c:754:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slangb.c:652:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slangb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slangb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slangb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slangb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slangb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slangb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slangb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slangb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slangb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slangb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slangb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slangb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slange.c:732:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slange.c:752:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slange.c:732:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slange.c:643:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slange.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slange.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slange.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slange.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slange.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slange.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slange.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slange.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slange.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slange.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slange.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slange.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
13 warnings generated.
slangt.c:726:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slangt.c:742:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
slangt.c:726:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slangt.c:634:15: note: initialize the variable 'anorm' to silence this warning
real anorm;
^
= 0.0
slangt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slangt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slangt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slangt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
slanhs.c:730:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slangt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slanhs.c:slangt.c753::15: note: uninitialized use occurs here
350:16: ret_val = value;
warning: ^~~~~unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slangt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slangt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slangt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slangt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slangt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
slanhs.c:730:12: note: remove the 'if' if its condition is always true
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slangt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] } else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slanhs.c:635:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slanhs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slanhs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slanhs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slanhs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slanhs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slanhs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slanhs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slanhs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slanhs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanhs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slanhs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanhs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
14 warnings generated.
13 warnings generated.
slansb.c:774:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansb.c:832:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slansb.c:774:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansb.c:657:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slansb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slansb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slansb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slansb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slansb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slansb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slansb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slansb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slansb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansp.c:756:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansp.c:825:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slansp.c:756:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansp.c:642:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
12 warnings generated.
slansp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slansp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slansp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slansp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slansp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slansp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slansp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slansp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansy.c:758:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansy.c:804:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slansy.c:758:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansy.c:651:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slansy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slansy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slansy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slansy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slansy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slansy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slansy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slansy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slansy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantb.c:921:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantb.c:1004:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slantb.c:921:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantb.c:668:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slantb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slantb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slantb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slantb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slantb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slantb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slantb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slantb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slantb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantp.c:887:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantp.c:957:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slantp.c:887:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantp.c:653:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slantp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slantp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slantp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slantp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slantp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slantp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slantp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantr.c:899:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantr.c:970:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slantr.c:899:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slantr.c:669:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slantr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slantr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slantr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slantr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slantr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slantr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slantr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slantr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slantr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slantr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slantr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slanv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slanv2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slanv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slanv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slanv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slanv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slanv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slanv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slanv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
11 warnings generated.
13 warnings generated.
slapll.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slapll.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slapll.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slapll.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slapll.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slapll.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slapll.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slapll.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slapll.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapll.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapll.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapll.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slapmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slapmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slapmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slapmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slapmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slapmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slapmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slapmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slapmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqgb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqgb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqgb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqgb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqgb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqgb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqgb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqgb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqgb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqgb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqgb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqgb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
slaqps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
slaqsb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqsb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqsb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqsb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqsb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqsb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqsb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqsb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqsb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqsb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqsp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqsp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqsp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqsp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqsp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqsp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqsp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqsp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqsp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqsp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr0.c:1116:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
slaqr0.c:1116:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
slaqr0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slaqr1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slaqr4.c:1121:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
slaqr4.c:1121:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
slaqr4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
slaqr5.c:980:43: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
~~~~^~~ ~~
slaqr5.c:980:43: note: place parentheses around the '-' expression to silence this warning
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
^
( )
slaqr5.c:990:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m22 - 1 << 1);
~~~~^~~ ~~
slaqr5.c:990:20: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m22 - 1 << 1);
^
( )
slaqr5.c:1154:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
slaqr5.c:1154:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
slaqr5.c:1369:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
slaqr5.c:1369:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
slaqr5.c:1395:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
slaqr5.c:1395:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
slaqr5.c:1404:40: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
~~~~~^~~ ~~
slaqr5.c:1404:40: note: place parentheses around the '-' expression to silence this warning
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
^
( )
slaqr5.c:1429:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
slaqr5.c:1429:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
12 warnings generated.
12 warnings generated.
slaqr5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqr5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqr5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqr5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaqr5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaqr5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqr5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqr5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaqr5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaqr5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqr5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slar1v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slar1v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slar1v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slar1v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
slaqtr.cstatic _Complex float cpow_ui(_Complex float x, integer n) {:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaqtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaqtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaqtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) { ^
^
slaqtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
slar1v.c:static _Complex double zpow_ui(_Complex double x, integer n) {337
: ^24
: warning: unused function 'zpow_ui' [-Wunused-function]
slaqtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaqtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaqtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
^
slar1v.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n):
350 ^:
16: slaqtr.cwarning: :unused function 'pow_ii' [-Wunused-function]381
:20: warning: unused function 'cdotc_' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slar1v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqtr.c:static integer dmaxloc_(double *w, integer s, integer e, integer *n)412
: ^20
: warning: slar1v.cunused function 'zdotc_' [-Wunused-function]:
374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
slar1v.c ^:
381:20slaqtr.c:: 443warning: :unused function 'cdotc_' [-Wunused-function]20
: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaqtr.cslar1v.c:412:20: warning: :474:20: warning: unused function 'zdotu_' [-Wunused-function]unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slar1v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slar1v.c:474:
20: ^
warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slar2v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slar2v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slar2v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slar2v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slar2v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slar2v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slar2v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slar2v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slar2v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slar2v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slar2v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slar2v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
ilaslr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaslr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaslr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaslr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaslr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaslr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaslr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaslr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaslr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaslr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaslr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaslr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ilaslc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaslc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaslc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaslc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaslc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaslc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaslc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaslc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaslc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaslc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaslc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaslc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slarfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfb_gett.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfb_gett.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfb_gett.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfb_gett.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfb_gett.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfb_gett.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfb_gett.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfb_gett.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfb_gett.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfb_gett.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfb_gett.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfb_gett.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slarfg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfgp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfgp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarft.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarft.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarft.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarft.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarft.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarft.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarft.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarft.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarft.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarft.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarft.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarft.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slarfx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slarfy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarfy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarfy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarfy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarfy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarfy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarfy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarfy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarfy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarfy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarfy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slargv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slargv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slargv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slargv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slargv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slargv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slargv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slargv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slargv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slargv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slargv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slargv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slartv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slartv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slartv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slartv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slartv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slartv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slartv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slartv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slartv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
12 warnings generatedstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {.
^
slartv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrv.c:822:13: warning: variable 'done' set but not used [-Wunused-but-set-variable]
integer done;
^
slarrv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slarz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slarzb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarzb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarzb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarzb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarzb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarzb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarzb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarzb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarzb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarzb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarzb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarzb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarzt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarzt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarzt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarzt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarzt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarzt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarzt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarzt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarzt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarzt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarzt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarzt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slasyf.c:765:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
slasyf.c:765:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
slasyf.c:1107:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
slasyf.c:1107:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
slasyf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasyf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasyf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasyf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasyf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasyf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasyf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasyf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasyf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasyf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasyf_rook.c:785:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
19 warnings generated.
slasyf_rook.c:785:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
slasyf_rook.c:1163:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
slasyf_rook.c:1163:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
slasyf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasyf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasyf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasyf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasyf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasyf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasyf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasyf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasyf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasyf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasyf_rk.c:867:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
slasyf_rk.c:867:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
slasyf_rk.c:1236:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
slasyf_rk.c:1236:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
13 warnings generated.
slasyf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasyf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasyf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasyf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasyf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasyf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasyf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasyf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasyf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasyf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatbs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatbs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatbs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatbs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatbs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatbs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatbs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatbs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatbs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatbs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatbs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatbs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatdf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatdf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatdf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatdf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatdf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatdf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatdf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatdf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatdf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatdf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatdf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatdf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
slatrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
slatrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
sopgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sopgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sopgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sopgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sopgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sopgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sopgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sopgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sopgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sopgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sopgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sopgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sopmtr.c:747:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~~~~^~~~~~~~~ ~~
sopmtr.c:747:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
sopmtr.c:747:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~ ~~~~~~~^~~~~~~~~~~
sopmtr.c:747:36: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
sopmtr.c:801:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~~~~^~~~~~~~~~~ ~~
sopmtr.c:801:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
sopmtr.c:801:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~ ~~~~~~~^~~~~~~~~
sopmtr.c:801:38: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
sopmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sopmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sopmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sopmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sopmtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sopmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sopmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sopmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sopmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sopmtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sopmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sopmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorg2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorg2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorg2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorg2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorg2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorg2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorg2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorg2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorg2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorg2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorg2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorg2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorg2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorg2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorg2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorg2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorg2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorg2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorg2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorg2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorg2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorg2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorg2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorg2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
sorgbr.c:721:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sorgbr.c:721:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
( )
sorgbr.c:721:78: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~~~^~~~
sorgbr.c:721:78: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
(
12 warnings generated.
sorgbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorghr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorghr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorghr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorghr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorghr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorghr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorghr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorghr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorghr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorghr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorghr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorghr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sorgl2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgl2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgl2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgl2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgl2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgl2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgl2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgl2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgl2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgl2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgl2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgl2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sorglq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorglq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorglq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorglq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorglq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorglq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorglq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorglq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorglq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorglq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorglq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorglq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sorgql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
12 warnings generated.
12 warnings generated.
sorgrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
sorgr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
^sorgr2.c:270:14:
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgr2.c:sorgrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
381static float spow_ui(float x, integer n) {
^
sorgrq.c::282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
20static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgrq.c:350: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgr2.c:16412:20:: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgrq.c:warning: 367:16:unused function 'zdotc_' [-Wunused-function]
warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgr2.cunused function 'dmaxloc_' [-Wunused-function]:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
^
sorgrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorgtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sorm2l.c:754:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
sorm2l.c:754:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sorm2l.c:754:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
sorm2l.c:754:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sorm2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorm2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorm2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorm2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorm2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorm2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorm2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorm2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorm2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorm2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtsqr_row.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorgtsqr_row.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorgtsqr_row.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorgtsqr_row.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorgtsqr_row.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorgtsqr_row.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorgtsqr_row.c:367:1612 warning: warning: unused function 'dmaxloc_' [-Wunused-function]
s generatedstatic integer dmaxloc_(double *w, integer s, integer e, integer *n).
^
sorgtsqr_row.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorgtsqr_row.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtsqr_row.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorgtsqr_row.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorgtsqr_row.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorm2r.c:754:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sorm2r.c:754:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sorm2r.c:754:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sorm2r.c:754:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sorm2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorm2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorm2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorm2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
12 warnings generated.
sorm2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorm2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorm2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorm2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorm2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorm2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorm22.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorm22.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorm22.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorm22.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorm22.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorm22.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorm22.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorm22.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorm22.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm22.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorm22.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorm22.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
12 warnings generated.
sormbr.c:793:13: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
sormbr.c:793:13: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sormbr.c:793:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
sormbr.c:793:48: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
sormbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sormhr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormhr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormhr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormhr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormhr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormhr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormhr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormhr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormhr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormhr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormhr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormhr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorml2.c:750:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
sorml2.c:750:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sorml2.c:750:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
sorml2.c:750:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sorml2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorml2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorml2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorml2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorml2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorml2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorml2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorml2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorml2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorml2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorml2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorml2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sormlq.c:832:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
sormlq.c:832:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sormlq.c:832:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
sormlq.c:832:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sormlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
sormql.c:833:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
sormql.c:833:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sormql.c:833:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
sormql.c:833:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
sormql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
sormqr.c:830:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sormqr.c:830:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormqr.c:830:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sormqr.c:830:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormr2.c:750:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sormr2.c:750:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormr2.c:750:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sormr2.c:750:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
14 warnings generated.
sormr3.c:752:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
sormr3.c:752:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
sormr3.c:752:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
sormr3.c:752:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
sormr3.c:771:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sormr3.c:771:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormr3.c:771:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sormr3.c:771:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormrq.c:835:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sormrq.c:835:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormrq.c:835:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sormrq.c:835:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormrz.c:786:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
sormrz.c:786:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
sormrz.c:786:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
sormrz.c:786:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
sormrz.c:857:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
sormrz.c:857:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormrz.c:857:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
sormrz.c:857:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
sormrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
sormtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sormtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sormtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sormtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sormtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sormtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sormtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sormtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sormtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sormtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sormtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
spbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
14 warnings generated.
spbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbstf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbstf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbstf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbstf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbstf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbstf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbstf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbstf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbstf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbstf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbstf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbstf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
spbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
spbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
spocon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spocon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spocon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spocon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spocon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spocon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spocon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spocon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spocon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spocon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spocon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spocon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
spoequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spoequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spoequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spoequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spoequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spoequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spoequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spoequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spoequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spoequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spoequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spoequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sporfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sporfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sporfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sporfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sporfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sporfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sporfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sporfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sporfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sporfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sporfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sporfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
sposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sposvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sposvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sposvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sposvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sposvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sposvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sposvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sposvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sposvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sposvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sposvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sposvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spotri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spotri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spotri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spotri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spotri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spotri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spotri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spotri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spotri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spotri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
spstrf.c:830:22: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__4, &i__5, &c__1);
^~~~~~~~
spstrf.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
spstrf.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spstrf.c:942:22: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__4, &i__5, &c__1);
^~~~~~~~
spstrf.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
spstrf.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spstrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spstrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spstrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spstrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spstrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spstrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spstrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spstrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spstrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spstrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spstrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spstf2.c:796:21: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__2, &i__3, &c__1);
^~~~~~~~
spstf2.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
spstf2.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spstf2.c:878:21: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__2, &i__3, &c__1);
^~~~~~~~
spstf2.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
spstf2.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spstf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spstf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spstf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spstf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spstf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spstf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spstf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spstf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spstf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spstf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spstf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sppcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sppcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sppcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sppcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sppcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sppcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sppcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sppcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sppcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sppcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sppequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sppequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sppequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sppequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sppequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sppequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sppequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sppequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sppequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sppequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
spprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sppsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sppsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sppsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sppsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sppsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sppsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sppsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sppsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sppsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sppsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sppsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sppsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sppsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sppsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sppsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sppsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sppsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sppsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sppsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sppsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sppsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
spptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
sptcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sptcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sptcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sptcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sptcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sptcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sptcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sptcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sptcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spteqr.c:719:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
spteqr.c:719:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
spteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sptsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sptsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sptsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sptsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sptsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sptsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sptsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sptsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]sptrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sptrfs.c:270:14:
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sptrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sptrfs.c:309:23static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sptrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sptrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sptrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sptrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sptrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sptsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sptsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sptsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sptsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sptsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sptsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sptsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sptsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
spttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
srscl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
srscl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
srscl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
srscl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^sptts2.c:250:
13: warning: unused variable 'junk' [-Wunused-variable]
srscl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
srscl.c:350sptts2.c::16270:: warning: 14:unused function 'pow_ii' [-Wunused-function]
warning: unused function 'spow_ui' [-Wunused-function]
static integer pow_ii(integer x, integer n) {static float spow_ui(float x, integer n) {
^ ^
srscl.csptts2.c:282::367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
15: warning: unused function 'dpow_ui' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
static double dpow_ui(double x, integer n) {
^
srscl.c:374:16: sptts2.cwarning: :unused function 'smaxloc_' [-Wunused-function]
309:23: warning: unused function 'cpow_ui' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
srscl.c:381:20:static _Complex float cpow_ui(_Complex float x, integer n) {
^
warning: unused function 'cdotc_' [-Wunused-function]
sptts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
srscl.c:static _Complex double zpow_ui(_Complex double x, integer n) {412
: ^20
: warning: sptts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
unused function 'zdotc_' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sptts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ ^
sptts2.c:374srscl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
:16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^srscl.c
:474:20: warning: unused function 'zdotu_' [-Wunused-function]sptts2.c
:381:20: warning: unused function 'cdotc_' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sptts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sptts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
ssbev.c:736:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbev.c:736:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbevd.c:802:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbevd.c:802:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevx.c:906:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbevx.c:906:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ssbgst.c:762:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ssbgst.c:762:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ssbgv.c:756:34: warning: ssbgvd.c'&&' within '||' [-Wlogical-op-parentheses]:835:34:
warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbgv.c:756:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbgvd.c:835:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbgv.cssbgvd.c::250:13309:: 23warning: :unused variable 'junk' [-Wunused-variable]
warning: unused function 'cpow_ui' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static _Complex float cpow_ui(_Complex float x, integer n) {ssbgvd.c
: ^270
:14ssbgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
: warning: unused function 'spow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
static float spow_ui(float x, integer n) {ssbgv.c
:350:16: ^
warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
ssbgvd.c ^
:282:15ssbgv.c:: 367warning: :unused function 'dpow_ui' [-Wunused-function]
16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static double dpow_ui(double x, integer n) {static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbgv.c:381:20:
^warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
ssbgvd.c:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
309static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
: ^
ssbgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
23:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ssbgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ssbgvx.c:915:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantz && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbgvx.c:915:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantz && *ldq < *n) {
^
( )
ssbgvx.c:931:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbgvx.c:931:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
14 warnings generated.
ssbtrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbtrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbtrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbtrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbtrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbtrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbtrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbtrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbtrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbtrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbtrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbtrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspev.c:710:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspev.c:710:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspevd.c:764:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspevd.c:764:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
sspgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspevx.c:855:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspevx.c:855:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgv.c:730:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspgv.c:730:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
sspgvd.c:787:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspgvd.c:787:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgvx.c:866:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sspgvx.c:866:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sspgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
sspsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sspsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sspsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)sspsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
^static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sspsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sspsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
sspsv.c ^
sspsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
:static _Complex float cpow_ui(_Complex float x, integer n) {
^
sspsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
374static _Complex double zpow_ui(_Complex double x, integer n) {
^
sspsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
:static integer pow_ii(integer x, integer n) {
^
sspsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
16static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sspsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
:static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
warning: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
unused function 'smaxloc_' [-Wunused-function]static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sspsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sspsv.c:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {381
^
sspsvx.c::20: warning: unused function 'cdotc_' [-Wunused-function]
474static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
^
sspsv.c:412:2020:: warning: warning: unused function 'zdotc_' [-Wunused-function]unused function 'zdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
sspsv.c ^:
443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sspsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssptrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssptrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssptrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssptrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssptrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssptrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssptrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssptrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssptrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssptrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssptrs.c:928:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
ssptrs.c:928:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
sstegr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstegr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstegr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstegr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstegr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstegr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstegr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstegr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstegr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstegr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
ssptrs.c:250:13: warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {unused variable 'junk' [-Wunused-variable]
^
sstegr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ssptrs.c
:270:14: warning: unused function 'spow_ui' [-Wunused-function]
sstegr.c:static float spow_ui(float x, integer n) {
^
ssptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
474static double dpow_ui(double x, integer n) {
^
ssptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
:static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
20static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
:static integer pow_ii(integer x, integer n) {
^
ssptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
unused function 'zdotu_' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssptrs.c:381:20:
warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ ^
ssptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sstev.c:686:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sstev.c:686:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sstev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
sstevd.c:747:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sstevd.c:747:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sstevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
sstevr.c:942:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sstevr.c:942:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sstevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstevr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssycon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssycon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssycon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssycon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssycon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssycon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssycon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssycon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssyevr.c:987:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssyevr.c:987:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
12 warnings generated.
13 warnings generated.
ssyevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {12 warnings generated.
^
ssyevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevr.c:350:1612: warning s generated.
warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevx.c:888:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssyevx.c:888:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssyevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssygs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssygs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssygs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssygs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ssygvx.c:913:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssygvx.c:913:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssygvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssygvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssygvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssygvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssygvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygvx.c:374ssygvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
:16: warning: unused function 'smaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
ssygvx.cstatic float spow_ui(float x, integer n) {:381:
^
ssygvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
20static double dpow_ui(double x, integer n) {
^
ssygvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
:static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
warning: static integer pow_ii(integer x, integer n) {
^
ssygvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
unused function 'cdotc_' [-Wunused-function]static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygvd.c:374:
16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
ssygvx.c:412static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:20static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygvd.c:443:20: warning: unused function 'zdotc_' [-Wunused-function]
: warning: unused function 'cdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygvx.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
443 ^:20: warning: unused function 'cdotu_' [-Wunused-function]
ssygvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygvx.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssygst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssygst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssygst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssygst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssygv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssygv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssygv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssygv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
ssyrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssysv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssysv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssysv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssysv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssysv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
ssytd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
ssytd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]static float spow_ui(float x, integer n) {
^
ssysvx.c:282:static float spow_ui(float x, integer n) {15: warning: unused function 'dpow_ui' [-Wunused-function]
^
static double dpow_ui(double x, integer n) {
^
ssytd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
ssysvx.c:static double dpow_ui(double x, integer n) {
^
ssytd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
309:23: warning: static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytd2.c:337unused function 'cpow_ui' [-Wunused-function]:24
: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysvx.c:ssytd2.c337::35024::16 :warning: unused function 'zpow_ui' [-Wunused-function]warning:
unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {static _Complex double zpow_ui(_Complex double x, integer n) {
^ ^
ssytd2.cssysvx.c::367350::1616:: warning: warning: unused function 'dmaxloc_' [-Wunused-function]unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^ssysvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
ssytd2.c ^:
374:16:ssysvx.c :warning: 374unused function 'smaxloc_' [-Wunused-function]
:static integer smaxloc_(float *w, integer s, integer e, integer *n)
16 ^:
warning: ssytd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
unused function 'smaxloc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytd2.c:412static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysvx.c::381:2020:: warning: warning: unused function 'zdotc_' [-Wunused-function]unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysvx.c:412ssytd2.c:443:20: warning: :unused function 'cdotu_' [-Wunused-function]
20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytd2.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
474 ^:
20: warning: unused function 'zdotu_' [-Wunused-function]
ssysvx.c:443:20:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssytrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssytri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssytri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssytrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyconv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyconv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyconv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyconv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyconv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyconv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyconv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyconv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyconv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyconv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssyconvf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyconvf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyconvf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyconvf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyconvf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyconvf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyconvf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyconvf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyconvf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconvf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyconvf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconvf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssyconvf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyconvf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyconvf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyconvf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyconvf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyconvf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyconvf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyconvf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyconvf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconvf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyconvf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyconvf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssytrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssycon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssycon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssycon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssycon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssycon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssycon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssycon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssycon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssysv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssysv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssysv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssysv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssysv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssysv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
ssytf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssycon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssycon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssycon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
ssytri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssycon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssycon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssycon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssycon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssycon_3.c:381:20:
warning: unused function 'cdotc_' [-Wunused-function]
^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssycon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssycon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
ssytri_3.c:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
ssysv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssysv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssysv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssysv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssysv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssysv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasyf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasyf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasyf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasyf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasyf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasyf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasyf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasyf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasyf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasyf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasyf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssysv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssysv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssysv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssysv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssysv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssysv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
ssysv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssysv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssysv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssysv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssysv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssysv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssysv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssysv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssysv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssysv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssysv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssytrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrf_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrf_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrs_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrs_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stgevc.c:1010:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compl && *ldvl < *n || *ldvl < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
stgevc.c:1010:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compl && *ldvl < *n || *ldvl < 1) {
^
( )
stgevc.c:1012:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compr && *ldvr < *n || *ldvr < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
stgevc.c:1012:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compr && *ldvr < *n || *ldvr < 1) {
^
( )
12 warnings generated.
stgevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgex2.c:1005:34: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
slacpy_("Full", n1, n2, &t[(*n1 + 1 << 2) - 4], &c__4, li, &c__4);
~~~~^~~ ~~
stgex2.c:1005:34: note: place parentheses around the '+' expression to silence this warning
slacpy_("Full", n1, n2, &t[(*n1 + 1 << 2) - 4], &c__4, li, &c__4);
^
( )
stgex2.c:1006:34: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
slacpy_("Full", n1, n2, &s[(*n1 + 1 << 2) - 4], &c__4, &ir[*n2 + 1 + (
~~~~^~~ ~~
stgex2.c:1006:34: note: place parentheses around the '+' expression to silence this warning
slacpy_("Full", n1, n2, &s[(*n1 + 1 << 2) - 4], &c__4, &ir[*n2 + 1 + (
^
( )
stgex2.c:1007:7: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
*n1 + 1 << 2) - 5], &c__4);
~~~~^~~ ~~
stgex2.c:1007:7: note: place parentheses around the '+' expression to silence this warning
*n1 + 1 << 2) - 5], &c__4);
^
( )
stgex2.c:1008:58: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
stgsy2_("N", &c__0, n1, n2, s, &c__4, &s[*n1 + 1 + (*n1 + 1 << 2) - 5]
~~~~^~~ ~~
stgex2.c:1008:58: note: place parentheses around the '+' expression to silence this warning
stgsy2_("N", &c__0, n1, n2, s, &c__4, &s[*n1 + 1 + (*n1 + 1 << 2) - 5]
^
( )
stgex2.c:1009:31: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
, &c__4, &ir[*n2 + 1 + (*n1 + 1 << 2) - 5], &c__4, t, &c__4, &
~~~~^~~ ~~
stgex2.c:1009:31: note: place parentheses around the '+' expression to silence this warning
, &c__4, &ir[*n2 + 1 + (*n1 + 1 << 2) - 5], &c__4, t, &c__4, &
^
( )
stgex2.c:1010:20: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
t[*n1 + 1 + (*n1 + 1 << 2) - 5], &c__4, li, &c__4, &scale, &
~~~~^~~ ~~
stgex2.c:1010:20: note: place parentheses around the '+' expression to silence this warning
t[*n1 + 1 + (*n1 + 1 << 2) - 5], &c__4, li, &c__4, &scale, &
^
( )
stgex2.c:1212:21: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
~~~~^~~ ~~
stgex2.c:1212:21: note: place parentheses around the '+' expression to silence this warning
n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
^
( )
stgex2.c:1212:47: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
~~^~~ ~~
stgex2.c:1212:47: note: place parentheses around the '-' expression to silence this warning
n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
^
( )
stgex2.c:1215:45: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
t[m + (m << 2) - 5] = t[*n2 + 1 + (*n2 + 1 << 2) - 5];
~~~~^~~ ~~
stgex2.c:1215:45: note: place parentheses around the '+' expression to silence this warning
t[m + (m << 2) - 5] = t[*n2 + 1 + (*n2 + 1 << 2) - 5];
^
( )
stgex2.c:1216:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
t[m - 1 + (m << 2) - 5] = -t[m + (m - 1 << 2) - 5];
~~^~~ ~~
stgex2.c:1216:42: note: place parentheses around the '-' expression to silence this warning
t[m - 1 + (m << 2) - 5] = -t[m + (m - 1 << 2) - 5];
^
( )
stgex2.c:1230:26: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
lda, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
~~~~^~~ ~~
stgex2.c:1230:26: note: place parentheses around the '+' expression to silence this warning
lda, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
^
( )
stgex2.c:1235:26: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ldb, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
~~~~^~~ ~~
stgex2.c:1235:26: note: place parentheses around the '+' expression to silence this warning
ldb, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
^
( )
stgex2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgex2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgex2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgex2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgex2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgex2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgex2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgex2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgex2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgex2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgex2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgex2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stgexc.c:791:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
stgexc.c:791:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
stgexc.c:793:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
stgexc.c:793:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
stgexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stgsen.c:1063:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
stgsen.c:1063:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < *n) {
^
( )
stgsen.c:1065:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
stgsen.c:1065:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < *n) {
^
( )
stgsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
24 warnings generated.
stgsja.c:993:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
stgsja.c:993:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
stgsja.c:995:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
stgsja.c:995:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
stgsja.c:997:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
stgsja.c:997:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
stgsja.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgsja.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgsja.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgsja.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgsja.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgsja.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgsja.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgsja.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgsja.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsja.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsja.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsja.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
stgsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
stgsy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgsy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgsy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgsy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgsy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgsy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgsy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgsy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgsy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsyl.c:989:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~~~~~~~^~~~~~~~~~ ~~
stgsyl.c:989:17: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
stgsyl.c:989:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~ ~~~~~~~~~^~~~~~~~~~~
stgsyl.c:989:40: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
stgsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stgsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stgsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stgsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stgsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stgsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stgsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stgsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stgsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stgsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stgsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stprfs.c:309:2315 warnings: warning: unused function 'cpow_ui' [-Wunused-function] generated.
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
stptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
strevc.c:834:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
strevc.c:834:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
strevc.c:836:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
strevc.c:836:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
12 warnings generated.
strevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strevc3.c:875:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
strevc3.c:875:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
strevc3.c:877:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
strevc3.c:877:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
strevc3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strevc3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strevc3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strevc3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strevc3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strevc3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strevc3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strevc3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strevc3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strevc3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strevc3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strevc3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strexc.c:710:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
strexc.c:710:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
strexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
strrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strsen.c:909:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
strsen.c:909:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
strsen.c:955:13: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(job, "E")) {
^~~~~~~~~~~~~~~~
strsen.c:960:15: note: uninitialized use occurs here
if (*lwork < lwmin && ! lquery) {
^~~~~
strsen.c:955:9: note: remove the 'if' if its condition is always true
} else if (lsame_(job, "E")) {
^~~~~~~~~~~~~~~~~~~~~~
strsen.c:846:28: note: initialize the variable 'lwmin' to silence this warning
integer isave[3], lwmin;
^
= 0
strsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strsna.c:878:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wants && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
strsna.c:878:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wants && *ldvl < *n) {
^
( )
strsna.c:880:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wants && *ldvr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
strsna.c:880:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wants && *ldvr < *n) {
^
( )
strsna.c:920:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~~~
strsna.c:920:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
^
( )
strsna.c:1109:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
nn = *n - 1 << 1;
~~~^~~ ~~
strsna.c:1109:15: note: place parentheses around the '-' expression to silence this warning
nn = *n - 1 << 1;
^
( )
strsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
strsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stzrzf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stzrzf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stzrzf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stzrzf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stzrzf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stzrzf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stzrzf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stzrzf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stzrzf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stzrzf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stzrzf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stzrzf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
sstemr.c:982:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sstemr.c:982:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sstemr.c:1063:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
sstemr.c:1063:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
sstemr.c:1063:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~^~~~~~~~~~~
sstemr.c:1063:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
sstemr.c:1084:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
sstemr.c:1084:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
sstemr.c:1084:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~^~~~~~~~~~~
sstemr.c:1084:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
sstemr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstemr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstemr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstemr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstemr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstemr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstemr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstemr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstemr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstemr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstemr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstemr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slansf.c:1366:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansf.c:1597:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
slansf.c:1366:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slansf.c:737:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
slansf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slansf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slansf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slansf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slansf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slansf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slansf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slansf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slansf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slansf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slansf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spftrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spftrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spftrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spftrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spftrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spftrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spftrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spftrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spftrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spftrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
17 warnings generated.
12 warnings generated.
spftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spftrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
12 warningstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
s generated.
spftrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spftrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spftrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spftrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spftrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spftrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spftrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spftrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spftrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spftrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssfrk.c:754:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~
ssfrk.c:754:47: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) {
^
( )
ssfrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssfrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssfrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssfrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssfrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssfrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssfrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssfrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssfrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssfrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssfrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssfrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stfsm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stfsm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stfsm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stfsm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stfsm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stfsm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stfsm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stfsm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stfsm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfsm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stfsm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfsm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
13 warnings generated.
12 warnings generated.
stftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stfttp.c:711:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
stfttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stfttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stfttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stfttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stfttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stfttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stfttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stfttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stfttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stfttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
stfttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stfttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stfttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stfttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stfttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stfttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stfttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stfttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stfttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stfttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stfttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpttf.c:711:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
stpttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
strttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
strttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
strttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
strttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
strttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
strttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
strttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
strttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
strttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
strttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
strttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
sgejsv.c:1118:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
jobv, "W")) || jracc && ! lsvec) {
~~ ~~~~~~^~~~~~~~~~
sgejsv.c:1118:27: note: place parentheses around the '&&' expression to silence this warning
jobv, "W")) || jracc && ! lsvec) {
^
( )
sgejsv.c:1154:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (! (lsvec || rsvec || errest) && *lwork < f2cmax(i__1,i__2) || ! (
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
sgejsv.c:1154:35: note: place parentheses around the '&&' expression to silence this warning
if (! (lsvec || rsvec || errest) && *lwork < f2cmax(i__1,i__2) || ! (
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1155:29: warning: '&&' within '||' [-Wlogical-op-parentheses]
lsvec || rsvec) && errest && *lwork < f2cmax(i__3,i__4) || lsvec
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1155:29: note: place parentheses around the '&&' expression to silence this warning
lsvec || rsvec) && errest && *lwork < f2cmax(i__3,i__4) || lsvec
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1156:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1156:14: note: place parentheses around the '&&' expression to silence this warning
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1156:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~ ~~~~~~~~~~~~~~~~~^~~~
sgejsv.c:1156:64: note: place parentheses around the '&&' expression to silence this warning
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~~~~~~~^~~~
sgejsv.c:1157:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
lwork < f2cmax(i__7,i__8) || lsvec && rsvec && ! jracc && *lwork
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
sgejsv.c:1157:58: note: place parentheses around the '&&' expression to silence this warning
lwork < f2cmax(i__7,i__8) || lsvec && rsvec && ! jracc && *lwork
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
sgejsv.c:1158:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
< f2cmax(i__9,i__10) || lsvec && rsvec && jracc && *lwork < f2cmax(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~
sgejsv.c:1158:51: note: place parentheses around the '&&' expression to silence this warning
< f2cmax(i__9,i__10) || lsvec && rsvec && jracc && *lwork < f2cmax(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~
sgejsv.c:1646:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
a_dim1], abs(r__3)) < small || l2kill && (r__4 = a[p + p *
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~
sgejsv.c:1646:45: note: place parentheses around the '&&' expression to silence this warning
a_dim1], abs(r__3)) < small || l2kill && (r__4 = a[p + p *
^
(
sgejsv.c:1667:66: warning: '&&' within '||' [-Wlogical-op-parentheses]
if ((r__1 = a[p + p * a_dim1], abs(r__1)) < small || l2kill && (
~~ ~~~~~~~^~~~
sgejsv.c:1667:66: note: place parentheses around the '&&' expression to silence this warning
if ((r__1 = a[p + p * a_dim1], abs(r__1)) < small || l2kill && (
^
(
sgejsv.c:1786:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (r__1 = a[p + q * a_dim1], abs(r__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1786:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (r__1 = a[p + q * a_dim1], abs(r__1)) <=
^
(
sgejsv.c:1828:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (r__1 = a[p + q * a_dim1], abs(r__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:1828:17: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (r__1 = a[p + q * a_dim1], abs(r__1)) <=
^
(
sgejsv.c:2054:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (r__1 = v[p + q * v_dim1], abs(r__1))
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:2054:18: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (r__1 = v[p + q * v_dim1], abs(r__1))
^
(
sgesvj.c:963:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
sgesvj.c:963:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgesvj.c:963:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
sgesvj.c:963:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgesvj.c:1211:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~
sgesvj.c:1211:51: note: place parentheses around the '&&' expression to silence this warning
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
^
( )
sgejsv.c:2623:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (r__1 = v[p + q * v_dim1], abs(r__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sgejsv.c:2623:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (r__1 = v[p + q * v_dim1], abs(r__1)) <=
^
(
sgesvj.c:2298:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ ~~
sgesvj.c:2298:19: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
^
( )
sgesvj.c:2298:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sgesvj.c:2298:54: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
^
(
sgesvj.c:859:13: warning: variable 'large' set but not used [-Wunused-but-set-variable]
real t, large, apoaq, aqoap;
^
sgejsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgejsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgejsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgejsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgejsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgejsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgejsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgejsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgejsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgejsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgejsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgejsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgsvj0.c:819:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
sgsvj0.c:819:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgsvj0.c:819:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
sgsvj0.c:819:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgesvj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesvj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesvj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesvj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesvj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesvj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesvj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesvj.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesvj.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvj.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvj.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgsvj0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgsvj0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgsvj0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgsvj0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgsvj0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgsvj0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgsvj0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgsvj0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgsvj0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgsvj0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgsvj0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgsvj0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgsvj1.c:841:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
sgsvj1.c:841:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgsvj1.c:841:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
sgsvj1.c:841:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
sgsvj1.c:774:13: warning: variable 'large' set but not used [-Wunused-but-set-variable]
real t, large, apoaq, aqoap;
^
sgsvj1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgsvj1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgsvj1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgsvj1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgsvj1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgsvj1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgsvj1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgsvj1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgsvj1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgsvj1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgsvj1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgsvj1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
sgeequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
ssyequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
11 warnings generated.
spoequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spoequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spoequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spoequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spoequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spoequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spoequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spoequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spoequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spoequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spoequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
11 warnings generated.
sgbequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgbequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgbequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgbequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgbequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgbequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgbequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgbequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgbequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgbequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sbbcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sbbcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sbbcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sbbcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sbbcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sbbcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sbbcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sbbcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sbbcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbbcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sbbcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbbcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
18 warnings generated.
slapmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slapmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slapmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slapmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slapmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slapmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slapmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slapmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slapmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
sorbdb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sorbdb2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
sorbdb4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorbdb6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorbdb6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorbdb6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorbdb6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorbdb6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorbdb6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorbdb6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorbdb6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorbdb6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorbdb6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
sorcsd.c:836:60: warning: variable 'lorbdbworkmin' set but not used [-Wunused-but-set-variable]
integer lbbcsdworkmin, itaup1, itaup2, itauq1, itauq2, lorbdbworkmin,
^
sorcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorcsd2by1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorcsd2by1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorcsd2by1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorcsd2by1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorcsd2by1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorcsd2by1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorcsd2by1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorcsd2by1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorcsd2by1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorcsd2by1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorcsd2by1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorcsd2by1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrt.c:695:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
sgeqrt.c:695:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
sgeqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
sgeqrt3.c:250:13static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqrt2.c::350: warning: unused variable 'junk' [-Wunused-variable]
16: warning: unused function 'pow_ii' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static integer pow_ii(integer x, integer n) {
^
sgeqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)sgeqrt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqrt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
^
sgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)25 warnings generated
.
^
sgeqrt2.c:381:20: static double dpow_ui(double x, integer n) {
^
sgeqrt3.c:warning: 309:23: warning: unused function 'cpow_ui' [-Wunused-function]
unused function 'cdotc_' [-Wunused-function]static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqrt3.cstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
337 ^:
24: warning: unused function 'zpow_ui' [-Wunused-function]
sgeqrt2.c:static _Complex double zpow_ui(_Complex double x, integer n) {
412 ^:
20:sgeqrt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
warning: ^
unused function 'zdotc_' [-Wunused-function]
sgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^
^
sgeqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
sgeqrt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrt2.c:474:20:static integer smaxloc_(float *w, integer s, integer e, integer *n)
warning: ^unused function 'zdotu_' [-Wunused-function]
sgeqrt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqrt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqrt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemqrt.c:746:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
sgemqrt.c:746:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
sgemqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgemqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgemqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgemqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgemqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgemqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgemqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgemqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgemqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
stpqrt.c:746:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
stpqrt.c:746:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
stpqrt.c:748:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
stpqrt.c:748:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
stpqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpmqrt.c:801:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
stpmqrt.c:801:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
stpmqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpmqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpmqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpmqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpmqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpmqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpmqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpmqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpmqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpmqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpmqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpmqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
stprfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stprfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stprfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stprfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stprfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stprfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stprfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stprfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stprfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stprfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stprfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stprfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelqt.c:674:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
sgelqt.c:674:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
sgelqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelqt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelqt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelqt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelqt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelqt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelqt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelqt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelqt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelqt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelqt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelqt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
sgemlqt.c:726:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
sgemlqt.c:726:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
sgemlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgemlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgemlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgemlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgemlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgemlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgemlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgemlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgemlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgetsls.c:716:13: warning: variable 'mnk' set but not used [-Wunused-but-set-variable]
integer mnk, lwm, lwo;
^
12 warnings generated.
13 warnings generated.
sgetsls.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgetsls.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgetsls.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgetsls.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgetsls.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgetsls.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgetsls.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgetsls.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgetsls.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetsls.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetsls.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetsls.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
sgetsqrhrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgetsqrhrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgetsqrhrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgetsqrhrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgetsqrhrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgetsqrhrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgetsqrhrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgetsqrhrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgetsqrhrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetsqrhrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgetsqrhrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgetsqrhrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgeqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgeqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgeqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgeqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgeqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgeqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgeqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgeqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgeqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgeqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
slatsqr.c:726:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
slatsqr.c:726:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
slatsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemqr.c:791:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
sgemqr.c:791:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
sgemqr.c:791:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
sgemqr.c:791:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
sgemqr.c:692:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
slamtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slamtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slamtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slamtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slamtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slamtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slamtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slamtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slamtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slamtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgemqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgemqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgemqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgemqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgemqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgemqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgemqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgemqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
15 warnings generated.
sgelq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgelq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgelq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgelq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgelq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgelq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgelq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgelq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgelq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgelq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgelq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaswlq.c:722:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
slaswlq.c:722:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
slaswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slamswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slamswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slamswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slamswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slamswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slamswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slamswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slamswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slamswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slamswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
sgemlq.c:789:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
sgemlq.c:789:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
sgemlq.c:789:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
sgemlq.c:789:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
sgemlq.c:690:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
stplqt.c:746:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
stplqt.c:746:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
stplqt.c:748:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
stplqt.c:748:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
sgemlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgemlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgemlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgemlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgemlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgemlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgemlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgemlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgemlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgemlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgemlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stplqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stplqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stplqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stplqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stplqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stplqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stplqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stplqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stplqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stplqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stplqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stplqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stplqt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stplqt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stplqt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stplqt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stplqt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stplqt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stplqt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stplqt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stplqt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stplqt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stplqt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stplqt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
14 warnings generated.
12 warnings generated.
stpmlqt.c:799:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
stpmlqt.c:799:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
sorhr_col.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sorhr_col.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sorhr_col.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sorhr_col.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sorhr_col.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sorhr_col.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sorhr_col.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sorhr_col.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sorhr_col.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorhr_col.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sorhr_col.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sorhr_col.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpmlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
stpmlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
stpmlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
stpmlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
stpmlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
stpmlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
stpmlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
stpmlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
stpmlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpmlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
stpmlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
stpmlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaorhr_col_getrfnp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaorhr_col_getrfnp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaorhr_col_getrfnp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaorhr_col_getrfnp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaorhr_col_getrfnp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaorhr_col_getrfnp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaorhr_col_getrfnp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaorhr_col_getrfnp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaorhr_col_getrfnp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaorhr_col_getrfnp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaorhr_col_getrfnp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaorhr_col_getrfnp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
slaorhr_col_getrfnp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaorhr_col_getrfnp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaorhr_col_getrfnp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaorhr_col_getrfnp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaorhr_col_getrfnp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaorhr_col_getrfnp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaorhr_col_getrfnp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaorhr_col_getrfnp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaorhr_col_getrfnp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaorhr_col_getrfnp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaorhr_col_getrfnp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaorhr_col_getrfnp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd_2stage.c:762:13: warning: variable 'wantq' set but not used [-Wunused-but-set-variable]
logical wantq, upper;
^
ssytrd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ssytrd_sy2sb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrd_sy2sb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrd_sy2sb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrd_sy2sb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrd_sy2sb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrd_sy2sb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrd_sy2sb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrd_sy2sb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrd_sy2sb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_sy2sb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd_sy2sb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_sy2sb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ssb2st_kernels.c:700:29: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable]
integer j1, j2, lm, ln, ajeter;
^
ssytrd_sb2st.c:761:59: warning: variable 'nthreads' set but not used [-Wunused-but-set-variable]
integer thed, indv, myid, indw, apos, dpos, abofdpos, nthreads, i__, k, m,
^
ssytrd_sb2st.c:762:14: warning: variable 'debug' set but not used [-Wunused-but-set-variable]
edind, debug;
^
ssytrd_sb2st.c:766:13: warning: variable 'sisev' set but not used [-Wunused-but-set-variable]
integer sisev, grsiz, ttype, stepercol, ed, ib, st, abdpos;
^
ssytrd_sb2st.c:778:42: warning: variable 'nbtiles' set but not used [-Wunused-but-set-variable]
integer lda, tid, ldv, stt, sweepid, nbtiles, sizetau, thgrsiz;
^
ssb2st_kernels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssb2st_kernels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssb2st_kernels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssb2st_kernels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssb2st_kernels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssb2st_kernels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssb2st_kernels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssb2st_kernels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssb2st_kernels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssb2st_kernels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssb2st_kernels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssb2st_kernels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd_sb2st.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssytrd_sb2st.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssytrd_sb2st.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssytrd_sb2st.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssytrd_sb2st.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssytrd_sb2st.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssytrd_sb2st.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssytrd_sb2st.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssytrd_sb2st.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_sb2st.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssytrd_sb2st.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssytrd_sb2st.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssyev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ssyevx_2stage.c:943:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssyevx_2stage.c:943:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssyevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevr_2stage.c:1041:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssyevr_2stage.c:1041:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssyevr_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssyevr_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssyevr_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssyevr_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssyevr_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssyevr_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssyevr_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssyevr_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssyevr_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevr_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssyevr_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssyevr_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
ssbev_2stage.c:809:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbev_2stage.c:809:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevx_2stage.c:979:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbevx_2stage.c:979:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
16 warnings generated.
ssbevd_2stage.c:861:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ssbevd_2stage.c:861:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
ssbevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssbevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssbevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssbevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssbevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssbevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssbevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssbevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssbevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssbevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssbevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygv_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssygv_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssygv_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssygv_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssygv_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssygv_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssygv_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssygv_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssygv_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygv_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssygv_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssygv_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
sgesvdq.c:1093:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sgesvdq.c:1093:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
sgesvdq.c:1093:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sgesvdq.c:1093:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
sgesvdq.c:1095:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sgesvdq.c:1095:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
sgesvdq.c:1095:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sgesvdq.c:1095:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
12 warnings generated.
13 warnings generated.
dpotrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpotrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpotrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpotrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpotrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpotrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpotrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpotrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpotrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpotrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sgesvdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sgesvdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sgesvdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sgesvdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sgesvdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sgesvdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sgesvdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sgesvdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sgesvdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sgesvdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgbbrd.c:791:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dgbbrd.c:791:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dgbbrd.c:793:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dgbbrd.c:793:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dgbbrd.c:795:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dgbbrd.c:795:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dgetrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgetrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgetrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgetrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgetrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgetrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgetrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgetrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgetrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbbrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbbrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbbrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbbrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbbrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbbrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbbrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbbrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbbrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbbrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbbrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbbrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dgbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
dgbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgebak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgebak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgebak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgebak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgebak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgebak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgebak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgebak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgebak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgebak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgebal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgebal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgebal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgebal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgebal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgebal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgebal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgebal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgebal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgebal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgebd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgebd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgebd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgebd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgebd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgebd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgebd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgebd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgebd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgebd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dgebrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgebrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgebrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgebrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgebrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgebrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgebrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgebrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgebrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgebrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgebrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgecon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgecon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgecon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgecon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgecon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgecon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgecon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgecon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgecon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgecon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgecon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgecon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dgeequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgees.c:825:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgees.c:825:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
dgees.c:968:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
dgeesx.c:893:69: warning: '&&' within '||' [-Wlogical-op-parentheses] bwork[i__] = (*select)(&wr[i__], &wi[i__]);
^
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
dgeesx.c:893:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
dgeesx.c:900:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgeesx.c:900:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
dgees.c:1084:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*select)(&wr[i__], &wi[i__]);
^
dgeesx.c:1060:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&wr[i__], &wi[i__]);
^
dgeesx.c:1198:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*select)(&wr[i__], &wi[i__]);
^
dgees.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgees.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgees.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgees.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgees.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgees.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgees.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgees.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgees.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgees.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgees.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgees.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeev.c:820:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgeev.c:820:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
dgeev.c:822:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgeev.c:822:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
dgeev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeevx.c:945:6: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! (wantvl && wantvr)) {
^~~~~~~~~~~~~~~~~~~~~~~
dgeevx.c:945:6: note: place parentheses around the '&&' expression to silence this warning
&& ! (wantvl && wantvr)) {
^
)
dgeevx.c:951:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgeevx.c:951:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
dgeevx.c:953:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dgeevx.c:953:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
dgeevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
dgehd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgehd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgehd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgehd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgehd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgehd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgehd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgehd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgehd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgehd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgehd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgehd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
dgehrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgehrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgehrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgehrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgehrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgehrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgehrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgehrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgehrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgehrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgehrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgehrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
dgels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgelsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
dgelss.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelss.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelss.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelss.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelss.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelss.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelss.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelss.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelss.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelss.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelss.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelss.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgelsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
dgeql2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeql2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeql2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeql2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeql2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeql2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeql2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeql2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeql2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeql2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeql2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeql2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqlf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqlf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqlf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqlf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqlf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqlf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqlf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqlf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqlf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqlf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqlf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqlf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgeqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dgeqr2p.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqr2p.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqr2p.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqr2p.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqr2p.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqr2p.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqr2p.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqr2p.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqr2p.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr2p.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqr2p.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr2p.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dgeqrfp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqrfp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqrfp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqrfp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqrfp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqrfp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqrfp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqrfp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqrfp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrfp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrfp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrfp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgerq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgerq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgerq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgerq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgerq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgerq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgerq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgerq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgerfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgerfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgerfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgerfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgerfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgerfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgerfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgerfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgerqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgerqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgerqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgerqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgerqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgerqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgerqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgerqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgerqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgerqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesdd.c:846:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~^~~~~~~~~~~~
dgesdd.c:846:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
( )
dgesdd.c:846:68: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dgesdd.c:846:68: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
(
dgesdd.c:849:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~
dgesdd.c:849:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
dgesdd.c:849:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~~~~
dgesdd.c:849:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
dgesdd.c:850:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
wntqo && *m >= *n && *ldvt < *n) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
dgesdd.c:850:24: note: place parentheses around the '&&' expression to silence this warning
wntqo && *m >= *n && *ldvt < *n) {
^
( )
12 warnings generated.
dgesdd.c:761:17: warning: variable 'lwork_dorgbr_p_mm__' set but not used [-Wunused-but-set-variable]
integer ie, lwork_dorgbr_p_mm__;
^
dgesdd.c:765:17: warning: variable 'lwork_dorgbr_q_nn__' set but not used [-Wunused-but-set-variable]
integer il, lwork_dorgbr_q_nn__;
^
12 warnings generated.
dgesdd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesdd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesdd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesdd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesdd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesdd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesdd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesdd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesdd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesdd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesdd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesdd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
1212 warnings generated.
warnings generated.
dgesvd.c:835:62: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
~~ ~~~~~~^~~~~~~~
dgesvd.c:835:62: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
^
( )
dgesvd.c:843:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntuas && *ldu < *m) {
~~ ~~~~~~~^~~~~~~~~~~~
dgesvd.c:843:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntuas && *ldu < *m) {
^
( )
dgesvd.c:845:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~
dgesvd.c:845:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
dgesvd.c:845:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~~~~
dgesvd.c:845:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
dgesvdx.c:827:24: warning: variable 'abstol' set but not used [-Wunused-but-set-variable]
doublereal bignum, abstol;
^
dgesvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvdx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgetc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgetc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgetc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgetc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgetc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgetc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgetc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgetc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggbak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggbak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggbak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggbak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggbak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggbak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggbak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]dgetri.c
:250:13: warning: unused variable 'junk' [-Wunused-variable]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggbak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggbak.c:381dgetri.c::20270:: 14warning: : warning: unused function 'spow_ui' [-Wunused-function]
unused function 'cdotc_' [-Wunused-function]static float spow_ui(float x, integer n) {
^
dgetri.cstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
282 ^:
15:dggbak.c:412:20: warning: warning: unused function 'dpow_ui' [-Wunused-function]
unused function 'zdotc_' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^dggbak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
dgetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static integer pow_ii(integer x, integer n) {
^ ^
dgetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
dggbak.c:474:20: warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)
unused function 'zdotu_' [-Wunused-function] ^
dgetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
19 warnings generated.
dggbal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggbal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggbal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggbal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggbal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggbal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggbal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggbal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggbal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggbal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggbal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgges.c:949:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
dgges.c:949:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
dgges.c:951:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
dgges.c:951:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
dgges.c:1144:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dgges3.c:946:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
dgges3.c:946:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
dgges3.c:948:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
dgges.c:1245:23: } else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {warning:
passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype] ~~ ~~~~~~^~~~~~~~~~~~~~
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dgges3.c:948:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
dgges3.c:1147:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dgges3.c:1247:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dgges.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgges.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgges.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgges.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgges.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgges.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgges.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgges.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgges.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgges.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgges.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgges.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgges3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgges3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgges3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgges3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgges3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgges3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgges3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgges3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgges3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgges3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgges3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgges3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggesx.c:1046:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
dggesx.c:1046:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
dggesx.c:1055:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
dggesx.c:1055:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
dggesx.c:1057:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
dggesx.c:1057:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
dggesx.c:1268:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dggesx.c:1393:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]);
^
dggesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggev.c:883:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggev.c:883:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
dggev.c:885:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggev.c:885:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
dggev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggev3.c:883:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggev3.c:883:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
dggev3.c:885:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggev3.c:885:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
dggev3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggev3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggev3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggev3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggev3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggev3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggev3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggev3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggev3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggev3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggev3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggev3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggevx.c:1080:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggevx.c:1080:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
dggevx.c:1082:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
dggevx.c:1082:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
dggevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
16 warnings generated.
17 warnings generated.
14 warnings generated.
dgghrd.c:820:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilq && *ldq < *n || *ldq < 1) {
~~~~^~~~~~~~~~~~ ~~
dgghrd.c:820:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilq && *ldq < *n || *ldq < 1) {
^
( )
dgghrd.c:822:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilz && *ldz < *n || *ldz < 1) {
~~~~^~~~~~~~~~~~ ~~
dgghrd.c:822:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilz && *ldz < *n || *ldz < 1) {
^
( )
dgghrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgghrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgghrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
dggglm.cstatic double dpow_ui(double x, integer n) {
: ^250
:13:dgghrd.c: warning: unused variable 'junk' [-Wunused-variable]
309:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
23dggglm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
:static float spow_ui(float x, integer n) {
^
dggglm.c:282 warning: :unused function 'cpow_ui' [-Wunused-function]
15static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgghrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgghrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgghrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgghrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
unused function 'dpow_ui' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
static double dpow_ui(double x, integer n) {
^
dggglm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
dgghrd.cstatic _Complex float cpow_ui(_Complex float x, integer n) {
^
dggglm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {381:
20: warning: unused function 'cdotc_' [-Wunused-function]
^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgghrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
dggglm.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgghrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
:350static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgghrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
:16static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggglm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggglm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggglm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggglm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggglm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggglm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dgghd3.c:866:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantq && *ldq < *n || *ldq < 1) {
~~~~~~^~~~~~~~~~~~ ~~
dgghd3.c:866:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantq && *ldq < *n || *ldq < 1) {
^
( )
dgghd3.c:868:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantz && *ldz < *n || *ldz < 1) {
~~~~~~^~~~~~~~~~~~ ~~
dgghd3.c:868:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantz && *ldz < *n || *ldz < 1) {
^
( )
dgghd3.c:1017:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
~~~~~~~~~~~~~~~^~~ ~~
dgghd3.c:1017:42: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
^
( )
dgghd3.c:1379:46: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
~~~~~~~~~~~~~~~^~~ ~~
dgghd3.c:1379:46: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
^
( )
dgghd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgghd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgghd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgghd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgghd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgghd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgghd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgghd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgghd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgghd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgghd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgghd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
14 warnings generated.
14 warnings generated.
dgglse.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgglse.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgglse.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgglse.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgglse.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgglse.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgglse.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgglse.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgglse.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgglse.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgglse.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgglse.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dggqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggsvd3.c:963:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvd3.c:963:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
dggsvd3.c:965:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvd3.c:965:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
dggsvd3.c:967:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvd3.c:967:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
dggsvd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggsvd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggsvd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggsvd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggsvd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggsvd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggsvd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggsvd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggsvd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggsvd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggsvd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggsvd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dggsvp3.c:884:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvp3.c:884:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
dggsvp3.c:886:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvp3.c:886:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
dggsvp3.c:888:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dggsvp3.c:888:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
dggsvp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dggsvp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dggsvp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dggsvp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dggsvp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dggsvp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dggsvp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dggsvp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dggsvp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggsvp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dggsvp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dggsvp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgtcon.c12 warnings generated.
:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgtcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgtcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgtcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgtcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgtcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgtcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgtcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
dgtrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgtrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgtrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgtrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgtrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgtrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgtrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgtrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgtrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
15 warnings generated.
dgtsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgtsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgtsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgtsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgtsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgtsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgtsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgtsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgtsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgtsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgtsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgtsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgtsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgtsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgtsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgtsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgtsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dgtts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgtts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgtts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgtts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgtts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgtts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgtts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgtts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgtts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgtts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgtts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhgeqz.c:987:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || ilq && *ldq < *n) {
~~ ~~~~^~~~~~~~~~~~
dhgeqz.c:987:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || ilq && *ldq < *n) {
^
( )
dhgeqz.c:989:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || ilz && *ldz < *n) {
~~ ~~~~^~~~~~~~~~~~
dhgeqz.c:989:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || ilz && *ldz < *n) {
^
( )
dhgeqz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dhgeqz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dhgeqz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dhgeqz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dhgeqz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dhgeqz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dhgeqz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dhgeqz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dhgeqz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhgeqz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhgeqz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhgeqz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz0.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqz0.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqz0.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqz0.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqz0.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqz0.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqz0.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqz0.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqz0.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz0.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz0.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz0.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaqz1.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqz1.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqz1.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqz1.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqz1.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqz1.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqz1.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqz1.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqz1.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz1.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz1.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz1.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlaqz2.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqz2.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqz2.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqz2.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqz2.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqz2.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqz2.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqz2.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqz2.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz2.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz2.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz2.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dlaqz3.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqz3.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqz3.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqz3.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqz3.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqz3.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqz3.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqz3.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqz3.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz3.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz3.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz3.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaqz4.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqz4.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqz4.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqz4.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqz4.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqz4.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqz4.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqz4.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqz4.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz4.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqz4.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqz4.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhsein.c:893:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
dhsein.c:893:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
dhsein.c:895:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dhsein.c:895:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
12 warnings generated.
dhsein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dhsein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dhsein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dhsein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dhsein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dhsein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dhsein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dhsein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dhsein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhsein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhsein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhsein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhseqr.c:923:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dhseqr.c:923:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dhseqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dhseqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dhseqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dhseqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dhseqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dhseqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dhseqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dhseqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dhseqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhseqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dhseqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dhseqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlabrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlabrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlabrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlabrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlabrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlabrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlabrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlabrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlabrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlabrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlabrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlabrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlacon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlacon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlacon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlacon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlacon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlacon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlacon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlacon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlacon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlacon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
13 warnings generated.
dlacn2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlacn2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlacn2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlacn2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlacn2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlacn2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlacn2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlacn2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlacn2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacn2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlacn2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacn2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlaexc.c:791:8: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
~~~~^~~ ~~
dlaexc.c:791:8: note: place parentheses around the '+' expression to silence this warning
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
^
( )
dlaexc.c:791:41: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
~~~~^~~ ~~
dlaexc.c:791:41: note: place parentheses around the '+' expression to silence this warning
(*n1 + 1 << 2) - 5], &c__4, &d__[(*n1 + 1 << 2) - 4], &c__4, &
^
( )
dlaexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaexc.c:dlag2.c:250:38113:: warning: 20unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlag2.c:270:14: :warning: unused function 'cdotc_' [-Wunused-function]warning:
unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaexc.cdlag2.c:412::20282:: 15: warning: unused function 'dpow_ui' [-Wunused-function]
warning: unused function 'zdotc_' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlag2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaexc.c:static _Complex float cpow_ui(_Complex float x, integer n) {443
^
:dlag2.c:20:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
warning: static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlag2.c:350unused function 'cdotu_' [-Wunused-function]
:16static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlag2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlag2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlag2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlag2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlag2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlag2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlags2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlags2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlags2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlags2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlags2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlags2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlags2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlags2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlags2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlags2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlags2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlags2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
dlagtm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagtm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagtm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagtm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagtm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagtm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagtm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagtm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagtm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagtm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagtm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagtm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
dlagv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagv2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagv2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlahr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlahr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlahr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlahr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlahr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlahr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlahr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlahr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlahr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlahr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlahqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlahqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlahqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlahqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlahqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlahqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlahqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlahqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlahqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlahqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaic1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaic1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaic1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaic1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaic1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaic1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaic1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaic1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaic1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaic1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaic1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaic1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaln2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaln2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaln2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaln2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaln2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaln2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaln2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaln2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaln2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaln2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaln2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaln2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dlals0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlals0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlals0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlals0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlals0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlals0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlals0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlals0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlals0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlals0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlals0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlals0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlalsa.c:954:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
dlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:954:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
dlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:968:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:968:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:1013:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
dlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:1013:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
dlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlalsa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlalsa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlalsa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlalsa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlalsa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlalsa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlalsa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlalsa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlalsa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlalsa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlalsa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlangb.c:753:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlangb.c:780:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlangb.c:753:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlangb.c:652:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlangb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlangb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlangb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlangb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlangb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlangb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlangb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlangb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlangb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlangb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlangb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlangb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlalsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlalsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlalsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlalsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlalsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlalsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlalsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlalsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlalsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlalsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlalsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlalsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlange.c:731:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlange.c:751:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlange.c:731:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlange.c:643:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlange.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlange.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlange.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlange.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlange.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlange.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlange.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlange.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlange.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlange.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlange.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlange.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
17 warnings generated.
12 warnings generated.
13 warnings generated.
dlangt.c:727:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlangt.c:743:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
dlangt.c:727:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlangt.c:635:21: note: initialize the variable 'anorm' to silence this warning
doublereal anorm;
^
= 0.0
dlangt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlangt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlangt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlangt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlangt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlangt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlangt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlangt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlangt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlangt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlangt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlangt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dlanhs.c:730:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlanhs.c:753:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlanhs.c:730:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlanhs.c:636:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlanhs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlanhs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlanhs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlanhs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlanhs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlanhs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlanhs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlanhs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlanhs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanhs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlanhs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanhs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansb.c:773:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansb.c:831:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlansb.c:773:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansb.c:657:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlansb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlansb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlansb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlansb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlansb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlansb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlansb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlansb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlansb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansp.c:756:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansp.c:825:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlansp.c:756:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansp.c:643:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlansp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlansp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlansp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlansp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlansp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlansp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlansp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlansp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlansy.c:757:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansy.c:803:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlansy.c:757:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansy.c:651:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlansy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlansy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlansy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlansy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlansy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlansy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlansy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlansy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlansy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlantb.c:920:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantb.c:1003:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlantb.c:920:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantb.c:668:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlantb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlantb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlantb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlantb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlantb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlantb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlantb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlantb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlantb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlantb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
13 warnings generated.
13 warnings generated.
dlantp.c:886:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantp.c:956:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlantp.c:886:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantp.c:653:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlantp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlantp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlantp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlantp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlantp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlantp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlantp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlantp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
13 warnings generated.
^
dlantr.c:898:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantr.c:969:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlantr.c:898:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlantr.c:669:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlantr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlantr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlantr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlantr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlantr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlantr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlantr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlantr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlantr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlantr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlantr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapll.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlapll.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlapll.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlapll.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlapll.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlapll.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlapll.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlapll.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlapll.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapll.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapll.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapll.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlanv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlanv2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlanv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlanv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlanv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlanv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlanv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlanv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlanv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlapmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlapmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlapmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlapmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlapmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlapmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlapmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlapmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlapmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqgb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqgb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqgb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqgb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqgb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqgb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqgb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqgb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqgb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqgb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqgb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqgb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
dlaqp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaqsb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqsb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqsb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqsb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqsb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqsb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqsb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqsb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqsb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqsb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqsp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqsp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqsp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqsp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqsp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqsp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqsp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqsp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqsp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqsp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dlaqsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr0.c:1118:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlaqr0.c:1118:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlaqr0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqr0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqr1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dlaqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr4.c:1120:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlaqr4.c:1120:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlaqr5.c:984:43: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
~~~~^~~ ~~
dlaqr5.c:984:43: note: place parentheses around the '-' expression to silence this warning
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
^
( )
dlaqr5.c:994:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m22 - 1 << 1);
~~~~^~~ ~~
dlaqr5.c:994:20: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m22 - 1 << 1);
^
( )
dlaqr5.c:1158:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
dlaqr5.c:1158:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
dlaqr4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqr4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqr5.c:1370:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
dlaqr5.c:1370:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
13 warnings generated.
dlaqr5.c:1396:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
dlaqr5.c:1396:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
dlaqr5.c:1405:40: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
~~~~~^~~ ~~
dlaqr5.c:1405:40: note: place parentheses around the '-' expression to silence this warning
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
^
( )
dlaqr5.c:1430:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
dlaqr5.c:1430:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
dlaqtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaqtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaqtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlar1v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlar1v.c:270:14: dlaqr5.cwarning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlar1v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
: ^
dlar1v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
250static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlar1v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:13:static _Complex double zpow_ui(_Complex double x, integer n) {
warning: ^unused variable 'junk' [-Wunused-variable]
dlar1v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlar1v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlar1v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlar1v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^
dlaqr5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaqr5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaqr5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaqr5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaqr5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaqr5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaqr5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaqr5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
dlar1v.c ^
dlaqr5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
:412static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaqr5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
:20static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlar1v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlar1v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlar2v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlar2v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlar2v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlar2v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlar2v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlar2v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlar2v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlar2v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlar2v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlar2v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlar2v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlar2v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
iladlr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
iladlr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
iladlr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
iladlr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
iladlr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
iladlr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
iladlr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
iladlr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
iladlr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladlr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iladlr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladlr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
iladlc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
iladlc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
iladlc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
iladlc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
iladlc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
iladlc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
iladlc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
iladlc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
iladlc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladlc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iladlc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladlc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlarf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlarfb_gett.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfb_gett.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfb_gett.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfb_gett.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfb_gett.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfb_gett.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfb_gett.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfb_gett.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfb_gett.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfb_gett.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfb_gett.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfb_gett.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlarfgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfgp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfgp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarft.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarft.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarft.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarft.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarft.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarft.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarft.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarft.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarft.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarft.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarft.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarft.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlarfx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarfy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarfy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarfy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarfy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarfy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarfy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarfy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarfy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarfy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarfy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlargv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlargv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlargv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlargv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlargv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlargv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlargv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlargv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlargv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlargv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlargv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlargv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlarrv.c:823:13: warning: variable 'done' set but not used [-Wunused-but-set-variable]
integer done;
^
dlarrv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlartv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlartv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlartv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlartv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlartv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlartv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlartv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlartv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlartv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlartv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dlarz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
19 warnings generated.
dlarzb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarzb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarzb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarzb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarzb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarzb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarzb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarzb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarzb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarzb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarzb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarzb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarzt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarzt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarzt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarzt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarzt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarzt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarzt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarzt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarzt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarzt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarzt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarzt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf.c:767:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf.c:767:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
dlasyf.c:1109:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf.c:1109:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
dlasy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasyf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasyf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasyf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasyf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasyf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasyf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasyf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasyf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlasyf_rook.c:787:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf_rook.c:787:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
dlasyf_rook.c:1165:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf_rook.c:1165:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
dlasyf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasyf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasyf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasyf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasyf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasyf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasyf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasyf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasyf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlasyf_rk.c:869:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf_rk.c:869:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
dlasyf_rk.c:1238:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
dlasyf_rk.c:1238:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
dlasyf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasyf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasyf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasyf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasyf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasyf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasyf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasyf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasyf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
dlatbs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatbs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatbs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatbs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatbs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatbs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatbs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatbs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatbs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatbs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatbs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatbs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatdf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatdf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatdf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatdf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatdf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatdf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatdf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatdf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatdf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatdf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatdf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatdf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
dlatps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
14 warnings generated.
12 warnings generated.
dlatrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dopgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dopgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dopgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dopgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dopgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dopgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dopgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dopgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dopgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dopgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dopgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dopgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dopmtr.c:748:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~~~~^~~~~~~~~ ~~
dopmtr.c:748:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
dopmtr.c:748:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~ ~~~~~~~^~~~~~~~~~~
dopmtr.c:748:36: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
dopmtr.c:802:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~~~~^~~~~~~~~~~ ~~
dopmtr.c:802:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
dopmtr.c:802:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~ ~~~~~~~^~~~~~~~~
dopmtr.c:802:38: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
dopmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dopmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dopmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dopmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dopmtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dopmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dopmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dopmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dopmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dopmtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dopmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dopmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorg2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorg2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorg2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorg2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorg2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorg2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorg2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorg2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorg2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorg2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorg2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorg2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorg2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorg2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorg2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorg2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorg2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorg2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorg2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorg2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorg2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorg2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorg2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorg2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dorgbr.c:722:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dorgbr.c:722:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
( )
dorgbr.c:722:78: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~~~^~~~
dorgbr.c:722:78: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
(
dorgbr.cdorghr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorghr.c:270:14dorgbr.c:: 270warning: :unused function 'spow_ui' [-Wunused-function]14
: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
static float spow_ui(float x, integer n) {
dorghr.c ^:
282:15:dorgbr.c :warning: 282unused function 'dpow_ui' [-Wunused-function]:
15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
static double dpow_ui(double x, integer n) {dorghr.c
: ^309
:23:dorgbr.c :warning: 309unused function 'cpow_ui' [-Wunused-function]:
23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
static _Complex float cpow_ui(_Complex float x, integer n) {dorghr.c
: ^337
:24:dorgbr.c :warning: 337unused function 'zpow_ui' [-Wunused-function]:
24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorghr.cstatic _Complex double zpow_ui(_Complex double x, integer n) {:
350 ^:
16: dorgbr.cwarning: :unused function 'pow_ii' [-Wunused-function]350
:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorghr.cstatic integer pow_ii(integer x, integer n) {:
367 ^:
16: dorgbr.cwarning: unused function 'dmaxloc_' [-Wunused-function]
:static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
dorghr.c:374static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
16 ^:
warning: dorgbr.cunused function 'smaxloc_' [-Wunused-function]:
443:20: warning: unused function 'cdotu_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorghr.c:381:20static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
^warning:
unused function 'cdotc_' [-Wunused-function]
dorgbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorghr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorghr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorghr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dorgl2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgl2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgl2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgl2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgl2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgl2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgl2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgl2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgl2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgl2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgl2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgl2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dorglq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorglq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorglq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorglq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgql.cdorglq.c:337::25024::13 :warning: unused function 'zpow_ui' [-Wunused-function]
warning: static _Complex double zpow_ui(_Complex double x, integer n) {
unused variable 'junk' [-Wunused-variable]
^
dorglq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static integer pow_ii(integer x, integer n) {
^
dorglq.c:367dorgql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
:16: warning: unused function 'dmaxloc_' [-Wunused-function]static float spow_ui(float x, integer n) {
^
dorgql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
static double dpow_ui(double x, integer n) {
dorglq.c ^:
374:16dorgql.c:: 309warning: :unused function 'smaxloc_' [-Wunused-function]23
: warning: unused function 'cpow_ui' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorglq.c:static _Complex float cpow_ui(_Complex float x, integer n) {381:
20: ^warning:
unused function 'cdotc_' [-Wunused-function]
dorgql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static _Complex double zpow_ui(_Complex double x, integer n) {
^ ^
dorgql.c:350:16dorglq.c:412: warning: unused function 'pow_ii' [-Wunused-function]
:20: static integer pow_ii(integer x, integer n) {
^warning:
unused function 'zdotc_' [-Wunused-function]
dorgql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgql.c:dorglq.c:443:20374:: warning: unused function 'cdotu_' [-Wunused-function]
16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static integer smaxloc_(float *w, integer s, integer e, integer *n)
^ ^
dorglq.c:474:20: warning: dorgql.c:381:20:unused function 'zdotu_' [-Wunused-function] warning:
unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
dorgqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dorgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dorgtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgtsqr_row.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorgtsqr_row.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorgtsqr_row.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorgtsqr_row.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorgtsqr_row.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorgtsqr_row.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorgtsqr_row.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorgtsqr_row.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorgtsqr_row.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtsqr_row.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorgtsqr_row.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorgtsqr_row.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorm2l.c:755:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
12 warnings generated.
dorm2l.c:755:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dorm2l.c:755:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
dorm2l.c:755:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dorm2r.c:755:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dorm2r.c:755:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dorm2r.c:755:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dorm2r.c:755:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dorm2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorm2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorm2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorm2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorm2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorm2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorm2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorm2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorm2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorm2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorm2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorm2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorm2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorm2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorm2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorm2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorm2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorm2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorm2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorm2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dorm22.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorm22.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorm22.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorm22.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorm22.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorm22.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorm22.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorm22.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorm22.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm22.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorm22.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorm22.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
dormbr.c:794:13: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
dormbr.c:794:13: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dormbr.c:794:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
dormbr.c:794:48: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
dormbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormhr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormhr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormhr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormhr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormhr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormhr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormhr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormhr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormhr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormhr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormhr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormhr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
12 warnings generated.
dorml2.c:751:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
dorml2.c:751:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dorml2.c:751:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
dorml2.c:751:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dorml2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorml2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorml2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorml2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorml2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorml2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorml2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorml2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorml2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorml2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorml2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorml2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormql.c:834:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
dormql.c:834:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dormql.c:834:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
dormql.c:834:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dormqr.c:831:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dormqr.c:831:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormqr.c:831:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dormqr.c:831:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormlq.c:833:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
dormlq.c:833:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dormlq.c:833:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
dormlq.c:833:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
dormqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dormr2.c:751:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dormr2.c:751:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormr2.c:751:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dormr2.c:751:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dormr3.c:752:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
dormr3.c:752:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
dormr3.c:752:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
dormr3.c:752:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
dormr3.c:771:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dormr3.c:771:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormr3.c:771:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dormr3.c:771:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormrq.c:836:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dormrq.c:836:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormrq.c:836:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dormrq.c:836:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
14 warnings generated.
dormrz.c:788:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
dormrz.c:788:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
dormrz.c:788:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
dormrz.c:788:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
dormrz.c:860:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
dormrz.c:860:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormrz.c:860:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
dormrz.c:860:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
dormrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
dormtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dormtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dormtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dormtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dormtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dormtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dormtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dormtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dormtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dormtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dormtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dpbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbstf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbstf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbstf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbstf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbstf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbstf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbstf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbstf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbstf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbstf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbstf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbstf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
16 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dpbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpoequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpoequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpoequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpoequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpoequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpoequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpoequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpoequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpoequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpoequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpoequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpoequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpocon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpocon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpocon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpocon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpocon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpocon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpocon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpocon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpocon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpocon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpocon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpocon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dporfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dporfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dporfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dporfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dporfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dporfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dporfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dporfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dporfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dporfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dporfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dporfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
dposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dposvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dposvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dposvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dposvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dposvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dposvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dposvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dposvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dposvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dposvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dposvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dposvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpotri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpotri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpotri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpotri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpotri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpotri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpotri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpotri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpotri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpotri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpotrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpotrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpotrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpotrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpotrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpotrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpotrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpotrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpotrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpotrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dpstrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpstrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpstrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpstrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpstrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpstrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpstrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpstrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpstrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpstrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpstrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dpstf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpstf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpstf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpstf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpstf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpstf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpstf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpstf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpstf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpstf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpstf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dppcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dppcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dppcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dppcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dppcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dppcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dppcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dppcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dppcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dppequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dppequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dppequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dppequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dppequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dppequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dppequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dppequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dppsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dppsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dppsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dppsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dppsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dppsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dppsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dppsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dppsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dppsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dppsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dppsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dppsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dppsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dppsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dppsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dppsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dppsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dppsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dpptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
11 warnings generated.
12 warnings generated.
12 warnings generated.
dpptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dptcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dptcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dptcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dptcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dptcon.c:350:16:dpptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
warning: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
unused function 'pow_ii' [-Wunused-function]dpptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dptcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dptcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
^static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dptcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
dpptrs.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
:337static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dpteqr.c:723:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dpteqr.c:723:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dpteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dptrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dptrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dptrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dptrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dptrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dptrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dptrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dptrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dptrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dptsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dptsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dptsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dptsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dptsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dptsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dptsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dptsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dptsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dptsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dptsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dptsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dptsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dptsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dptsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dptsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
dptts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dptts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dptts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dptts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dptts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dptts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dptts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dptts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dptts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dptts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dptts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
drscl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
drscl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
drscl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
drscl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
drscl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
drscl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
drscl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
drscl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
drscl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
drscl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
drscl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
drscl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsbev.c:738:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbev.c:738:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsbevd.c:808:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbevd.c:808:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dsbevx.c:911:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbevx.c:911:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbgst.c:764:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dsbgst.c:764:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dsbevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
dsbgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgv.c:758:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbgv.c:758:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^dsbgvd.c:835:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
dsbgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbgv.c:381:20: warning: dsbgvd.cunused function 'cdotc_' [-Wunused-function]:
835:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ ^
( )
dsbgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgvx.c:920:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantz && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbgvx.c:920:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantz && *ldq < *n) {
^
( )
dsbgvx.c:936:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbgvx.c:936:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
dsbtrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbtrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbtrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbtrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbtrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbtrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbtrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbtrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbtrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbtrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbtrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbtrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspev.c:715:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspev.c:715:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
13 warnings generated.
12 warnings generated.
dspevd.c:767:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspevd.c:767:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspevx.c:859:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspevx.c:859:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dspgv.c:733:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspgv.c:733:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dspgvx.c:868:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspgvx.c:868:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspgvd.c:791:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dspgvd.c:791:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dspgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
dsprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dspsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dspsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dspsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dspsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dspsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dspsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dspsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dspsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dspsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dspsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dspsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsptrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsptrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsptrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsptrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsptrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsptrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsptrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsptrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsptrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsptrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsptrs.c:931:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
dsptrs.c:931:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
dsptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dstegr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstegr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstegr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstegr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstegr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstegr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstegr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstegr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstegr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstegr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstegr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstegr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dstev.c:688:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dstev.c:688:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dstev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dstevd.c:750:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dstevd.c:750:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dstevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
dstevr.c:945:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dstevr.c:945:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dstevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstevr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsycon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsycon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsycon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsycon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsycon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsycon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsycon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsycon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsycon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsycon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyevr.c:991:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsyevr.c:991:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsyevx.c:893:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsyevx.c:893:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsyevr.c:1141:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
if ((alleig || indeig && *il == 1 && *iu == *n) && ieeeok == 1) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
dsyevr.c:1141:39: note: place parentheses around the '&&' expression to silence this warning
if ((alleig || indeig && *il == 1 && *iu == *n) && ieeeok == 1) {
^
( )
dsyevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
dsygst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
13 warnings generated.
dsygvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsygvx.c:915:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsygvx.c:915:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsygvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
13 warnings generatedstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
.
dsyrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsytrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsytri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs2.c:443:20:12 warnings generated.
warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyconv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyconv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyconv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyconv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyconv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyconv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyconv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyconv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyconv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyconv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyconvf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyconvf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyconvf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyconvf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyconvf.c:337:24: warning: 12 warnings generated.
unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyconvf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyconvf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyconvf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyconvf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconvf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyconvf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconvf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyconvf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyconvf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyconvf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyconvf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyconvf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyconvf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyconvf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyconvf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyconvf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconvf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyconvf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyconvf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsytri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsycon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsycon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsycon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsycon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsycon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsycon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsycon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsycon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsycon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsycon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dsysv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsycon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsycon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsycon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsycon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsycon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsycon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsycon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsycon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsycon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsycon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsycon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsysv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsysv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasyf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasyf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasyf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasyf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasyf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasyf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasyf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasyf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasyf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasyf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsytrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsysv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsysv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsysv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsysv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsysv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsysv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsysv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsysv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsysv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsysv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsysv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dsytrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrf_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrf_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtbcon.cdsytrs_aa_2stage.c::350250::1613:: warning: warning: unused function 'pow_ii' [-Wunused-function]unused variable 'junk' [-Wunused-variable]
static integer pow_ii(integer x, integer n) {
^static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
dtbcon.c:270:static integer dmaxloc_(double *w, integer s, integer e, integer *n)
14 ^:
warning: unused function 'spow_ui' [-Wunused-function]
dsytrs_aa_2stage.c:374:16: warning: static float spow_ui(float x, integer n) {
^
unused function 'smaxloc_' [-Wunused-function]
dtbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrs_aa_2stage.c:381:20: warning: dtbcon.cunused function 'cdotc_' [-Wunused-function]
:309:23: warning: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_aa_2stage.c:412unused function 'cpow_ui' [-Wunused-function]:20
: warning: unused function 'zdotc_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtbcon.c:337:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {24
: ^ warning: unused function 'zpow_ui' [-Wunused-function]
dsytrs_aa_2stage.c:443:20: warning: static _Complex double zpow_ui(_Complex double x, integer n) {unused function 'cdotu_' [-Wunused-function]
^static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]dtbcon.c
:350:16: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dtbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgevc.c:1015:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compl && *ldvl < *n || *ldvl < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
dtgevc.c:1015:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compl && *ldvl < *n || *ldvl < 1) {
^
( )
dtgevc.c:1017:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compr && *ldvr < *n || *ldvr < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
dtgevc.c:1017:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compr && *ldvr < *n || *ldvr < 1) {
^
( )
12 warnings generated.
dtgevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgex2.c:1003:34: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
dlacpy_("Full", n1, n2, &t[(*n1 + 1 << 2) - 4], &c__4, li, &c__4);
~~~~^~~ ~~
dtgex2.c:1003:34: note: place parentheses around the '+' expression to silence this warning
dlacpy_("Full", n1, n2, &t[(*n1 + 1 << 2) - 4], &c__4, li, &c__4);
^
( )
dtgex2.c:1004:34: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
dlacpy_("Full", n1, n2, &s[(*n1 + 1 << 2) - 4], &c__4, &ir[*n2 + 1 + (
~~~~^~~ ~~
dtgex2.c:1004:34: note: place parentheses around the '+' expression to silence this warning
dlacpy_("Full", n1, n2, &s[(*n1 + 1 << 2) - 4], &c__4, &ir[*n2 + 1 + (
^
( )
dtgex2.c:1005:7: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
*n1 + 1 << 2) - 5], &c__4);
~~~~^~~ ~~
dtgex2.c:1005:7: note: place parentheses around the '+' expression to silence this warning
*n1 + 1 << 2) - 5], &c__4);
^
( )
dtgex2.c:1006:58: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
dtgsy2_("N", &c__0, n1, n2, s, &c__4, &s[*n1 + 1 + (*n1 + 1 << 2) - 5]
~~~~^~~ ~~
dtgexc.c:791:35: dtgex2.c:1006:58: note: place parentheses around the '+' expression to silence this warning
dtgsy2_("N", &c__0, n1, n2, s, &c__4, &s[*n1 + 1 + (*n1 + 1 << 2) - 5]
^
( )
dtgex2.c:1007:31: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
, &c__4, &ir[*n2 + 1 + (*n1 + 1 << 2) - 5], &c__4, t, &c__4, &
warning: '&&' within '||' [-Wlogical-op-parentheses]
~~~~^~~ ~~
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
dtgex2.c: ~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
1007:31: note: place parentheses around the '+' expression to silence this warning
, &c__4, &ir[*n2 + 1 + (*n1 + 1 << 2) - 5], &c__4, t, &c__4, &
^
( )
dtgexc.cdtgex2.c:1008:20: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
: t[*n1 + 1 + (*n1 + 1 << 2) - 5], &c__4, li, &c__4, &scale, &
~~~~^~~ ~~
791dtgex2.c:1008:20: note: place parentheses around the '+' expression to silence this warning
t[*n1 + 1 + (*n1 + 1 << 2) - 5], &c__4, li, &c__4, &scale, &
^
( )
:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dtgexc.c:793dtgex2.c:1210:21: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
: n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
~~~~^~~ ~~
35: warning: dtgex2.c:1210:21: note: place parentheses around the '+' expression to silence this warning
'&&' within '||' [-Wlogical-op-parentheses] n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
^
( )
dtgex2.c:1210:47: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
~~^~~ ~~
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {dtgex2.c:
1210:47: note: place parentheses around the '-' expression to silence this warning
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ n2 + 1 + (*n2 + 1 << 2) - 5], &t[m + (m - 1 << 2) - 5]);
^
( )
dtgexc.c:793:35dtgex2.c:1213:45: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
: t[m + (m << 2) - 5] = t[*n2 + 1 + (*n2 + 1 << 2) - 5];
~~~~^~~ ~~
note: dtgex2.c:place parentheses around the '&&' expression to silence this warning1213:45: note: place parentheses around the '+' expression to silence this warning
t[m + (m << 2) - 5] = t[*n2 + 1 + (*n2 + 1 << 2) - 5];
^
( )
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {dtgex2.c:1214:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
t[m - 1 + (m << 2) - 5] = -t[m + (m - 1 << 2) - 5];
~~^~~ ~~
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dtgex2.c:1214:42: note: place parentheses around the '-' expression to silence this warning
t[m - 1 + (m << 2) - 5] = -t[m + (m - 1 << 2) - 5];
^
( )
dtgex2.c:1228:26: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
lda, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
~~~~^~~ ~~
dtgex2.c:1228:26: note: place parentheses around the '+' expression to silence this warning
lda, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
^
( )
dtgex2.c:1233:26: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ldb, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
~~~~^~~ ~~
dtgex2.c:1233:26: note: place parentheses around the '+' expression to silence this warning
ldb, &t[*n2 + 1 + (*n2 + 1 << 2) - 5], &c__4, &c_b5, &work[1],
^
( )
dtgexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgexc.c:381:20:dtgex2.c:250 warning: unused function 'cdotc_' [-Wunused-function]
:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgex2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgex2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^
dtgex2.c:309:23: ^
dtgexc.c:412:warning: 20unused function 'cpow_ui' [-Wunused-function]:
warning: unused function 'zdotc_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgex2.c:337:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
24dtgexc.c:: 443warning: :20unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
warning: ^
unused function 'cdotu_' [-Wunused-function]
dtgex2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgex2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgex2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
dtgex2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^
dtgexc.c:474:20static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgex2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgex2.c:443:20:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
warning: ^unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgex2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsen.c:1066:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
dtgsen.c:1066:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < *n) {
^
( )
dtgsen.c:1068:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
dtgsen.c:1068:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < *n) {
^
( )
dtgsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dtgsja.c:999:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
dtgsja.c:999:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
dtgsja.c:1001:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
dtgsja.c:1001:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
dtgsja.c:1003:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dtgsja.c:1003:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
dtgsja.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgsja.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgsja.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgsja.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgsja.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgsja.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgsja.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgsja.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgsja.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsja.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsja.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsja.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
24 warnings generated.
12 warnings generated.
dtgsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsyl.c:989:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~~~~~~~^~~~~~~~~~ ~~
dtgsyl.c:989:17: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
dtgsyl.c:989:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~ ~~~~~~~~~^~~~~~~~~~~
dtgsyl.c:989:40: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
dtgsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtgsy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtgsy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtgsy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtgsy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtgsy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtgsy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtgsy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtgsy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtgsy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtgsy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dtpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
13 warnings generated.
14 warnings generated.
dtprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {dtptrs.c:250:
13: warning: ^unused variable 'junk' [-Wunused-variable]
dtptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtptrs.c:282:15: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrevc.c:839:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
dtrevc.c:839:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
dtrevc.c:841:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dtrevc.c:841:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
12 warnings generated.
12 warnings generated.
12 warnings generated.
dtrevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrevc3.c:881:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
dtrevc3.c:881:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
dtrevc3.c:883:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
dtrevc3.c:883:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
dtrevc3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrevc3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrevc3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrevc3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrevc3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrevc3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrevc3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrevc3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrevc3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrevc3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrevc3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrevc3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrsen.c:911:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dtrexc.c:710:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dtrexc.c:710:34: note: place parentheses around the '&&' expression to silence this warning
dtrsen.c:911:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
dtrsen.c:957:13: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(job, "E")) {
^~~~~~~~~~~~~~~~
dtrsen.c:962:15: note: uninitialized use occurs here
if (*lwork < lwmin && ! lquery) {
^~~~~
dtrsen.c:957:9: note: remove the 'if' if its condition is always true
} else if (lsame_(job, "E")) {
^~~~~~~~~~~~~~~~~~~~~~
dtrsen.c:846:28: note: initialize the variable 'lwmin' to silence this warning
integer isave[3], lwmin;
^
= 0
dtrexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrsen.c:250:dtrexc.c13::381 :warning: 20unused variable 'junk' [-Wunused-variable]:
warning: unused function 'cdotc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrsen.c:270:14:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
warning: ^unused function 'spow_ui' [-Wunused-function]
dtrexc.c:412:20:static float spow_ui(float x, integer n) {
warning: ^unused function 'zdotc_' [-Wunused-function]
dtrsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrsen.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
309 ^:
23: dtrexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^
^
dtrsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)dtrexc.c:474:20:
warning: unused function 'zdotu_' [-Wunused-function]
^
dtrsen.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
374 ^:
16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
14 warnings generated.
dtrsna.c:882:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wants && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
dtrsna.c:882:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wants && *ldvl < *n) {
^
( )
dtrsna.c:884:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wants && *ldvr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
dtrsna.c:884:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wants && *ldvr < *n) {
^
( )
dtrsna.c:924:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~~~
dtrsna.c:924:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
^
( )
dtrsna.c:1113:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
nn = *n - 1 << 1;
~~~^~~ ~~
dtrsna.c:1113:15: note: place parentheses around the '-' expression to silence this warning
nn = *n - 1 << 1;
^
( )
dtrsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtzrzf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtzrzf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtzrzf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtzrzf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtzrzf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtzrzf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtzrzf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtzrzf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtzrzf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtzrzf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtzrzf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtzrzf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dtrsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
dstemr.c:985:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dstemr.c:985:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dstemr.c:1066:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dstemr.c:1066:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
dstemr.c:1066:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~^~~~~~~~~~~
dstemr.c:1066:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
dstemr.c:1087:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dstemr.c:1087:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
dstemr.c:1087:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~^~~~~~~~~~~
dstemr.c:1087:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
dstemr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstemr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstemr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstemr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstemr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstemr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstemr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstemr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstemr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstemr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstemr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstemr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsgesv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsgesv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsgesv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsgesv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsgesv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsgesv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsgesv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsgesv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsgesv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsgesv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsgesv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsgesv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
17 warnings generated.
12 warnings generated.
dlag2s.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlag2s.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlag2s.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlag2s.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlag2s.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlag2s.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlag2s.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlag2s.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlag2s.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlag2s.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlag2s.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlag2s.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slag2d.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slag2d.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slag2d.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slag2d.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slag2d.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slag2d.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slag2d.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slag2d.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slag2d.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slag2d.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slag2d.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slag2d.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
dlat2s.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlat2s.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlat2s.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlat2s.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlat2s.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlat2s.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlat2s.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlat2s.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlat2s.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlat2s.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlat2s.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlat2s.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansf.c:1367:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansf.c:1598:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
dlansf.c:1367:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlansf.c:738:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
dlansf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlansf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlansf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlansf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlansf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlansf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlansf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlansf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlansf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlansf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlansf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
dpftrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpftrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpftrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpftrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpftrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpftrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpftrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpftrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpftrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpftrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dpftrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpftrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpftrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpftrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpftrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpftrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpftrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpftrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpftrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpftrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpftrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dsfrk.c:754:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
dsfrk.c:754:46: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) {
^
( )
dsfrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsfrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsfrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsfrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsfrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsfrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsfrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsfrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsfrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsfrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsfrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsfrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtfsm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtfsm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtfsm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtfsm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtfsm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtfsm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtfsm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtfsm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtfsm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfsm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtfsm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfsm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dtftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dtfttp.c:711:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
dtfttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtfttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtfttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtfttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtfttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtfttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtfttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtfttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtfttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtfttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtfttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtfttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtfttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtfttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtfttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtfttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtfttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtfttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtfttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtfttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtfttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dtpttf.c:711:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
dtpttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dtpttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
dtrttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtrttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtrttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtrttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtrttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtrttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtrttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtrttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtrttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtrttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtrttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgejsv.c:1123:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
jobv, "W")) || jracc && ! lsvec) {
~~ ~~~~~~^~~~~~~~~~
dgejsv.c:1123:27: note: place parentheses around the '&&' expression to silence this warning
jobv, "W")) || jracc && ! lsvec) {
^
( )
dgejsv.c:1159:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (! (lsvec || rsvec || errest) && *lwork < f2cmax(i__1,i__2) || ! (
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
dgejsv.c:1159:35: note: place parentheses around the '&&' expression to silence this warning
if (! (lsvec || rsvec || errest) && *lwork < f2cmax(i__1,i__2) || ! (
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1160:29: warning: '&&' within '||' [-Wlogical-op-parentheses]
lsvec || rsvec) && errest && *lwork < f2cmax(i__3,i__4) || lsvec
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1160:29: note: place parentheses around the '&&' expression to silence this warning
lsvec || rsvec) && errest && *lwork < f2cmax(i__3,i__4) || lsvec
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1161:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1161:14: note: place parentheses around the '&&' expression to silence this warning
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1161:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~ ~~~~~~~~~~~~~~~~~^~~~
dgejsv.c:1161:64: note: place parentheses around the '&&' expression to silence this warning
&& ! rsvec && *lwork < f2cmax(i__5,i__6) || rsvec && ! lsvec && *
~~~~~~~~~~~~~~~~~^~~~
dgejsv.c:1162:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
lwork < f2cmax(i__7,i__8) || lsvec && rsvec && ! jracc && *lwork
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
dgejsv.c:1162:58: note: place parentheses around the '&&' expression to silence this warning
lwork < f2cmax(i__7,i__8) || lsvec && rsvec && ! jracc && *lwork
~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
dgejsv.c:1163:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
< f2cmax(i__9,i__10) || lsvec && rsvec && jracc && *lwork < f2cmax(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~
dgejsv.c:1163:51: note: place parentheses around the '&&' expression to silence this warning
< f2cmax(i__9,i__10) || lsvec && rsvec && jracc && *lwork < f2cmax(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~
dgejsv.c:1651:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
a_dim1], abs(d__3)) < small || l2kill && (d__4 = a[p + p *
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~
dgejsv.c:1651:45: note: place parentheses around the '&&' expression to silence this warning
a_dim1], abs(d__3)) < small || l2kill && (d__4 = a[p + p *
^
(
dgejsv.c:1672:66: warning: '&&' within '||' [-Wlogical-op-parentheses]
if ((d__1 = a[p + p * a_dim1], abs(d__1)) < small || l2kill && (
~~ ~~~~~~~^~~~
dgejsv.c:1672:66: note: place parentheses around the '&&' expression to silence this warning
if ((d__1 = a[p + p * a_dim1], abs(d__1)) < small || l2kill && (
^
(
dgejsv.c:1791:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (d__1 = a[p + q * a_dim1], abs(d__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1791:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (d__1 = a[p + q * a_dim1], abs(d__1)) <=
^
(
dgejsv.c:1833:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (d__1 = a[p + q * a_dim1], abs(d__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:1833:17: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (d__1 = a[p + q * a_dim1], abs(d__1)) <=
^
(
dgejsv.c:2058:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (d__1 = v[p + q * v_dim1], abs(d__1))
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:2058:18: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (d__1 = v[p + q * v_dim1], abs(d__1))
^
(
dgejsv.c:2627:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && (d__1 = v[p + q * v_dim1], abs(d__1)) <=
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgejsv.c:2627:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && (d__1 = v[p + q * v_dim1], abs(d__1)) <=
^
(
dgesvj.c:986:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
dgesvj.c:986:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgesvj.c:986:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
dgesvj.c:986:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgejsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgejsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgejsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgejsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgejsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgejsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgejsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgejsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgejsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgejsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
dgesvj.c:1234:51: warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {'&&' within '||' [-Wlogical-op-parentheses]
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~
^
dgejsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {dgesvj.c:1234:
^
dgejsv.c:51474: note: place parentheses around the '&&' expression to silence this warning
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {:
^20
: ( )
warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvj.c:2321:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ ~~
dgesvj.c:2321:18: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
^
( )
dgesvj.c:2321:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dgesvj.c:2321:52: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
^
(
dgesvj.c:880:16: warning: variable 'large' set but not used [-Wunused-but-set-variable]
doublereal large, apoaq, aqoap;
^
dgesvj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesvj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesvj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesvj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesvj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesvj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesvj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesvj.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesvj.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvj.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvj.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dgsvj0.c:824:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
dgsvj0.c:824:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgsvj0.c:824:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
dgsvj0.c:824:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgsvj0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgsvj0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgsvj0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgsvj0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgsvj0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgsvj0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgsvj0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgsvj0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgsvj0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgsvj0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgsvj0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgsvj0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgsvj1.c:846:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
dgsvj1.c:846:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgsvj1.c:846:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
dgsvj1.c:846:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
dgsvj1.c:777:19: warning: variable 'large' set but not used [-Wunused-but-set-variable]
doublereal t, large, apoaq, aqoap;
^
13 warnings generated.
dgsvj1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgsvj1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgsvj1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgsvj1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgsvj1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgsvj1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgsvj1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgsvj1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgsvj1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgsvj1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgsvj1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgsvj1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dgeequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
dsyequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
14 warnings generated.
dpoequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpoequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpoequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpoequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpoequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpoequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpoequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpoequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpoequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpoequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpoequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
11 warnings generated.
dgbequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgbequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgbequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgbequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgbequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgbequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgbequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgbequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgbequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgbequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlapmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlapmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlapmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlapmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlapmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlapmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlapmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlapmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbbcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dbbcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dbbcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dbbcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dbbcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dbbcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dbbcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dbbcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dbbcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbbcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbbcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbbcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dorbdb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
18 warnings generated.
dorbdb2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dorbdb5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorbdb6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorbdb6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorbdb6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorbdb6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorbdb6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorbdb6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorbdb6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorbdb6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorbdb6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorbdb6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
dorcsd.c:836:6: warning: variable 'lorbdbworkmin' set but not used [-Wunused-but-set-variable]
lorbdbworkmin, lbbcsdworkopt;
^
dorcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorcsd2by1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorcsd2by1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorcsd2by1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorcsd2by1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorcsd2by1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorcsd2by1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorcsd2by1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorcsd2by1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorcsd2by1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorcsd2by1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorcsd2by1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorcsd2by1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrt.c:698:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
dgeqrt.c:698:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
dgeqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgeqrt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqrt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqrt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqrt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqrt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqrt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqrt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqrt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqrt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqrt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
dgemqrt.c:748:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dgemqrt.c:748:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
dgemqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgemqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgemqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgemqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgemqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgemqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgemqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgemqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgemqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgemqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpqrt.c:748:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
dtpqrt.c:748:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
dtpqrt.c:750:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dtpqrt.c:750:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
12 warnings generated.
dtpqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
13 warnings generated.
dtpmqrt.c:802:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dtpmqrt.c:802:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
dtpmqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpmqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpmqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpmqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpmqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpmqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpmqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpmqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpmqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpmqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpmqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpmqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtprfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtprfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtprfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtprfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtprfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtprfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtprfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtprfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtprfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtprfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtprfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtprfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqt.c:694:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
dgelqt.c:694:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
dgelqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelqt.c:350:16: warning: 12unused function 'pow_ii' [-Wunused-function]
warningsstatic integer pow_ii(integer x, integer n) {
^
dgelqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
generated.
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelqt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelqt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelqt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelqt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelqt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelqt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelqt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelqt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelqt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelqt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
25 warnings generated.
12 warnings generated.
13 warnings generated.
dgemlqt.c:747:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dgemlqt.c:747:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
dgemlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgemlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgemlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgemlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgemlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgemlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgemlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgemlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgemlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgemlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dgetsls.c:718:23: warning: variable 'mnk' set but not used [-Wunused-but-set-variable]
integer lw1, lw2, mnk, lwm, lwo;
^
dgeqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgeqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgeqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgeqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgeqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgeqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgeqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgeqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgeqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgeqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgeqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetsls.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgetsls.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgetsls.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgetsls.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgetsls.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgetsls.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgetsls.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgetsls.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgetsls.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetsls.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetsls.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetsls.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetsqrhrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgetsqrhrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgetsqrhrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgetsqrhrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgetsqrhrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgetsqrhrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgetsqrhrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgetsqrhrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgetsqrhrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetsqrhrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgetsqrhrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgetsqrhrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatsqr.c:726:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dlatsqr.c:726:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
dlatsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
13 warnings generated.
12 warnings generated.
13 warnings generated.
dlamtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlamtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlamtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlamtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlamtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlamtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlamtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlamtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlamtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlamtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgemqr.c:793:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
dgemqr.c:793:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
dgemqr.c:793:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
dgemqr.c:793:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
dgemqr.c:694:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
dgemqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgemqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgemqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgemqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgemqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgemqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgemqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgemqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgemqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgemqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaswlq.c:722:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dlaswlq.c:722:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
dlaswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgelq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgelq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgelq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgelq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgelq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgelq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgelq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgelq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgelq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgelq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlamswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlamswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlamswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlamswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlamswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlamswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlamswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlamswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlamswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlamswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
dgemlq.c:792:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
dgemlq.c:792:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
dgemlq.c:792:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
dgemlq.c:792:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
dgemlq.c:693:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
12 warnings generated.
dgemlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgemlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgemlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgemlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgemlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgemlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgemlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgemlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgemlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgemlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgemlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtplqt.c:748:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
dtplqt.c:748:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
dtplqt.c:750:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dtplqt.c:750:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
dtplqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtplqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtplqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtplqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtplqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtplqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtplqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtplqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtplqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtplqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtplqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtplqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
15 warnings generated.
12 warnings generated.
14 warnings generated.
dtpmlqt.c:800:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
dtpmlqt.c:800:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
dtpmlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtpmlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtpmlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtpmlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtpmlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtpmlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtpmlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtpmlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtpmlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpmlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtpmlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtpmlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtplqt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dtplqt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dtplqt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dtplqt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dtplqt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dtplqt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dtplqt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dtplqt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dtplqt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtplqt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dtplqt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dtplqt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorhr_col.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dorhr_col.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dorhr_col.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dorhr_col.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dorhr_col.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dorhr_col.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dorhr_col.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dorhr_col.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dorhr_col.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorhr_col.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dorhr_col.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dorhr_col.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaorhr_col_getrfnp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaorhr_col_getrfnp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaorhr_col_getrfnp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaorhr_col_getrfnp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaorhr_col_getrfnp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaorhr_col_getrfnp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaorhr_col_getrfnp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaorhr_col_getrfnp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaorhr_col_getrfnp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaorhr_col_getrfnp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaorhr_col_getrfnp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaorhr_col_getrfnp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
dlaorhr_col_getrfnp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaorhr_col_getrfnp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaorhr_col_getrfnp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaorhr_col_getrfnp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaorhr_col_getrfnp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaorhr_col_getrfnp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaorhr_col_getrfnp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaorhr_col_getrfnp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaorhr_col_getrfnp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaorhr_col_getrfnp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaorhr_col_getrfnp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaorhr_col_getrfnp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrd_2stage.c:766:13: warning: variable 'wantq' set but not used [-Wunused-but-set-variable]
logical wantq, upper;
^
dsytrd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dsytrd_sy2sb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrd_sy2sb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsytrd_sy2sb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsytrd_sy2sb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsytrd_sy2sb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrd_sy2sb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrd_sy2sb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrd_sy2sb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrd_sy2sb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_sy2sb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrd_sy2sb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_sy2sb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsb2st_kernels.c:700:13: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable]
integer ajeter;
^
dsytrd_sb2st.c:762:59: warning: variable 'nthreads' set but not used [-Wunused-but-set-variable]
integer thed, indv, myid, indw, apos, dpos, abofdpos, nthreads, i__, k, m,
^
dsytrd_sb2st.c:763:14: warning: variable 'debug' set but not used [-Wunused-but-set-variable]
edind, debug;
^
dsytrd_sb2st.c:765:20: warning: variable 'sidev' set but not used [-Wunused-but-set-variable]
integer lhmin, sidev, sizea, shift, stind, colpt, lwmin, awpos;
^
dsytrd_sb2st.c:780:42: warning: variable 'nbtiles' set but not used [-Wunused-but-set-variable]
integer lda, tid, ldv, stt, sweepid, nbtiles, sizetau, thgrsiz;
^
dsb2st_kernels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsb2st_kernels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsb2st_kernels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsb2st_kernels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsb2st_kernels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsb2st_kernels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsb2st_kernels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsb2st_kernels.c:374:16: warning: dsytrd_sb2st.c:250:13:unused function 'smaxloc_' [-Wunused-function] warning:
unused variable 'junk' [-Wunused-variable]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsb2st_kernels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsb2st_kernels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsb2st_kernels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsb2st_kernels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsytrd_sb2st.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]dsyevd_2stage.c:
250:13: warning: unused variable 'junk' [-Wunused-variable]static float spow_ui(float x, integer n) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevd_2stage.c:270:14dsytrd_sb2st.c:282:15: warning: : warning: unused function 'dpow_ui' [-Wunused-function]unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
static double dpow_ui(double x, integer n) {
^
^dsyevd_2stage.c:309:
23: warning: unused function 'cpow_ui' [-Wunused-function]
dsytrd_sb2st.cstatic _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevd_2stage.c:350309:23: :16: warning: unused function 'pow_ii' [-Wunused-function]warning:
unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
static integer pow_ii(integer x, integer n) {
^
dsytrd_sb2st.c:337:24dsyevd_2stage.c:367: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsytrd_sb2st.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsytrd_sb2st.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsytrd_sb2st.c:37416: warning: unused function 'dmaxloc_' [-Wunused-function]:
16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsytrd_sb2st.c:381:20: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
warning: ^
unused function 'cdotc_' [-Wunused-function]
dsyevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_sb2st.c:412:20: warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
unused function 'zdotc_' [-Wunused-function]
^
dsyevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsytrd_sb2st.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsytrd_sb2st.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dsyevx_2stage.c:949:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsyevx_2stage.c:949:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
12 warnings generated.
dsyevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
dsyevr_2stage.c:1049:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsyevr_2stage.c:1049:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsyevr_2stage.c:1197:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
if ((alleig || indeig && *il == 1 && *iu == *n) && ieeeok == 1) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
dsyevr_2stage.c:1197:39: note: place parentheses around the '&&' expression to silence this warning
if ((alleig || indeig && *il == 1 && *iu == *n) && ieeeok == 1) {
^
( )
dsyevr_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsyevr_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsyevr_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsyevr_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsyevr_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsyevr_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsyevr_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsyevr_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsyevr_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevr_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsyevr_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsyevr_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dsbev_2stage.c:812:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbev_2stage.c:812:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevx_2stage.c:985:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbevx_2stage.c:985:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevd_2stage.c:865:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dsbevd_2stage.c:865:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dsbevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsbevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsbevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsbevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsbevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsbevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsbevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsbevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsbevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsbevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsbevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
dsygv_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsygv_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsygv_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsygv_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsygv_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsygv_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsygv_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsygv_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsygv_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygv_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsygv_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsygv_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
16 warnings generated.
12 warnings generated.
13 warnings generated.
dgesvdq.c:1097:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dgesvdq.c:1097:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
dgesvdq.c:1097:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dgesvdq.c:1097:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
dgesvdq.c:1099:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dgesvdq.c:1099:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
dgesvdq.c:1099:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
dgesvdq.c:1099:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
dgesvdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dgesvdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dgesvdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dgesvdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dgesvdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dgesvdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dgesvdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dgesvdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dgesvdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dgesvdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dgesvdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spotrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spotrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spotrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spotrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spotrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spotrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spotrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spotrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spotrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spotrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpotrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpotrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpotrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpotrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpotrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpotrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpotrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpotrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpotrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpotrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgetrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgetrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgetrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgetrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgetrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgetrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgetrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgetrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgetrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cbdsqr.c:839:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
cbdsqr.c:839:27: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
cbdsqr.c:839:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:839:53: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:843:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
cbdsqr.c:843:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
cbdsqr.c:843:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:843:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:1097:23: warning: '&&' within '||' [-Wlogical-op-parentheses]
r__1)) || tol < 0.f && (r__3 = e[m - 1], abs(r__3)) <= thresh)
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:1097:23: note: place parentheses around the '&&' expression to silence this warning
r__1)) || tol < 0.f && (r__3 = e[m - 1], abs(r__3)) <= thresh)
^
( )
cbdsqr.c:1129:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
) || tol < 0.f && (r__3 = e[ll], abs(r__3)) <= thresh) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cbdsqr.c:1129:18: note: place parentheses around the '&&' expression to silence this warning
) || tol < 0.f && (r__3 = e[ll], abs(r__3)) <= thresh) {
^
( )
cgbbrd.c:806:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:806:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:808:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:808:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:810:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:810:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cgbbrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbbrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbbrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbbrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbbrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbbrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbbrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbbrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbbrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbbrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^cbdsqr.c:250:
cgbbrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
13static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
: ^
cgbbrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
warning: ^
unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cbdsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cbdsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cbdsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cbdsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cbdsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cbdsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cbdsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cbdsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cbdsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cbdsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cbdsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
cgbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
cgbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
18 warnings generated.
12 warnings generated.
cgbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgebak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgebak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgebak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgebak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgebak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgebak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgebak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgebak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgebak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgebak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgebal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgebal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgebal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgebal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgebal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgebal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgebal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgebal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgebal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgebal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgebd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgebd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgebd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgebd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgebd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgebd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgebd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgebd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgebd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgebd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgebrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgebrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgebrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgebrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgebrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgebrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgebrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgebrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgebrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgebrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgebrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
cgecon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgecon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgecon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgecon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgecon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgecon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgecon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgecon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgecon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgecon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgecon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgecon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgees.c:799:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgees.c:799:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
cgees.c:940:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&w[i__]);
^
cgees.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgees.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgees.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgees.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgees.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgees.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgees.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgees.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgees.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgees.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgees.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgees.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeesx.c:845:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
cgeesx.c:845:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
cgeesx.c:852:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgeesx.c:852:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
cgeesx.c:1003:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&w[i__]);
^
cgeesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeev.c:799:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgeev.c:799:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
cgeev.c:801:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgeev.c:801:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
14 warnings generated.
cgeev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeevx.c:918:6: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! (wantvl && wantvr)) {
^~~~~~~~~~~~~~~~~~~~~~~
cgeevx.c:918:6: note: place parentheses around the '&&' expression to silence this warning
&& ! (wantvl && wantvr)) {
^
)
cgeevx.c:924:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgeevx.c:924:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
cgeevx.c:926:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
cgeevx.c:926:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
12 warnings generated.
cgeevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
16 warnings generated.
cgehd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgehd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgehd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgehd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgehd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgehd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgehd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgehd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgehd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgehd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgehd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgehd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgehrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgehrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgehrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgehrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgehrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgehrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgehrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgehrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgehrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgehrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgehrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgehrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgelq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
cgelqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgelsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
cgelss.c:710:51: warning: variable 'lwork_cgeqrf__' set but not used [-Wunused-but-set-variable]
integer itau, lwork_cgebrd__, lwork_cgelqf__, lwork_cgeqrf__,
^
cgelss.c:712:6: warning: variable 'lwork_cunmqr__' set but not used [-Wunused-but-set-variable]
lwork_cunmqr__;
^
12 warnings generated.
cgelss.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelss.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelss.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelss.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelss.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelss.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelss.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelss.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelss.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelss.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelss.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelss.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeql2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeql2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeql2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeql2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeql2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeql2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeql2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeql2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeql2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeql2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeql2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeql2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqlf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqlf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqlf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqlf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqlf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqlf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqlf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqlf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqlf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqlf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqlf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqlf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgeqp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgeqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqr2p.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqr2p.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqr2p.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqr2p.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqr2p.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqr2p.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqr2p.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqr2p.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqr2p.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr2p.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqr2p.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr2p.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
14 warnings generated.
cgeqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
cgeqrfp.c:static integer dmaxloc_(double *w, integer s, integer e, integer *n)250
: ^
13cgeqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
: warning: unused variable 'junk' [-Wunused-variable]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrfp.c:270:14: ^
cgeqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqrfp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqrfp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]cgeqrf.c:443:20
: warning: unused function 'cdotu_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
^
cgeqrfp.c:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {337
: ^24
: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqrfp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqrfp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqrfp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqrfp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrfp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqrfp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrfp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgerfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgerfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgerfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgerfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgerfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgerfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgerfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgerfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgerfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgerfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgerq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgerq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgerq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgerq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgerq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgerq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgerq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgerq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgerq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgerq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgesc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgerqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgerqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgerqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgerqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgerqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgerqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgerqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgerqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgerqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgerqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgerqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesdd.c:866:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~^~~~~~~~~~~~
cgesdd.c:866:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
( )
cgesdd.c:866:68: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
cgesdd.c:866:68: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
(
cgesdd.c:869:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~
cgesdd.c:869:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
cgesdd.c:869:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~~~~
cgesdd.c:869:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
cgesdd.c:870:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
wntqo && *m >= *n && *ldvt < *n) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
cgesdd.c:870:24: note: place parentheses around the '&&' expression to silence this warning
wntqo && *m >= *n && *ldvt < *n) {
^
( )
12 warnings generated.
cgesvd.c:843:62: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
~~ ~~~~~~^~~~~~~~
cgesvd.c:843:62: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
^
( )
cgesvd.c:851:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntuas && *ldu < *m) {
~~ ~~~~~~~^~~~~~~~~~~~
cgesvd.c:851:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntuas && *ldu < *m) {
^
( )
cgesvd.c:853:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~
cgesvd.c:853:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
cgesvd.c:853:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~~~~
cgesvd.c:853:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
cgesdd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesdd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesdd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesdd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesdd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesdd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesdd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesdd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesdd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesdd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesdd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesdd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgesvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvj.c:1001:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
cgesvj.c:1001:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
cgesvj.c:1001:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
cgesvj.c:1001:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
cgesvj.c:1252:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~
cgesvj.c:1252:51: note: place parentheses around the '&&' expression to silence this warning
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
^
( )
cgesvdx.c:836:10: warning: variable 'abstol' set but not used [-Wunused-but-set-variable]
real abstol;
^
cgesvj.c:2236:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ ~~
cgesvj.c:2236:19: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
^
( )
cgesvj.c:2236:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cgesvj.c:2236:54: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1.f && sva[1] < big / skl || skl < 1.f && sva[f2cmax(n2,1)] >
^
(
cgesvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvdx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesvj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesvj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesvj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesvj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesvj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesvj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesvj.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesvj.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvj.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgejsv.c:1243:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
jobu, "W") && rsvec && l2tran)) {
~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
cgejsv.c:1243:26: note: place parentheses around the '&&' expression to silence this warning
jobu, "W") && rsvec && l2tran)) {
^
)
cgejsv.c:1246:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
jobv, "W") && lsvec && l2tran)) {
~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
cgejsv.c:1246:26: note: place parentheses around the '&&' expression to silence this warning
jobv, "W") && lsvec && l2tran)) {
^
)
cgejsv.c:2287:7: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& c_abs(&a[p + p * a_dim1]) < temp1) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cgejsv.c:2287:7: note: place parentheses around the '&&' expression to silence this warning
&& c_abs(&a[p + p * a_dim1]) < temp1) {
^
)
cgejsv.c:2307:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (c_abs(&a[p + p * a_dim1]) < small || l2kill && c_abs(&a[p + p
~~ ~~~~~~~^~~~~~~~~~~~~~~~~
cgejsv.c:2307:54: note: place parentheses around the '&&' expression to silence this warning
if (c_abs(&a[p + p * a_dim1]) < small || l2kill && c_abs(&a[p + p
^
(
cgejsv.c:2453:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && c_abs(&a[p + q * a_dim1]) <= temp1 || p <
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
cgejsv.c:2453:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && c_abs(&a[p + q * a_dim1]) <= temp1 || p <
^
( )
cgejsv.c:2500:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && c_abs(&a[p + q * a_dim1]) <= temp1 || p < q)
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
cgejsv.c:2500:17: note: place parentheses around the '&&' expression to silence this warning
if (p > q && c_abs(&a[p + q * a_dim1]) <= temp1 || p < q)
^
( )
cgejsv.c:2527:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
~~~~~~~~~~~~~~~~~^~~~~~~~~~ ~~
cgejsv.c:2527:33: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
^
( )
cgejsv.c:2527:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
cgejsv.c:2527:64: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
^
( )
cgejsv.c:2749:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && c_abs(&v[p + q * v_dim1]) <= temp1 ||
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
cgejsv.c:2749:18: note: place parentheses around the '&&' expression to silence this warning
if (p > q && c_abs(&v[p + q * v_dim1]) <= temp1 ||
^
( )
cgejsv.c:3355:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && c_abs(&v[p + q * v_dim1]) <= temp1 || p <
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
cgejsv.c:3355:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && c_abs(&v[p + q * v_dim1]) <= temp1 || p <
^
( )
cgsvj1.c:847:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
cgsvj0.c:827:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
cgsvj1.c:847:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
cgsvj1.c:847:44cgsvj0.c:827:22:: note: place parentheses around the '&&' expression to silence this warning
warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) { ( )
~~ ~~~~~~^~~~~~~~~~~~~
cgsvj0.c:827:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
cgsvj1.c:847:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
cgsvj0.c:827:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
cgsvj1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgsvj1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgsvj1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgsvj1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgsvj1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgsvj1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgsvj1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgsvj1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgsvj1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgsvj1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgsvj1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgsvj0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgsvj0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgsvj0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgsvj0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgsvj0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgsvj0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgsvj0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgsvj0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgsvj0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgsvj0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgsvj0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgejsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgejsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgejsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgejsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgejsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgejsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgejsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgejsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgejsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgejsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgejsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgejsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
17 warnings generated.
cgetc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgetc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgetc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgetc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgetc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgetc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgetc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgetc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgetc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
cgetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgetri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgetri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggbak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggbak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggbak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggbak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggbak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggbak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggbak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggbak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggbak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggbak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggbak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggbak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgges.c:926:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
cgges.c:926:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
cggbal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggbal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggbal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggbal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggbal.ccgges.c:928::35036: :warning: '&&' within '||' [-Wlogical-op-parentheses]
16 } else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
: warning: unused function 'pow_ii' [-Wunused-function]
cgges.c:928:36: note: place parentheses around the '&&' expression to silence this warning
static integer pow_ii(integer x, integer n) {
^
cggbal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( ) ^
cggbal.c:
374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggbal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggbal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggbal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggbal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgges.c:1120:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
cgges.c:1171:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
cgges.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgges.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgges.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgges.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgges.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgges.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgges.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgges.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgges.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgges.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgges.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgges.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
cgges3.c:923:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
cgges3.c:923:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
cgges3.c:925:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
cgges3.c:925:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
cgges3.c:1129:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
cgges3.c:1179:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
cgges3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgges3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgges3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgges3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgges3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgges3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgges3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgges3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgges3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgges3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgges3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgges3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
16 warnings generated.
16 warnings generated.
cggesx.c:999:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
cggesx.c:999:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
cggesx.c:1008:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
cggesx.c:1008:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
cggesx.c:1010:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
cggesx.c:1010:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
cggesx.c:1216:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
cggesx.c:1294:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
cggesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggev.c:874:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggev.c:874:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
cggev.c:876:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggev.c:876:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
cggev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggev3.c:870:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggev3.c:870:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
cggev3.c:872:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggev3.c:872:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
cggev3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggev3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggev3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggev3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggev3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggev3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggev3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggev3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggev3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggev3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggev3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggev3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggevx.c:1058:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggevx.c:1058:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
cggevx.c:1060:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
cggevx.c:1060:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
cggevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
cggglm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggglm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggglm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggglm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggglm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggglm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggglm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggglm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggglm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggglm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggglm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggglm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgghrd.c:818:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilq && *ldq < *n || *ldq < 1) {
~~~~^~~~~~~~~~~~ ~~
cgghrd.c:818:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilq && *ldq < *n || *ldq < 1) {
^
( )
cgghrd.c:820:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilz && *ldz < *n || *ldz < 1) {
~~~~^~~~~~~~~~~~ ~~
cgghrd.c:820:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilz && *ldz < *n || *ldz < 1) {
^
( )
cgghrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgghrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgghrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgghrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgghrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgghrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgghrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgghrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgghrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgghrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgghrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgghrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
14 warnings generated.
14 warnings generated.
11 warnings generated.
14 warnings generated.
cgghd3.c:869:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantq && *ldq < *n || *ldq < 1) {
~~~~~~^~~~~~~~~~~~ ~~
cgghd3.c:869:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantq && *ldq < *n || *ldq < 1) {
^
( )
cgghd3.c:871:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantz && *ldz < *n || *ldz < 1) {
~~~~~~^~~~~~~~~~~~ ~~
cgghd3.c:871:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantz && *ldz < *n || *ldz < 1) {
^
( )
cgghd3.c:1044:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
~~~~~~~~~~~~~~~^~~ ~~
cgghd3.c:1044:42: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
^
( )
cgghd3.c:1541:46: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
~~~~~~~~~~~~~~~^~~ ~~
cgghd3.c:1541:46: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
^
( )
cgghd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgghd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgghd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgghd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgghd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgghd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgghd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgghd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgghd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgghd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgghd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgghd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggqrf.c:cgglse.c:250:13:270:14: warning: warning: unused function 'spow_ui' [-Wunused-function]
unused variable 'junk' [-Wunused-variable]
static float spow_ui(float x, integer n) {
^static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggqrf.c:282:15:cgglse.c :warning: unused function 'dpow_ui' [-Wunused-function]
270:14: warning: unused function 'spow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^static float spow_ui(float x, integer n) {
^
cggqrf.c:309cgglse.c::23282:: 15warning: :unused function 'cpow_ui' [-Wunused-function]
warning: unused function 'dpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static double dpow_ui(double x, integer n) {
^ ^
cggqrf.ccgglse.c::337309::2423: warning: unused function 'zpow_ui' [-Wunused-function]
: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static integer pow_ii(integer x, integer n) {
^ ^
cggqrf.c:367:16cgglse.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
: static _Complex double zpow_ui(_Complex double x, integer n) {warning:
^unused function 'dmaxloc_' [-Wunused-function]
cgglse.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
static integer pow_ii(integer x, integer n) {
cggqrf.c ^:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
cgglse.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^ ^
cgglse.c:374cggqrf.c::16381:: 20warning: :unused function 'smaxloc_' [-Wunused-function]
warning: unused function 'cdotc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgglse.cstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgglse.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgglse.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgglse.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
cggsvd3.c:970:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvd3.c:970:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
cggsvd3.c:972:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvd3.c:972:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
cggsvd3.c:974:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvd3.c:974:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
cggsvp3.c:891:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvp3.c:891:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
cggsvp3.c:893:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvp3.c:893:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
cggsvp3.c:895:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cggsvp3.c:895:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
cggsvd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggsvd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggsvd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggsvd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggsvd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggsvd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggsvd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggsvd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggsvd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggsvd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggsvd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggsvd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggsvp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cggsvp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cggsvp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cggsvp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cggsvp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cggsvp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cggsvp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cggsvp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cggsvp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggsvp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cggsvp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cggsvp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgtcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgtcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgtcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgtcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgtcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgtcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgtcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgtcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
cgtrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgtrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgtrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgtrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgtrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgtrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgtrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgtrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgtrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgtsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgtsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgtsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgtsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgtsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgtsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgtsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgtsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
cgtsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgtsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgtsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgtsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgtsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgtsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgtsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgtsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgtsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cgtts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgtts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgtts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgtts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgtts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgtts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgtts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgtts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgtts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgtts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgtts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbev.c:741:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbev.c:741:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chbevd.c:842:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbevd.c:842:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chbevx.c:914:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbevx.c:914:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
22 warnings generated.
13 warnings generated.
chbgst.c:772:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
chbgst.c:772:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
chbgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chbgv.c:764:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbgv.c:764:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbgvd.c:869:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbgvd.c:869:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
chbgvx.c:928:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantz && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbgvx.c:928:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantz && *ldq < *n) {
^
( )
chbgvx.c:944:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbgvx.c:944:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbtrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbtrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbtrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbtrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbtrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbtrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbtrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbtrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbtrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbtrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbtrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbtrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
checon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
checon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
checon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
checon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
checon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
checon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
checon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
checon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
checon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
checon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cheevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cheevr.c:1018:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cheevr.c:1018:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
cheevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cheevx.c:900:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cheevx.c:900:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
cheevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chegs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
chegvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chegvx.c:922:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chegvx.c:922:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chegvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cherfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cherfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cherfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cherfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cherfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cherfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cherfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cherfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cherfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cherfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cherfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cherfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
chetd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
chetf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
chetrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
chetri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
cheswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
1212 warnings generated.
warnings generated.
12 warnings generated.
chetrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
checon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
checon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
checon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
checon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
checon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
checon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
checon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
checon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
checon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
checon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chesv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chetf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chetrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
chetri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
chetrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
checon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
checon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
checon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
checon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
checon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
checon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
checon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
checon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
checon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
checon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
checon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
chesv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chetrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chetrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chesv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chesv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chesv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chesv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chesv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chesv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chesv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chesv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chesv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chesv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahef_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahef_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahef_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahef_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahef_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahef_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahef_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahef_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
chetrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrf_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrf_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chetrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrs_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrs_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
chgeqz.c:947:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || ilq && *ldq < *n) {
~~ ~~~~^~~~~~~~~~~~
chgeqz.c:947:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || ilq && *ldq < *n) {
^
( )
chgeqz.c:949:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || ilz && *ldz < *n) {
~~ ~~~~^~~~~~~~~~~~
chgeqz.c:949:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || ilz && *ldz < *n) {
^
( )
chpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chgeqz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chgeqz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chgeqz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chgeqz.c:335:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chgeqz.c:348:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chgeqz.c:365:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chgeqz.c:372:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chgeqz.c:379:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chgeqz.c:410:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chgeqz.c:441:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chgeqz.c:472:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpev.c:720:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpev.c:720:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
12 warnings generated.
chpev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chpevd.c:793:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpevd.c:793:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chpevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpevx.c:865:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpevx.c:865:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chpevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
chpgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgv.c:737:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpgv.c:737:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chpgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
11 warnings generated.
chpgvd.c:812:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpgvd.c:812:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chpgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgvx.c:873:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chpgvx.c:873:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chpgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chptrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chptrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chptrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chptrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chptrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chptrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chptrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chptrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chptrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chpsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chpsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chpsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chpsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chpsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chpsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chpsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chpsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chpsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chpsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
chptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
chsein.c:857:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
chsein.c:857:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
chsein.c:859:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
chsein.c:859:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
chptrs.c:991:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
chptrs.c:991:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
chsein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chsein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chsein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chsein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chsein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chsein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chsein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chsein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chsein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chsein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chsein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chsein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
chseqr.c:906:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
chseqr.c:906:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
chseqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chseqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chseqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chseqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chseqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chseqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chseqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chseqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chseqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chseqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chseqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chseqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
14 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
clabrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clabrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clabrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clabrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clabrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clabrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clabrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clabrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clabrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clabrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clabrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clabrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clacgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacn2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacn2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacn2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacn2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacn2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacn2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacn2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacn2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacn2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacn2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacn2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacn2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clacp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clacpy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacpy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacpy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacpy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacpy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacpy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacpy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacpy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacpy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacpy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacpy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacpy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
clacrm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacrm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacrm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacrm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacrm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacrm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacrm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacrm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacrm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacrm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacrm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacrm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clacrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clacrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clacrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clacrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clacrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clacrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clacrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clacrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clacrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clacrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cladiv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cladiv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cladiv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cladiv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cladiv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cladiv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cladiv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cladiv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cladiv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cladiv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cladiv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cladiv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claed0.c:799:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
claed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
claed0.c:799:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
claed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
claed0.c:802:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
claed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
claed0.c:802:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
claed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
12 warnings generated.
claed0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claed0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claed0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claed0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claed0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claed0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claed0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claed0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claed0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claed7.c:867:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
claed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
claed7.c:867:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
claed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
claed7.c:871:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
claed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
claed7.c:871:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
claed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
claed7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claed7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claed7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claed7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claed7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claed7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claed7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claed7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claed7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
15 warnings generated.
claed8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claed8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claed8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claed8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claed8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claed8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claed8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claed8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claed8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claed8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claed8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claev2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claev2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claev2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claev2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claev2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claev2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claev2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claev2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claev2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claev2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claev2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claev2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claesy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claesy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claesy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claesy.c:335:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claesy.c:348:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claesy.c:365:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claesy.c:372:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claesy.c:379:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claesy.c:410:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claesy.c:441:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claesy.c:472:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
clags2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clags2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clags2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clags2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clags2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clags2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clags2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clags2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clags2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clags2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clags2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clags2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef.c:772:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clahef.c:772:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clahef.c:1259:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clahef.c:1259:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
15 warnings generated.
clahef.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahef.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahef.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahef.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahef.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahef.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahef.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahef.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahef.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clagtm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clagtm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clagtm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clagtm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clagtm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clagtm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clagtm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clagtm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clagtm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clagtm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clagtm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clagtm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef_rook.c:790:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clahef_rook.c:790:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clahef_rook.c:1392:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clahef_rook.c:1392:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
12 warnings generated.
clahef_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahef_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahef_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahef_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahef_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahef_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahef_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahef_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahef_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
clahef_rk.c:872:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clahef_rk.c:872:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clahef_rk.c:1462:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clahef_rk.c:1462:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
clahef_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahef_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahef_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahef_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahef_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahef_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahef_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahef_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahef_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahef_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahef_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahqr.c:336:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahqr.c:349:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahqr.c:366:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahqr.c:373:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahqr.c:380:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahqr.c:411:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahqr.c:442:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahqr.c:473:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claic1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claic1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claic1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claic1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claic1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claic1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {12 warnings generated.
^
claic1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claic1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claic1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claic1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claic1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
clals0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clals0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clals0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clals0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clals0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clals0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clals0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clals0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clals0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clals0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clals0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clals0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clalsa.c:1054:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
clalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:1054:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
clalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:1068:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
clalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:1068:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
clalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:1113:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
clalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:1113:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
clalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
clalsa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clalsa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clalsa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clalsa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clalsa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clalsa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clalsa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clalsa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clalsa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clalsa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clalsa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clalsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clalsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clalsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clalsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clalsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clalsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clalsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clalsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clalsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clalsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clalsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clalsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
12 warnings generated.
14 warnings generated.
11 warnings generated.
clangb.c:754:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clangb.c:781:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clangb.c:754:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clangb.c:653:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clangb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clangb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clangb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clangb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clangb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clangb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clangb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clangb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clangb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clangb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clangb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clangb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clange.c:732:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clange.c:752:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clange.c:732:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clange.c:644:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clange.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clange.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clange.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clange.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clange.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clange.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clange.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clange.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clange.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clange.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clange.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clange.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
clangt.c:724:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clangt.c:740:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
clangt.c:724:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clangt.c:634:15: note: initialize the variable 'anorm' to silence this warning
real anorm;
^
= 0.0
clangt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clangt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clangt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clangt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clangt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clangt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clangt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clangt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clangt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clangt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clangt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clangt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
clanhb.c:788:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhb.c:864:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clanhb.c:788:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhb.c:660:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clanhb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanhb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanhb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanhb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanhb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanhb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanhb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanhb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanhb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhe.c:771:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhe.c:831:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clanhe.c:771:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhe.c:653:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clanhe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanhe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanhe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanhe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanhe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanhe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanhe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanhe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanhe.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhe.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
clanhp.c:770:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhp.c:841:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clanhp.c:770:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhp.c:645:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clanhp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanhp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanhp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanhp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanhp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanhp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanhp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanhp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanhp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhs.c:730:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhs.c:753:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clanhs.c:730:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhs.c:636:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clanhs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanhs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanhs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanhs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanhs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanhs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanhs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanhs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanhs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
clanht.c:692:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanht.c:707:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
clanht.c:692:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanht.c:627:15: note: initialize the variable 'anorm' to silence this warning
real anorm;
^
= 0.0
clanht.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanht.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanht.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanht.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanht.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanht.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanht.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanht.c:374:13 warnings generated.
16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanht.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanht.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanht.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanht.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
clansb.c:774:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansb.c:832:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clansb.c:774:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansb.c:658:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clansb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clansb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clansb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clansb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clansb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clansb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clansb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clansb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clansb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clansb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clansb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clansb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clansp.c:756:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansp.c:840:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clansy.c:758:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansy.c:804:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clansp.c:756:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansp.c:643:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clansy.c:758:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clansy.c:652:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clansp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clansp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clansp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clansy.cclansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]:
337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clansy.c:clansp.c270::35014::16 :warning: unused function 'spow_ui' [-Wunused-function]warning:
unused function 'pow_ii' [-Wunused-function]
static float spow_ui(float x, integer n) {
^static integer pow_ii(integer x, integer n) {
clansy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clansy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
^static _Complex float cpow_ui(_Complex float x, integer n) {
^
clansy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clansy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clansy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
clansp.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clansy.c:374:16: :367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clansp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
unused function 'smaxloc_' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clansp.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clansy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
:381static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clansy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:20static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clansy.c:443:20:: warning: unused function 'cdotc_' [-Wunused-function]
warning: unused function 'cdotu_' [-Wunused-function]static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clansp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clansp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clansp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
^
clansy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clantb.c:917:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantb.c:1000:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clantb.c:917:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantb.c:669:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clantb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clantb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clantb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clantb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clantb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clantb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clantb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clantb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clantb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clantb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clantb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clantb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clantr.c:899:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantr.c:970:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clantr.c:899:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantr.c:670:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clantp.c:887:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantp.c:957:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clantp.c:887:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clantp.c:654:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clantp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
clantr.c:250:13 ^
: warning: unused variable 'junk' [-Wunused-variable]
clantp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static float spow_ui(float x, integer n) {
clantr.c: ^270
:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clantr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
clantp.cstatic double dpow_ui(double x, integer n) {:
^282
:15:clantr.c :warning: 309unused function 'dpow_ui' [-Wunused-function]:
23: warning: unused function 'cpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clantp.c:309:23:static _Complex float cpow_ui(_Complex float x, integer n) {
^
clantr.c:337:24 warning: unused function 'cpow_ui' [-Wunused-function]
:static _Complex float cpow_ui(_Complex float x, integer n) {
warning: ^
unused function 'zpow_ui' [-Wunused-function]
clantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clantp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
^
clantr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {static integer pow_ii(integer x, integer n) {
^
^
clantr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
clantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clantp.c:374
clantr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
:16: warning: static integer smaxloc_(float *w, integer s, integer e, integer *n)unused function 'smaxloc_' [-Wunused-function]
^
clantr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clantp.c:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {381
: ^20
: warning: unused function 'cdotc_' [-Wunused-function]
clantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clantp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
^
clantp.c:443clantr.c::20443::20: warning: unused function 'cdotu_' [-Wunused-function] warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clantp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clantr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
clapll.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clapll.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clapll.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clapll.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clapll.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clapll.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clapll.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clapll.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clapll.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clapll.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clapll.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clapmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clapmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clapmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clapmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clapmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clapmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clapmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clapmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clapmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clapmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clapmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clapmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarcm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarcm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarcm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarcm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarcm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarcm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarcm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarcm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarcm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarcm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarcm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarcm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
12 warnings generated.
claqgb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqgb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqgb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqgb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqgb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqgb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqgb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqgb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqgb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqgb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqgb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqgb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqhb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqhb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqhb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqhb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqhb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqhb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqhb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqhb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqhb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqhb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claqhp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqhp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqhp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqhp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqhp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqhp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqhp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqhp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqhp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqhp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqhe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqhe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqhe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqhe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqhe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqhe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqhe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqhe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqhe.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhe.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqhe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqhe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
claqp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
claqsb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqsb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqsb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqsb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqsb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqsb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqsb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqsb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqsb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqsb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
claqr0.c:1101:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
claqr0.c:1101:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
claqr0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr2.c:1067:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ns < jw || s.r == 0.f && s.i == 0.f) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~
claqr2.c:1067:32: note: place parentheses around the '&&' expression to silence this warning
if (*ns < jw || s.r == 0.f && s.i == 0.f) {
^
( )
claqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr3.c:1085:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ns < jw || s.r == 0.f && s.i == 0.f) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~
claqr3.c:1085:32: note: place parentheses around the '&&' expression to silence this warning
if (*ns < jw || s.r == 0.f && s.i == 0.f) {
^
( )
12 warnings generated.
claqr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claqr4.c:1108:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
claqr4.c:1108:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
claqr4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr5.c:950:43: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
~~~~^~~ ~~
claqr5.c:950:43: note: place parentheses around the '-' expression to silence this warning
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
^
( )
claqr5.c:960:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m22 - 1 << 1);
~~~~^~~ ~~
claqr5.c:960:20: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m22 - 1 << 1);
^
( )
claqr5.c:1256:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
claqr5.c:1256:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
claqr5.c:1322:13: warning: '&&' within '||' [-Wlogical-op-parentheses]
0.f && h__[i__7].i == 0.f) {
~~~~^~~~~~~~~~~~~~~~~~~~~
claqr5.c:1322:13: note: place parentheses around the '&&' expression to silence this warning
0.f && h__[i__7].i == 0.f) {
^
)
claqr5.c:1641:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
claqr5.c:1641:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
claqr5.c:1702:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
claqr5.c:1702:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
claqr5.c:1711:40: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
~~~~~^~~ ~~
claqr5.c:1711:40: note: place parentheses around the '-' expression to silence this warning
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
^
( )
claqr5.c:1769:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
claqr5.c:1769:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
claqr5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqr5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqr5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqr5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqr5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqr5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqr5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqr5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqr5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqr5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqr5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claqsp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqsp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqsp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqsp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqsp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqsp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqsp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqsp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqsp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqsp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clar1v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clar1v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clar1v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clar1v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clar1v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clar1v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clar1v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clar1v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clar1v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clar1v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clar1v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clar1v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
clar2v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clar2v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clar2v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clar2v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clar2v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clar2v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clar2v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clar2v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clar2v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clar2v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clar2v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clar2v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ilaclc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaclc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaclc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaclc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaclc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaclc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaclc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaclc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaclc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaclc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaclc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaclc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaclr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaclr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaclr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaclr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaclr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaclr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaclr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaclr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaclr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaclr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaclr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaclr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqz0.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqz0.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqz0.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqz0.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqz0.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqz0.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqz0.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqz0.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqz0.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz0.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqz0.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz0.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
claqz1.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqz1.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqz1.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqz1.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqz1.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqz1.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqz1.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqz1.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqz1.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz1.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqz1.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz1.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claqz2.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqz2.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqz2.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqz2.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqz2.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqz2.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqz2.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqz2.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqz2.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz2.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqz2.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz2.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
claqz3.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claqz3.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claqz3.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claqz3.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claqz3.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claqz3.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claqz3.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claqz3.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claqz3.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz3.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claqz3.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claqz3.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clarf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfb_gett.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfb_gett.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfb_gett.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfb_gett.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfb_gett.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfb_gett.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfb_gett.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfb_gett.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfb_gett.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfb_gett.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfb_gett.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfb_gett.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clarft.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarft.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarft.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarft.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarft.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarft.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarft.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarft.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarft.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarft.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarft.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarft.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfgp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfgp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
clarfy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarfx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarfx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarfx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarfx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarfx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarfx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarfx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarfx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarfx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarfx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
12 warnings generated.
clargv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clargv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clargv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clargv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clargv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clargv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clargv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clargv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clargv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clargv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clargv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
clarnv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarnv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarnv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarnv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarnv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarnv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarnv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarnv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarnv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarnv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarnv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarnv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarrv.c:818:13: warning: variable 'done' set but not used [-Wunused-but-set-variable]
integer done;
^
clartg.c:680:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (g->r == 0.f && g->i == 0.f || sisnan_(&r__1)) {
~~~~~~~~~~~~^~~~~~~~~~~~~~ ~~
clartg.c:680:18: note: place parentheses around the '&&' expression to silence this warning
clarrv.c if (g->r == 0.f && g->i == 0.f || sisnan_(&r__1)) {
^
( )
:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarrv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarrv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarrv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarrv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarrv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarrv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarrv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarrv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarrv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarrv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarrv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clartg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clartg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clartg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clartg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clartg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clartg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clartg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clartg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clartg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clartg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clartg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
clartv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clartv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clartv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clartv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clartv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clartv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clartv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clartv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clartv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clartv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clartv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clartv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
clarzt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarzt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarzt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarzt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarzt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarzt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarzt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarzt.c:374:clarz.c16:250:13: warning: unused variable 'junk' [-Wunused-variable]
: warning: unused function 'smaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarz.c:270:14: static integer smaxloc_(float *w, integer s, integer e, integer *n)
^warning:
clarzt.cunused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {:
381 ^:
20:clarz.c:282 :warning: unused function 'cdotc_' [-Wunused-function]
15static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
: warning: clarzt.c:412:20: warning: unused function 'dpow_ui' [-Wunused-function]unused function 'zdotc_' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarz.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
309 ^:
23: clarzt.c:443:warning: unused function 'cpow_ui' [-Wunused-function]
20: static _Complex float cpow_ui(_Complex float x, integer n) {warning:
^unused function 'cdotu_' [-Wunused-function]
clarz.c:337:24: warning: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {unused function 'zpow_ui' [-Wunused-function]
^
clarzt.c:474:20:static _Complex double zpow_ui(_Complex double x, integer n) {
warning: ^unused function 'zdotu_' [-Wunused-function]
clarz.c:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
^static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarz.c:374:16:
warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarzb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarzb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarzb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarzb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarzb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarzb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarzb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarzb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarzb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarzb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarzb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarzb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
clascl.c:723:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
clascl.c:723:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
clascl.c:723:63: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
clascl.c:723:63: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
clascl.c:735:72: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~
clascl.c:735:72: note: place parentheses around the '&&' expression to silence this warning
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
^
(
clascl.c:738:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~ ~~
clascl.c:738:28: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
( )
clascl.c:738:60: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~ ~~~~~~~~~~~^~~~~~~~~~~
clascl.c:738:60: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
(
clascl.c:739:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clascl.c:739:28: note: place parentheses around the '&&' expression to silence this warning
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
^
( )
clascl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clascl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clascl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clascl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clascl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clascl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clascl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clascl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clascl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clascl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clascl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clascl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claset.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claset.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claset.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claset.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claset.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claset.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claset.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claset.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claset.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claset.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claset.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claset.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
classq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
classq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
classq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
classq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
classq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
classq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
classq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
classq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
classq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
classq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
classq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
classq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clasr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clasr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clasr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clasr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clasr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clasr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clasr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clasr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
clasyf.c:769:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clasyf.c:769:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clasyf.c:1162:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clasyf.c:1162:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
18 warnings generated.
clasyf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clasyf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clasyf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clasyf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clasyf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clasyf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clasyf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clasyf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clasyf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_rook.c:789:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clasyf_rook.c:789:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clasyf_rook.c:1224:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clasyf_rook.c:1224:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
clasyf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clasyf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clasyf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clasyf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clasyf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clasyf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clasyf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clasyf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clasyf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_rk.c:871:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
clasyf_rk.c:871:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
clasyf_rk.c:1302:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
clasyf_rk.c:1302:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
clasyf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clasyf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clasyf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clasyf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clasyf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clasyf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clasyf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clasyf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clasyf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clasyf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clasyf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clasyf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clasyf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clasyf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clasyf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clasyf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clasyf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clasyf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clasyf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
20 warnings generated.
clatbs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatbs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatbs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatbs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatbs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatbs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatbs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatbs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatbs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatbs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatdf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatdf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatdf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatdf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatdf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatdf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatdf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatdf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatdf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatdf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatdf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
11 warnings generated.
14 warnings generated.
11 warnings generated.
clatrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cpbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cpbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbstf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbstf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbstf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbstf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbstf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbstf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbstf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbstf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbstf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbstf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbstf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbstf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cpbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
10 warnings generated.
10 warnings generated.
12 warnings generated.
cpbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cpbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cpbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpocon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpocon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpocon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpocon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpocon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpocon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpocon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpocon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpocon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpocon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpocon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpocon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpoequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpoequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpoequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpoequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpoequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpoequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpoequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpoequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpoequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpoequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpoequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpoequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
cposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cporfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cporfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cporfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cporfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cporfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cporfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cporfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cporfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cporfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cporfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cporfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cporfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
10 warnings generated.
12 warnings generated.
cposvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cposvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cposvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cposvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cposvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cposvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cposvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cposvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cposvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cposvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cposvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cposvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpstrf.c:772:18: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
pvt = mymaxloc_(&work[1], &c__1, n, &c__1);
^~~~~~~~
cpstrf.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstrf.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpstrf.c:840:22: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__4, &i__5, &c__1);
^~~~~~~~
cpstrf.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstrf.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpstrf.c:976:22: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__4, &i__5, &c__1);
^~~~~~~~
cpstrf.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstrf.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpstrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpstrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpstrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpstrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpstrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpstrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpstrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpstrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
cpotri.c:250:13: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpstrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpstrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
warning: unused variable 'junk' [-Wunused-variable]
cpstrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpotri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpotri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpotri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpotri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpotri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpotri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpotri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpotri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpotri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cpstf2.c:748:21: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
pvt = mymaxloc_(&work[1], &c__1, n, &c__1);
^~~~~~~~
cpstf2.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstf2.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cppcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cppcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cppcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cppcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cppcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cppcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cppcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cppcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cppcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppcon.c:cpstf2.c:803:21: warning: 412:20: warning: unused function 'zdotc_' [-Wunused-function]
incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cppcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
itemp = mymaxloc_(&work[1], &i__2, &i__3, &c__1);
^~~~~~~~
cpstf2.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstf2.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpstf2.c:908:21: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types]
itemp = mymaxloc_(&work[1], &i__2, &i__3, &c__1);
^~~~~~~~
cpstf2.c:259:37: note: expanded from macro 'mymaxloc_'
#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n)
^
cpstf2.c:367:33: note: passing argument to parameter 'w' here
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpstf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpstf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpstf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpstf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpstf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpstf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpstf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpstf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpstf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpstf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpstf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cppequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cppequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cppequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cppequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cppequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cppequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cppequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cppequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cppequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cppequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cpprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cppsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cppsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cppsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cppsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cppsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cppsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cppsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cppsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cppsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cppsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cppsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cppsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cppsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cppsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cppsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cppsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cppsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cppsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cppsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cppsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cppsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
14 warnings generated.
cpptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
cptcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cptcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cptcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cptcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cptcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cptcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cptcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cptcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cptcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
12 warnings generated.
cpteqr.c:720:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cpteqr.c:720:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cpteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cptsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cptsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cptsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cptsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cptsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cptsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cptsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cptsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cptrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cptrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cptrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cptrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cptrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cptrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cptrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cptrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cptsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cptsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cptsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cptsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cptsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cptsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
12 warnings generated.
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cptsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cptsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
cpttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cptts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cptts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cptts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cptts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cptts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cptts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cptts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cptts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cptts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cptts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
crot.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
crot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
crot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
crot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
crot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
crot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
crot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
crot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
crot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
crot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
crot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
crot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cspcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cspcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cspcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cspcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cspcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cspcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cspcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cspcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspmv.c:715:55: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
cspmv.c:715:55: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f &&
^
(
cspmv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cspmv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cspmv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cspmv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cspmv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cspmv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cspmv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cspmv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cspmv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspmv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspmv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspmv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cspr.c:691:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) {
~~ ~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
cspr.c:691:36: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) {
^
( )
cspr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cspr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cspr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cspr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cspr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cspr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cspr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cspr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cspr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cspsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cspsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cspsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cspsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cspsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cspsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cspsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cspsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cspsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cspsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cspsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cspsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cspsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cspsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cspsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cspsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cspsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cspsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cspsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cspsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
csptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
csptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csptrs.c:972:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
csptrs.c:972:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
csptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstedc.c:819:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cstedc.c:819:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
csrscl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
cstedc.c:836:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
lrwmin = *n - 1 << 1;
~~~^~~ ~~
csrscl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csrscl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csrscl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csrscl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csrscl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csrscl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
cstedc.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n):
836 ^:
18csrscl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
: note: place parentheses around the '-' expression to silence this warning
lrwmin = *n - 1 << 1;
^
( )
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csrscl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csrscl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csrscl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csrscl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstedc.c:839:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
cstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
cstedc.c:839:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
cstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
cstedc.c:842:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
cstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
cstedc.c:842:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
cstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
cstedc.c:850:13: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
cstedc.c:857:21: note: uninitialized use occurs here
work[1].r = (real) lwmin, work[1].i = 0.f;
^~~~~
cstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
cstedc.c:748:18: note: initialize the variable 'lwmin' to silence this warning
integer lwmin;
^
= 0
cstedc.c:850:13: warning: variable 'lrwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
cstedc.c:858:20: note: uninitialized use occurs here
rwork[1] = (real) lrwmin;
^~~~~~
cstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
cstedc.c:772:19: note: initialize the variable 'lrwmin' to silence this warning
integer lrwmin;
^
= 0
cstedc.c:850:13: warning: variable 'liwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
cstedc.c:859:13: note: uninitialized use occurs here
iwork[1] = liwmin;
^~~~~~
cstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
cstedc.c:766:19: note: initialize the variable 'liwmin' to silence this warning
integer liwmin, icompz;
^
= 0
cstedc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cstedc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cstedc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cstedc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cstedc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cstedc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cstedc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cstedc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstedc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstedc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstedc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
cstegr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cstegr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cstegr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cstegr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cstegr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cstegr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cstegr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cstegr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cstegr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstegr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstegr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstegr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
csteqr.c:735:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
csteqr.c:735:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cstein.c20 warning:s generated.
250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cstein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cstein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cstein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cstein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cstein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cstein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cstein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cstein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csycon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csycon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csycon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csycon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csycon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csycon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csycon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csycon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csymv.c:725:55: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
csymv.c:725:55: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f &&
^
(
csymv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csymv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csymv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csymv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csymv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csymv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csymv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csymv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csymv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csymv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csymv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csymv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csyr.c:698:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) {
~~ ~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
csyr.c:698:36: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) {
^
( )
csyr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
csysv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
12 warnings generated.
csysvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csytrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
csytri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csyswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csytrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csyconv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyconv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyconv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyconv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyconv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyconv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyconv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyconv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyconv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyconv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
csyconvf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyconvf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyconvf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyconvf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyconvf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyconvf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyconvf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyconvf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyconvf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconvf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyconvf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconvf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csyconvf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyconvf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csyconvf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyconvf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyconvf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyconvf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyconvf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyconvf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyconvf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconvf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyconvf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyconvf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
csytf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
csytrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csytri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csycon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csycon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csycon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csycon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csycon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csycon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csycon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csycon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csysv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csytf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
csytrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
csytri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
csytri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csycon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csycon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csycon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csycon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csycon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csycon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csycon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csycon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csycon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csycon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
csysv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
csysv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csysv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csysv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csysv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csysv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csysv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csysv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csysv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csysv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csysv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csysv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
csytrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csytrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
csytrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
csytrs_aa_2stage.c:250:13: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
warning: csytrf_aa_2stage.cunused variable 'junk' [-Wunused-variable]:
443:20: warning: unused function 'cdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrf_aa_2stage.c:474csytrs_aa_2stage.c::20270: warning: unused function 'zdotu_' [-Wunused-function]:
14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ ^
csytrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csytrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csytrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csytrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csytrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csytrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csytrs_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csytrs_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csytrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ctbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ctbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgevc.c:901:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compl && *ldvl < *n || *ldvl < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
ctgevc.c:901:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compl && *ldvl < *n || *ldvl < 1) {
^
( )
ctgevc.c:903:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compr && *ldvr < *n || *ldvr < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
ctgevc.c:903:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compr && *ldvr < *n || *ldvr < 1) {
^
( )
ctgevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ctgex2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgex2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgex2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgex2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgex2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgex2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgex2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgex2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgex2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgex2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgex2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgex2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ctgexc.c:760:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctgexc.c:760:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctgexc.c:762:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctgexc.c:762:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctgexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
ctgsen.c:1040:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
ctgsen.c:1040:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < *n) {
^
( )
ctgsen.c:1042:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
ctgsen.c:1042:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < *n) {
^
( )
ctgsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsja.c:1002:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
ctgsja.c:1002:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
ctgsja.c:1004:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
ctgsja.c:1004:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
ctgsja.c:1006:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ctgsja.c:1006:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
ctgsja.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgsja.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgsja.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgsja.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgsja.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgsja.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgsja.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgsja.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgsja.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsja.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsja.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsja.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsja.c:518:13: warning: unused variable 'c_b3' [-Wunused-variable]
static real c_b3 = 0.f;
^
ctgsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgsy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgsy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgsy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgsy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgsy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgsy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgsy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgsy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
14 warnings generated.
12 warnings generated.
ctgsyl.c:981:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~~~~~~~^~~~~~~~~~ ~~
ctgsyl.c:981:17: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
ctgsyl.c:981:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~ ~~~~~~~~~^~~~~~~~~~~
ctgsyl.c:981:40: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
ctgsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctgsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctgsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctgsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctgsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctgsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctgsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctgsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctgsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctgsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctgsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
ctpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ctprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ctptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ctrevc.c:832:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ctrevc.c:832:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
ctrevc.c:834:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
ctrevc.c:834:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
ctrevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrevc3.c:887:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ctrevc3.c:887:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
ctrevc3.c:889:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
ctrevc3.c:889:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
ctrevc3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrevc3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrevc3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrevc3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrevc3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrevc3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrevc3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrevc3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrevc3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrevc3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrevc3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrevc3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrexc.c:692:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctrexc.c:692:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ctrexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
ctrrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ctrsen.c:879:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ctrsen.c:879:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
ctrsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
ctrsna.c:873:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wants && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ctrsna.c:873:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wants && *ldvl < *n) {
^
( )
ctrsna.c:875:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wants && *ldvr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ctrsna.c:875:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wants && *ldvr < *n) {
^
( )
ctrsna.c:879:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~~~
ctrsna.c:879:38: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
^
( )
ctrsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrsna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
14 warnings generated.
14 warnings generated.
ctrsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctzrzf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctzrzf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctzrzf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctzrzf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctzrzf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctzrzf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctzrzf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctzrzf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctzrzf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctzrzf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctzrzf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctzrzf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cung2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cung2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cung2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cung2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cung2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cung2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cung2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cung2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cung2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cung2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cung2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cung2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungbr.c:722:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cungbr.c:722:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
( )
cungbr.c:722:78: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~~~^~~~
cungbr.c:722:78: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
(
cung2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cung2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cung2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cung2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cung2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cung2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
cungbr.c ^:
250:13: warning: unused variable 'junk' [-Wunused-variable]
cung2r.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
: ^
367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
cungbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
static float spow_ui(float x, integer n) {
^
cung2r.c:cungbr.c374:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
:16: warning: unused function 'smaxloc_' [-Wunused-function]static double dpow_ui(double x, integer n) {
^
cungbr.c:309static integer smaxloc_(float *w, integer s, integer e, integer *n):
^
23: warning: cung2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
unused function 'cpow_ui' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static _Complex float cpow_ui(_Complex float x, integer n) {
cung2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^cungbr.c
:cung2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
337:24: warning: unused function 'zpow_ui' [-Wunused-function]static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cung2r.cstatic _Complex double zpow_ui(_Complex double x, integer n) {:
^474
:20: warning: unused function 'zdotu_' [-Wunused-function]
cungbr.c:350:16:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cunghr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunghr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunghr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunghr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunghr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunghr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunghr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunghr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunghr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunghr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunghr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunghr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
cungl2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungl2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungl2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungl2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungl2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungl2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungl2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungl2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungl2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungl2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungl2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungl2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
12 warnings generated.
10 warnings generated.
cunglq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunglq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunglq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunglq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunglq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunglq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunglq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunglq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunglq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunglq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunglq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunglq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
cungr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
cungtr.c:250static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cungtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunm2l.c:756:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
cunm2l.c:756:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunm2l.c:756:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
cunm2l.c:756:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
12 warnings generated.
cunm2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunm2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunm2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunm2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunm2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunm2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunm2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunm2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunm2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunm2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungtsqr_row.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cungtsqr_row.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cungtsqr_row.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cungtsqr_row.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cungtsqr_row.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cungtsqr_row.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cungtsqr_row.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cungtsqr_row.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cungtsqr_row.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtsqr_row.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cungtsqr_row.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cungtsqr_row.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
cunm2r.c:756:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
cunm2r.c:756:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunm2r.c:756:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
cunm2r.c:756:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunm2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunm2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunm2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunm2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunm2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunm2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunm2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunm2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunm2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunm2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmbr.c:799:13: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
cunmbr.c:799:13: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
cunmbr.c:799:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
cunmbr.c:799:48: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
cunmbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
14 warnings generated.
cunmhr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmhr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmhr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmhr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmhr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmhr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmhr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmhr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmhr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmhr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmhr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmhr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunml2.c:753:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
cunml2.c:753:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunml2.c:753:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
cunml2.c:753:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunml2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunml2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunml2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunml2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunml2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunml2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunml2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunml2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunml2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunml2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunml2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunml2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunm22.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunm22.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunm22.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunm22.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunm22.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunm22.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunm22.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunm22.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunm22.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm22.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunm22.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunm22.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
cunmlq.c:838:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
cunmlq.c:838:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunmlq.c:838:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
cunmlq.c:838:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunmlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmqr.c:831:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
cunmqr.c:831:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmqr.c:831:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
cunmqr.c:831:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmql.c:836:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
cunmql.c:836:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunmql.c:836:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
cunmql.c:836:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
cunmqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
cunmr2.c:753:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
cunmr2.c:753:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmr2.c:753:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
cunmr2.c:753:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
cunmr3.c:754:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
^
cunmr3.ccunmr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
754:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
31 ^:
note: cunmr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ ^
( )
cunmr3.c:754:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
cunmr3.c:754:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
cunmr3.c:773:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
cunmr3.c:773:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmr3.c:773:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
cunmr3.c:773:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
12 warnings generated.
cunmrq.c:836:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
cunmrq.c:836:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmrq.c:836:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
cunmrq.c:836:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmrz.c:787:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
cunmrz.c:787:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
cunmrz.c:787:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
cunmrz.c:787:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
cunmrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {cunmrz.c
: ^868:11: warning:
cunmrq.c:337:'&&' within '||' [-Wlogical-op-parentheses]24:
warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
if (left && ! notran || ! left && notran) {cunmrq.c
:350:16: warning: unused function 'pow_ii' [-Wunused-function]
~~~~~^~~~~~~~~~~ ~~
static integer pow_ii(integer x, integer n) {
^
cunmrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
cunmrz.c:868:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
cunmrz.c:868:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
cunmrz.c:868:33: note: place parentheses around the '&&' expression to silence this warning
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ if (left && ! notran || ! left && notran) {
^
cunmrq.c ( ):
412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
cunmrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunmrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
cunmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunmtr.c:337:24: cupgtr.cwarning: unused function 'zpow_ui' [-Wunused-function]
:250:13: warning: unused variable 'junk' [-Wunused-variable]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunmtr.c:350:16:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
warning: ^unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunmtr.c:cupgtr.c367::27016::14 :warning: unused function 'dmaxloc_' [-Wunused-function]warning:
unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^ ^
cupgtr.c:cunmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunmtr.c:static double dpow_ui(double x, integer n) {
381 ^
cupgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
:20: warning: unused function 'cdotc_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cupgtr.c:337:24:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
warning: ^
cunmtr.c:412unused function 'zpow_ui' [-Wunused-function]:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cupgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cupgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cupgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cupgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cupgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cupgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cupgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cupmtr.c:749:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~~~~^~~~~~~~~ ~~
cupmtr.c:749:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
cupmtr.c:749:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~ ~~~~~~~^~~~~~~~~~~
cupmtr.c:749:36: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
cupmtr.c:813:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~~~~^~~~~~~~~~~ ~~
cupmtr.c:813:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
cupmtr.c:813:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~ ~~~~~~~^~~~~~~~~
cupmtr.c:813:38: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
cupmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cupmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cupmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cupmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cupmtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cupmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cupmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cupmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cupmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cupmtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cupmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cupmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
icmax1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
icmax1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
icmax1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
icmax1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
icmax1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
icmax1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
icmax1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
icmax1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
icmax1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
icmax1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
icmax1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
icmax1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
scsum1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
scsum1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
scsum1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
scsum1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
scsum1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
scsum1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
scsum1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
scsum1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
scsum1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
scsum1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
scsum1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
scsum1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstemr.c:998:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cstemr.c:998:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
cstemr.c:1081:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
cstemr.c:1081:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
cstemr.c:1081:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~^~~~~~~~~~~
cstemr.c:1081:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
cstemr.c:1105:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
cstemr.c:1105:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
cstemr.c:1105:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~^~~~~~~~~~~
cstemr.c:1105:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
cstemr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cstemr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cstemr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cstemr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cstemr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cstemr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cstemr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cstemr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cstemr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstemr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cstemr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cstemr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
12 warnings generated.
16 warnings generated.
16 warnings generated.
chfrk.c:760:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~
chfrk.c:760:47: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) {
^
( )
chfrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chfrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chfrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chfrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chfrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chfrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chfrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chfrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chfrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chfrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chfrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chfrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctfttp.c:733:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
ctfttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctfttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctfttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctfttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctfttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctfttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctfttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctfttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctfttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctfttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctfttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctfttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpftrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpftrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpftrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpftrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpftrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpftrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpftrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpftrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhf.c:1855:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhf.c:2451:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
clanhf.c:1855:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
clanhf.c:775:15: note: initialize the variable 'value' to silence this warning
real value;
^
= 0.0
clanhf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clanhf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clanhf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clanhf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clanhf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clanhf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clanhf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clanhf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clanhf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clanhf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clanhf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpftrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cpftrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpftrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpftrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpftrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpftrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpftrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpftrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpftrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpftrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
17 warnings generated.
ctftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctfsm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctfsm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctfsm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctfsm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctfsm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctfsm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctfsm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctfsm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctfsm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctfsm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctfsm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctfsm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpttf.c:733:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
ctfttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctfttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctfttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctfttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctfttr.c:337:24: ctpttf.c:250:13:warning: warning: unused variable 'junk' [-Wunused-variable]unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctfttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^ctfttr.c
:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctfttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
ctpttf.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctfttr.c:381::20: warning: unused function 'cdotc_' [-Wunused-function]
270:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctfttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
14:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^ warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpttf.c:282:15: warning: ctfttr.c:443:20: unused function 'dpow_ui' [-Wunused-function]warning:
unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static double dpow_ui(double x, integer n) {
^
^
ctpttf.cctfttr.c::309474::23: 20: warning: warning: unused function 'cpow_ui' [-Wunused-function]unused function 'zdotu_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpttf.c:337:24: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {unused function 'zpow_ui' [-Wunused-function]
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ctrttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ctrttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctrttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctrttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctrttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctrttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctrttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctrttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctrttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctrttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctrttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctrttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgeequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgbequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgbequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgbequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgbequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgbequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgbequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgbequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgbequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgbequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgbequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
csyequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
csyequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
csyequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
csyequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
csyequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
csyequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
csyequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
csyequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
csyequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
csyequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
cpoequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cpoequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpoequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cpoequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpoequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cpoequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpoequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cpoequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpoequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpoequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpoequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
cheequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheequb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
cbbcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cbbcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cbbcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cbbcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cbbcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cbbcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cbbcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cbbcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cbbcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cbbcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cbbcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cbbcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clapmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clapmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clapmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clapmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clapmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clapmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clapmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clapmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clapmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clapmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clapmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clapmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
cunbdb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
cunbdb3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
cunbdb4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb4.c:270:cunbdb3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
14static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
cunbdb6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunbdb6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunbdb6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunbdb6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunbdb6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunbdb6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunbdb6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunbdb6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunbdb6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunbdb6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunbdb6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cuncsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cuncsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cuncsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cuncsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cuncsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cuncsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cuncsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cuncsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cuncsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cuncsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cuncsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cuncsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqrt.c:695:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
cgeqrt.c:695:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
cgeqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cuncsd2by1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cuncsd2by1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cuncsd2by1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cuncsd2by1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cuncsd2by1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cuncsd2by1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cuncsd2by1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cuncsd2by1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cuncsd2by1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cuncsd2by1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cuncsd2by1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cuncsd2by1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
cgeqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqrt3.c:250cgeqrt2.c::270:14: warning: unused function 'spow_ui' [-Wunused-function]
13static float spow_ui(float x, integer n) {
: ^
warning: unused variable 'junk' [-Wunused-variable]
cgeqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^cgeqrt2.c
:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
cgeqrt3.c:270:static _Complex float cpow_ui(_Complex float x, integer n) {14
^:
warning: cgeqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
unused function 'spow_ui' [-Wunused-function]static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqrt2.c:350:16static float spow_ui(float x, integer n) {
^
cgeqrt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {:
^
warning: unused function 'pow_ii' [-Wunused-function]
cgeqrt3.cstatic integer pow_ii(integer x, integer n) {:
^309
:23:cgeqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
warning: unused function 'cpow_ui' [-Wunused-function]static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqrt3.c:cgeqrt2.c337::38124::20 :warning: unused function 'zpow_ui' [-Wunused-function]warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static _Complex double zpow_ui(_Complex double x, integer n) {
^ ^
cgeqrt2.c:cgeqrt3.c412::35020: warning: unused function 'zdotc_' [-Wunused-function]
:16: warning: unused function 'pow_ii' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {static integer pow_ii(integer x, integer n) {
^ ^
cgeqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
cgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrt2.c:474:20static integer dmaxloc_(double *w, integer s, integer e, integer *n):
^
cgeqrt3.c:374warning: :16:unused function 'zdotu_' [-Wunused-function]
warning: unused function 'smaxloc_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqrt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqrt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqrt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemqrt.c:747:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
cgemqrt.c:747:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
cgemqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgemqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgemqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgemqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgemqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgemqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgemqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgemqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgemqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpqrt.c:747:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
ctpqrt.c:747:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
ctpqrt.c:749:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ctpqrt.c:749:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
ctpqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
13 warnings generated.
12 warnings generated.
ctpqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpmqrt.c:801:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ctpmqrt.c:801:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
12 warnings generated.
ctpmqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpmqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpmqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpmqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpmqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpmqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpmqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpmqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpmqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpmqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpmqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpmqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelqt.c:674:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
cgelqt.c:674:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
cgelqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctprfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctprfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctprfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctprfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctprfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctprfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctprfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctprfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctprfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctprfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctprfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctprfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelqt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelqt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelqt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelqt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelqt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelqt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelqt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelqt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelqt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelqt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelqt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
cgemlqt.c:727:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
cgemlqt.c:727:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
cgemlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgemlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgemlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgemlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgemlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgemlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgemlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgemlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgemlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetsls.c:717:23: warning: variable 'mnk' set but not used [-Wunused-but-set-variable]
integer lw1, lw2, mnk;
^
cgetsls.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgetsls.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgetsls.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgetsls.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgetsls.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgetsls.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgetsls.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgetsls.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgetsls.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetsls.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetsls.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetsls.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
cgetsqrhrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgetsqrhrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgetsqrhrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgetsqrhrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgetsqrhrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgetsqrhrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgetsqrhrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgetsqrhrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgetsqrhrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetsqrhrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgetsqrhrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgetsqrhrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgeqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgeqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgeqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgeqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgeqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgeqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgeqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgeqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgeqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgeqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
clatsqr.c:725:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
clatsqr.c:725:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
clatsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clamtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clamtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clamtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clamtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clamtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clamtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clamtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clamtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clamtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clamtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clamtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clamtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
cgelq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgelq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgelq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgelq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgelq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgelq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgelq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgelq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgelq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgelq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgelq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemqr.c:793:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
cgemqr.c:793:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
cgemqr.c:793:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
cgemqr.c:793:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
cgemqr.c:694:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
cgemqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgemqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgemqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgemqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgemqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgemqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgemqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgemqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgemqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claswlq.c:721:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
claswlq.c:721:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
claswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
clamswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clamswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clamswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clamswlq.c:309:13 warning23s generated.
: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clamswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clamswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clamswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clamswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clamswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clamswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clamswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clamswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
cgemlq.c:793:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
cgemlq.c:793:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
cgemlq.c:793:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
cgemlq.c:793:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
cgemlq.c:693:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
cgemlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgemlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgemlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgemlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgemlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgemlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgemlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgemlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgemlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgemlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgemlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctplqt.c:729:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
ctplqt.c:729:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
ctplqt.c:731:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ctplqt.c:731:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
ctplqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctplqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctplqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctplqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctplqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctplqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctplqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctplqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctplqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctplqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctplqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctplqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctplqt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctplqt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctplqt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctplqt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctplqt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctplqt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctplqt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctplqt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctplqt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctplqt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctplqt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctplqt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpmlqt.c:781:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ctpmlqt.c:781:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
ctpmlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ctpmlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ctpmlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ctpmlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ctpmlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ctpmlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ctpmlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ctpmlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ctpmlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpmlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ctpmlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ctpmlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunhr_col.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cunhr_col.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cunhr_col.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cunhr_col.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cunhr_col.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cunhr_col.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cunhr_col.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cunhr_col.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cunhr_col.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunhr_col.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cunhr_col.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cunhr_col.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
14 warnings generated.
claunhr_col_getrfnp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claunhr_col_getrfnp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claunhr_col_getrfnp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claunhr_col_getrfnp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claunhr_col_getrfnp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claunhr_col_getrfnp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claunhr_col_getrfnp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claunhr_col_getrfnp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claunhr_col_getrfnp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claunhr_col_getrfnp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claunhr_col_getrfnp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claunhr_col_getrfnp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
chetrd_2stage.c:760:13: warning: variable 'wantq' set but not used [-Wunused-but-set-variable]
logical wantq, upper;
^
claunhr_col_getrfnp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claunhr_col_getrfnp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claunhr_col_getrfnp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claunhr_col_getrfnp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claunhr_col_getrfnp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claunhr_col_getrfnp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claunhr_col_getrfnp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claunhr_col_getrfnp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claunhr_col_getrfnp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claunhr_col_getrfnp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claunhr_col_getrfnp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claunhr_col_getrfnp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_he2hb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrd_he2hb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrd_he2hb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrd_he2hb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrd_he2hb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrd_he2hb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrd_he2hb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrd_he2hb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrd_he2hb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_he2hb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_he2hb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_he2hb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_hb2st.c:763:59: warning: variable 'nthreads' set but not used [-Wunused-but-set-variable]
integer thed, indv, myid, indw, apos, dpos, abofdpos, nthreads, i__, k, m,
^
chetrd_hb2st.c:764:14: warning: variable 'debug' set but not used [-Wunused-but-set-variable]
edind, debug;
^
chetrd_hb2st.c:766:20: warning: variable 'sicev' set but not used [-Wunused-but-set-variable]
integer lhmin, sicev, sizea, shift, stind, colpt, lwmin, awpos;
^
chetrd_hb2st.c:783:27: warning: variable 'nbtiles' set but not used [-Wunused-but-set-variable]
integer stt, sweepid, nbtiles, sizetau, thgrsiz;
^
cheevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_hb2st.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chetrd_hb2st.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chetrd_hb2st.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chetrd_hb2st.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chetrd_hb2st.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chetrd_hb2st.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chetrd_hb2st.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chetrd_hb2st.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chetrd_hb2st.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_hb2st.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chetrd_hb2st.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chetrd_hb2st.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chb2st_kernels.c:700:13: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable]
integer ajeter;
^
chb2st_kernels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chb2st_kernels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chb2st_kernels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chb2st_kernels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chb2st_kernels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chb2st_kernels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chb2st_kernels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chb2st_kernels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chb2st_kernels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chb2st_kernels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chb2st_kernels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chb2st_kernels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
cheev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevx_2stage.c:957:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cheevx_2stage.c:957:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
cheevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevr_2stage.c:1076:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cheevr_2stage.c:1076:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
cheevr_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cheevr_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cheevr_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cheevr_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cheevr_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cheevr_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cheevr_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cheevr_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cheevr_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevr_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cheevr_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cheevr_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
16 warnings generated.
chbev_2stage.c:818:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbev_2stage.c:818:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chbevx_2stage.c:990:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbevx_2stage.c:990:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
chbevd_2stage.c:900:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
chbevd_2stage.c:900:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
chbevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chbevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chbevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chbevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chbevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chbevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chbevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chbevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chbevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chbevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chbevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegv_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chegv_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chegv_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chegv_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chegv_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chegv_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chegv_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chegv_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chegv_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegv_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chegv_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chegv_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvdq.c:1094:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cgesvdq.c:1094:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
cgesvdq.c:1094:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cgesvdq.c:1094:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
cgesvdq.c:1096:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cgesvdq.c:1096:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
cgesvdq.c:1096:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
cgesvdq.c:1096:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
13 warnings generated.
zpotrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpotrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpotrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpotrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpotrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpotrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpotrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpotrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpotrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpotrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
cgesvdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
cgesvdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cgesvdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
cgesvdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cgesvdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
cgesvdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cgesvdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
cgesvdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cgesvdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cgesvdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgetrf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgetrf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgetrf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgetrf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgetrf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgetrf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgetrf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgetrf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgetrf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetrf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetrf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetrf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
zbdsqr.c:832:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
zbdsqr.c:832:27: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
zbdsqr.c:832:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:832:53: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:836:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
zbdsqr.c:836:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
zbdsqr.c:836:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:836:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:1089:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
d__1)) || tol < 0. && (d__3 = e[m - 1], abs(d__3)) <= thresh)
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:1089:22: note: place parentheses around the '&&' expression to silence this warning
d__1)) || tol < 0. && (d__3 = e[m - 1], abs(d__3)) <= thresh)
^
( )
zbdsqr.c:1121:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
) || tol < 0. && (d__3 = e[ll], abs(d__3)) <= thresh) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zbdsqr.c:1121:17: note: place parentheses around the '&&' expression to silence this warning
) || tol < 0. && (d__3 = e[ll], abs(d__3)) <= thresh) {
^
( )
zbdsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zbdsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zbdsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zbdsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zbdsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zbdsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zbdsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zbdsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zbdsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zbdsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zbdsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zbdsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbbrd.c:805:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:805:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:807:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:807:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:809:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:809:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldc < 1 || wantc && *ldc < f2cmax(1,*m)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zgbbrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbbrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbbrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbbrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbbrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbbrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbbrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbbrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbbrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbbrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbbrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbbrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zgbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zgbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
12 warnings generated.
zgebak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgebak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgebak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgebak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgebak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgebak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgebak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgebak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgebak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgebak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
18 warnings generated.
12 warnings generated.
12 warnings generated.
zgebal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgebal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgebal.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgebal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgebal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgebal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgebal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgebal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgebal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgebal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgebrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgebrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgebrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgebrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgebrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgebrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgebrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgebrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgebrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgebrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgebd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgebd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgebd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgebd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgebd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgebd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgebd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgebd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgebd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgebd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgebd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgecon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgecon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgecon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgecon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgecon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgecon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgecon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgecon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgecon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgecon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgecon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgecon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zgeequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
12 warnings generatedstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeequ.c:282:15.
: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgees.c:803:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
zgees.c:803:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
^
( )
zgees.c:944:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&w[i__]);
^
zgees.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgees.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgees.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgees.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgees.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgees.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgees.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgees.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgees.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgees.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgees.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgees.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeesx.c:849:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
zgeesx.c:849:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
zgeesx.c:856:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
zgeev.c:801:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
zgeesx.czgeev.c::856801::3636:: note: note: place parentheses around the '&&' expression to silence this warning
place parentheses around the '&&' expression to silence this warning } else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
} else if (*ldvs < 1 || wantvs && *ldvs < *n) {
zgeev.c:803:36 ^: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
( )
zgeev.c:803:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
zgeesx.c:1007:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*select)(&w[i__]);
^
zgeesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeevx.c:922:6: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ! (wantvl && wantvr)) {
^~~~~~~~~~~~~~~~~~~~~~~
zgeevx.c:922:6: note: place parentheses around the '&&' expression to silence this warning
&& ! (wantvl && wantvr)) {
^
)
zgeevx.c:928:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
zgeevx.c:928:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wantvl && *ldvl < *n) {
^
( )
zgeevx.c:930:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
12 warnings } else if (*ldvr < 1 || wantvr && *ldvr < *n) { generated
.
~~ ~~~~~~~^~~~~~~~~~~~~
zgeevx.c:930:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wantvr && *ldvr < *n) {
^
( )
zgeevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
15 warnings generated.
zgehd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgehd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgehd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgehd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgehd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgehd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgehd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgehd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgehd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgehd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgehd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgehd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgehrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgehrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgehrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgehrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgehrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgehrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgehrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgehrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgehrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgehrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgehrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgehrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
zgelqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
15 warnings generated.
zgels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
zgelss.c:710static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:56
: ^warning:
variable 'lwork_zgeqrf__' set but not used [-Wunused-but-set-variable]
zgelsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
integer itau, lwork_zgebrd__, lwork_zgelqf__, i__, lwork_zgeqrf__,
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelsd.czgelss.c:712:13: warning: variable 'lwork_zunmqr__' set but not used [-Wunused-but-set-variable]
: chunk, lwork_zunmqr__;
^443
:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelss.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelss.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelss.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelss.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelss.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelss.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelss.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelss.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelss.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelss.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelss.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelss.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeql2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeql2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeql2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeql2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeql2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeql2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeql2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeql2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeql2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeql2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeql2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeql2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqlf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqlf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqlf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqlf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqlf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqlf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqlf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqlf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqlf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqlf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqlf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqlf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zgeqp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zgeqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgeqr2p.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqr2p.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqr2p.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqr2p.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqr2p.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqr2p.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqr2p.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqr2p.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqr2p.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr2p.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqr2p.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr2p.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgeqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgeqrfp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqrfp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqrfp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqrfp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqrfp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqrfp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqrfp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqrfp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqrfp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrfp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrfp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrfp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
zgerfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgerfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgerfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgerfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgerfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgerfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgerfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgerfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgerfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgerfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgerq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgerq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgerq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgerq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgerq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgerq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgerq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgerq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgerq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgerq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgerqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgerqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgerqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgerqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgerqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgerqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgerqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgerqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgerqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgerqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgerqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesdd.c:884:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~^~~~~~~~~~~~
zgesc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
zgesdd.c:884:35: note: place parentheses around the '&&' expression to silence this warningstatic _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
( )
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesdd.c:884:68: warning: zgesc2.c'&&' within '||' [-Wlogical-op-parentheses]:
367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
} else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
zgesdd.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n):
884 ^:
68: zgesc2.cnote: :place parentheses around the '&&' expression to silence this warning381
:20: warning: unused function 'cdotc_' [-Wunused-function] } else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < *
^
(
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
zgesdd.c:887:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~
zgesc2.czgesdd.c:887:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
zgesdd.c:887:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
~~ ~~~~~~^~~~~~~~~~~~~~~~
zgesdd.c:887:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn ||
^
( )
:443:20zgesdd.c:: 888warning: :24: warning: '&&' within '||' [-Wlogical-op-parentheses]
unused function 'cdotu_' [-Wunused-function] wntqo && *m >= *n && *ldvt < *n) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
zgesdd.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {16
warning ^s: generated.
888:24:zgesc2.c :note: place parentheses around the '&&' expression to silence this warning
474:20: warning: unused function 'zdotu_' [-Wunused-function]
wntqo && *m >= *n && *ldvt < *n) {
^
( )
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgesvd.c:853:62: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
~~ ~~~~~~^~~~~~~~
zgesvd.c:853:62: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) {
^
( )
zgesvd.c:861:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wntuas && *ldu < *m) {
~~ ~~~~~~~^~~~~~~~~~~~
zgesvd.c:861:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wntuas && *ldu < *m) {
^
( )
zgesvd.c:863:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~
zgesvd.c:863:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
zgesvd.c:863:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
~~ ~~~~~~^~~~~~~~~~~~~~~~
zgesvd.c:863:58: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) {
^
( )
zgesdd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesdd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesdd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesdd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesdd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesdd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesdd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesdd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgesdd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesdd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesdd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesdd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgesvdx.c:828:24: warning: variable 'abstol' set but not used [-Wunused-but-set-variable]
doublereal bignum, abstol;
^
12 warnings generated.
zgesvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
zgesvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesvd.c:270:14: ^
zgesvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvd.c:309:23:zgesvdx.c :warning: 474unused function 'cpow_ui' [-Wunused-function]:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgesvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvj.c:1008:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
zgejsv.c:1251:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
zgesvj.c:1008:22: note: place parentheses around the '&&' expression to silence this warning
jobu, "W") && rsvec && l2tran)) {
~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
zgesvj.c:1008:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
zgesvj.c:1008:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
zgejsv.c:1251:26: note: place parentheses around the '&&' expression to silence this warning
jobu, "W") && rsvec && l2tran)) {
^
)
zgejsv.c:1254:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
jobv, "W") && lsvec && l2tran)) {
~~~~~~~~~~~~~~~~~~~~^~~~~~~~~
zgejsv.c:1254:26: note: place parentheses around the '&&' expression to silence this warning
jobv, "W") && lsvec && l2tran)) {
^
)
zgesvj.c:1259:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~
zgesvj.c:1259:51: note: place parentheses around the '&&' expression to silence this warning
if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) {
^
( )
zgejsv.c:2294:7: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& z_abs(&a[p + p * a_dim1]) < temp1) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zgejsv.c:2294:7: note: place parentheses around the '&&' expression to silence this warning
&& z_abs(&a[p + p * a_dim1]) < temp1) {
^
)
zgejsv.c:2314:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (z_abs(&a[p + p * a_dim1]) < small || l2kill && z_abs(&a[p + p
~~ ~~~~~~~^~~~~~~~~~~~~~~~~
zgejsv.c:2314:54: note: place parentheses around the '&&' expression to silence this warning
if (z_abs(&a[p + p * a_dim1]) < small || l2kill && z_abs(&a[p + p
^
(
zgejsv.c:2460:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && z_abs(&a[p + q * a_dim1]) <= temp1 || p <
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
zgejsv.c:2460:14: note: place parentheses around the '&&' expression to silence this warning
if (p > q && z_abs(&a[p + q * a_dim1]) <= temp1 || p <
^
( )
zgesvj.c:2241:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ ~~
zgesvj.c:2241:18: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
^
( )
zgesvj.c:2241:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zgesvj.c:2241:52: note: place parentheses around the '&&' expression to silence this warning
if (skl > 1. && sva[1] < big / skl || skl < 1. && sva[f2cmax(n2,1)] > sfmin /
^
(
zgejsv.c:2507:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && z_abs(&a[p + q * a_dim1]) <= temp1 || p < q)
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
zgejsv.c:2507:17: note: place parentheses around the '&&' expression to silence this warning
if (p > q && z_abs(&a[p + q * a_dim1]) <= temp1 || p < q)
^
( )
zgejsv.c:2534:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
~~~~~~~~~~~~~~~~~^~~~~~~~~~ ~~
zgejsv.c:2534:33: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
^
( )
zgejsv.c:2534:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~
zgejsv.c:2534:64: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && ! lsvec && ! jracc || jracc && ! lsvec && nr != *n) {
^
( )
zgejsv.c:2756:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 ||
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
zgejsv.c:2756:18: note: place parentheses around the '&&' expression to silence this warning
if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 ||
^
( )
zgesvj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesvj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesvj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesvj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesvj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesvj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesvj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
zgejsv.c:static integer dmaxloc_(double *w, integer s, integer e, integer *n)
3362 ^:
14: warning: '&&' within '||' [-Wlogical-op-parentheses]
zgesvj.c:374:16 if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 || p <:
~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgesvj.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
zgejsv.c:3362:14: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
note: place parentheses around the '&&' expression to silence this warning
^
zgesvj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 || p <
^
( )
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvj.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgsvj0.c:830:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
zgsvj0.c:830:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
zgsvj0.c:830:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
zgsvj0.c:830:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
zgejsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgejsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgejsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgejsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgejsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgejsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgejsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgejsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgejsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgejsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgejsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgejsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgsvj0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgsvj0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgsvj0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgsvj0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgsvj0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgsvj0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgsvj0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgsvj0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgsvj0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgsvj0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgsvj0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgsvj1.c:849:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~~~~~^~~~~~~~~~~~ ~~
zgsvj1.c:849:22: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
zgsvj1.c:849:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
~~ ~~~~~~^~~~~~~~~~~~~
zgsvj1.c:849:44: note: place parentheses around the '&&' expression to silence this warning
} else if (rsvec && *ldv < *n || applv && *ldv < *mv) {
^
( )
12 warnings generated.
zgsvj1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgsvj1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgsvj1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgsvj1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgsvj1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgsvj1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgsvj1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgsvj1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgsvj1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgsvj1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgsvj1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
17 warnings generated.
13 warnings generated.
13 warnings generated.
12 warnings generated.
zgetc2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgetc2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgetc2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgetc2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgetc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgetc2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgetc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgetc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgetc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetc2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetc2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgetri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgetri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zggbak.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggbak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggbak.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggbak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggbak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggbak.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggbak.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggbak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggbak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggbak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggbak.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggbak.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgges.c:934:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zgges.c:934:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
zgges.c:936:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zgges.c:936:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
12 warnings generated.
zgges.c:1128:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
zgges.c:1179:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
zgges.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgges.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgges.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgges.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgges.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgges.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgges.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgges.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgges.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgges.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgges.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgges.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggbal.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggbal.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggbal.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggbal.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggbal.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggbal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggbal.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggbal.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggbal.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggbal.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggbal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgges3.c:931:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zgges3.c:931:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
zgges3.c:933:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zgges3.c:933:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
zgges3.c:1137:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
zgges3.c:1187:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
16 warnings generated.
zgges3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgges3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgges3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgges3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgges3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgges3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgges3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgges3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgges3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgges3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgges3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgges3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggesx.c:1005:69: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
~~ ~~~~~~~~~^~~~
zggesx.c:1005:69: note: place parentheses around the '&&' expression to silence this warning
} else if (! (wantsn || wantse || wantsv || wantsb) || ! wantst && !
^
(
zggesx.c:1014:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zggesx.c:1014:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
zggesx.c:1016:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
zggesx.c:1016:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
zggesx.c:1222:28: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
bwork[i__] = (*selctg)(&alpha[i__], &beta[i__]);
^
zggesx.c:1300:23: warning: passing arguments to a function without a prototype is deprecated in all versions of C and is not supported in C2x [-Wdeprecated-non-prototype]
cursl = (*selctg)(&alpha[i__], &beta[i__]);
^
zggesx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggesx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggesx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggesx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggesx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggesx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggesx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggesx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggesx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggesx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggesx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggesx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggev.c:881:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
zggev.c:881:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
zggev.c:883:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
zggev.c:883:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
zggev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
zggev3.c:877:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
16 warnings generated.
zggev3.c:877:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
zggev3.c:879:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
zggev3.c:879:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
zggev3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggev3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggev3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggev3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggev3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggev3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggev3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggev3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggev3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggev3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggev3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggev3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
zggevx.c:1067:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
zggevx.c:1067:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
zggevx.c:1069:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
zggevx.c:1069:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
zggevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggglm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggglm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggglm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggglm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggglm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggglm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggglm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggglm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggglm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggglm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggglm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggglm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
14 warnings generated.
zgghrd.c:818:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilq && *ldq < *n || *ldq < 1) {
~~~~^~~~~~~~~~~~ ~~
zgghrd.c:818:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilq && *ldq < *n || *ldq < 1) {
^
( )
zgghrd.c:820:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ilz && *ldz < *n || *ldz < 1) {
~~~~^~~~~~~~~~~~ ~~
zgghrd.c:820:20: note: place parentheses around the '&&' expression to silence this warning
} else if (ilz && *ldz < *n || *ldz < 1) {
^
( )
zgghrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgghrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgghrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgghrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgghrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgghrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgghrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgghrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgghrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgghrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgghrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgghrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
14 warnings generated.
zgghd3.c:866:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantq && *ldq < *n || *ldq < 1) {
~~~~~~^~~~~~~~~~~~ ~~
zgghd3.c:866:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantq && *ldq < *n || *ldq < 1) {
^
( )
zgghd3.c:868:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (wantz && *ldz < *n || *ldz < 1) {
~~~~~~^~~~~~~~~~~~ ~~
zgghd3.c:868:22: note: place parentheses around the '&&' expression to silence this warning
} else if (wantz && *ldz < *n || *ldz < 1) {
^
( )
zgghd3.c:1041:42: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
~~~~~~~~~~~~~~~^~~ ~~
zgghd3.c:1041:42: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb + nnb;
^
( )
zgglse.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgglse.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgglse.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgglse.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgglse.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgglse.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgglse.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgglse.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgglse.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgglse.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgglse.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgglse.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgghd3.c:1538:46: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
~~~~~~~~~~~~~~~^~~ ~~
zgghd3.c:1538:46: note: place parentheses around the '-' expression to silence this warning
ppwo = nblst * nblst + (nnb + j - jcol - 1 << 1) * nnb +
^
( )
zgghd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgghd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgghd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgghd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgghd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgghd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgghd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgghd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgghd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgghd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgghd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgghd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggqrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggqrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggqrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggqrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
14 warnings generated.
11 warnings generated.
zggsvd3.c:971:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvd3.c:971:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
zggsvd3.c:973:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvd3.c:973:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
zggsvd3.c:975:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvd3.c:975:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
zggsvd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggsvd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggsvd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggsvd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggsvd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggsvd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggsvd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggsvd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggsvd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggsvd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggsvd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggsvd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgtcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgtcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgtcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgtcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgtcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgtcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgtcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgtcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggsvp3.c:894:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvp3.c:894:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
zggsvp3.c:896:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvp3.c:896:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
zggsvp3.c:898:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zggsvp3.c:898:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
zgtrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgtrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgtrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgtrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgtrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgtrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgtrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgtrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgtrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggsvp3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zggsvp3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zggsvp3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zggsvp3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zggsvp3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zggsvp3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zggsvp3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zggsvp3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zggsvp3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggsvp3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zggsvp3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zggsvp3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgtsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgtsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgtsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgtsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgtsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgtsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgtsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgtsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgtsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgtsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgtsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgtsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgtsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgtsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgtsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgtsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
12 warnings generated.
zgttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgtts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgtts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgtts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgtts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgtts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgtts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgtts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgtts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgtts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgtts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
15 warnings generated.
12 warnings generated.
zhbev.c:745:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbev.c:745:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zhbevd.c:846:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbevd.c:846:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevx.c:918:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbevx.c:918:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgst.c:779:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zhbgst.c:779:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldx < 1 || wantx && *ldx < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
13 warnings generated.
zhbgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgv.c:767:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbgv.c:767:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
zhbgvd.c:873:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbgvd.c:873:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgvx.c:928:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantz && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbgvx.c:928:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantz && *ldq < *n) {
^
( )
zhbgvx.c:944:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbgvx.c:944:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zhecon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhecon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhecon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhecon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhecon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhecon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhecon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhecon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhecon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhecon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhbtrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbtrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbtrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbtrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbtrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbtrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbtrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbtrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbtrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbtrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbtrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbtrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
zheev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zheevr.c:1025:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
zheevx.c:903:24: warning: if (*ldz < 1 || wantz && *ldz < *n) {'&&' within '||' [-Wlogical-op-parentheses]
~~ ~~~~~~^~~~~~~~~~~~
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zheevx.c:903:24: note: place parentheses around the '&&' expression to silence this warning
zheevr.c:1025: if (*ldz < 1 || wantz && *ldz < *n) {24
^
( )
: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zheevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
22 warnings generated.
12 warnings generated.
zhegs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhegs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {13
^
zhegst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
warnings generated.
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
12 warnings generated.
zhegvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhegvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegvx.c:924:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhegvx.c:924:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhegvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhegvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zherfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zherfs.c:270:14:12 warnings generated.
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zherfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zherfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zherfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zherfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zherfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zherfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zherfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zherfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zherfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zherfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zhesv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhesvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhetf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhetrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zhetrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zhetri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
16 warningstatic integer pow_ii(integer x, integer n) {
^
zhetri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
s generated.
12 warnings generated.
zhetri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zhetrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zhetri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhecon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhecon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhecon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhecon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhecon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhecon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhecon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhecon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhecon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhecon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhesv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhetf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zhetrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
zhecon_3.c ^
:250zhetrs_3.c::13350: warning: unused variable 'junk' [-Wunused-variable]
:16: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";warning:
^unused function 'pow_ii' [-Wunused-function]
zhecon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
static float spow_ui(float x, integer n) {
^
zhetrs_3.c:367zhecon_3.c::16282:: 15warning: :unused function 'dmaxloc_' [-Wunused-function]
warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
unused function 'dpow_ui' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_3.c:474:20static double dpow_ui(double x, integer n) {
^
: warning: unused function 'zdotu_' [-Wunused-function]
zhecon_3.c:309:23: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {unused function 'cpow_ui' [-Wunused-function]
^
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhecon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhecon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhecon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhecon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhecon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhecon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhecon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
12 warnings generated.
zhesv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zhetrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlahef_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahef_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahef_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahef_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahef_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahef_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahef_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahef_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahef_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhesv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhesv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhesv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhesv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhesv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhesv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhesv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhesv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhesv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhesv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zhetrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrf_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrf_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhetrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrs_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrs_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhgeqz.c:956:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || ilq && *ldq < *n) {
~~ ~~~~^~~~~~~~~~~~
zhgeqz.c:956:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || ilq && *ldq < *n) {
^
( )
zhgeqz.c:958:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || ilz && *ldz < *n) {
~~ ~~~~^~~~~~~~~~~~
zhgeqz.c:958:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || ilz && *ldz < *n) {
^
( )
zhgeqz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhgeqz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhgeqz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhgeqz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhgeqz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhgeqz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhgeqz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhgeqz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhgeqz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhgeqz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhgeqz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zhpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhpev.c:726:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpev.c:726:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpev.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpev.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpev.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpev.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpev.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpev.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpev.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpev.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpev.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpev.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpev.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpev.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zhpevd.c:795:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpevd.c:795:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpevd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpevd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpevd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpevd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpevd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpevd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpevd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpevd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpevd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpevd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpevd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpevx.c:868:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpevx.c:868:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zhpgst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpgst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpgst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpgst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpgst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpgst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpgst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpgst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpgst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpgv.c:739:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpgv.c:739:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
zhpgvd.c:815:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpgvd.c:815:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpgvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpgvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpgvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpgvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpgvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpgvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
zhpgvx.c:874:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhpgvx.c:874:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhpgvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpgvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpgvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpgvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpgvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpgvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpgvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpgvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpgvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpgvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpgvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhpsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
zhpsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhpsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhpsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhpsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhpsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhpsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhpsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhpsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhpsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhpsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhpsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zhptrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhptrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhptrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhptrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhptrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhptrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhptrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhptrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhptrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhptrs.c:995:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
zhptrs.c:995:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
zhptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zhsein.c:858:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
zhsein.c:858:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
zhsein.c:860:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
zhsein.c:860:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
zhsein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhsein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhsein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhsein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhsein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhsein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhsein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhsein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhsein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhsein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhsein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhsein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhseqr.c:910:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zhseqr.c:910:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zhseqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhseqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhseqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhseqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhseqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhseqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhseqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhseqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhseqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhseqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhseqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhseqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
11 warnings generated.
13 warnings generated.
zlabrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlabrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlabrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlabrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlabrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlabrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlabrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlabrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlabrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlabrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlabrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlabrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacgv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacgv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacgv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacgv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacgv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacgv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacgv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacgv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacn2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacn2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacn2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacn2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacn2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacn2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacn2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacn2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacn2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacn2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacn2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacn2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
zlacpy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacpy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacpy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacpy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacpy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacpy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacpy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacpy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacpy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacpy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacpy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacpy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacrm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacrm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacrm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacrm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacrm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacrm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacrm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacrm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacrm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacrm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacrm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacrm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlacrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlacrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlacrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlacrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlacrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlacrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlacrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlacrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlacrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlacrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlacrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaed0.c:796:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
zlaed0.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlaed0.c:796:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
zlaed0.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlaed0.c:799:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
zlaed0.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlaed0.c:799:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
zlaed0.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlaed0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaed0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaed0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaed0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaed0.c:336:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaed0.c:366:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaed0.c:373:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaed0.c:380:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed0.c:411:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaed0.c:442:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed0.c:473:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zladiv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zladiv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zladiv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zladiv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zladiv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zladiv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zladiv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zladiv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zladiv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zladiv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zladiv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zladiv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlaed7.c:867:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
zlaed7.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlaed7.c:867:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
zlaed7.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlaed7.c:871:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
zlaed7.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlaed7.c:871:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
zlaed7.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlaed7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaed7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaed7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaed7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaed7.c:336:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaed7.c:366:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaed7.c:373:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaed7.c:380:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed7.c:411:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaed7.c:442:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed7.c:473:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaed8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaed8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaed8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaed8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaed8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaed8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaed8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaed8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaed8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaed8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaed8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaesy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaesy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaesy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaesy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaesy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaesy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaesy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaesy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaesy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaesy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaesy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
zlaev2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaev2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaev2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaev2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaev2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaev2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaev2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaev2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaev2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaev2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaev2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaev2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
zlags2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlags2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlags2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlags2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlags2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlags2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlags2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlags2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlags2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlags2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlags2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlags2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef.c:775:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlahef.c:775:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlahef.c:1262:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlahef.c:1262:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlagtm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlagtm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlagtm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlagtm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlagtm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlagtm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlagtm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlagtm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlagtm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagtm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlagtm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagtm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahef.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahef.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahef.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahef.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahef.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahef.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahef.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahef.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
12 warningzlahef.cs generated.
:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
zlahef_rook.c:792:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlahef_rook.c:792:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlahef_rook.c:1394:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlahef_rook.c:1394:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlahef_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahef_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahef_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahef_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahef_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahef_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahef_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahef_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahef_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zlahef_rk.c:874:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlahef_rk.c:874:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlahef_rk.c:1464:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlahef_rk.c:1464:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlahef_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahef_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahef_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahef_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahef_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahef_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahef_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahef_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahef_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahef_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahef_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaic1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaic1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaic1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaic1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaic1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaic1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaic1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaic1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaic1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaic1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaic1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
zlals0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlals0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlals0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlals0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlals0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlals0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlals0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlals0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlals0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlals0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlals0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlals0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlalsa.c:1054:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
zlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:1054:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
zlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:1068:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
zlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:1068:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
zlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:1113:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
zlalsa.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:1113:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__2);
^~~~~
zlalsa.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zlalsa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlalsa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlalsa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlalsa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlalsa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlalsa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlalsa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlalsa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlalsa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlalsa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlalsa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
11 warnings generated.
14 warnings generated.
14 warnings generated.
zlangb.c:755:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlangb.c:782:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlangb.c:755:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlangb.c:653:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlalsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlalsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlalsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlalsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlalsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlalsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlalsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlalsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlalsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlalsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlalsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlalsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlangb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlangb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlangb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlangb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlangb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlangb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlangb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlangb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlangb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlangb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlangb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlangb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlange.c:733:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlange.c:753:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlange.c:733:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlange.c:644:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlange.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlange.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlange.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlange.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlange.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlange.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlange.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlange.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlange.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlange.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlange.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlange.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlangt.c:725:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlangt.c:741:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
zlangt.c:725:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlangt.c:635:21: note: initialize the variable 'anorm' to silence this warning
doublereal anorm;
^
= 0.0
13 warnings generated.
zlangt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlangt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlangt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlangt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlangt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlangt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlangt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlangt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlangt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlangt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlangt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlangt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zlanhb.c:789:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhb.c:865:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlanhb.c:789:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhb.c:660:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlanhb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanhb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanhb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanhb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanhb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanhb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanhb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanhb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanhb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
zlanhe.c:772:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhe.c:832:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlanhp.c:772:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhp.c:843:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlanhe.c:772:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {zlanhp.c:772:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhp.c:646:21: note: initialize the variable 'value' to silence this warning
zlanhe.c:653:21: doublereal value;
^
= 0.0
note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlanhp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanhp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanhp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanhp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanhp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanhp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanhp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanhp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanhp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanhe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanhe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanhe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanhe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanhe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanhe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanhe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanhe.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhe.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlanhs.c:732:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhs.c:755:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlanhs.c:732:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhs.c:637:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlanhs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanhs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanhs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanhs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanhs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanhs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanhs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanhs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanhs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanht.c:692:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanht.c:707:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
zlanht.c:692:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanht.c:628:21: note: initialize the variable 'anorm' to silence this warning
doublereal anorm;
^
= 0.0
zlanht.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanht.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanht.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanht.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanht.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanht.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanht.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanht.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanht.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanht.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanht.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanht.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
13 warnings generated.
zlansb.c:775:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansb.c:833:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlansb.c:775:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansb.c:658:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlansb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlansb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlansb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlansb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlansb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlansb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlansb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlansb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlansb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlansb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlansp.c:758:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansp.c:842:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlansp.c:758:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansp.c:644:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlansp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlansp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlansp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlansp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlansp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlansp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlansp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlansp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlansp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlansy.c:759:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansy.c:805:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlansy.c:759:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlansy.c:652:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlantb.c:918:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantb.c:1001:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlantb.c:918:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantb.c:669:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlansy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlansy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlansy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlansy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlansy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlansy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlansy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlansy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlansy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlansy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlansy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlantb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlantb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlantb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlantb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlantb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlantb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlantb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlantb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlantb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlantb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlantb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlantb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlantr.c:900:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantr.c:971:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlantr.c:900:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantr.c:670:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlantp.c:888:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantp.c:958:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlantp.c:888:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlantp.c:654:21: note: initialize the variable 'value' to silence this warning
doublereal value;
^
= 0.0
zlantr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlantr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlantr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlantr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlantr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlantr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlantr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^zlantp.c:250:
13: zlantr.cwarning: :374unused variable 'junk' [-Wunused-variable]:
16: warning: unused function 'smaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlantr.c:381: ^20
: warning: unused function 'cdotc_' [-Wunused-function]
zlantp.c:270:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlantp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlantp.c:309zlantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:23: warning: unused function 'cpow_ui' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
zlantr.cstatic _Complex double zpow_ui(_Complex double x, integer n) {:443:20: warning: unused function 'cdotu_' [-Wunused-function]
^
zlantp.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {:
350 ^:16: warning: unused function 'pow_ii' [-Wunused-function]
zlantr.c:474:20: static integer pow_ii(integer x, integer n) {
warning: unused function 'zdotu_' [-Wunused-function]
^
zlantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlantp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlantp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlantp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlantp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlantp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
zlapmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlapmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlapmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlapmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlapmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlapmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlapmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlapmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlapmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlapmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlapll.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlapll.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlapll.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlapll.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlapll.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlapll.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlapll.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlapll.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlapll.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapll.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapll.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
zlaqgb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqgb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqgb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqgb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqgb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqgb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqgb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqgb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqgb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqgb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqgb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqgb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
zlaqge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqhb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqhb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqhb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqhb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqhb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqhb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqhb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqhb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqhb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqhb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqhe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqhe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqhe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqhe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqhe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqhe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqhe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqhe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqhe.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhe.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqhe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlaqp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
zlaqhp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqp2.c:zlaqhp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
474:20:static float spow_ui(float x, integer n) {
^
zlaqhp.c:282 warning: unused function 'zdotu_' [-Wunused-function]
:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqhp.c:309static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^:23
: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqhp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqhp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqhp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqhp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqhp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqhp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqhp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlaqps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqps.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqps.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr0.c:1106:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlaqr0.c:1106:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlaqsb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqsb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqsb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqsb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqsb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqsb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqsb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqsb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqsb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqsb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr0.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr2.c:1076:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ns < jw || s.r == 0. && s.i == 0.) {
~~ ~~~~~~~~~~^~~~~~~~~~~~
zlaqr2.c:1076:31: note: place parentheses around the '&&' expression to silence this warning
if (*ns < jw || s.r == 0. && s.i == 0.) {
^
( )
zlaqr1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr4.c:1109:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlaqr4.c:1109:45: note: place parentheses around the '&&' expression to silence this warning
if (ld == 0 || ld * 100 <= nw * nibble && kbot - ktop + 1 > f2cmin(
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlaqr3.c:1096:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ns < jw || s.r == 0. && s.i == 0.) {
~~ ~~~~~~~~~~^~~~~~~~~~~~
zlaqr3.c:1096:31: note: place parentheses around the '&&' expression to silence this warning
if (*ns < jw || s.r == 0. && s.i == 0.) {
^
( )
zlaqr4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlaqr5.c:955:43: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
~~~~^~~ ~~
zlaqr5.c:955:43: note: place parentheses around the '-' expression to silence this warning
bmp22 = mbot < nbmps && krcol + (m22 - 1 << 1) == *kbot - 2;
^
( )
zlaqr5.c:965:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m22 - 1 << 1);
~~~~^~~ ~~
zlaqsp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqsp.c:270:14zlaqr5.c:965:20:: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m22 - 1 << 1);
^
( )
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqsp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqsp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqsp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqsp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqsp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqsp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqsp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqsp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr5.c:1261:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
zlaqr5.c:1261:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
zlaqr5.c:1327:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
0. && h__[i__7].i == 0.) {
~~~^~~~~~~~~~~~~~~~~~~~
zlaqr5.c:1327:11: note: place parentheses around the '&&' expression to silence this warning
0. && h__[i__7].i == 0.) {
^
)
zlaqr5.c:1646:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
zlaqr5.c:1646:18: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
zlaqr5.c:1707:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
zlaqr5.c:1707:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
zlaqr5.c:1716:40: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
~~~~~^~~ ~~
zlaqr5.c:1716:40: note: place parentheses around the '-' expression to silence this warning
i__7 = kdu, i__4 = krcol + (mbot - 1 << 1) - incol + 5;
^
( )
zlaqr5.c:1774:22: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
k = krcol + (m - 1 << 1);
~~^~~ ~~
zlaqr5.c:1774:22: note: place parentheses around the '-' expression to silence this warning
k = krcol + (m - 1 << 1);
^
( )
zlaqsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqr5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqr5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqr5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqr5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqr5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqr5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqr5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqr5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqr5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqr5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
12 warnings generated.
13 warnings generated.
zlar1v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlar1v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlar1v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlar1v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlar1v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlar1v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlar1v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlar1v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlar1v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlar1v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlar1v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlar1v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
zlar2v.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlar2v.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlar2v.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlar2v.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlar2v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlar2v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlar2v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlar2v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlar2v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlar2v.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlar2v.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlar2v.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilazlr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilazlr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilazlr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilazlr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilazlr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilazlr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilazlr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilazlr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilazlr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilazlr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilazlr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilazlr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz0.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqz0.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqz0.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqz0.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqz0.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqz0.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqz0.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqz0.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqz0.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz0.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz0.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz0.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ilazlc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilazlc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilazlc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilazlc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilazlc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilazlc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilazlc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilazlc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilazlc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilazlc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilazlc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilazlc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
1212 warnings generated.
warnings generated.
12 warnings generated.
zlaqz2.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqz2.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqz2.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqz2.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqz2.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqz2.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqz2.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqz2.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqz2.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz2.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz2.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz2.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz1.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqz1.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqz1.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqz1.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqz1.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqz1.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqz1.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqz1.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqz1.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz1.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz1.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz1.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
12 warnings generated.
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlaqz3.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaqz3.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaqz3.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaqz3.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaqz3.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaqz3.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaqz3.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaqz3.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaqz3.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz3.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaqz3.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaqz3.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlarf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
zlarcm.c:250:static double dpow_ui(double x, integer n) {
^
13zlarf.c: warning: :unused variable 'junk' [-Wunused-variable]309
:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
^static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
zlarcm.c:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
270:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
14 ^
: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarcm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarcm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarcm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarcm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarcm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarcm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarcm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarcm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarcm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarcm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfb_gett.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
zlarfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfb_gett.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfb_gett.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfb_gett.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfb_gett.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfb_gett.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfb_gett.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfb_gett.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfb_gett.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfb_gett.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfb_gett.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfb_gett.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zlarft.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarft.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarft.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarft.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarft.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarft.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarft.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarft.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarft.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarft.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarft.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarft.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlarfgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfgp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfgp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zlarfx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarfx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlarfy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarfy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarfy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarfy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarfy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarfy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarfy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarfy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarfy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarfy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlargv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlargv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlargv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlargv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlargv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlargv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlargv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlargv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlargv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlargv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlargv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarnv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarnv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarnv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarnv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarnv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarnv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarnv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarnv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarnv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarnv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarnv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarnv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zlarrv.c:819:13: warning: variable 'done' set but not used [-Wunused-but-set-variable]
integer done;
^
zlarrv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarrv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarrv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarrv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarrv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarrv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarrv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarrv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarrv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarrv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarrv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarrv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
zlartg.c:680:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (g->r == 0. && g->i == 0. || disnan_(&d__1)) {
~~~~~~~~~~~^~~~~~~~~~~~~ ~~
zlartg.c:680:17: note: place parentheses around the '&&' expression to silence this warning
if (g->r == 0. && g->i == 0. || disnan_(&d__1)) {
^
( )
zlartg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlartg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlartg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlartg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlartg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlartg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlartg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlartg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlartg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlartg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlartg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlartv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlartv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlartv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlartv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlartv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlartv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlartv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlartv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlartv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlartv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlartv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlartv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlarz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlarzb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarzb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarzb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarzb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarzb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarzb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarzb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarzb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarzb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarzb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarzb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarzb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarzt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarzt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarzt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarzt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarzt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarzt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarzt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarzt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarzt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarzt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarzt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarzt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlascl.c:722:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
zlascl.c:722:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
zlascl.c:722:63: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
zlascl.c:722:63: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
zlascl.c:734:72: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~
zlascl.c:734:72: note: place parentheses around the '&&' expression to silence this warning
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
^
(
zlascl.c:737:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~ ~~
zlascl.c:737:28: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
( )
zlascl.c:737:60: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~ ~~~~~~~~~~~^~~~~~~~~~~
zlascl.c:737:60: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
(
zlascl.c:738:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlascl.c:738:28: note: place parentheses around the '&&' expression to silence this warning
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
^
( )
zlascl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlascl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlascl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlascl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlascl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlascl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlascl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlascl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlascl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlascl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlascl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlascl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaset.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaset.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaset.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaset.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaset.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaset.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaset.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaset.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaset.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaset.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaset.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaset.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlasr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlasr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlasr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlasr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlasr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlasr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlasr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlasr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlasyf.c:773:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf.c:773:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlassq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlassq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlassq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlassq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlassq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlassq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlassq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlassq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlassq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlassq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlassq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlassq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf.c:1164:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf.c:1164:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlasyf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlasyf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlasyf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlasyf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlasyf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlasyf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlasyf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlasyf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlasyf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
18 warnings generated.
zlasyf_rook.c:791:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf_rook.c:791:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlasyf_rook.c:1226:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf_rook.c:1226:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlasyf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlasyf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlasyf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlasyf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlasyf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlasyf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlasyf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlasyf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlasyf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zlasyf_rk.c:874:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf_rk.c:874:24: note: place parentheses around the '&&' expression to silence this warning
if (k <= *n - *nb + 1 && *nb < *n || k < 1) {
^
( )
zlasyf_rk.c:1305:15: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (k >= *nb && *nb < *n || k > *n) {
~~~~~~~~~^~~~~~~~~~~ ~~
zlasyf_rk.c:1305:15: note: place parentheses around the '&&' expression to silence this warning
if (k >= *nb && *nb < *n || k > *n) {
^
( )
zlasyf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlasyf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlasyf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlasyf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlasyf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlasyf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlasyf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlasyf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlasyf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlasyf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlasyf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlasyf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlasyf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlasyf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlasyf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlasyf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlasyf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlasyf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlasyf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zlatbs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatbs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatbs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatbs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatbs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatbs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatbs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatbs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatbs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatbs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
20 warnings generated.
zlatdf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatdf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatdf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatdf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatdf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatdf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatdf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatdf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatdf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatdf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatdf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
14 warnings generated.
zlatps.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatps.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatps.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatps.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatps.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatps.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatps.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatps.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatps.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatps.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
14 warnings generated.
11 warnings generated.
zlatrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zpbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
10 warnings generated.
zpbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbstf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbstf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbstf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbstf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbstf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbstf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbstf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbstf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbstf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbstf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbstf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbstf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zpbsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zpbtf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbtf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbtf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbtf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbtf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbtf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbtf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbtf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbtf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbtf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
10 warnings generated.
12 warnings generated.
zpbtrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbtrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbtrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbtrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbtrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbtrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbtrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbtrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbtrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbtrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zpbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
10 warnings generated.
zpocon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpocon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpocon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpocon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpocon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpocon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpocon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpocon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpocon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpocon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpocon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpocon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpoequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpoequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpoequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpoequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpoequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpoequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpoequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpoequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpoequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpoequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpoequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpoequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zporfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zporfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zporfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zporfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zporfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zporfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zporfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zporfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zporfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zporfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zporfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zporfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zposvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zposvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zposvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zposvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zposvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zposvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zposvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zposvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zposvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zposvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zposvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zposvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zpotri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpotri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpotri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpotri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpotri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpotri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpotri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpotri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpotri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpotri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpotrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpotrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpotrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpotrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpotrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpotrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpotrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpotrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpotrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpotrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zpstrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpstrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpstrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpstrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpstrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpstrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpstrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpstrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpstrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpstrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpstrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zpstf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpstf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpstf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpstf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpstf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpstf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpstf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpstf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpstf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpstf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpstf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zppcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zppcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zppcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zppcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zppcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zppcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zppcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zppcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zppcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zppequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zppequ.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zppequ.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zppequ.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zppequ.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zppequ.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zppequ.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zppequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppequ.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppequ.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppequ.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zpprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zppsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zppsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zppsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zppsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zppsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zppsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zppsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zppsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zppsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zppsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zppsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zppsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zppsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zppsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zppsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zppsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zppsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zppsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zppsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
11 warnings generated.
zpptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
zptcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zptcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zptcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zptcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zptcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zptcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zptcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zptcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zptcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpteqr.c:722:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zpteqr.c:722:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zpteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zptrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zptrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zptrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zptrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zptrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zptrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zptrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zptrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zptrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zptsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zptsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zptsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zptsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zptsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zptsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zptsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zptsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zptsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zptsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zptsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zptsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zptsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zptsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zptsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zptsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zptsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warningszpttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
generatedstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpttrf.c:270:14:.
warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
zpttrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpttrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpttrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpttrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpttrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpttrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpttrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpttrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpttrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpttrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpttrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpttrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zptts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zptts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zptts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zptts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zptts2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zptts2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zptts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zptts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptts2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zptts2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zptts2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zrot.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zrot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zrot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zrot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zrot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zrot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zrot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zrot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zrot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zrot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zrot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zrot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zspcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zspcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zspcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zspcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zspcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zspcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zspcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zspcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zspcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspmv.c:715:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
zspmv.c:715:53: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
^
(
zspmv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zspmv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zspmv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zspmv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zspmv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zspmv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zspmv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zspmv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zspmv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspmv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspmv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspmv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspr.c:691:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0. && alpha->i == 0.) {
~~ ~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~
zspr.c:691:35: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0. && alpha->i == 0.) {
^
( )
zspr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zspr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zspr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zspr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zspr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zspr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zspr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zspr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zspr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zspsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zspsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zspsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zspsv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zspsv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zspsv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zspsv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zspsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zspsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspsv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspsv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
zspsvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zspsvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zspsvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zspsvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zspsvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zspsvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zspsvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zspsvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zspsvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspsvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zspsvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zspsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsptrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsptrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsptrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsptrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsptrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsptrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsptrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsptrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsptrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsptrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zsptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptrs.c:974:20: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
kc = kc + (*n - k << 1) + 1;
~~~^~~ ~~
zsptrs.c:974:20: note: place parentheses around the '-' expression to silence this warning
kc = kc + (*n - k << 1) + 1;
^
( )
zsptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zdrscl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zdrscl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zdrscl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zdrscl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zdrscl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zdrscl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zdrscl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zdrscl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zdrscl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zdrscl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zdrscl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zdrscl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zstedc.c:819:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zstedc.c:819:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zstedc.c:836:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
lrwmin = *n - 1 << 1;
~~~^~~ ~~
zstedc.c:836:18: note: place parentheses around the '-' expression to silence this warning
lrwmin = *n - 1 << 1;
^
( )
zstedc.c:839:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
zstedc.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zstedc.c:839:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
zstedc.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zstedc.c:842:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
zstedc.c:349:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
zstedc.c:842:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
zstedc.c:349:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
zstedc.c:850:13: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
zstedc.c:857:27: note: uninitialized use occurs here
work[1].r = (doublereal) lwmin, work[1].i = 0.;
^~~~~
zstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
zstedc.c:745:18: note: initialize the variable 'lwmin' to silence this warning
integer lwmin, start;
^
= 0
zstedc.c:850:13: warning: variable 'lrwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
zstedc.c:858:26: note: uninitialized use occurs here
rwork[1] = (doublereal) lrwmin;
^~~~~~
zstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
zstedc.c:772:19: note: initialize the variable 'lrwmin' to silence this warning
integer lrwmin;
^
= 0
zstedc.c:850:13: warning: variable 'liwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
zstedc.c:859:13: note: uninitialized use occurs here
iwork[1] = liwmin;
^~~~~~
zstedc.c:850:9: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
zstedc.c:767:19: note: initialize the variable 'liwmin' to silence this warning
integer liwmin, icompz;
^
= 0
zstedc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zstedc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zstedc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zstedc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zstedc.c:336:24: zstegr.cwarning: :250:13: warning: unused variable 'junk' [-Wunused-variable]
unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^ ^
zstedc.c:366:16:zstegr.c warning: unused function 'dmaxloc_' [-Wunused-function]
:static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zstedc.c:373:16: warning: unused function 'smaxloc_' [-Wunused-function]
270static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zstedc.c:380:20: warning: unused function 'cdotc_' [-Wunused-function]
:14static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
: ^
zstedc.c:411 warning: :unused function 'spow_ui' [-Wunused-function]
20static float spow_ui(float x, integer n) {
^
zstegr.c::282:15: warning: unused function 'zdotc_' [-Wunused-function]
warning: unused function 'dpow_ui' [-Wunused-function]static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
static double dpow_ui(double x, integer n) {
^
zstegr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
^static _Complex float cpow_ui(_Complex float x, integer n) {
^
zstegr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zstegr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zstegr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
zstedc.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zstegr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
:static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zstegr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
442:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstegr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
20static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
^warning:
unused function 'cdotu_' [-Wunused-function]
zstegr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstedc.c:473:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstegr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zstein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zstein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zstein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zstein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zstein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zstein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zstein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zstein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zstein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zstein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsteqr.c:740:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zsteqr.c:740:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zsteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
11 warnings generated.
20 warnings generated.
zsycon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
zsymv.c:724:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
zsymv.c:724:53: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
^
(
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsycon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsycon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsycon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsycon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsycon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsycon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsycon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsycon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsycon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsymv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsymv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsymv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsymv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsymv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsymv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsymv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsymv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsymv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsymv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsymv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsymv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zsyr.c:698:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || alpha->r == 0. && alpha->i == 0.) {
~~ ~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~
zsyr.c:698:35: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || alpha->r == 0. && alpha->i == 0.) {
^
( )
12 warnings generated.
zsyr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
zsysvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
zsytf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsytri2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
12 warnings generated.
zsytri2x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri2x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri2x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri2x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri2x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri2x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri2x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri2x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri2x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri2x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri2x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri2x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsyswapr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyswapr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyswapr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyswapr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyswapr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyswapr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyswapr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyswapr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyswapr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyswapr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyswapr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyswapr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zsyconv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyconv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyconv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyconv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyconv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyconv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyconv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyconv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyconv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyconv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zsyconvf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyconvf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyconvf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyconvf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyconvf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyconvf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyconvf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyconvf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyconvf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconvf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyconvf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconvf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zsyconvf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyconvf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyconvf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsyconvf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyconvf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyconvf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyconvf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyconvf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyconvf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconvf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyconvf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyconvf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytf2_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytf2_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytf2_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytf2_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytf2_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytf2_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytf2_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytf2_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytf2_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytf2_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrf_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrf_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrf_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrf_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrf_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrf_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zsytri_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zsycon_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsycon_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsycon_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsycon_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsycon_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsycon_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsycon_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsycon_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsycon_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsycon_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsysv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysv_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysv_rook.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysv_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysv_rook.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysv_rook.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysv_rook.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysv_rook.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_rook.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv_rook.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_rook.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zsysv_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysv_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysv_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysv_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysv_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysv_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysv_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysv_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysv_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
zsytrf_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrf_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrf_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrf_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrf_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrf_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrf_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrf_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrf_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsytrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs_aa_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs_aa_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs_aa_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs_aa_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_aa_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_aa_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_aa_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrf_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrf_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrf_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrf_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrf_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrf_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrf_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrf_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytf2_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytf2_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytf2_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytf2_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytf2_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytf2_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytf2_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytf2_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytf2_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytf2_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytf2_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsytrf_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrf_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrf_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrf_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrf_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrf_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrf_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrf_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrf_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytrs_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytrs_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytrs_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytrs_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytrs_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytrs_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsytri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsytri_3x.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsytri_3x.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsytri_3x.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsytri_3x.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsytri_3x.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsytri_3x.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsytri_3x.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsytri_3x.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsytri_3x.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri_3x.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsytri_3x.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsytri_3x.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zsycon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsycon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsycon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsycon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsycon_3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsycon_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsycon_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsycon_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsycon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon_3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsycon_3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsycon_3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsysv_rk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysv_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysv_rk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysv_rk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysv_rk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysv_rk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysv_rk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysv_rk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysv_rk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_rk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv_rk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_rk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zsysv_aa.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsysv_aa.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsysv_aa.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zsysv_aa.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsysv_aa.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsysv_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsysv_aa.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsysv_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsysv_aa.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_aa.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsysv_aa.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsysv_aa.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztbcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztbcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
ztbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztbrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztbrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztbrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztbrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztbrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztbtrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztbtrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztbtrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztbtrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztbtrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztbtrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbtrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztbtrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztbtrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztgevc.c:903:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compl && *ldvl < *n || *ldvl < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
ztgevc.c:903:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compl && *ldvl < *n || *ldvl < 1) {
^
( )
ztgevc.c:905:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (compr && *ldvr < *n || *ldvr < 1) {
~~~~~~^~~~~~~~~~~~~ ~~
ztgevc.c:905:22: note: place parentheses around the '&&' expression to silence this warning
} else if (compr && *ldvr < *n || *ldvr < 1) {
^
( )
ztgevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztgex2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgex2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgex2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgex2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgex2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgex2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgex2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgex2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgex2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgex2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgex2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgex2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgexc.c:760:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztgexc.c:760:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztgexc.c:762:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztgexc.c:762:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztgsen.c:1042:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || *wantq && *ldq < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
ztgsen.c:1042:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || *wantq && *ldq < *n) {
^
( )
ztgsen.c:1044:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || *wantz && *ldz < *n) {
~~ ~~~~~~~^~~~~~~~~~~~
ztgsen.c:1044:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || *wantz && *ldz < *n) {
^
( )
ztgexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
ztgsja.c:1005:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
ztgsja.c:1005:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
ztgsja.c:1007:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
ztgsja.c:1007:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
ztgsja.c:1009:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ztgsja.c:1009:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
ztgsja.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgsja.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgsja.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgsja.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgsja.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgsja.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgsja.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgsja.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgsja.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsja.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsja.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsja.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsja.c:517:19: warning: unused variable 'c_b3' [-Wunused-variable]
static doublereal c_b3 = 0.;
^
12 warnings generated.
ztgsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
ztgsy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgsy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgsy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgsy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgsy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgsy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgsy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgsy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgsy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
ztgsyl.c:987:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~~~~~~~^~~~~~~~~~ ~~
ztgsyl.c:987:17: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
ztgsyl.c:987:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
~~ ~~~~~~~~~^~~~~~~~~~~
ztgsyl.c:987:40: note: place parentheses around the '&&' expression to silence this warning
if (mb <= 1 && nb <= 1 || mb >= *m && nb >= *n) {
^
( )
ztgsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztgsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztgsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztgsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztgsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztgsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztgsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztgsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztgsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsyl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztgsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztgsyl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztpcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztpcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztprfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztprfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztprfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztprfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztprfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztprfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztprfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztprfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztprfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztprfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
12 warnings generated.
14 warnings generated.
ztptri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztptri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztptri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztptri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztptri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztptri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztptri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztptri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztptri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztptri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztptri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztptri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztptrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztptrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztptrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztptrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztptrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztptrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztptrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztptrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztptrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ztrcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrcon.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrcon.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrcon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrevc.c:834:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ztrevc.c:834:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
ztrevc.c:836:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
ztrevc.c:836:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
ztrevc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrevc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrevc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrevc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrevc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrevc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrevc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrevc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrevc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrevc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrevc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztrevc3.c:891:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ztrevc3.c:891:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || leftv && *ldvl < *n) {
^
( )
ztrevc3.c:893:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~
ztrevc3.c:893:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || rightv && *ldvr < *n) {
^
( )
12 warnings generated.
ztrevc3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrevc3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrevc3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrevc3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrevc3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrevc3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrevc3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrevc3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrevc3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrevc3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrevc3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrevc3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrexc.c:693:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztrexc.c:693:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) {
~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ztrexc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrexc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrexc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrexc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrexc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrexc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrexc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrexc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrrfs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrrfs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrrfs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrrfs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrrfs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrrfs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
ztrsen.c:880:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
ztrsen.c:880:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
ztrsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrsen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrsen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrsen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrsen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrsen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrsen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrsen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrsen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrsen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrsna.c:874:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || wants && *ldvl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ztrsna.c:874:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || wants && *ldvl < *n) {
^
( )
ztrsna.c:876:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || wants && *ldvr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~
ztrsna.c:876:35: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || wants && *ldvr < *n) {
^
( )
ztrsna.c:880:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
~~ ~~~~~~~^~~~~~~~~~~~~~~
ztrsna.c:880:38: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldwork < 1 || wantsp && *ldwork < *n) {
^
( )
13 warnings generated.
ztrsna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrsna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrsna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrsna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrsna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrsna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrsna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrsna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrsna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrsna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrsna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
14 warnings generated.
ztrsyl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrsyl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrsyl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrsyl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrsyl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrsyl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrsyl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrsyl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrsyl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrsyl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztzrzf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztzrzf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztzrzf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztzrzf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztzrzf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztzrzf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztzrzf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztzrzf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztzrzf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztzrzf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztzrzf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztzrzf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
zung2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zung2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zung2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zung2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zung2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zung2l.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zung2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zung2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zung2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zung2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zung2l.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zung2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zung2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zung2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zung2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zung2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zung2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zung2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zung2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zung2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zung2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zung2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zung2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zung2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zungbr.c:723:32: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zungbr.c:723:32: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
( )
zungbr.c:723:78: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
~~ ~~~~~~~~^~~~
zungbr.c:723:78: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || wantq && (*n > *m || *n < f2cmin(*m,*k)) || ! wantq && (
^
(
zungbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
zunghr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunghr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunghr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunghr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunghr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunghr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunghr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunghr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunghr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunghr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunghr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunghr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungl2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungl2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungl2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungl2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungl2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungl2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungl2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungl2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungl2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungl2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungl2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungl2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
zunglq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunglq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunglq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunglq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunglq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunglq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunglq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunglq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunglq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunglq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunglq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunglq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
10 warnings generated.
zungqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
12 warnings generated.
zungr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zungtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zungtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zungtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zungtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zungtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zungtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunm2l.c:757:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
zunm2l.c:757:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunm2l.c:757:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
zunm2l.c:757:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zungtsqr_row.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zungtsqr_row.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunm2l.c:250:zungtsqr_row.c:282:13: warning: unused variable 'junk' [-Wunused-variable]
15static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunm2l.c: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zungtsqr_row.c:309::270:23: warning: 14unused function 'cpow_ui' [-Wunused-function]: warning:
unused function 'spow_ui' [-Wunused-function]static _Complex float cpow_ui(_Complex float x, integer n) {
^
zungtsqr_row.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zungtsqr_row.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static float spow_ui(float x, integer n) {
static integer pow_ii(integer x, integer n) { ^
^
zungtsqr_row.c:zunm2l.c367::28216::15 : warning: unused function 'dpow_ui' [-Wunused-function]
warning: static double dpow_ui(double x, integer n) {unused function 'dmaxloc_' [-Wunused-function]
^
zunm2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
static _Complex float cpow_ui(_Complex float x, integer n) { ^
^
zunm2l.czungtsqr_row.c::337374::2416:: warning: warning: unused function 'zpow_ui' [-Wunused-function]
unused function 'smaxloc_' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
static integer smaxloc_(float *w, integer s, integer e, integer *n) ^
^
zunm2l.c:350:zungtsqr_row.c16::381:20: warning: unused function 'cdotc_' [-Wunused-function] warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunm2l.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtsqr_row.c:412static integer dmaxloc_(double *w, integer s, integer e, integer *n):
20 ^:
warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunm2l.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
zungtsqr_row.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunm2l.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zungtsqr_row.c:474:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {20
: ^
warning: unused function 'zdotu_' [-Wunused-function]zunm2l.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunm2l.c:443:20: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {warning: unused function 'cdotu_' [-Wunused-function]
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunm2l.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunm2r.c:757:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunm2r.c:757:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunm2r.c:757:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunm2r.c:757:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
12 warnings generated.
zunm2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunm2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunm2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunm2r.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunm2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunm2r.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunm2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunm2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunm2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunm2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunm2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunm2r.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
zunmbr.c:796:13: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
zunmbr.c:796:13: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zunmbr.c:796:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
zunmbr.c:796:48: note: place parentheses around the '&&' expression to silence this warning
if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
12 warnings generated.
14 warnings generated.
zunmbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmbr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmbr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmbr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmbr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmbr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunml2.c:754:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
zunml2.c:754:14: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunml2.c:754:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
zunml2.c:754:34: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunml2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunml2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunml2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunml2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunml2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunml2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunml2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunml2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunml2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunml2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunml2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunml2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmhr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmhr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmhr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmhr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmhr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmhr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmhr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmhr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmhr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmhr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmhr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmhr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunmlq.c:835:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
zunmlq.c:835:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunmlq.c:835:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
zunmlq.c:835:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunmlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunm22.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunm22.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunm22.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunm22.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunm22.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunm22.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunm22.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunm22.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunm22.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunm22.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunm22.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunm22.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmql.c:837:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~~~~^~~~~~~~~ ~~
zunmql.c:837:11: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
zunmql.c:837:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && notran || ! left && ! notran) {
~~ ~~~~~~~^~~~~~~~~~~
zunmql.c:837:31: note: place parentheses around the '&&' expression to silence this warning
if (left && notran || ! left && ! notran) {
^
( )
14 warnings generated.
zunmql.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmql.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmql.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmql.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmqr.c:834:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunmqr.c:834:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmqr.c:834:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunmqr.c:834:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
14 warnings generated.
zunmqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunmr2.c:754:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunmr2.c:754:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmr2.c:754:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunmr2.c:754:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
14 warnings generated.
zunmr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmr2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmr2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmr2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmr2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmr2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmr2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmr2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmr2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
14 warnings generated.
zunmr3.c:756:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
zunmr3.c:756:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
zunmr3.c:756:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
zunmr3.c:756:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
zunmr3.c:775:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunmr3.c:775:14: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmr3.c:775:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunmr3.c:775:36: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmr3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmr3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmr3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmr3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmr3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmr3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmr3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmr3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmr3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmr3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmr3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmr3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmrq.c:838:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunmrq.c:838:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmrq.c:838:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunmrq.c:838:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmrq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmrq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmrq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmrq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmrq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmrq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmrq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmrz.c:789:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~^~~~~~~~~~
zunmrz.c:789:31: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
zunmrz.c:789:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
~~ ~~~~~~~^~~~~~~~~~
zunmrz.c:789:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || left && *l > *m || ! left && *l > *n) {
^
( )
zunmrz.c:871:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~~~~^~~~~~~~~~~ ~~
zunmrz.c:871:11: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmrz.c:871:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && ! notran || ! left && notran) {
~~ ~~~~~~~^~~~~~~~~
zunmrz.c:871:33: note: place parentheses around the '&&' expression to silence this warning
if (left && ! notran || ! left && notran) {
^
( )
zunmrz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmrz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmrz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmrz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmrz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmrz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmrz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmrz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmrz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmrz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmrz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmrz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
16 warnings generated.
zunmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunmtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
zupgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zupgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zupgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zupgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zupgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zupgtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zupgtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zupgtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zupgtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zupgtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zupgtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zupgtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zupmtr.c:750:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~~~~^~~~~~~~~ ~~
zupmtr.c:750:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
zupmtr.c:750:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && notran || ! left && ! notran;
~~ ~~~~~~~^~~~~~~~~~~
zupmtr.c:750:36: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && notran || ! left && ! notran;
^
( )
zupmtr.c:814:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~~~~^~~~~~~~~~~ ~~
zupmtr.c:814:16: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
zupmtr.c:814:38: warning: '&&' within '||' [-Wlogical-op-parentheses]
forwrd = left && ! notran || ! left && notran;
~~ ~~~~~~~^~~~~~~~~
zupmtr.c:814:38: note: place parentheses around the '&&' expression to silence this warning
forwrd = left && ! notran || ! left && notran;
^
( )
zupmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zupmtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zupmtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zupmtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zupmtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zupmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zupmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zupmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zupmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zupmtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zupmtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zupmtr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
izmax1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
izmax1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
izmax1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
izmax1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
izmax1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
izmax1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
izmax1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
izmax1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
izmax1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
izmax1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
izmax1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
izmax1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
12 warnings generated.
16 warnings generated.
dzsum1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dzsum1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dzsum1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dzsum1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dzsum1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dzsum1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dzsum1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dzsum1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dzsum1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dzsum1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dzsum1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dzsum1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
zstemr.c:1002:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zstemr.c:1002:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zstemr.c:1085:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
zstemr.c:1085:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
zstemr.c:1085:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
~~ ~~~~~~~^~~~~~~~~~~
zstemr.c:1085:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) {
^
( )
zstemr.c:1109:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
zstemr.c:1109:34: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
zstemr.c:1109:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
~~ ~~~~~~~^~~~~~~~~~~
zstemr.c:1109:56: note: place parentheses around the '&&' expression to silence this warning
if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) {
^
( )
zstemr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zstemr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zstemr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zstemr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zstemr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zstemr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zstemr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zstemr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zstemr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstemr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zstemr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zstemr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlat2c.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlat2c.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlat2c.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlat2c.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlat2c.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlat2c.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlat2c.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlat2c.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlat2c.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlat2c.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlat2c.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlat2c.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zcgesv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zcgesv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zcgesv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zcgesv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zcgesv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zcgesv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zcgesv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zcgesv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zcgesv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zcgesv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zcgesv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zcgesv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlag2c.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlag2c.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlag2c.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlag2c.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlag2c.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlag2c.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlag2c.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlag2c.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlag2c.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlag2c.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlag2c.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlag2c.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zcposv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zcposv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zcposv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zcposv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zcposv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zcposv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zcposv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zcposv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zcposv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zcposv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zcposv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zcposv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhfrk.c:761:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
zhfrk.c:761:46: note: place parentheses around the '&&' expression to silence this warning
if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) {
^
( )
zhfrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhfrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhfrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhfrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhfrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhfrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhfrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhfrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhfrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhfrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhfrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhfrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztfttp.c:733:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
12 warnings generated.
ztfttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztfttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztfttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztfttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztfttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztfttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztfttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztfttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztfttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztfttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zlanhf.c:1855:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhf.c:2451:15: note: uninitialized use occurs here
ret_val = value;
^~~~~
zlanhf.c:1855:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
zlanhf.c:775:21: note: initialize the variable 'value' to silence this warning
12 warning doublereal value;s generated.
^
= 0.0
zlanhf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlanhf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlanhf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlanhf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlanhf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlanhf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlanhf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlanhf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlanhf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlanhf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlanhf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
17 warnings generated.
zpftrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpftrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpftrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpftrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpftrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpftrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpftrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpftrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpftrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpftrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpftrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpftrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpftrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zpftrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpftrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpftrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpftrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpftrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpftrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpftrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpftrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
ztfsm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztfsm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztfsm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztfsm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztfsm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztfsm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztfsm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztfsm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztfsm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfsm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztfsm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfsm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztftri.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztftri.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztftri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztftri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztftri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztftri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztftri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztftri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztftri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztftri.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztftri.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztftri.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztfttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztfttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztfttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztfttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztfttr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztfttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztfttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztfttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztfttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztfttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztfttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztpttf.c:733:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable]
integer n1, n2, ij, jp, js, nt;
^
ztpttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpttr.cztpttf.c::270:14:250 :13warning: : warning: unused variable 'junk' [-Wunused-variable]
unused function 'spow_ui' [-Wunused-function]static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {static float spow_ui(float x, integer n) {
^
ztpttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
^static double dpow_ui(double x, integer n) {
^
ztpttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpttf.cztpttr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
:static double dpow_ui(double x, integer n) {
^
ztpttr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
350:16: warning: static _Complex float cpow_ui(_Complex float x, integer n) {unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
^static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
ztpttr.cstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
:337static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpttr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpttr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpttr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpttr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpttr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrttf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrttf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrttf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrttf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrttf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrttf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrttf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrttf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ztrttp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztrttp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztrttp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztrttp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztrttp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztrttp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztrttp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztrttp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztrttp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrttp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztrttp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztrttp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgeequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zgbequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgbequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgbequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgbequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgbequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgbequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgbequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgbequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgbequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgbequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zsyequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zsyequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zsyequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zsyequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zsyequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zsyequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zsyequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zsyequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zsyequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
11 warnings generated.
zpoequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zpoequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zpoequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zpoequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zpoequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zpoequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zpoequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zpoequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpoequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zpoequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zpoequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
zheequb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheequb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheequb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheequb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheequb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheequb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheequb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheequb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheequb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheequb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zbbcsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zbbcsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zbbcsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zbbcsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zbbcsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zbbcsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zbbcsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zbbcsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zbbcsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zbbcsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zbbcsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zbbcsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlapmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlapmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlapmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlapmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlapmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlapmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlapmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlapmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlapmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlapmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlapmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zunbdb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunbdb1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zunbdb2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zunbdb3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
12 warnings generated.
static double dpow_ui(double x, integer n) {
^
zunbdb3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunbdb4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zunbdb5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zunbdb6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunbdb6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunbdb6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunbdb6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunbdb6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunbdb6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunbdb6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunbdb6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunbdb6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunbdb6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunbdb6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zuncsd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zuncsd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zuncsd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zuncsd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zuncsd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zuncsd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zuncsd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zuncsd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zuncsd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zuncsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zuncsd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zuncsd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zuncsd2by1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zuncsd2by1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zuncsd2by1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zuncsd2by1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zuncsd2by1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zuncsd2by1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zuncsd2by1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zuncsd2by1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zuncsd2by1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zuncsd2by1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zuncsd2by1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zuncsd2by1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgeqrt.c:697:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
zgeqrt.c:697:47: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
zgeqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
zgeqrt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqrt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqrt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqrt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqrt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqrt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqrt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqrt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqrt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqrt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemqrt.c:748:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
zgemqrt.c:748:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
zgemqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgemqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgemqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgemqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgemqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgemqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgemqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgemqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgemqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztpqrt.c:749:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
ztpqrt.c:749:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
ztpqrt.c:751:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ztpqrt.c:751:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
ztpqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztpqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztpqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztpqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztpqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
12 warnings generated.
ztpmqrt.c:802:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ztpmqrt.c:802:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *k && *k > 0) {
^
( )
ztpmqrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpmqrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztpmqrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztpmqrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpmqrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpmqrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpmqrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpmqrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpmqrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpmqrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpmqrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpmqrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
ztprfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztprfb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztprfb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztprfb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztprfb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztprfb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztprfb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztprfb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztprfb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztprfb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztprfb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztprfb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztplqt.c:749:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
ztplqt.c:749:45: note: place parentheses around the '&&' expression to silence this warning
} else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {
^
( )
ztplqt.c:751:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
ztplqt.c:751:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
ztplqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztplqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztplqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztplqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztplqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztplqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztplqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztplqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztplqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztplqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztplqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztplqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
ztplqt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztplqt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztplqt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztplqt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztplqt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztplqt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztplqt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztplqt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztplqt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztplqt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztplqt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztplqt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
ztpmlqt.c:800:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
zgelqt.c:694:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
ztpmlqt.c:800:36: note: place parentheses around the '&&' expression to silence this warning
zgelqt.c:694:47 } else if (*mb < 1 || *mb > *k && *k > 0) {
^
: ( ) note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) {
^
( )
zgelqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpmlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ztpmlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ztpmlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ztpmlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ztpmlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ztpmlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ztpmlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ztpmlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ztpmlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpmlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ztpmlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ztpmlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
zgemlqt.c:746:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *k && *k > 0) {
~~ ~~~~~~~~~^~~~~~~~~
zgemlqt.c:746:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *k && *k > 0) {
^
( )
zgemlqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgemlqt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgemlqt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgemlqt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgemlqt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgemlqt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgemlqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgemlqt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgemlqt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemlqt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemlqt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelqt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelqt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelqt3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelqt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelqt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelqt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelqt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelqt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelqt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqt3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelqt3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelqt3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetsls.c:722:13: warning: variable 'mnk' set but not used [-Wunused-but-set-variable]
integer mnk;
^
zgetsls.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgetsls.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgetsls.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgetsls.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgetsls.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgetsls.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgetsls.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgetsls.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgetsls.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetsls.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetsls.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetsls.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
zgetsqrhrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgetsqrhrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgetsqrhrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgetsqrhrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgetsqrhrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgetsqrhrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgetsqrhrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgetsqrhrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgetsqrhrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetsqrhrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgetsqrhrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgetsqrhrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
zgeqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgeqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgeqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgeqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgeqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgeqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgeqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgeqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgeqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgeqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgeqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatsqr.c:726:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*nb < 1 || *nb > *n && *n > 0) {
~~ ~~~~~~~~~^~~~~~~~~
zlatsqr.c:726:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*nb < 1 || *nb > *n && *n > 0) {
^
( )
zlatsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
zlamtsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlamtsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlamtsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlamtsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlamtsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlamtsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlamtsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlamtsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlamtsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlamtsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlamtsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlamtsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemqr.c:794:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
zgemqr.c:794:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
zgemqr.c:794:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
zgemqr.c:794:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || mb <= *k || mb >= f2cmax(i__1,*
^
( )
zgemqr.c:694:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
zgemqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgemqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgemqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgemqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgemqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgemqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgemqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgemqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgemqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgelq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgelq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgelq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgelq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgelq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgelq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgelq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgelq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgelq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgelq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaswlq.c:722:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*mb < 1 || *mb > *m && *m > 0) {
~~ ~~~~~~~~~^~~~~~~~~
zlaswlq.c:722:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*mb < 1 || *mb > *m && *m > 0) {
^
( )
15 warnings generated.
zlaswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlamswlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlamswlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlamswlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlamswlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlamswlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlamswlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlamswlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlamswlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlamswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlamswlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlamswlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlamswlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zgemlq.c:792:14: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~~~~^~~~~~~~~~~ ~~
zgemlq.c:792:14: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
zgemlq.c:792:35: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
~~ ~~~~~~^~~~~~~~~~~
zgemlq.c:792:35: note: place parentheses around the '&&' expression to silence this warning
if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,*
^
( )
zgemlq.c:692:29: warning: variable 'nblcks' set but not used [-Wunused-but-set-variable]
integer mb, nb, mn, lw, nblcks;
^
zgemlq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgemlq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgemlq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgemlq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgemlq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgemlq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgemlq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgemlq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgemlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemlq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgemlq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgemlq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
15 warnings generated.
12 warnings generated.
zunhr_col.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zunhr_col.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zunhr_col.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zunhr_col.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zunhr_col.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zunhr_col.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zunhr_col.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zunhr_col.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zunhr_col.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunhr_col.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zunhr_col.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zunhr_col.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlaunhr_col_getrfnp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaunhr_col_getrfnp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaunhr_col_getrfnp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaunhr_col_getrfnp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaunhr_col_getrfnp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaunhr_col_getrfnp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaunhr_col_getrfnp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaunhr_col_getrfnp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaunhr_col_getrfnp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaunhr_col_getrfnp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaunhr_col_getrfnp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaunhr_col_getrfnp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaunhr_col_getrfnp2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaunhr_col_getrfnp2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaunhr_col_getrfnp2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaunhr_col_getrfnp2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaunhr_col_getrfnp2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaunhr_col_getrfnp2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaunhr_col_getrfnp2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaunhr_col_getrfnp2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaunhr_col_getrfnp2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaunhr_col_getrfnp2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaunhr_col_getrfnp2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaunhr_col_getrfnp2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd_2stage.c:765:13: warning: variable 'wantq' set but not used [-Wunused-but-set-variable]
logical wantq, upper;
^
zhetrd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd_he2hb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrd_he2hb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrd_he2hb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrd_he2hb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrd_he2hb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrd_he2hb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrd_he2hb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrd_he2hb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrd_he2hb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_he2hb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd_he2hb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_he2hb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
zhetrd_hb2st.c:763:59: warning: variable 'nthreads' set but not used [-Wunused-but-set-variable]
integer thed, myid, indw, apos, dpos, indv, abofdpos, nthreads, i__, k, m,
^
zhetrd_hb2st.c:764:14: warning: variable 'debug' set but not used [-Wunused-but-set-variable]
edind, debug;
^
zhetrd_hb2st.c:768:20: warning: variable 'sizev' set but not used [-Wunused-but-set-variable]
integer grsiz, sizev, ttype, stepercol, ed, ib, st, abdpos;
^
zhetrd_hb2st.c:784:27: warning: variable 'nbtiles' set but not used [-Wunused-but-set-variable]
integer stt, sweepid, nbtiles, sizetau, thgrsiz;
^
zhetrd_hb2st.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhetrd_hb2st.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhetrd_hb2st.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhetrd_hb2st.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhetrd_hb2st.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhetrd_hb2st.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhetrd_hb2st.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhetrd_hb2st.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhetrd_hb2st.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_hb2st.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhetrd_hb2st.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhetrd_hb2st.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zhb2st_kernels.c:697:29: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable]
integer j1, j2, lm, ln, ajeter;
^
zheevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhb2st_kernels.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhb2st_kernels.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhb2st_kernels.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhb2st_kernels.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhb2st_kernels.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhb2st_kernels.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhb2st_kernels.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhb2st_kernels.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhb2st_kernels.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhb2st_kernels.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhb2st_kernels.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhb2st_kernels.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevx_2stage.c:959:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zheevx_2stage.c:959:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
12 warnings generated.
zheevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
zheevr_2stage.c:1080:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zheevr_2stage.c:1080:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zheevr_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zheevr_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zheevr_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zheevr_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zheevr_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zheevr_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zheevr_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zheevr_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zheevr_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevr_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zheevr_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zheevr_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
zhbev_2stage.c:820:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbev_2stage.c:820:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbev_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbev_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbev_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbev_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbev_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbev_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbev_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbev_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbev_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbev_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbev_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbev_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevx_2stage.c:993:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbevx_2stage.c:993:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbevx_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbevx_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbevx_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbevx_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbevx_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbevx_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbevx_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbevx_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbevx_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevx_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevx_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevx_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevd_2stage.c:906:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zhbevd_2stage.c:906:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
zhbevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhbevd_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhbevd_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhbevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhbevd_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhbevd_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhbevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhbevd_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhbevd_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevd_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhbevd_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhbevd_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
13 warnings generated.
13 warnings generated.
16 warnings generated.
zhegv_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zhegv_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zhegv_2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zhegv_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zhegv_2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zhegv_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zhegv_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zhegv_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zhegv_2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegv_2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zhegv_2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zhegv_2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvdq.c:1102:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zgesvdq.c:1102:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
zgesvdq.c:1102:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zgesvdq.c:1102:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || lsvc0 && *ldu < *m || wntuf && *ldu < *n) {
^
( )
zgesvdq.c:1104:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zgesvdq.c:1104:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
zgesvdq.c:1104:56: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
~~ ~~~~~~^~~~~~~~~~~~
zgesvdq.c:1104:56: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || rsvec && *ldv < *n || conda && *ldv < *n) {
^
( )
12 warnings generated.
zgesvdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zgesvdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zgesvdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zgesvdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zgesvdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zgesvdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zgesvdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zgesvdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zgesvdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zgesvdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zgesvdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clag2z.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clag2z.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clag2z.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clag2z.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clag2z.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clag2z.c:350:16: warning: cpotrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
unused function 'pow_ii' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static integer pow_ii(integer x, integer n) {cpotrs.c:
^
270:clag2z.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
14: warning: unused function 'spow_ui' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clag2z.c:374:16:static float spow_ui(float x, integer n) {
warning: ^unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
cpotrs.c ^:
282:clag2z.c15:: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
cpotrs.c:381:30920:: warning: 23unused function 'cdotc_' [-Wunused-function]:
warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ ^
cpotrs.c:337clag2z.c::24412:: 20warning: :unused function 'zpow_ui' [-Wunused-function]
warning: unused function 'zdotc_' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
cpotrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {cpotrs.c
: ^
clag2z.c:367443::1620:: warning: warning: unused function 'dmaxloc_' [-Wunused-function]
unused function 'cdotu_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
cpotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clag2z.c:474static integer smaxloc_(float *w, integer s, integer e, integer *n):
20 ^:
warning: unused function 'zdotu_' [-Wunused-function]cpotrs.c
:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotrs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
cpotrs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
cpotrs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
sbdsvdx.c:861:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n << 1) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~
sbdsvdx.c:861:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n << 1) {
^
( )
sstevx.c:840:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n) {
~~ ~~~~~~^~~~~~~~~~~~
sstevx.c:840:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
sstevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstevx.c:309:12 warnings23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
generated.
sbdsvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sbdsvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sbdsvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sbdsvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sbdsvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sbdsvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sbdsvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sbdsvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sbdsvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sbdsvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsvdx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
sbdsdc.c:828:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || icompq == 2 && *ldu < *n) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
sbdsqr.c:853:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
sbdsqr.c:853:27: note: place parentheses around the '&&' expression to silence this warning
sbdsdc.c:828:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
sbdsqr.c:853:53 } else if (*ldu < 1 || icompq == 2 && *ldu < *n) {
^
( )
: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {sbdsdc.c:830:41:
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) {
sbdsqr.c:853: ~~ ~~~~~~~~~~~~^~~~~~~~~~~~~53
: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
sbdsdc.c:830:41: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) {
^
( )
sbdsqr.c:857:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
sbdsqr.c:857:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
sbdsqr.c:857:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sbdsqr.c:857:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sbdsqr.c:1117:23: warning: '&&' within '||' [-Wlogical-op-parentheses]
r__1)) || tol < 0.f && (r__3 = e[m - 1], abs(r__3)) <= thresh)
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sbdsqr.c:1117:23: note: place parentheses around the '&&' expression to silence this warning
r__1)) || tol < 0.f && (r__3 = e[m - 1], abs(r__3)) <= thresh)
^
( )
sbdsqr.c:1149:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
) || tol < 0.f && (r__3 = e[ll], abs(r__3)) <= thresh) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sbdsqr.c:1149:18: note: place parentheses around the '&&' expression to silence this warning
) || tol < 0.f && (r__3 = e[ll], abs(r__3)) <= thresh) {
^
( )
sbdsdc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sbdsdc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sbdsdc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sbdsdc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sbdsdc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sbdsdc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sbdsdc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sbdsdc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sbdsdc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsdc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sbdsdc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsdc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sbdsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sbdsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sbdsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sbdsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sbdsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sbdsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sbdsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sbdsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sbdsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sbdsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sbdsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sdisna.c:736:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m > *n || right && *m < *n) {
~~~~~^~~~~~~~~~ ~~
sdisna.c:736:11: note: place parentheses around the '&&' expression to silence this warning
if (left && *m > *n || right && *m < *n) {
^
( )
sdisna.c:736:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m > *n || right && *m < *n) {
~~ ~~~~~~^~~~~~~~~~
sdisna.c:736:31: note: place parentheses around the '&&' expression to silence this warning
if (left && *m > *n || right && *m < *n) {
^
( )
sdisna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sdisna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sdisna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sdisna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sdisna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sdisna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sdisna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sdisna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sdisna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sdisna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sdisna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sdisna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
slabad.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slabad.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slabad.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slabad.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slabad.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slabad.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slabad.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slabad.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slabad.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slabad.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slabad.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slabad.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
slacpy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slacpy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slacpy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slacpy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slacpy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slacpy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slacpy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slacpy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slacpy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacpy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slacpy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slacpy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sladiv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sladiv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sladiv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sladiv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sladiv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sladiv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sladiv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sladiv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sladiv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sladiv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sladiv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sladiv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slae2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slae2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slae2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slae2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slae2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slae2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slae2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slae2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slae2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slae2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slae2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slae2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slaebz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaebz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaebz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaebz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaebz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaebz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaebz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaebz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaebz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaebz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaebz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaebz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
slaed0.c:826:13: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
slaed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaed0.c:826:20: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
slaed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaed0.c:829:13: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
slaed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaed0.c:829:20: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
slaed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaed0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed0.c:412:20: slaed1.cwarning: unused function 'zdotc_' [-Wunused-function]
:250:13static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed0.c::443:20: warning: unused function 'cdotu_' [-Wunused-function]
warning: unused variable 'junk' [-Wunused-variable]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
slaed1.c:270:14static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
^warning:
unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slaed2.c:914:10: warning: variable 'pj' is used uninitialized whenever 'if' condition is true [-Wsometimes-uninitialized]
if (j == *n) {
^~~~~~~
slaed2.c:1003:22: note: uninitialized use occurs here
dlamda[*k] = d__[pj];
^~
slaed2.c:914:6: note: remove the 'if' if its condition is always false
if (j == *n) {
^~~~~~~~~~~~~~
18 warnings generated.
slaed2.c:751:23: note: initialize the variable 'pj' to silence this warning
integer ct, nj, pj, js;
^
= 0
slaed2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slaed5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
15 warnings generated.
12 warnings generated.
12 warnings generated.
slaed6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed7.c:886:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
slaed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaed7.c:886:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
slaed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaed7.c:890:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
slaed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaed7.c:890:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
slaed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaed7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed9.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed9.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed9.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed9.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed9.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed9.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed9.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed9.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed9.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed9.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed9.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaeda.cslaed9.c::474:20756:35: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:756:42: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~~
*
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:756:59: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:756:66: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:782:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:782:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:787:32: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:787:39: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:787:55: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:787:62: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:847:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
slaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slaeda.c:847:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
slaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slaed8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaed8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaed8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaed8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaed8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaed8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaed8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaed8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaed8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaed8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaed8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaeda.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaeda.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaeda.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaeda.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaeda.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaeda.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaeda.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaeda.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaeda.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaeda.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaeda.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
slaev2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaev2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaev2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaev2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaev2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaev2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaev2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaev2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaev2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaev2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaev2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaev2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
23 warnings generated.
12 warnings generated.
12 warnings generated.
slagtf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagtf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagtf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagtf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagtf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagtf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagtf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagtf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagtf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagtf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagtf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagtf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagts.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagts.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagts.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagts.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagts.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagts.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagts.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagts.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagts.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagts.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagts.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagts.cslamrg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slamrg.c:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slamrg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slamrg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slamrg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slamrg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slamrg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slamrg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slamrg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamrg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slamrg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slamrg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slanst.c:690:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slanst.c:705:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
slanst.c:690:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slanst.c:627:15: note: initialize the variable 'anorm' to silence this warning
real anorm;
^
= 0.0
12 warnings generated.
slanst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slanst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slanst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slanst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slanst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slanst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slanst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slanst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slanst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slanst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slanst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapy3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slapy3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slapy3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slapy3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slapy3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slapy3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slapy3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slapy3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slapy3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapy3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapy3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapy3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slapy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slapy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slapy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slapy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slapy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slapy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slapy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slapy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slapy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slapy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
slarnv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarnv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarnv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarnv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarnv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarnv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarnv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarnv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarnv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarnv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarnv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarnv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarra.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarra.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarra.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarra.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarra.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarra.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarra.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarra.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarra.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarra.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarra.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarra.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slarrb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarre.c:936:49: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || irange == 3 && d__[1] > *vl && d__[1] <= *vu ||
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~
slarre.c:936:49: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || irange == 3 && d__[1] > *vl && d__[1] <= *vu ||
^
( )
slarre.c:937:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
irange == 2 && *il == 1 && *iu == 1) {
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
slarre.c:937:27: note: place parentheses around the '&&' expression to silence this warning
irange == 2 && *il == 1 && *iu == 1) {
^
( )
slarrc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrc.cslarre.c::374:16: warning: unused function 'smaxloc_' [-Wunused-function]
1037:58: static integer smaxloc_(float *w, integer s, integer e, integer *n)warning:
'&&' within '||' [-Wlogical-op-parentheses]
^ if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin]
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
slarrc.c:slarre.c:1037:58: note: place parentheses around the '&&' expression to silence this warning
381 if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin]
^
: (
20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
slarre.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrc.c:1038:30: warning: '&&' within '||' [-Wlogical-op-parentheses]
slarrd.c:971:49: warning: '&&' within '||' [-Wlogical-op-parentheses]
474:20: warning: unused function 'zdotu_' [-Wunused-function]
if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu || static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~
slarrd.c:971:49 <= *vu || irange == 2 && iblock[wbegin] == jblk) {: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu ||
^
( )
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~slarrd.c:972:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
irange == 3 && *il == 1 && *iu == 1) {
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
slarrd.c:972:27: note: place parentheses around the '&&' expression to silence this warning
irange == 3 && *il == 1 && *iu == 1) {
^
( )
slarre.c:1038:30: note: place parentheses around the '&&' expression to silence this warning
<= *vu || irange == 2 && iblock[wbegin] == jblk) {
^
( )
slarre.c:1117:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && ! forceb || usedqd) {
~~~~~~~~~~~~^~~~~~~~~~~ ~~
slarre.c:1117:18: note: slarrd.c:1100:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
place parentheses around the '&&' expression to silence this warning
if (irange == 1 && ! forceb || usedqd) {
^
( )
slarrd.c:1100:53slarrf.c:860:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[
^
(
if (forcer || max1 <= growthbound && ! sawnan1) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
slarrf.c:860:39: note: place parentheses around the '&&' expression to silence this warning
if (forcer || max1 <= growthbound && ! sawnan1) {
^
( )
slarrf.c:892:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (forcer || max2 <= growthbound && ! sawnan2) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
slarrf.c:892:39: note: place parentheses around the '&&' expression to silence this warning
if (forcer || max2 <= growthbound && ! sawnan2) {
^
( )
slarrd.c:1370:21: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
~~~~~~~~~~~~^~~~~~~~~~~ ~~
slarrd.c:1370:21: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
^
( )
slarrd.c:1370:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
slarrd.c:1370:48: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
^
( )
slarrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarre.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarre.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarre.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarre.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarre.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarre.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarre.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarre.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarre.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarre.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarre.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarre.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slarrj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrj.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrj.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrj.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrj.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
slarrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
12 warnings generated.
slarrr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarrr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarrr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarrr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarrr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarrr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarrr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarrr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarrr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarrr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarrr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaneg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaneg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaneg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaneg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaneg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaneg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaneg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaneg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaneg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaneg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaneg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaneg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slartg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slartg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slartg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slartg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slartg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slartg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slartg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slartg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slartg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slaruv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaruv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaruv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaruv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaruv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaruv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaruv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaruv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaruv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaruv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaruv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaruv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slas2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slas2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slas2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slas2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slas2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slas2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slas2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slas2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slas2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slas2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slas2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slas2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
slascl.c:722:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
slascl.c:722:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
slascl.c:722:63: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
slascl.c:722:63: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
slascl.c:734:72: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~
slascl.c:734:72: note: place parentheses around the '&&' expression to silence this warning
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
^
(
slascl.c:737:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~ ~~
slascl.c:737:28: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
( )
slascl.c:737:60: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~ ~~~~~~~~~~~^~~~~~~~~~~
slascl.c:737:60: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
(
slascl.c:738:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
slascl.c:738:28: note: place parentheses around the '&&' expression to silence this warning
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
^
( )
12 warnings generated.
slascl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slascl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slascl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slascl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slascl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slascl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slascl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slascl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slascl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slascl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slascl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slascl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
17 warnings generated.
slasd0.c:824:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slasd0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slasd0.c:824:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slasd0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slasd0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd2.c:980:17: warning: variable 'jprev' is used uninitialized whenever 'for' loop exits because its condition is false [-Wsometimes-uninitialized]
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
slasd2.c:998:9: note: uninitialized use occurs here
j = jprev;
^~~~~
slasd2.c:980:17: note: remove the condition if it is always true
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
slasd2.c:803:25: note: initialize the variable 'jprev' to silence this warning
integer idxjp, jprev, k2;
^
= 0
slasd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasd5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
18 warnings generated.
13 warnings generated.
17 warnings generated.
slasd6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasd7.c:972:17: warning: variable 'jprev' is used uninitialized whenever 'for' loop exits because its condition is false [-Wsometimes-uninitialized]
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
slasd7.c:989:9: note: uninitialized use occurs here
j = jprev;
^~~~~
slasd7.c:972:17: note: remove the condition if it is always true
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
slasd7.c:809:39: note: initialize the variable 'jprev' to silence this warning
integer i__, j, m, n, idxjp, jprev, k2;
^
= 0
slasd7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd7.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
slasd8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasd8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasd8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasd8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasd8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasd8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasd8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasd8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasd8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasd8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasd8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasda.c:1026:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
slasda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slasda.c:1026:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
slasda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slasda.c:1038:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slasda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
slasda.c:1038:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
slasda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
slasda.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasda.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasda.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasda.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasda.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasda.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasda.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasda.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasda.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasda.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasda.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasdq.c:803:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
slasdq.c:803:27: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
slasdq.c:803:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
slasdq.c:803:53: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
slasdq.c:807:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
slasdq.c:807:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
slasdq.c:807:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
slasdq.c:807:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
slasdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasdt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasdt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasdt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasdt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasdt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasdt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasdt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasdt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasdt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasdt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasdt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasdt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
16 warnings generated.
slaset.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaset.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaset.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaset.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaset.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaset.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaset.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaset.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaset.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaset.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaset.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaset.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasq1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasq1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasq1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasq1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
slasq2.c:756:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n - 1 << 1;
~~~^~~ ~~
slasq2.c:756:15: note: place parentheses around the '-' expression to silence this warning
i__1 = *n - 1 << 1;
^
( )
slasq2.c:839:12: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = i0 + n0 << 2;
~~~^~~~ ~~
slasq2.c:839:12: note: place parentheses around the '+' expression to silence this warning
ipn4 = i0 + n0 << 2;
^
( )
slasq2.c:840:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = i0 + n0 - 1 << 1;
~~~~~~~~^~~ ~~
slasq2.c:840:17: note: place parentheses around the '-' expression to silence this warning
i__1 = i0 + n0 - 1 << 1;
^
( )
slasq2.c:860:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
for (i4 = (n0 - 1 << 2) + pp; i4 >= i__1; i4 += -4) {
~~~^~~ ~~
slasq2.c:860:16: note: place parentheses around the '-' expression to silence this warning
for (i4 = (n0 - 1 << 2) + pp; i4 >= i__1; i4 += -4) {
^
( )
slasq2.c:874:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = (n0 - 1 << 2) + pp;
~~~^~~ ~~
slasq2.c:874:13: note: place parentheses around the '-' expression to silence this warning
i__1 = (n0 - 1 << 2) + pp;
^
( )
slasq2.c:929:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ndiv = n0 - i0 << 1;
~~~^~~~ ~~
slasq2.c:929:15: note: place parentheses around the '-' expression to silence this warning
ndiv = n0 - i0 << 1;
^
( )
slasq2.c:1003:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
if (kmin - i0 << 1 < n0 - kmin && deemin <= z__[(n0 << 2) - 3] *
~~~~~^~~~ ~~
slasq2.c:1003:15: note: place parentheses around the '-' expression to silence this warning
if (kmin - i0 << 1 < n0 - kmin && deemin <= z__[(n0 << 2) - 3] *
^
( )
slasq2.c:1005:13: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = i0 + n0 << 2;
~~~^~~~ ~~
slasq2.c:1005:13: note: place parentheses around the '+' expression to silence this warning
ipn4 = i0 + n0 << 2;
^
( )
slasq2.c:1007:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__2 = i0 + n0 - 1 << 1;
~~~~~~~~^~~ ~~
slasq2.c:1007:18: note: place parentheses around the '-' expression to silence this warning
i__2 = i0 + n0 - 1 << 1;
^
( )
slasq2.c:1062:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__3 = n0 - 3 << 2;
~~~^~~ ~~
slasq2.c:1062:17: note: place parentheses around the '-' expression to silence this warning
i__3 = n0 - 3 << 2;
^
( )
slasq3.c:809:17: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = *i0 + *n0 << 2;
~~~~^~~~~ ~~
slasq3.c:809:17: note: place parentheses around the '+' expression to silence this warning
ipn4 = *i0 + *n0 << 2;
^
( )
slasq3.c:810:23: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *i0 + *n0 - 1 << 1;
~~~~~~~~~~^~~ ~~
slasq3.c:810:23: note: place parentheses around the '-' expression to silence this warning
i__1 = *i0 + *n0 - 1 << 1;
^
( )
slasq3.c:872:58: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
} else if (*dmin__ < 0.f && *dmin1 > 0.f && z__[(*n0 - 1 << 2) - *pp] <
~~~~^~~ ~~
slasq3.c:872:58: note: place parentheses around the '-' expression to silence this warning
} else if (*dmin__ < 0.f && *dmin1 > 0.f && z__[(*n0 - 1 << 2) - *pp] <
^
( )
slasq3.c:877:11: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
z__[(*n0 - 1 << 2) - *pp + 2] = 0.f;
~~~~^~~ ~~
slasq3.c:877:11: note: place parentheses around the '-' expression to silence this warning
z__[(*n0 - 1 << 2) - *pp + 2] = 0.f;
^
( )
slasq4.c:963:16: warning: variable 's' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*n0in > *n0 + 2) {
^~~~~~~~~~~~~~~
slasq4.c:971:12: note: uninitialized use occurs here
*tau = s;
^
slasq4.c:963:12: note: remove the 'if' if its condition is always true
} else if (*n0in > *n0 + 2) {
^~~~~~~~~~~~~~~~~~~~~
slasq4.c:672:11: note: initialize the variable 's' to silence this warning
real s, a2, b1, b2;
^
= 0.0
slasq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasq4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasq4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasq4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)slasq3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";slasq4.c:381:20:
warning: unused function 'cdotc_' [-Wunused-function] ^
slasq3.c:270static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq4.c:412:14::20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq4.c:474:20warning: :unused function 'spow_ui' [-Wunused-function]
warning: static float spow_ui(float x, integer n) {
unused function 'zdotu_' [-Wunused-function] ^
slasq3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static double dpow_ui(double x, integer n) {
^
slasq3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasq3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
16 warnings generated.
12 warnings generated.
slasq5.c:702:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:702:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:715:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:715:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:733:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
slasq5.c:733:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
slasq5.c:753:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:753:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:769:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:769:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:790:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
slasq5.c:790:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
slasq5.c:827:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:827:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:843:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:843:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:864:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
slasq5.c:864:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
slasq5.c:884:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:884:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:903:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq5.c:903:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq5.c:927:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
slasq5.c:927:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
slasq5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasq5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasq5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasq5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasq5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slasq6.c:670:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq6.c:670:13: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
slasq6.c:694:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
slasq6.cslasr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasr.c:367:16: :694:warning: unused function 'dmaxloc_' [-Wunused-function]
13static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
: note: slasr.cplace parentheses around the '-' expression to silence this warning:
374:16: warning: unused function 'smaxloc_' [-Wunused-function]
i__1 = *n0 - 3 << 2;static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
^
( )slasr.c:381
:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq6.c:723:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
slasq6.c:723:15: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
slasq6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasq6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasq6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasq6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasq6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasq6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasq6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasq6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasq6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasq6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasq6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slassq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slassq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slassq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slassq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slassq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slassq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slassq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slassq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slassq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slassq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slassq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slassq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slasv2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slasv2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slasv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slasv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slasv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slasv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slasv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slasv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slasv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slasv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
12 warnings generated.
24 warnings generated.
spttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
spttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
spttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
spttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
spttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
spttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
spttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
spttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
spttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
spttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
spttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
22 warnings generated.
12 warnings generated.
sstebz.c:1125:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || wl < d__[ibegin] - pivmin && wu >= d__[ibegin]
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
sstebz.c:1125:51: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || wl < d__[ibegin] - pivmin && wu >= d__[ibegin]
^
(
sstedc.c:789:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sstedc.c:789:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
sstedc.c:804:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
lwmin = *n - 1 << 1;
~~~^~~ ~~
sstedc.c:804:17: note: place parentheses around the '-' expression to silence this warning
lwmin = *n - 1 << 1;
^
( )
sstedc.c:807:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
sstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
sstedc.c:807:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
sstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
sstedc.c:810:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
sstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
sstedc.c:810:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
sstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
sstedc.c:818:17: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
sstedc.c:825:19: note: uninitialized use occurs here
sstebz.c:250:13 work[1] = (real) lwmin;ssteqr.c:733:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
^~~~~
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ssteqr.c:733:39: note: place parentheses around the '&&' expression to silence this warning
sstedc.c:818:13: note: remove the 'if' if its condition is always true
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
sstedc.c:724:18: note: initialize the variable 'lwmin' to silence this warning: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
integer lwmin, start;
^
= 0
sstedc.c:818:17:sstebz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstebz.c:282: warning: variable 'liwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
sstedc.c:826:13: note: uninitialized use occurs here
iwork[1] = liwmin;
^~~~~~
sstedc.c:818:13: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
sstedc.c:739:19: note: initialize the variable 'liwmin' to silence this warning
integer liwmin, icompz;
^
= 0
15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstebz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstebz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstebz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sstebz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstebz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstebz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstebz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstebz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstebz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstedc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sstedc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sstedc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sstedc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sstedc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sstedc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sstedc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sstedc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstedc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sstedc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sstedc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssterf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ssterf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ssterf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ssterf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ssterf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ssterf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ssterf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ssterf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ssterf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssterf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ssterf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ssterf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaisnan.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaisnan.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaisnan.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaisnan.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaisnan.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaisnan.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaisnan.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaisnan.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaisnan.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaisnan.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaisnan.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaisnan.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sisnan.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
sisnan.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
sisnan.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
sisnan.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
sisnan.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
sisnan.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
sisnan.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
sisnan.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
sisnan.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sisnan.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
sisnan.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
sisnan.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slartgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slartgp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slartgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slartgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slartgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slartgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slartgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slartgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slartgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
19 warnings generated.
slartgs.c:629:23: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*sigma == 0.f && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.f) {
~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~ ~~
slartgs.c:629:23: note: place parentheses around the '&&' expression to silence this warning
if (*sigma == 0.f && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.f) {
^
( )
slartgs.c:629:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*sigma == 0.f && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.f) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
slartgs.c:629:64: note: place parentheses around the '&&' expression to silence this warning
if (*sigma == 0.f && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.f) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
slartgs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slartgs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slartgs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slartgs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slartgs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slartgs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slartgs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slartgs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slartgs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartgs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slartgs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slartgs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
scombssq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
scombssq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
scombssq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
scombssq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
scombssq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
scombssq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
scombssq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
scombssq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
scombssq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
scombssq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
scombssq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
scombssq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
14 warnings generated.
../INSTALL/sroundup_lwork.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/sroundup_lwork.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/sroundup_lwork.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/sroundup_lwork.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/sroundup_lwork.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/sroundup_lwork.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/sroundup_lwork.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/sroundup_lwork.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/sroundup_lwork.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/sroundup_lwork.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/sroundup_lwork.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/sroundup_lwork.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
../INSTALL/second_INT_ETIME.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/second_INT_ETIME.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/second_INT_ETIME.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/second_INT_ETIME.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/second_INT_ETIME.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/second_INT_ETIME.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/second_INT_ETIME.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/second_INT_ETIME.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/second_INT_ETIME.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/second_INT_ETIME.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
13 warnings generatedstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/second_INT_ETIME.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/second_INT_ETIME.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
.
12 warnings generated.
dstevx.c:843:24: dcombssq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
warning: ^
'&&' within '||' [-Wlogical-op-parentheses]
dcombssq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dcombssq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
if (*ldz < 1 || wantz && *ldz < *n) {dcombssq.c:
~~ ~~~~~~^~~~~~~~~~~~
309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dcombssq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dcombssq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dcombssq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dcombssq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dcombssq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dcombssq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dcombssq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dcombssq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
dstevx.c:843:24: note: place parentheses around the '&&' expression to silence this warning
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
if (*ldz < 1 || wantz && *ldz < *n) {
^
( )
dbdsvdx.c:863:24: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ldz < 1 || wantz && *ldz < *n << 1) {
~~ ~~~~~~^~~~~~~~~~~~~~~~~
dbdsvdx.c:863:24: note: place parentheses around the '&&' expression to silence this warning
if (*ldz < 1 || wantz && *ldz < *n << 1) {
^
( )
dstein.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstein.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstein.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstein.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstein.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstein.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstein.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstein.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstein.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstein.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstein.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstevx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstevx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstevx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstevx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstevx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstevx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstevx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstevx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstevx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstevx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstevx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbdsvdx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dbdsvdx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dbdsvdx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dbdsvdx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dbdsvdx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dbdsvdx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dbdsvdx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dbdsvdx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dbdsvdx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsvdx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbdsvdx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsvdx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dbdsdc.c:832:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || icompq == 2 && *ldu < *n) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
dbdsdc.c:832:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || icompq == 2 && *ldu < *n) {
^
( )
dbdsdc.c:834:41: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~
dbdsdc.c:834:41: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) {
^
( )
13 warnings generated.
dbdsdc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dbdsdc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dbdsdc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dbdsdc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dbdsdc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dbdsdc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dbdsdc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dbdsdc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dbdsdc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsdc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbdsdc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsdc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
ddisna.cdbdsqr.c:855:27: :warning: 735:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
'&&' within '||' [-Wlogical-op-parentheses] if (left && *m > *n || right && *m < *n) {
~~~~~^~~~~~~~~~ ~~
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
ddisna.c:735:11: note: place parentheses around the '&&' expression to silence this warning
if (left && *m > *n || right && *m < *n) {
^
( )
ddisna.c:735:31: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (left && *m > *n || right && *m < *n) {
~~ ~~~~~~^~~~~~~~~~
ddisna.c:735:31: note: place parentheses around the '&&' expression to silence this warning
if (left && *m > *n || right && *m < *n) {
^
( )
dbdsqr.c:855:27: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
dbdsqr.c:855:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dbdsqr.c:855:53: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dbdsqr.c:859:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
dbdsqr.c:859:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
dbdsqr.c:859:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dbdsqr.c:859:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
ddisna.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ddisna.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ddisna.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ddisna.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ddisna.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ddisna.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ddisna.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ddisna.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ddisna.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ddisna.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ddisna.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ddisna.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbdsqr.c:1118:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
d__1)) || tol < 0. && (d__3 = e[m - 1], abs(d__3)) <= thresh)
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dbdsqr.c:1118:22: note: place parentheses around the '&&' expression to silence this warning
d__1)) || tol < 0. && (d__3 = e[m - 1], abs(d__3)) <= thresh)
^
( )
dbdsqr.c:1150:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
) || tol < 0. && (d__3 = e[ll], abs(d__3)) <= thresh) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dbdsqr.c:1150:17: note: place parentheses around the '&&' expression to silence this warning
) || tol < 0. && (d__3 = e[ll], abs(d__3)) <= thresh) {
^
( )
dbdsqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dbdsqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dbdsqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dbdsqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dbdsqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dbdsqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dbdsqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dbdsqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dbdsqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dbdsqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dbdsqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlabad.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlabad.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlabad.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlabad.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlabad.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlabad.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlabad.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlabad.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlabad.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlabad.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlabad.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlabad.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
12 warnings generated.
dlacpy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlacpy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlacpy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlacpy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlacpy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlacpy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlacpy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlacpy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlacpy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacpy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlacpy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlacpy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
dladiv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dladiv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dladiv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dladiv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dladiv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dladiv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dladiv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dladiv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dladiv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dladiv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dladiv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dladiv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlae2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlae2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlae2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlae2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlae2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlae2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlae2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlae2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlae2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlae2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlae2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlae2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaebz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaebz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaebz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaebz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaebz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaebz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaebz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaebz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaebz.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaebz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaebz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaebz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaed0.c:830:13: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
dlaed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaed0.c:830:20: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
dlaed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaed0.c:833:13: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
dlaed0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaed0.c:833:20: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
dlaed0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaed0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaed1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlaed2.c:915:10: warning: variable 'pj' is used uninitialized whenever 'if' condition is true [-Wsometimes-uninitialized]
if (j == *n) {
^~~~~~~
dlaed2.c:1004:22: note: uninitialized use occurs here
dlamda[*k] = d__[pj];
^~
dlaed2.c:915:6: note: remove the 'if' if its condition is always false
if (j == *n) {
^~~~~~~~~~~~~~
dlaed2.c:754:15: note: initialize the variable 'pj' to silence this warning
integer pj, js;
^
= 0
dlaed2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dlaed5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
18 warnings generated.
12 warnings generated.
15 warnings generated.
dlaed6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed7.c:888:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
dlaed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaed7.c:888:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
dlaed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaed7.c:892:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
dlaed7.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaed7.c:892:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
dlaed7.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaed7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaeda.c:757:35: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:757:42: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~~
*
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:757:59: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:757:66: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
^~~~~
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:784:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:784:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); dereference with * [-Wint-conversion]
ptr = pow_ii(&c__2, tlvls) + 1;
^~~~~
*
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:789:32: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:789:39: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:789:55: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:789:62: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) -
^~~~~
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:850:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
dlaeda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlaeda.c:850:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
ptr += pow_ii(&c__2, &i__2);
^~~~~
dlaeda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlaed9.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaed9.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaed9.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaed9.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaed9.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaed9.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaed9.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaed9.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaed9.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed9.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaed9.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaed9.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaeda.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaeda.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaeda.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaeda.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaeda.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaeda.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaeda.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaeda.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaeda.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaeda.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaeda.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaev2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaev2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaev2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaev2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaev2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaev2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaev2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaev2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaev2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaev2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaev2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaev2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagtf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagtf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagtf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagtf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagtf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagtf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagtf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagtf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagtf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagtf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagtf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagtf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
11 warnings generated.
12 warnings generated.
23 warnings generated.
12 warnings generated.
dlagts.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagts.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagts.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagts.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagts.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagts.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagts.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagts.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagts.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagts.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagts.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagts.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlamrg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlamrg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlamrg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlamrg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlamrg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlamrg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlamrg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlamrg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlamrg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamrg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlamrg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlamrg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlanst.c:690:16: warning: variable 'anorm' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlanst.c:705:15: note: uninitialized use occurs here
ret_val = anorm;
^~~~~
dlanst.c:690:12: note: remove the 'if' if its condition is always true
} else if (lsame_(norm, "F") || lsame_(norm, "E")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlanst.c:627:21: note: initialize the variable 'anorm' to silence this warning
doublereal anorm;
^
= 0.0
dlanst.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlanst.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlanst.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlanst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlanst.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlanst.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlanst.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlanst.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlanst.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanst.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlanst.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlanst.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapy2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlapy2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlapy2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlapy2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlapy2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlapy2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlapy2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlapy2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlapy2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapy2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapy2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapy2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
13 warnings generated.
12 warnings generated.
dlapy3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlapy3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlapy3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlapy3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlapy3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlapy3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlapy3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlapy3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlapy3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapy3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlapy3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlapy3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarnv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarnv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarnv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarnv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarnv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarnv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarnv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarnv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarnv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarnv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarnv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarnv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlarra.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarra.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarra.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarra.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarra.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarra.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarra.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarra.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarra.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarra.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarra.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarra.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
dlarrb.c ^:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
dlarrc.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^
dlarrc.c
:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrc.c:474:20: ^ warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrb.cdlarrd.c:974:49: warning: '&&' within '||' [-Wlogical-op-parentheses]
:474:20 if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu ||
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~
: warning: unused function 'zdotu_' [-Wunused-function]dlarrd.c:974:49: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu ||
^
( )
dlarrd.c:975:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
irange == 3 && *il == 1 && *iu == 1) {
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dlarrd.c:975:27: note: place parentheses around the '&&' expression to silence this warning
irange == 3 && *il == 1 && *iu == 1) {
^
( )
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrd.c:1103:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
dlarrd.c:1103:53: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[
^
(
dlarrd.c:1373:21: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
~~~~~~~~~~~~^~~~~~~~~~~ ~~
dlarrd.c:1373:21: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
^
( )
dlarrd.c:1373:48: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dlarrd.c:1373:48: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 && *m != *n || irange == 3 && *m != *iu - *il + 1) {
^
( )
dlarrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarre.c:939:49: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || irange == 3 && d__[1] > *vl && d__[1] <= *vu ||
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~
dlarre.c:939:49: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || irange == 3 && d__[1] > *vl && d__[1] <= *vu ||
^
( )
dlarre.c:940:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
irange == 2 && *il == 1 && *iu == 1) {
~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dlarre.c:940:27: note: place parentheses around the '&&' expression to silence this warning
irange == 2 && *il == 1 && *iu == 1) {
^
( )
dlarre.c:1040:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin]
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
dlarre.c:1040:58: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin]
^
(
dlarre.c:1041:30: warning: '&&' within '||' [-Wlogical-op-parentheses]
<= *vu || irange == 2 && iblock[wbegin] == jblk) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~
dlarre.c:1041:30: note: place parentheses around the '&&' expression to silence this warning
<= *vu || irange == 2 && iblock[wbegin] == jblk) {
^
( )
dlarre.c:1120:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 && ! forceb || usedqd) {
~~~~~~~~~~~~^~~~~~~~~~~ ~~
dlarre.c:1120:18: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 && ! forceb || usedqd) {
^
( )
12 warnings generated.
12 warnings generated.
dlarre.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarre.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarre.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarre.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarre.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarre.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarre.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarre.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarre.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarre.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarre.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarre.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlarrf.c:861:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (forcer || max1 <= growthbound && ! sawnan1) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
dlarrf.c:861:39: note: place parentheses around the '&&' expression to silence this warning
if (forcer || max1 <= growthbound && ! sawnan1) {
^
( )
dlarrf.c:893:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (forcer || max2 <= growthbound && ! sawnan2) {
~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
dlarrf.c:893:39: note: place parentheses around the '&&' expression to silence this warning
if (forcer || max2 <= growthbound && ! sawnan2) {
^
( )
dlarrj.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrj.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrj.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrj.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrj.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrj.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrj.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrj.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrj.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrj.c:dlarrf.c:250:13: 412:20: warning: warning: unused function 'zdotc_' [-Wunused-function]
unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
dlarrf.c:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
270 ^:
14: dlarrj.cwarning: :unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
474:static double dpow_ui(double x, integer n) {
20 ^:
warning: unused function 'zdotu_' [-Wunused-function]dlarrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlarrr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrk.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarrk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarrk.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarrk.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarrk.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarrk.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarrk.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarrk.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarrk.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrk.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarrk.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarrk.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaneg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaneg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaneg.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaneg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaneg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaneg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaneg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaneg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaneg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaneg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaneg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaneg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
14 warnings generated.
12 warnings generated.
12 warnings generated.
dlartg.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlartg.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlartg.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlartg.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlartg.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlartg.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlartg.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlartg.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartg.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlartg.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartg.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
dlaruv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaruv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaruv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaruv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaruv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaruv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaruv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaruv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaruv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaruv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaruv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaruv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlas2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlas2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlas2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlas2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlas2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlas2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlas2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlas2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlas2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlas2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlas2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlas2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
dlascl.c:721:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
dlascl.c:721:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
dlascl.c:721:63: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
dlascl.c:721:63: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 4 && *n != *m || itype == 5 && *n != *m) {
^
( )
dlascl.c:733:72: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~
dlascl.c:733:72: note: place parentheses around the '&&' expression to silence this warning
if (*ku < 0 || *ku > f2cmax(i__1,0) || (itype == 4 || itype == 5) &&
^
(
dlascl.c:736:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~~~~~~~~~~^~~~~~~~~~~~~~~~~ ~~
dlascl.c:736:28: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
( )
dlascl.c:736:60: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
~~ ~~~~~~~~~~~^~~~~~~~~~~
dlascl.c:736:60: note: place parentheses around the '&&' expression to silence this warning
} else if (itype == 4 && *lda < *kl + 1 || itype == 5 && *lda < *
^
(
dlascl.c:737:28: warning: '&&' within '||' [-Wlogical-op-parentheses]
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlascl.c:737:28: note: place parentheses around the '&&' expression to silence this warning
ku + 1 || itype == 6 && *lda < (*kl << 1) + *ku + 1) {
^
( )
dlasd0.c:827:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlasd0.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlasd0.c:827:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlasd0.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlasd0.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd0.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd0.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd0.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd0.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd0.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd0.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd0.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd0.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd0.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlascl.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlascl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlascl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlascl.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlascl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlascl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlascl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlascl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlascl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlascl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlascl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlascl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
dlasd1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlasd2.c:983:17: warning: variable 'jprev' is used uninitialized whenever 'for' loop exits because its condition is false [-Wsometimes-uninitialized]
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
dlasd2.c:1001:9: note: uninitialized use occurs here
j = jprev;
^~~~~
dlasd2.c:983:17: note: remove the condition if it is always true
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
dlasd2.c:808:18: note: initialize the variable 'jprev' to silence this warning
integer jprev, k2;
^
= 0
dlasd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd2.c:443:20dlasd3.c:250: warning: :13: unused function 'cdotu_' [-Wunused-function]
warning: unused variable 'junk' [-Wunused-variable]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd3.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {:
270 ^:
14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
18 warnings generated.
dlasd6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
12 warnings generated.
dlasd7.c:973:17: warning: variable 'jprev' is used uninitialized whenever 'for' loop exits because its condition is false [-Wsometimes-uninitialized]
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
dlasd7.c:990:9: note: uninitialized use occurs here
j = jprev;
^~~~~
dlasd7.c:973:17: note: remove the condition if it is always true
for (j = 2; j <= i__1; ++j) {
^~~~~~~~~
dlasd7.c:813:18: note: initialize the variable 'jprev' to silence this warning
integer jprev, k2;
^
= 0
dlasd8.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd8.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd8.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd8.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd8.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd8.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd8.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd8.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd8.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd8.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd8.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd8.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasd7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasd7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasd7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasd7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasd7.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasd7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasd7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasd7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasd7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasd7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dlasda.c:1030:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
dlasda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlasda.c:1030:23: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
j = pow_ii(&c__2, &nlvl);
^~~~~
dlasda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlasda.c:1042:18: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlasda.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dlasda.c:1042:25: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
lf = pow_ii(&c__2, &i__1);
^~~~~
dlasda.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dlasda.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasda.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasda.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasda.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasda.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasda.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasda.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasda.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasda.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasda.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasda.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasdq.c:803:27: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~ ~~
dlasdq.c:803:27: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
^
( )
dlasdq.c:803:53: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dlasdq.c:803:53: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
dlasdq.c:807:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~~^~~~~~~~~~~ ~~
dlasdq.c:807:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
^
( )
dlasdq.c:807:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~ ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dlasdq.c:807:50: note: place parentheses around the '&&' expression to silence this warning
} else if (*ncc == 0 && *ldc < 1 || *ncc > 0 && *ldc < f2cmax(1,*n)) {
~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dlasdt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasdt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasdt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasdt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasdt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasdt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasdt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasdt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasdt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasdt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasdt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasdt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasdq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasdq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasdq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasdq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasdq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasdq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasdq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasdq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasdq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasdq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasdq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasdq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
13 warnings generated.
16 warnings generated.
15 warnings generated.
dlaset.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaset.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaset.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaset.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaset.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaset.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaset.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaset.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaset.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaset.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaset.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaset.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlasq1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasq1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasq1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
dlasq2.c:763:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq1.c:474: i__1 = *n - 1 << 1;20
: ~~~^~~ ~~
warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq2.c:763:15: note: place parentheses around the '-' expression to silence this warning
i__1 = *n - 1 << 1;
^
( )
dlasq2.c:842:12: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = i0 + n0 << 2;
~~~^~~~ ~~
dlasq2.c:842:12: note: place parentheses around the '+' expression to silence this warning
ipn4 = i0 + n0 << 2;
^
( )
dlasq2.c:843:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = i0 + n0 - 1 << 1;
~~~~~~~~^~~ ~~
dlasq2.c:843:17: note: place parentheses around the '-' expression to silence this warning
i__1 = i0 + n0 - 1 << 1;
^
( )
dlasq2.c:863:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
for (i4 = (n0 - 1 << 2) + pp; i4 >= i__1; i4 += -4) {
~~~^~~ ~~
dlasq2.c:863:16: note: place parentheses around the '-' expression to silence this warning
for (i4 = (n0 - 1 << 2) + pp; i4 >= i__1; i4 += -4) {
^
( )
dlasq2.c:877:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = (n0 - 1 << 2) + pp;
~~~^~~ ~~
dlasq2.c:877:13: note: place parentheses around the '-' expression to silence this warning
i__1 = (n0 - 1 << 2) + pp;
^
( )
dlasq2.c:932:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
ndiv = n0 - i0 << 1;
~~~^~~~ ~~
dlasq2.c:932:15: note: place parentheses around the '-' expression to silence this warning
ndiv = n0 - i0 << 1;
^
( )
dlasq2.c:1006:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
if (kmin - i0 << 1 < n0 - kmin && deemin <= z__[(n0 << 2) - 3] *
~~~~~^~~~ ~~
dlasq2.c:1006:15: note: place parentheses around the '-' expression to silence this warning
if (kmin - i0 << 1 < n0 - kmin && deemin <= z__[(n0 << 2) - 3] *
^
( )
dlasq2.c:1008:13: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = i0 + n0 << 2;
~~~^~~~ ~~
dlasq2.c:1008:13: note: place parentheses around the '+' expression to silence this warning
ipn4 = i0 + n0 << 2;
^
( )
dlasq2.c:1010:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__2 = i0 + n0 - 1 << 1;
~~~~~~~~^~~ ~~
dlasq2.c:1010:18: note: place parentheses around the '-' expression to silence this warning
i__2 = i0 + n0 - 1 << 1;
^
( )
dlasq2.c:1065:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__3 = n0 - 3 << 2;
~~~^~~ ~~
dlasq2.c:1065:17: note: place parentheses around the '-' expression to silence this warning
i__3 = n0 - 3 << 2;
^
( )
dlasq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasq2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasq2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq3.c:813:17: warning: operator '<<' has lower precedence than '+'; '+' will be evaluated first [-Wshift-op-parentheses]
ipn4 = *i0 + *n0 << 2;
~~~~^~~~~ ~~
dlasq3.c:813:17: note: place parentheses around the '+' expression to silence this warning
ipn4 = *i0 + *n0 << 2;
^
( )
dlasq3.c:814:23: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *i0 + *n0 - 1 << 1;
~~~~~~~~~~^~~ ~~
dlasq3.c:814:23: note: place parentheses around the '-' expression to silence this warning
i__1 = *i0 + *n0 - 1 << 1;
^
( )
dlasq3.c:876:56: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
} else if (*dmin__ < 0. && *dmin1 > 0. && z__[(*n0 - 1 << 2) - *pp] < tol
~~~~^~~ ~~
dlasq3.c:876:56: note: place parentheses around the '-' expression to silence this warning
} else if (*dmin__ < 0. && *dmin1 > 0. && z__[(*n0 - 1 << 2) - *pp] < tol
^
( )
dlasq3.c:881:11: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
z__[(*n0 - 1 << 2) - *pp + 2] = 0.;
~~~~^~~ ~~
dlasq3.c:881:11: note: place parentheses around the '-' expression to silence this warning
z__[(*n0 - 1 << 2) - *pp + 2] = 0.;
^
( )
dlasq4.c:964:16: warning: variable 's' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*n0in > *n0 + 2) {
^~~~~~~~~~~~~~~
dlasq4.c:972:12: note: uninitialized use occurs here
*tau = s;
^
dlasq3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq3.c:350:16:dlasq4.c:964:12: note: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
remove the 'if' if its condition is always true
} else if (*n0in > *n0 + 2) {
^~~~~~~~~~~~~~~~~~~~~
dlasq3.c:367:dlasq4.c:673:17: note: initialize the variable 's' to silence this warning
16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
doublereal s, a2, b1, b2;dlasq3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
= 0.0static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq4.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq4.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq4.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq4.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq4.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq4.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasq4.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq4.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasq4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq4.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq4.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq4.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq5.c:703:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:703:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:716:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:716:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:734:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
dlasq5.c:734:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
dlasq5.c:754:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:754:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:770:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:770:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:791:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
dlasq5.c:791:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
dlasq5.c:827:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:827:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:843:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:843:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:864:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
dlasq5.c:864:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
dlasq5.c:884:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:884:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:903:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq5.c:903:14: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq5.c:927:16: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
dlasq5.c:927:16: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
12 warnings generated.
dlasq6.c:670:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq6.c:670:13: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq6.c:694:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
i__1 = *n0 - 3 << 2;
~~~~^~~ ~~
dlasq6.c:694:13: note: place parentheses around the '-' expression to silence this warning
i__1 = *n0 - 3 << 2;
^
( )
dlasq6.c:723:15: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
j4 = (*n0 - 2 << 2) - *pp;
~~~~^~~ ~~
dlasq6.c:723:15: note: place parentheses around the '-' expression to silence this warning
j4 = (*n0 - 2 << 2) - *pp;
^
( )
dlasq5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasq5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasq5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasq6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasq6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasq6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasq6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasq6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasq6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasq6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasq6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasq6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasq6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
13 warnings generated.
15 warnings generated.
12 warnings generated.
24 warnings generated.
dlasr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasv2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasv2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasv2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasv2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasv2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasv2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasv2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasv2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasv2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasv2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasv2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasv2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasrt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlasrt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlasrt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlasrt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlasrt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlasrt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlasrt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlasrt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlasrt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasrt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlasrt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlasrt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlassq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlassq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlassq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlassq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlassq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlassq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlassq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlassq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlassq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlassq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlassq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlassq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dpttrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dpttrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dpttrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dpttrf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dpttrf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dpttrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dpttrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dpttrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpttrf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dpttrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dpttrf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstebz.c:1126:51: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (irange == 1 || wl < d__[ibegin] - pivmin && wu >= d__[ibegin]
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~
dstebz.c:1126:51: note: place parentheses around the '&&' expression to silence this warning
if (irange == 1 || wl < d__[ibegin] - pivmin && wu >= d__[ibegin]
^
(
12 warnings generated.
dstebz.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstebz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstebz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstebz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstebz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstebz.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dstebz.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstebz.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstebz.c:381:20: 12 warnings generated.
warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstebz.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstebz.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstebz.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dstedc.c:791:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dstedc.c:791:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dstedc.c:806:17: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses]
lwmin = *n - 1 << 1;
~~~^~~ ~~
dstedc.c:806:17: note: place parentheses around the '-' expression to silence this warning
lwmin = *n - 1 << 1;
^
( )
dstedc.c:809:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
dstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dstedc.c:809:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
dstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dstedc.c:812:17: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~~
dstedc.c:350:31: note: passing argument to parameter 'x' here
static integer pow_ii(integer x, integer n) {
^
dstedc.c:812:24: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion]
if (pow_ii(&c__2, &lgn) < *n) {
^~~~
dstedc.c:350:42: note: passing argument to parameter 'n' here
static integer pow_ii(integer x, integer n) {
^
dstedc.c:820:17: warning: variable 'lwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
dstedc.c:827:25: note: uninitialized use occurs here
work[1] = (doublereal) lwmin;
^~~~~
12 warnings generated.
dstedc.c:820:13: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
dstedc.c:726:18: note: initialize the variable 'lwmin' to silence this warning
integer lwmin;
^
= 0
dstedc.c:820:17: warning: variable 'liwmin' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (icompz == 2) {
^~~~~~~~~~~
dstedc.c:828:13: note: uninitialized use occurs here
iwork[1] = liwmin;
^~~~~~
dstedc.c:820:13: note: remove the 'if' if its condition is always true
} else if (icompz == 2) {
^~~~~~~~~~~~~~~~~
dstedc.c:745:19: note: initialize the variable 'liwmin' to silence this warning
integer liwmin, icompz;
^
= 0
dstedc.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dstedc.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dstedc.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dstedc.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dstedc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dstedc.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dstedc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dstedc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstedc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dstedc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dstedc.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
22 warnings generated.
dsteqr.c:738:39: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dsteqr.c:738:39: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) {
~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
dsteqr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsteqr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsteqr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsteqr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsteqr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsteqr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsteqr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsteqr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsteqr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsteqr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsteqr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsteqr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsterf.c:614:16: warning: variable 'rmax' set but not used [-Wunused-but-set-variable]
doublereal rmax;
^
dsterf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dsterf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dsterf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dsterf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dsterf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dsterf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dsterf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dsterf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dsterf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsterf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dsterf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dsterf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
19 warnings generated.
dlaisnan.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaisnan.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaisnan.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaisnan.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaisnan.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaisnan.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaisnan.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaisnan.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaisnan.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaisnan.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaisnan.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaisnan.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
disnan.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
disnan.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
disnan.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
disnan.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
disnan.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
disnan.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
disnan.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
disnan.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
disnan.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
disnan.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
disnan.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
disnan.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlartgp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlartgp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlartgp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlartgp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlartgp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlartgp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlartgp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlartgp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartgp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlartgp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartgp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
dlartgs.c:629:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*sigma == 0. && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.) {
~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~ ~~
dlartgs.c:629:22: note: place parentheses around the '&&' expression to silence this warning
if (*sigma == 0. && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.) {
^
( )
dlartgs.c:629:63: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*sigma == 0. && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.) {
~~ ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dlartgs.c:629:63: note: place parentheses around the '&&' expression to silence this warning
if (*sigma == 0. && abs(*x) < thresh || abs(*x) == *sigma && *y == 0.) {
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
dlartgs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlartgs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlartgs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlartgs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlartgs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlartgs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlartgs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlartgs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlartgs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartgs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlartgs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlartgs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/droundup_lwork.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/droundup_lwork.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/droundup_lwork.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/droundup_lwork.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/droundup_lwork.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/droundup_lwork.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/droundup_lwork.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/droundup_lwork.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/droundup_lwork.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/droundup_lwork.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/droundup_lwork.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/droundup_lwork.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
13 warnings generated.
13 warnings generated.
../INSTALL/dlamch.c:661:16: warning: variable 'rmach' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(cmach, "O")) {
^~~~~~~~~~~~~~~~~~
../INSTALL/dlamch.c:665:15: note: uninitialized use occurs here
ret_val = rmach;
^~~~~
../INSTALL/dlamch.c:661:12: note: remove the 'if' if its condition is always true
} else if (lsame_(cmach, "O")) {
^~~~~~~~~~~~~~~~~~~~~~~~
../INSTALL/dlamch.c:600:21: note: initialize the variable 'rmach' to silence this warning
doublereal rmach;
^
= 0.0
../INSTALL/dlamch.c:958:20: warning: variable 'iwarn' set but not used [-Wunused-but-set-variable]
static logical iwarn = FALSE_;
^
../INSTALL/dlamch.c:999:19: warning: unused variable 'io___58' [-Wunused-variable]
static cilist io___58 = { 0, 6, 0, fmt_9999, 0 };
^
../INSTALL/dlamch.c:1010:9: warning: variable 'lrnd' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
if (first) {
^~~~~
../INSTALL/dlamch.c:1182:12: note: uninitialized use occurs here
*rnd = lrnd;
^~~~
../INSTALL/dlamch.c:1010:5: note: remove the 'if' if its condition is always true
if (first) {
^~~~~~~~~~~
../INSTALL/dlamch.c:974:17: note: initialize the variable 'lrnd' to silence this warning
logical lrnd;
^
= 0
../INSTALL/dlamch.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/dlamch.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/dlamch.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/dlamch.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/dlamch.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/dlamch.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/dlamch.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/dlamch.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/dlamch.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/dlamch.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/dlamch.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/dlamch.c:515:16: warning: unused variable 'c__1' [-Wunused-variable]
static integer c__1 = 1;
^
12 warnings generated.
13 warnings generated.
../INSTALL/dsecnd_INT_ETIME.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/dsecnd_INT_ETIME.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/dsecnd_INT_ETIME.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/dsecnd_INT_ETIME.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/dsecnd_INT_ETIME.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/dsecnd_INT_ETIME.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/dsecnd_INT_ETIME.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/dsecnd_INT_ETIME.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/dsecnd_INT_ETIME.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/dsecnd_INT_ETIME.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/dsecnd_INT_ETIME.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/dsecnd_INT_ETIME.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaenv.c:765:16: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 &&
~~~~~~~~~~^~~~~~~~~~~~ ~~
ilaenv.c:765:16: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 &&
^
( )
ilaenv.c:765:42: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 &&
~~ ~~~~~~~~~~^~~~~~~~~~~~
ilaenv.c:765:42: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 &&
^
( )
ilaenv.c:765:68: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 &&
~~ ~~~~~~~~~~^~
ilaenv.c:765:68ilaenv2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
note: ilaenv2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
place parentheses around the '&&' expression to silence this warningstatic float spow_ui(float x, integer n) {
^
ilaenv2stage.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaenv2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaenv2stage.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaenv2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaenv2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 && ^
ilaenv2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaenv2stage.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaenv2stage.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
(static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaenv2stage.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaenv2stage.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaenv.c:770:17: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >=
~~~~~~~~~~^~~~~~~~~~~~ ~~
ilaenv.c:770:17: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >=
^
( )
ilaenv.c:770:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >=
~~ ~~~~~~~~~~^~~~~~~~~~~~
ilaenv.c:770:43: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >=
^
( )
ilaenv.c:771:8: warning: '&&' within '||' [-Wlogical-op-parentheses]
162 && ic <= 169) {
~~~~^~~~~~~~~~~~
ilaenv.c:771:8: note: place parentheses around the '&&' expression to silence this warning
162 && ic <= 169) {
^
)
ieeeck.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ieeeck.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ieeeck.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ieeeck.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ieeeck.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ieeeck.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ieeeck.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ieeeck.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ieeeck.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ieeeck.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ieeeck.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ieeeck.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
lsamen.c:608:45: warning: variable 'cb_len' is uninitialized when used here [-Wuninitialized]12
warnings generated.
if (i_len(ca, ca_len) < *n || i_len(cb, cb_len) < *n) {
^~~~~~
lsamen.c:235:22: note: expanded from macro 'i_len'
#define i_len(s, n) (n)
^
lsamen.c:597:26: note: initialize the variable 'cb_len' to silence this warning
integer ca_len,cb_len;
^
= 0
lsamen.c:608:19: warning: variable 'ca_len' is uninitialized when used here [-Wuninitialized]
if (i_len(ca, ca_len) < *n || i_len(cb, cb_len) < *n) {
^~~~~~
lsamen.c:235:22: note: expanded from macro 'i_len'
#define i_len(s, n) (n)
^
lsamen.c:597:19: note: initialize the variable 'ca_len' to silence this warning
integer ca_len,cb_len;
^
= 0
lsamen.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
lsamen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
lsamen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
lsamen.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
lsamen.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
lsamen.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
lsamen.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
lsamen.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
lsamen.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
12 warnings generatedstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {.
^
lsamen.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
lsamen.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
lsamen.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaenv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaenv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaenv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaenv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaenv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaenv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaenv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaenv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaenv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaenv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaenv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaenv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
xerbla_array.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
xerbla_array.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
xerbla_array.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
xerbla_array.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
xerbla_array.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
xerbla_array.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
xerbla_array.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
xerbla_array.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
xerbla_array.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
xerbla_array.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
xerbla_array.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
xerbla_array.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
iparmq.c:856:20: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162
~~~~~~~~~~^~~~~~~~~~~~ ~~
iparmq.c:856:20: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162
^
( )
iparmq.c:856:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162
~~ ~~~~~~~~~~^~~~~~~~~~~~
iparmq.c:856:46: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162
^
( )
iparmq.c:857:7: warning: '&&' within '||' [-Wlogical-op-parentheses]
&& ic <= 169) {
^~~~~~~~~~~~
iparmq.c:857:7: note: place parentheses around the '&&' expression to silence this warning
&& ic <= 169) {
^
)
iparmq.c:861:21: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 ||
~~~~~~~~~~^~~~~~~~~~~~ ~~
iparmq.c:861:21: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 ||
^
( )
iparmq.c:861:47: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 ||
~~ ~~~~~~~~~~^~~~~~~~~~~~
iparmq.c:861:47: note: place parentheses around the '&&' expression to silence this warning
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 ||
^
( )
iparmq.c:862:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
ic >= 162 && ic <= 169) {
~~~~~~~~~~^~~~~~~~~~~~
iparmq.c:862:18: note: place parentheses around the '&&' expression to silence this warning
ic >= 162 && ic <= 169) {
^
( )
iparmq.c:835:36: warning: variable 'name_len' is uninitialized when used here [-Wuninitialized]
s_copy(subnam, name__, (ftnlen)6, name_len);
^~~~~~~~
iparmq.c:247:68: note: expanded from macro 's_copy'
#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; }
^
iparmq.c:181:30: note: expanded from macro 'f2cmin'
#define f2cmin(a,b) ((a) <= (b) ? (a) : (b))
^
iparmq.c:748:21: note: initialize the variable 'name_len' to silence this warning
integer name_len;
^
= 0
iparmq.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
iparmq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
iparmq.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
iparmq.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
iparmq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
iparmq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
iparmq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
iparmq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
iparmq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iparmq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iparmq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iparmq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
19 warnings generated.
ilatrans.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilatrans.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilatrans.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilatrans.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilatrans.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilatrans.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilatrans.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilatrans.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilatrans.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilatrans.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilatrans.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilatrans.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaprec.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilaprec.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilaprec.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilaprec.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilaprec.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilaprec.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilaprec.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilaprec.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilaprec.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaprec.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilaprec.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilaprec.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iparam2stage.c:885:27: warning: format string contains '\0' within the string body [-Wformat]
sprintf(subnam+1,"GEQRF\0");
~~~~~~^~~
/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/usr/include/secure/_stdio.h:47:56: note: expanded from macro 'sprintf'
__builtin___sprintf_chk (str, 0, __darwin_obsz(str), __VA_ARGS__)
^~~~~~~~~~~
iparam2stage.c:890:25: warning: format string contains '\0' within the string body [-Wformat]
sprintf(subnam+1,"GELQF\0");
~~~~~~^~~
/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/usr/include/secure/_stdio.h:47:56: note: expanded from macro 'sprintf'
__builtin___sprintf_chk (str, 0, __darwin_obsz(str), __VA_ARGS__)
^~~~~~~~~~~
iparam2stage.c:683:23: warning: unused variable 'i__' [-Wunused-variable]
integer nthreads, i__;
^
iparam2stage.c:685:42: warning: unused variable 'ic' [-Wunused-variable]
integer lhous, lwork, factoptnb, ib, ic, kd, iz;
^
iparam2stage.c:685:50: warning: unused variable 'iz' [-Wunused-variable]
integer lhous, lwork, factoptnb, ib, ic, kd, iz;
^
iparam2stage.c:690:13: warning: unused variable 'name_len' [-Wunused-variable]
integer name_len;
^
iparam2stage.c:251:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
iparam2stage.c:271:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
iparam2stage.c:283:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
iparam2stage.c:310:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
iparam2stage.c:338:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
iparam2stage.c:351:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^12 warnings
generated.
iparam2stage.c:368:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
iparam2stage.c:375:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
iparam2stage.c:382:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iparam2stage.c:413:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iparam2stage.c:444:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iparam2stage.c:475:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilauplo.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
ilauplo.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
ilauplo.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
ilauplo.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
ilauplo.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
ilauplo.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
ilauplo.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
ilauplo.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
ilauplo.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilauplo.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
ilauplo.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
ilauplo.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
16 warnings generated.
12 warnings generated.
18 warnings generated.
iladiag.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
iladiag.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
iladiag.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
iladiag.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
iladiag.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
iladiag.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
iladiag.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
iladiag.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
iladiag.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladiag.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
iladiag.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
iladiag.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
18 warnings generated.
chla_transtype.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
chla_transtype.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
chla_transtype.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
chla_transtype.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
chla_transtype.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
chla_transtype.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
chla_transtype.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
chla_transtype.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
chla_transtype.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chla_transtype.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
chla_transtype.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
chla_transtype.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
la_xisnan.c:226:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
la_xisnan.c:246:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
la_xisnan.c:258:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
la_xisnan.c:270:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
la_xisnan.c:282:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
la_xisnan.c:294:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
la_xisnan.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
la_xisnan.c:318:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
la_xisnan.c:325:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
la_xisnan.c:339:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
la_xisnan.c:353:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
la_xisnan.c:367:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/ilaver.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/ilaver.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
../INSTALL/ilaver.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/ilaver.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/ilaver.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/ilaver.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/ilaver.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/ilaver.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/ilaver.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/ilaver.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/ilaver.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/ilaver.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
DEPRECATED/sgegs.c:878:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/sgegs.c:878:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
DEPRECATED/sgegs.c:880:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/sgegs.c:880:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
DEPRECATED/sgegv.c:965:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/sgegv.c:965:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
DEPRECATED/sgegv.c:967:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/sgegv.c:967:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
../INSTALL/slamch.c:661:16: warning: variable 'rmach' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (lsame_(cmach, "O")) {
^~~~~~~~~~~~~~~~~~
../INSTALL/slamch.c:665:15: note: uninitialized use occurs here
ret_val = rmach;
^~~~~
../INSTALL/slamch.c:661:12: note: remove the 'if' if its condition is always true
} else if (lsame_(cmach, "O")) {
^~~~~~~~~~~~~~~~~~~~~~~~
../INSTALL/slamch.c:600:15: note: initialize the variable 'rmach' to silence this warning
real rmach;
^
= 0.0
DEPRECATED/sgegs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sgegs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sgegs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sgegs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sgegs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sgegs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sgegs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sgegs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sgegs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgegs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sgegs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgegs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/slamch.c:957:20: warning: variable 'iwarn' set but not used [-Wunused-but-set-variable]
static logical iwarn = FALSE_;
^
../INSTALL/slamch.c:998:19: warning: unused variable 'io___58' [-Wunused-variable]
static cilist io___58 = { 0, 6, 0, fmt_9999, 0 };
^
../INSTALL/slamch.c:1009:9: warning: variable 'lrnd' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
if (first) {
^~~~~
../INSTALL/slamch.c:1181:12: note: uninitialized use occurs here
*rnd = lrnd;
^~~~
../INSTALL/slamch.c:1009:5: note: remove the 'if' if its condition is always true
if (first) {
^~~~~~~~~~~
../INSTALL/slamch.c:973:17: note: initialize the variable 'lrnd' to silence this warning
logical lrnd;
^
= 0
DEPRECATED/sgegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sgegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sgegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sgegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sgegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sgegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sgegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sgegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sgegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sgegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/slamch.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
../INSTALL/slamch.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
../INSTALL/slamch.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
../INSTALL/slamch.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
../INSTALL/slamch.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
../INSTALL/slamch.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
../INSTALL/slamch.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
../INSTALL/slamch.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/slamch.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/slamch.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
../INSTALL/slamch.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
../INSTALL/slamch.c:515:16: warning: unused variable 'c__1' [-Wunused-variable]
static integer c__1 = 1;
^
14 warnings generated.
DEPRECATED/sgelsx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sgelsx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sgelsx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sgelsx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sgelsx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sgelsx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sgelsx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sgelsx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sgelsx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgelsx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sgelsx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgelsx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sgeqpf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sgeqpf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sgeqpf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sgeqpf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sgeqpf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sgeqpf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sgeqpf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sgeqpf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sgeqpf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgeqpf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sgeqpf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sgeqpf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sggsvd.c:938:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvd.c:938:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/sggsvd.c:940:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvd.c:940:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/sggsvd.c:942:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvd.c:942:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/sggsvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sggsvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sggsvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sggsvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sggsvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sggsvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sggsvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sggsvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sggsvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sggsvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sggsvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sggsvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sggsvp.c:855:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvp.c:855:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/sggsvp.c:857:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvp.c:857:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/sggsvp.c:859:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/sggsvp.c:859:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/sggsvp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/sggsvp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/sggsvp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/sggsvp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/sggsvp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/sggsvp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/sggsvp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/sggsvp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/sggsvp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sggsvp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/sggsvp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/sggsvp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/slahrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/slahrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/slahrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/slahrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/slahrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/slahrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/slahrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/slahrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/slahrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/slahrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/slahrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/slahrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
16 warnings generated.
12 warnings generated.
15 warnings generated.
DEPRECATED/slatzm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/slatzm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/slatzm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/slatzm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/slatzm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/slatzm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/slatzm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/slatzm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/slatzm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/slatzm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/slatzm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/slatzm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
DEPRECATED/dgegs.c:883:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/dgegs.c:883:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
DEPRECATED/dgegs.c:885:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/dgegs.c:885:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
DEPRECATED/stzrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/stzrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/stzrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/stzrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
DEPRECATED/dgegs.c:250:13static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/stzrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/stzrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
warning: DEPRECATED/stzrqf.cunused variable 'junk' [-Wunused-variable]
:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
367DEPRECATED/dgegs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
:static float spow_ui(float x, integer n) {
^
DEPRECATED/dgegs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dgegs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
16static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dgegs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
:static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dgegs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dgegs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/stzrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
^
static integer smaxloc_(float *w, integer s, integer e, integer *n)DEPRECATED/dgegs.c
: ^374
:16:DEPRECATED/stzrqf.c :warning: 381unused function 'smaxloc_' [-Wunused-function]
:20: warning: unused function 'cdotc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^DEPRECATED/dgegs.c
:381DEPRECATED/stzrqf.c:20::412:20: warning: unused function 'zdotc_' [-Wunused-function]
warning: unused function 'cdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/stzrqf.c:DEPRECATED/dgegs.c443::20412:20: warning: unused function 'zdotc_' [-Wunused-function]
: warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dgegs.c:443:20unused function 'cdotu_' [-Wunused-function]
: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgegs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
DEPRECATED/stzrqf.c:474:20: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
DEPRECATED/dgegv.c:974:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/dgegv.c:974:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
DEPRECATED/dgegv.c:976:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/dgegv.c:976:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
DEPRECATED/dgegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dgegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dgegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dgegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dgegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dgegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dgegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dgegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dgegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dgegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
DEPRECATED/dgelsx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dgelsx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dgelsx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dgelsx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dgelsx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dgelsx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dgelsx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dgelsx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dgelsx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgelsx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dgelsx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgelsx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dgeqpf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dgeqpf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dgeqpf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dgeqpf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dgeqpf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dgeqpf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dgeqpf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dgeqpf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dgeqpf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgeqpf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dgeqpf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dgeqpf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
DEPRECATED/dggsvd.c:939:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvd.c:939:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/dggsvd.c:941:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvd.c:941:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/dggsvd.c:943:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvd.c:943:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/dggsvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dggsvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dggsvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dggsvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dggsvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dggsvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dggsvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dggsvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dggsvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dggsvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dggsvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dggsvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
15 warnings generated.
DEPRECATED/dggsvp.c:859:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvp.c:859:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/dggsvp.c:861:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvp.c:861:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/dggsvp.c:863:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/dggsvp.c:863:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
12 warnings generated.
DEPRECATED/dggsvp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dggsvp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dggsvp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dggsvp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dggsvp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dggsvp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dggsvp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dggsvp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dggsvp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dggsvp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dggsvp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dggsvp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dlahrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dlahrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dlahrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dlahrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dlahrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dlahrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dlahrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dlahrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dlahrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dlahrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dlahrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dlahrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dlatzm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dlatzm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dlatzm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dlatzm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dlatzm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dlatzm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dlatzm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dlatzm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dlatzm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dlatzm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
12static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dlatzm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
warnings generated.
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dlatzm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
DEPRECATED/dtzrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/dtzrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/dtzrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/dtzrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/dtzrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/dtzrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/dtzrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/dtzrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/dtzrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dtzrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/dtzrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/dtzrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgegs.c:877:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/cgegs.c:877:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
DEPRECATED/cgegs.c:879:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/cgegs.c:879:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
DEPRECATED/cgegs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cgegs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cgegs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cgegs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cgegs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cgegs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cgegs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cgegs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cgegs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgegs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgegs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgegs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
DEPRECATED/cgegv.c:946:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/cgegv.c:946:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
DEPRECATED/cgegv.c:948:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/cgegv.c:948:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
12 warnings generated.
DEPRECATED/cgegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cgegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cgegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cgegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cgegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cgegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cgegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cgegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cgegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgelsx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cgelsx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cgelsx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cgelsx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cgelsx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cgelsx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cgelsx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cgelsx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cgelsx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgelsx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgelsx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgelsx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgeqpf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cgeqpf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cgeqpf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cgeqpf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cgeqpf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cgeqpf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cgeqpf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cgeqpf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cgeqpf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgeqpf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cgeqpf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cgeqpf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
DEPRECATED/cggsvd.c:944:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvd.c:944:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/cggsvd.c:946:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvd.c:946:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/cggsvd.c:948:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvd.c:948:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/cggsvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cggsvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cggsvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cggsvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cggsvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cggsvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cggsvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cggsvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cggsvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cggsvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cggsvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cggsvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
DEPRECATED/cggsvp.c:866:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvp.c:866:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/cggsvp.c:868:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvp.c:868:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/cggsvp.c:870:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/cggsvp.c:870:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/cggsvp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/cggsvp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/cggsvp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/cggsvp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/cggsvp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/cggsvp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/cggsvp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/cggsvp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/cggsvp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cggsvp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/cggsvp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/cggsvp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
15 warnings generated.
12 warnings generated.
DEPRECATED/clahrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/clahrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/clahrd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/clahrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/clahrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/clahrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/clahrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/clahrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/clahrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/clahrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/clahrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/clahrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/clatzm.c:710:45: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) {
~~ ~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~
DEPRECATED/clatzm.c:710:45: note: place parentheses around the '&&' expression to silence this warning
if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) {
^
( )
DEPRECATED/clatzm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/clatzm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/clatzm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/clatzm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/clatzm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/clatzm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/clatzm.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/clatzm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/clatzm.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/clatzm.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/clatzm.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/clatzm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
DEPRECATED/ctzrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/ctzrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/ctzrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/ctzrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/ctzrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/ctzrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/ctzrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/ctzrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/ctzrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/ctzrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/ctzrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/ctzrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
DEPRECATED/zgegs.c:882:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/zgegs.c:882:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) {
^
( )
DEPRECATED/zgegs.c:884:36: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
~~ ~~~~~~^~~~~~~~~~~~~~
DEPRECATED/zgegs.c:884:36: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) {
^
( )
14 warnings generated.
DEPRECATED/zgegs.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zgegs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zgegs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zgegs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zgegs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zgegs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zgegs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zgegs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zgegs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgegs.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zgegs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgegs.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zgegv.c:949:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/zgegv.c:949:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvl < 1 || ilvl && *ldvl < *n) {
^
( )
DEPRECATED/zgegv.c:951:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
~~ ~~~~~^~~~~~~~~~~~~
DEPRECATED/zgegv.c:951:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldvr < 1 || ilvr && *ldvr < *n) {
^
( )
DEPRECATED/zgegv.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zgegv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zgegv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zgegv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zgegv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zgegv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zgegv.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zgegv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zgegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgegv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zgegv.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgegv.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
15 warnings generated.
12 warnings generated.
14 warnings generated.
DEPRECATED/zgeqpf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zgeqpf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zgeqpf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zgeqpf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zgeqpf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zgeqpf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zgeqpf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zgeqpf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zgeqpf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgeqpf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zgeqpf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgeqpf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zggsvd.c:947:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/zgelsx.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zgelsx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
DEPRECATED/zggsvd.c:947:34: ^note:
place parentheses around the '&&' expression to silence this warning
DEPRECATED/zgelsx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zgelsx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]DEPRECATED/zggsvd.c:
949:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zgelsx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {DEPRECATED/zggsvd.c:949:34: note: place parentheses around the '&&' expression to silence this warning
^
} else if (*ldv < 1 || wantv && *ldv < *p) {DEPRECATED/zgelsx.c
:350 ^:
16 ( ):
warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zgelsx.cDEPRECATED/zggsvd.c:951:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zgelsx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
DEPRECATED/zggsvd.c:951:34: static integer smaxloc_(float *w, integer s, integer e, integer *n)note:
place parentheses around the '&&' expression to silence this warning ^
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
DEPRECATED/zgelsx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
( )
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgelsx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zgelsx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zgelsx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zggsvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zggsvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zggsvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zggsvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zggsvd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zggsvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zggsvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zggsvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zggsvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zggsvd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zggsvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zggsvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zggsvp.c:872:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldu < 1 || wantu && *ldu < *m) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/zggsvp.c:872:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldu < 1 || wantu && *ldu < *m) {
^
( )
DEPRECATED/zggsvp.c:874:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldv < 1 || wantv && *ldv < *p) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/zggsvp.c:874:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldv < 1 || wantv && *ldv < *p) {
^
( )
DEPRECATED/zggsvp.c:876:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ldq < 1 || wantq && *ldq < *n) {
~~ ~~~~~~^~~~~~~~~~~~
DEPRECATED/zggsvp.c:876:34: note: place parentheses around the '&&' expression to silence this warning
} else if (*ldq < 1 || wantq && *ldq < *n) {
^
( )
DEPRECATED/zggsvp.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zggsvp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zggsvp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zggsvp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zggsvp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zggsvp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zggsvp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/zggsvp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zggsvp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zggsvp.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zggsvp.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zggsvp.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zlatzm.c:712:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) {
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~~
DEPRECATED/zlatzm.c:712:44: note: place parentheses around the '&&' expression to silence this warning
if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) {
^
( )
DEPRECATED/zlatzm.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/zlatzm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/zlatzm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zlatzm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zlatzm.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zlatzm.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
DEPRECATED/zlahrd.cstatic integer pow_ii(integer x, integer n) {
^
DEPRECATED/zlatzm.c:367:250:13: warning: unused variable 'junk' [-Wunused-variable]
:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
^DEPRECATED/zlatzm.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zlatzm.c:381DEPRECATED/zlahrd.c::20270:: 14warning: :unused function 'cdotc_' [-Wunused-function]
warning: unused function 'spow_ui' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static float spow_ui(float x, integer n) {
^ ^
DEPRECATED/zlatzm.cDEPRECATED/zlahrd.c::412282:20: warning: unused function 'zdotc_' [-Wunused-function]
:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/zlahrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/zlahrd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/zlahrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
DEPRECATED/zlatzm.c:443:20static integer pow_ii(integer x, integer n) {
^
DEPRECATED/zlahrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
: warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n)unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^ ^
DEPRECATED/zlatzm.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
DEPRECATED/zlahrd.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/zlahrd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zlahrd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/zlahrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/zlahrd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
15 warnings generated.
12 warnings generated.
12 warnings generated.
DEPRECATED/ztzrqf.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
DEPRECATED/ztzrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
DEPRECATED/ztzrqf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
DEPRECATED/ztzrqf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
DEPRECATED/ztzrqf.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
DEPRECATED/ztzrqf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
DEPRECATED/ztzrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
DEPRECATED/ztzrqf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
DEPRECATED/ztzrqf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/ztzrqf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
DEPRECATED/ztzrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
DEPRECATED/ztzrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
15 warnings generated.
12 warnings generated.
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(sroundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(droundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(la_xisnan.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(slaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(dlaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(claqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(zlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(sroundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(droundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../libopenblas_haswellp-r0.3.21.a(la_xisnan.o) has no symbols
make[1]: warning: -jN forced in submake: disabling jobserver mode.
slakf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slakf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slakf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slakf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slakf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slakf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slakf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slakf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slakf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slakf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slakf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slakf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmr.c:1214:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (igrade == -1 || igrade == 4 && *m != *n || igrade >= 1 &&
~~ ~~~~~~~~~~~~^~~~~~~~~~~
slatmr.c:1214:44: note: place parentheses around the '&&' expression to silence this warning
} else if (igrade == -1 || igrade == 4 && *m != *n || igrade >= 1 &&
^
( )
slatmr.c:1215:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
igrade <= 4 && isym == 0) {
~~~~~~~~~~~~^~~~~~~~~~~~
slatmr.c:1215:18: note: place parentheses around the '&&' expression to silence this warning
igrade <= 4 && isym == 0) {
^
)
slatmr.c:1230:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
slatmr.c:1230:44: note: place parentheses around the '&&' expression to silence this warning
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
^
( )
slatmr.c:1231:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipvtng == 2) && isym == 0) {
~~~~~~~~~~~~~^~~~~~~~~~~~
slatmr.c:1231:19: note: place parentheses around the '&&' expression to silence this warning
ipvtng == 2) && isym == 0) {
^
)
slatmr.c:1237:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym == 0 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
slatmr.c:1237:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym == 0 && *kl != *ku) {
^
( )
slatmr.c:1242:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~~~~~~~~~~~^~~~~~~~~~~~
slatmr.c:1242:18: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
)
slatmr.c:1242:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
slatmr.c:1242:58: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
(
slatmr.c:1243:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~
slatmr.c:1243:46: note: place parentheses around the '&&' expression to silence this warning
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
^
( )
slatmr.c:1246:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
slatmr.c:1246:57: note: place parentheses around the '&&' expression to silence this warning
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
slatmr.c:1247:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
slatmr.c:1247:34: note: place parentheses around the '&&' expression to silence this warning
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
^
( )
slatmr.c:1248:10: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~~^~~~~~~~~~~~~~~~~
slatmr.c:1248:10: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
)
slatmr.c:1248:42: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
slatmr.c:1248:42: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
( )
slarge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmr.c:1819:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
~~~~~~~~~~~~~^~~~~~~~~~~~~~ ~~
slatmr.c:1819:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
^
( )
slatmr.c:1819:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~
slatmr.c:1819:57: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
^
( )
slatmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatmr.c:350:16: warning: slatms.cunused function 'pow_ii' [-Wunused-function]:
1030:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
static integer pow_ii(integer x, integer n) {
^
slatmr.c: } else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
slatms.c:1030:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
slatms.c:1032:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
slatms.c:1032:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
slatms.c:1033:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
slatms.c:1033:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
slatms.c:1033:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
slatms.c:1033:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
slatms.c:1034:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
static integer dmaxloc_(double *w, integer s, integer e, integer *n)slatms.c:1034:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
^
slatmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmt.c:1040:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
slatmt.c:1040:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
slatmt.c:1042:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
slatmt.c:1042:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
slatmt.c:1043:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
slatmt.c:1043:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
slatmt.c:1043:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
slatmt.c:1043:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
slatmt.c:1044:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
slatmt.c:1044:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
slatme.c:1031:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~~
slatme.c:1031:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
^
( )
slagge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slagge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slagge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slagge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slagge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slagge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slagge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slagge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slagge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slagge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slagge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatme.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatme.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatme.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatme.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatme.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatme.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatme.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatme.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatme.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatme.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatme.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatms.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatms.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatms.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatms.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatms.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatms.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatms.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatms.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatms.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatms.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatms.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatms.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
slaror.c:727:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 3 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
slaror.c:727:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 3 && *n != *m) {
^
( )
slaror.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaror.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaror.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaror.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaror.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaror.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaror.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaror.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaror.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaror.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaror.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaror.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
13 warnings generated.
slatm2.c:793:16: warning: variable 'isub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
slatm2.c:800:9: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
slatm2.c:793:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
slatm2.c:725:17: note: initialize the variable 'isub' to silence this warning
integer isub, jsub;
^
= 0
slatm2.c:793:16: warning: variable 'jsub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
slatm2.c:800:17: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
slatm2.c:793:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
slatm2.c:725:23: note: initialize the variable 'jsub' to silence this warning
integer isub, jsub;
^
= 0
slarot.c:805:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
slarot.c:805:33: note: place parentheses around the '&&' expression to silence this warning
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
^
( )
slatm2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatm2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm2.c:474:20slarot.c:250:13: warning: unused function 'zdotu_' [-Wunused-function]
: warning: unused variable 'junk' [-Wunused-variable]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
14 warnings generated.
slatm3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatm3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatm5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
slatm6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slatm6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clatms.c:1059:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
clatms.c:1059:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
clatms.c:1061:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
clatms.c:1061:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
clatms.c:1062:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
clatms.c:1062:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
clatms.c:1062:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
clatms.c:1062:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
clatms.c:1063:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
clatms.c:1063:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
slahilb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slahilb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slahilb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slahilb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slahilb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slahilb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slahilb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slahilb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slahilb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahilb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slahilb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slahilb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatms.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatms.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatms.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatms.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatms.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatms.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatms.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatms.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatms.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatms.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatms.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatms.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatme.c:981:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~~
clatme.c:981:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
^
( )
clatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatme.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatme.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatme.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatme.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatme.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatme.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatme.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatme.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatme.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatme.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatme.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
26 warnings generated.
clatmr.c:1238:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (igrade == -1 || igrade == 4 && *m != *n || (igrade == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
clatmr.c:1238:44: note: place parentheses around the '&&' expression to silence this warning
} else if (igrade == -1 || igrade == 4 && *m != *n || (igrade == 1 ||
^
( )
clatmr.c:1239:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
igrade == 2 || igrade == 3 || igrade == 4 || igrade == 6) && isym
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~
clatmr.c:1239:64: note: place parentheses around the '&&' expression to silence this warning
igrade == 2 || igrade == 3 || igrade == 4 || igrade == 6) && isym
^
clatmr.c:1241:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
|| igrade == 5) && isym == 2) {
~~~~~~~~~~~~~~~~^~~~~~~~~~~~
clatmr.c:1241:22: note: place parentheses around the '&&' expression to silence this warning
|| igrade == 5) && isym == 2) {
^
)
clatmr.c:1257:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
clatmr.c:1257:44: note: place parentheses around the '&&' expression to silence this warning
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
^
( )
clatmr.c:1258:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipvtng == 2) && (isym == 0 || isym == 2)) {
~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
clatmr.c:1258:19: note: place parentheses around the '&&' expression to silence this warning
ipvtng == 2) && (isym == 0 || isym == 2)) {
^
)
clatmr.c:1264:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || (isym == 0 || isym == 2) && *kl != *ku) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
clatmr.c:1264:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || (isym == 0 || isym == 2) && *kl != *ku) {
^
( )
clatmr.c:1269:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~~~~~~~~~~~^~~~~~~~~~~~
clatmr.c:1269:18: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
)
clatmr.c:1269:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
clatmr.c:1269:58: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
(
clatmr.c:1270:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~
clatmr.c:1270:46: note: place parentheses around the '&&' expression to silence this warning
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
^
( )
clatmr.c:1273:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
clatmr.c:1273:57: note: place parentheses around the '&&' expression to silence this warning
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
clatmr.c:1274:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
clatmr.c:1274:34: note: place parentheses around the '&&' expression to silence this warning
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
^
( )
clatmr.c:1275:10: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~~^~~~~~~~~~~~~~~~~
clatmr.c:1275:10: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
)
clatmr.c:1275:42: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
clatmr.c:1275:42: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
( )
clatmr.c:2031:26: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
~~~~~~~~~~~~~^~~~~~~~~~~~~~ ~~
clatmr.c:2031:26: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
^
( )
clatmr.c:2031:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~
clatmr.c:2031:57: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1.f && onorm < 1.f || *anorm < 1.f && onorm > 1.f)
^
( )
clatmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
clatmt.c:1066:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
clatmt.c:1066:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
clatmt.c:1068:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
clatmt.c:1068:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
clatmt.c:1069:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
clatmt.c:1069:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
clatmt.c:1069:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
clatmt.c:1069:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
clatmt.c:1070:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
clatmt.c:1070:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
clagge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clagge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clagge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clagge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clagge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clagge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clagge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clagge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clagge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clagge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clagge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clagge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
17 warnings generated.
claghe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claghe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claghe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claghe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claghe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claghe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claghe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claghe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claghe.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claghe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claghe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
clagsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clagsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clagsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clagsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clagsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clagsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clagsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clagsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clagsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clagsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clagsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clakf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clakf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clakf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clakf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clakf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clakf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clakf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clakf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clakf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clakf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clakf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clakf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
12 warnings generated.
claror.c:746:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 3 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
claror.c:746:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 3 && *n != *m) {
^
( )
clarot.c:810:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
clarot.c:810:33: note: place parentheses around the '&&' expression to silence this warning
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
^
( )
claror.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
claror.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
claror.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
claror.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
claror.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
claror.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
claror.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
claror.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
claror.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claror.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
claror.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
claror.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarot.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatm1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatm1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatm1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatm1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatm1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatm1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatm1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
13 warnings generated.
11 warnings generated.
clarnd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clarnd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clarnd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clarnd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clarnd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clarnd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clarnd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clarnd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clarnd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarnd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clarnd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clarnd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
12 warnings generated.
clatm3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatm3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatm3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatm3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatm3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatm3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatm3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatm3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
clatm2.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n)
:802:16: ^warning: variable 'isub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
clatm3.c:381clatm2.c::809:9: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
clatm2.c:802:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
clatm2.c:730:17: note: initialize the variable 'isub' to silence this warning
integer isub, jsub;
^
= 0
clatm2.c:802:16: warning: variable 'jsub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
clatm2.c:80920: :17warning: :unused function 'cdotc_' [-Wunused-function]
note: uninitialized use occurs here
if (isub == jsub) {
^~~~
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm3.c:443:clatm2.c:802:12: note: remove the 'if' if its condition is always true
20 } else if (*ipvtng == 3) {
: ^~~~~~~~~~~~~~~~~~ warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm2.c:730:23: note: initialize the variable 'jsub' to silence this warning
integer isub, jsub;
^
= 0
clatm2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatm2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatm2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatm2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatm2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatm2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatm2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatm2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatm2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
clatm5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatm5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatm5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatm5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatm5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatm5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatm5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatm5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatm5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
27 warnings generated.
clatm6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clatm6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clatm6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clatm6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clatm6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clatm6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clatm6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clatm6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clatm6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clatm6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clatm6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahilb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
clahilb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
clahilb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
clahilb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
clahilb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
clahilb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
clahilb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
clahilb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
clahilb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahilb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
clahilb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
clahilb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm1.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slatm7.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slatm7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slatm7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slatm7.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slatm7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slatm7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slatm7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slatm7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slatm7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
slaran.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slaran.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slaran.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slaran.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slaran.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slaran.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slaran.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slaran.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slaran.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaran.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slaran.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slaran.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
12 warnings generated.
slarnd.c:619:16: warning: variable 'ret_val' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*idist == 3) {
^~~~~~~~~~~
slarnd.c:627:12: note: uninitialized use occurs here
return ret_val;
^~~~~~~
slarnd.c:619:12: note: remove the 'if' if its condition is always true
} else if (*idist == 3) {
^~~~~~~~~~~~~~~~~
slarnd.c:585:17: note: initialize the variable 'ret_val' to silence this warning
real ret_val;
^
= 0.0
slarnd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
slarnd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
slarnd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
slarnd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
slarnd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
slarnd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
slarnd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
slarnd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
slarnd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarnd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
slarnd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
slarnd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
17 warnings generated.
dlatme.c:1037:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~~
dlatme.c:1037:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
^
( )
dlatms.c:1034:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
dlatms.c:1034:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
dlatms.c:1036:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
dlatms.c:1036:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
dlatms.c:1037:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
dlatms.c:1037:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
dlatms.c:1037:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
dlatms.c:1037:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
dlatms.c:1038:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
dlatms.c:1038:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
dlatmr.c:1215:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (igrade == -1 || igrade == 4 && *m != *n || igrade >= 1 &&
~~ ~~~~~~~~~~~~^~~~~~~~~~~
dlatmr.c:1215:44: note: place parentheses around the '&&' expression to silence this warning
} else if (igrade == -1 || igrade == 4 && *m != *n || igrade >= 1 &&
^
( )
dlatmr.c:1216:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
igrade <= 4 && isym == 0) {
~~~~~~~~~~~~^~~~~~~~~~~~
dlatmr.c:1216:18: note: place parentheses around the '&&' expression to silence this warning
igrade <= 4 && isym == 0) {
^
)
dlatmr.c:1231:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
dlatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable]dlatmr.c:1231:44:
note: place parentheses around the '&&' expression to silence this warning
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
^
( )
dlatme.c:270:14:dlatmr.c:1232:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipvtng == 2) && isym == 0) {
~~~~~~~~~~~~~^~~~~~~~~~~~
dlatmr.c:1232:19: note: place parentheses around the '&&' expression to silence this warning
ipvtng == 2) && isym == 0) {
^
)
dlatmr.c:1238:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym == 0 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
dlatmr.c:1238:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym == 0 && *kl != *ku) {
^
( )
dlatmr.c:1243:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
warning: unused function 'spow_ui' [-Wunused-function]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~~~~~~~~~~~^~~~~~~~~~~~
dlatmr.c:1243:18: note: place parentheses around the '&&' expression to silence this warning
static float spow_ui(float x, integer n) {
^
dlatme.c:282: ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0 15
: ^
warning: )unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatme.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
dlatmr.c:1243:58:static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatme.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
warning: static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatme.c:350:16:'&&' within '||' [-Wlogical-op-parentheses]
warning: ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatme.c:367dlatmr.c:1243:58: note: place parentheses around the '&&' expression to silence this warning:
16: warning: unused function 'dmaxloc_' [-Wunused-function] ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
(
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatme.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
dlatmr.c:1244:46: static integer smaxloc_(float *w, integer s, integer e, integer *n)warning:
'&&' within '||' [-Wlogical-op-parentheses] ^
dlatme.c || *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~
dlatmr.c:1244:46: note: place parentheses around the '&&' expression to silence this warning
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
^:
( )
381:20: warning: unused function 'cdotc_' [-Wunused-function]
dlatmr.c:1247:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
dlatmr.c:1247:57: note: place parentheses around the '&&' expression to silence this warning
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
^
dlatmr.c:1248:34dlatme.c:: warning: 412'&&' within '||' [-Wlogical-op-parentheses]
:20: warning: unused function 'zdotc_' [-Wunused-function]
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatme.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
dlatmr.c:1248:34: note: place parentheses around the '&&' expression to silence this warning
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
^
( )
dlatmr.c:1249:10: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~~^~~~~~~~~~~~~~~~~
dlatmr.c:1249:10: note: place parentheses around the '&&' expression to silence this warning
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatme.c:474:20: warning: 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {unused function 'zdotu_' [-Wunused-function]
^
)
dlatmr.c:1249:42: warning: '&&' within '||' [-Wlogical-op-parentheses]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
^
dlatmr.c:1249:42: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
( )
dlatmr.c:1820:25: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
~~~~~~~~~~~~^~~~~~~~~~~~~ ~~
dlatms.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatms.c:270:14dlatmr.c:: 1820warning: :unused function 'spow_ui' [-Wunused-function]25
: note: place parentheses around the '&&' expression to silence this warning
static float spow_ui(float x, integer n) {
^
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {dlatms.c
^
( ):
282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatms.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatmr.c:1820:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
dlatms.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatms.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatms.c:367:dlatmr.c16::1820 :warning: 54unused function 'dmaxloc_' [-Wunused-function]: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^ ^
( )
dlatms.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatms.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatms.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatms.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatms.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatmt.c:1044:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
dlatmt.c:1044:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
dlatmt.c:1046:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
dlatmt.c:1046:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
dlatmt.c:1047:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
dlatmt.c:1047:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
dlatmt.c:1047:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
dlatmt.c:1047:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
dlatmt.c:1048:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
dlatmt.c:1048:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
dlatmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlagsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlagsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlagsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlagsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlagsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlagsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlagsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlagsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagsy.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlagsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlagsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
17 warnings generated.
13 warnings generated.
12 warnings generated.
12 warnings generated.
dlakf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlakf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlakf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlakf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlakf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlakf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlakf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlakf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlakf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlakf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlakf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlakf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaror.c:730:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 3 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
dlaror.c:730:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 3 && *n != *m) {
^
( )
dlarge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaror.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaror.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaror.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaror.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaror.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaror.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaror.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaror.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaror.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaror.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaror.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaror.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
13 warnings generated.
dlarot.c:805:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
dlarot.c:805:33: note: place parentheses around the '&&' expression to silence this warning
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
^
( )
dlarot.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
dlatm2.c:793:16: warning: variable 'isub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
dlatm2.c:800:9: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
dlatm2.c:793:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
dlatm2.c:725:17: note: initialize the variable 'isub' to silence this warning
integer isub, jsub;
^
= 0
dlatm2.c:793:16: warning: variable 'jsub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
dlatm2.c:800:17: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
dlatm2.c:793:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
dlatm2.c:725:23: note: initialize the variable 'jsub' to silence this warning
integer isub, jsub;
^
= 0
dlatm2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatm2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
14 warnings generated.
26 warnings generated.
dlatm3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatm3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm5.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm5.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatm5.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm5.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm5.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm5.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm5.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm5.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm5.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm5.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
dlatm6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlatm6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlahilb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlahilb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlahilb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlahilb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlahilb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlahilb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlahilb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlahilb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlahilb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahilb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlahilb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlahilb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatms.c:1064:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
zlatms.c:1064:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
zlatms.c:1066:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
zlatms.c:1066:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
zlatms.c:1067:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
zlatms.c:1067:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
zlatms.c:1067:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
zlatms.c:1067:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
zlatms.c:1068:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
zlatms.c:1068:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
zlatms.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatms.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatms.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatms.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatms.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatms.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatms.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatms.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatms.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatms.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatms.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatms.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlatme.c:985:40: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
~~ ~~~~~~~~~~~~~^~~~~~~~~~~~~~~
zlatme.c:985:40: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 1 || *ku < *n - 1 && *kl < *n - 1) {
^
( )
zlatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatme.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatme.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatme.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatme.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatme.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatme.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatme.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatme.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatme.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatme.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatme.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlatmr.c:1244:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (igrade == -1 || igrade == 4 && *m != *n || (igrade == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
zlatmr.c:1244:44: note: place parentheses around the '&&' expression to silence this warning
} else if (igrade == -1 || igrade == 4 && *m != *n || (igrade == 1 ||
^
( )
zlatmr.c:1245:64: warning: '&&' within '||' [-Wlogical-op-parentheses]
igrade == 2 || igrade == 3 || igrade == 4 || igrade == 6) && isym
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~
zlatmr.c:1245:64: note: place parentheses around the '&&' expression to silence this warning
igrade == 2 || igrade == 3 || igrade == 4 || igrade == 6) && isym
^
zlatmr.c:1247:22: warning: '&&' within '||' [-Wlogical-op-parentheses]
|| igrade == 5) && isym == 2) {
~~~~~~~~~~~~~~~~^~~~~~~~~~~~
zlatmr.c:1247:22: note: place parentheses around the '&&' expression to silence this warning
|| igrade == 5) && isym == 2) {
^
)
zlatmr.c:1263:44: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
~~ ~~~~~~~~~~~~^~~~~~~~~~~
zlatmr.c:1263:44: note: place parentheses around the '&&' expression to silence this warning
} else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 ||
^
( )
zlatmr.c:1264:19: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipvtng == 2) && (isym == 0 || isym == 2)) {
~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
zlatmr.c:1264:19: note: place parentheses around the '&&' expression to silence this warning
ipvtng == 2) && (isym == 0 || isym == 2)) {
^
)
zlatmr.c:1270:52: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || (isym == 0 || isym == 2) && *kl != *ku) {
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~
zlatmr.c:1270:52: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || (isym == 0 || isym == 2) && *kl != *ku) {
^
( )
zlatmr.c:1275:18: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~~~~~~~~~~~^~~~~~~~~~~~
zlatmr.c:1275:18: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
)
zlatmr.c:1275:58: warning: '&&' within '||' [-Wlogical-op-parentheses]
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~
zlatmr.c:1275:58: note: place parentheses around the '&&' expression to silence this warning
ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0
^
(
zlatmr.c:1276:46: warning: '&&' within '||' [-Wlogical-op-parentheses]
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~
zlatmr.c:1276:46: note: place parentheses around the '&&' expression to silence this warning
|| *m != *n) || ipack == 4 && isym == 1 && (*ku != 0 || *m != *n))
^
( )
zlatmr.c:1279:57: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~
zlatmr.c:1279:57: note: place parentheses around the '&&' expression to silence this warning
} else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) ||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
zlatmr.c:1280:34: warning: '&&' within '||' [-Wlogical-op-parentheses]
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
zlatmr.c:1280:34: note: place parentheses around the '&&' expression to silence this warning
(ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==
^
( )
zlatmr.c:1281:10: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~~^~~~~~~~~~~~~~~~~
zlatmr.c:1281:10: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
)
zlatmr.c:1281:42: warning: '&&' within '||' [-Wlogical-op-parentheses]
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
zlatmr.c:1281:42: note: place parentheses around the '&&' expression to silence this warning
6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {
^
( )
17 warnings generated.
zlatmr.c:2037:25: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
~~~~~~~~~~~~^~~~~~~~~~~~~ ~~
zlatmr.c:2037:25: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
^
( )
zlatmr.c:2037:54: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
~~ ~~~~~~~~~~~~^~~~~~~~~~~~~
zlatmr.c:2037:54: note: place parentheses around the '&&' expression to silence this warning
} else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) {
^
( )
zlatmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatmr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatmr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatmr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatmr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatmr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatmr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatmr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatmr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
17 warnings generated.
zlatmt.c:1072:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
~~ ~~~~~~~~~~^~~~~~~~~~~~~
zlatmt.c:1072:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*ku < 0 || isym != 1 && *kl != *ku) {
^
( )
zlatmt.c:1074:43: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
~~ ~~~~~~~~~~~~^~~~~~~~~~~~
zlatmt.c:1074:43: note: place parentheses around the '&&' expression to silence this warning
} else if (ipack == -1 || isympk == 1 && isym == 1 || isympk == 2 && isym
^
( )
zlatmt.c:1075:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~~~~^~~~~~~~~~
zlatmt.c:1075:11: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
)
zlatmt.c:1075:50: warning: '&&' within '||' [-Wlogical-op-parentheses]
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
zlatmt.c:1075:50: note: place parentheses around the '&&' expression to silence this warning
== 1 && *kl > 0 || isympk == 3 && isym == 1 && *ku > 0 || isympk
^
( )
zlatmt.c:1076:11: warning: '&&' within '||' [-Wlogical-op-parentheses]
!= 0 && *m != *n) {
~~~~~^~~~~~~~~~~
zlatmt.c:1076:11: note: place parentheses around the '&&' expression to silence this warning
!= 0 && *m != *n) {
^
)
13 warnings generated.
zlatmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatmt.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatmt.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatmt.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatmt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatmt.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatmt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatmt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatmt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatmt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatmt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlagge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlagge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlagge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlagge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlagge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlagge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlagge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlagge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlagge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlagge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaghe.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaghe.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaghe.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaghe.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaghe.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaghe.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaghe.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaghe.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaghe.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaghe.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaghe.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
zlagsy.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlagsy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlagsy.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlagsy.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlagsy.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlagsy.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlagsy.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlagsy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlagsy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagsy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlagsy.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlakf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlakf2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlakf2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlakf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlakf2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlakf2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlakf2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlakf2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlakf2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlakf2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlakf2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlakf2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
zlarge.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarge.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarge.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarge.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarge.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarge.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarge.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarge.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarge.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarge.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarge.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarge.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
12 warnings generated.
zlaror.c:752:37: warning: '&&' within '||' [-Wlogical-op-parentheses]
} else if (*n < 0 || itype == 3 && *n != *m) {
~~ ~~~~~~~~~~~^~~~~~~~~~~
zlaror.c:752:37: note: place parentheses around the '&&' expression to silence this warning
} else if (*n < 0 || itype == 3 && *n != *m) {
^
( )
zlaror.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlaror.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlaror.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlaror.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlaror.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlaror.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlaror.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlaror.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlaror.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaror.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlaror.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlaror.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarot.c:811:33: warning: '&&' within '||' [-Wlogical-op-parentheses]
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~
zlarot.c:811:33: note: place parentheses around the '&&' expression to silence this warning
if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) {
^
( )
zlarot.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarot.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarot.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarot.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarot.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarot.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarot.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarot.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarot.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarot.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarot.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarot.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatm1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatm1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatm1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatm1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatm1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatm1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatm1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
11 warnings generated.
13 warnings generated.
zlarnd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlarnd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlarnd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlarnd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlarnd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlarnd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlarnd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlarnd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlarnd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarnd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlarnd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlarnd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
11 warnings generated.
27 warnings generated.
zlatm2.c:804:16: warning: variable 'isub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
zlatm2.c:811:9: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
zlatm2.c:804:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
zlatm2.c:731:17: note: initialize the variable 'isub' to silence this warning
integer isub, jsub;
^
= 0
zlatm2.c:804:16: warning: variable 'jsub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*ipvtng == 3) {
^~~~~~~~~~~~
zlatm2.c:811:17: note: uninitialized use occurs here
if (isub == jsub) {
^~~~
zlatm2.c:804:12: note: remove the 'if' if its condition is always true
} else if (*ipvtng == 3) {
^~~~~~~~~~~~~~~~~~
zlatm2.c:731:23: note: initialize the variable 'jsub' to silence this warning
integer isub, jsub;
^
= 0
zlatm2.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatm2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatm2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatm2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatm2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatm2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatm2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatm2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatm2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm3.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatm3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatm3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatm3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatm3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatm3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatm3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatm3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatm3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm3.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm3.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
14 warnings generated.
12 warnings generated.
zlatm6.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatm6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatm6.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatm6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatm6.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatm6.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatm6.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatm6.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatm6.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm6.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm6.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm6.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm5.c:251:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlatm5.c:271:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlatm5.c:283:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlatm5.c:310:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlatm5.c:338:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlatm5.c:351:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlatm5.c:368:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlatm5.c:375:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlatm5.c:382:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm5.c:413:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlatm5.c:444:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlatm5.c:475:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahilb.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
zlahilb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
zlahilb.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
zlahilb.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
zlahilb.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
zlahilb.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
zlahilb.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
zlahilb.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
zlahilb.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahilb.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
zlahilb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
zlahilb.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm1.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm1.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm1.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm1.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm1.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm1.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm1.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm1.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm1.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm1.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm1.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm7.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlatm7.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlatm7.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlatm7.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlatm7.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlatm7.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlatm7.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlatm7.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm7.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlatm7.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlatm7.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
11 warnings generated.
dlaran.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlaran.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlaran.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlaran.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlaran.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlaran.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlaran.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlaran.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlaran.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaran.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlaran.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlaran.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
12 warnings generated.
12 warnings generated.
11 warnings generated.
17 warnings generated.
dlarnd.c:619:16: warning: variable 'ret_val' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized]
} else if (*idist == 3) {
^~~~~~~~~~~
dlarnd.c:627:12: note: uninitialized use occurs here
return ret_val;
^~~~~~~
dlarnd.c:619:12: note: remove the 'if' if its condition is always true
} else if (*idist == 3) {
^~~~~~~~~~~~~~~~~
dlarnd.c:585:23: note: initialize the variable 'ret_val' to silence this warning
doublereal ret_val;
^
= 0.0
dlarnd.c:250:13: warning: unused variable 'junk' [-Wunused-variable]
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
^
dlarnd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]
static float spow_ui(float x, integer n) {
^
dlarnd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]
static double dpow_ui(double x, integer n) {
^
dlarnd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function]
static _Complex float cpow_ui(_Complex float x, integer n) {
^
dlarnd.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function]
static _Complex double zpow_ui(_Complex double x, integer n) {
^
dlarnd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]
static integer pow_ii(integer x, integer n) {
^
dlarnd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]
static integer dmaxloc_(double *w, integer s, integer e, integer *n)
^
dlarnd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function]
static integer smaxloc_(float *w, integer s, integer e, integer *n)
^
dlarnd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function]
static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarnd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function]
static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
dlarnd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function]
static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
^
dlarnd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function]
static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
^
13 warnings generated.
12 warnings generated.
17 warnings generated.
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(sroundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(droundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(la_xisnan.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(slaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(dlaqz4.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(claqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz0.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz1.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz2.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(zlaqz3.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(sroundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(droundup_lwork.o) has no symbols
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ranlib: file: ../../../libopenblas_haswellp-r0.3.21.a(la_xisnan.o) has no symbols
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
make[1]: warning: -jN forced in submake: disabling jobserver mode.
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error
/bin/sh: gfortran: command not found
expr: syntax error