/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_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_U.cztbsv_L.c:89:9: note: use function 'fabsl' instead: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] 91:9: note: use function 'fabsl' instead if (fabs(ar) >= fabs(ai)){ ^~~~ fabsl if (fabs(ar) >= fabs(ai)){ ztbsv_U.c:91:21 ^~~~ fabsl : warning: 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)){ 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: if (fabs(ar) >= fabs(ai)){ ^21: note: use function 'fabsl' instead if (fabs(ar) >= fabs(ai)){ ^~~~ fabsl 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_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_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:9ztbsv_L.c:89:: 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)){ ^ 9ztbsv_L.c: warning: :89:21absolute value function 'fabs' given an argument of type 'long double' but has parameter of type 'double' which may cause truncation of value [-Wabsolute-value]: note: use function 'fabsl' instead if (fabs(ar) >= fabs(ai)){ if (fabs(ar) >= fabs(ai)){ ^~~~ ^ fabsl 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_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_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. 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 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. 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)){ ^~~~ 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: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_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. 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 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. 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_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: 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]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 if (fabs(ar) >= fabs(ai)){ ^ ztrsv_U.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 2 warnings generated. 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. 1 warning generated. 30 warnings 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_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_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; ^ 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 expr: syntax error /bin/sh: gfortran: command not found expr: syntax error expr: syntax error expr: syntax error expr: syntax error expr: expr: syntax error 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 expr: syntax error /bin/sh: gfortran: command not found expr: expr: syntax error 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 expr: syntax error expr: syntax error /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 /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 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 /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 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. 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. sgbbrd.c:787:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) { ~~ ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ sgbsv.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) {sgbbrd.c :787:34: note: place parentheses around the '&&' expression to silence this warning ^ } else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*m)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ sgbsv.c:350:16:sgbbrd.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 warning: } else if (*ldpt < 1 || wantpt && *ldpt < f2cmax(1,*n)) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~ unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) {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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ^ 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_) { ^ 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_) { ^ 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_) { ^ 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: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ sgbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sgbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgbcon.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ sgbcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ sgbcon.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] 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_) { ^ 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.c: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] sgbsvx.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^: 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_) { ^ sgbrfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sgbrfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ sgbrfs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ sgbrfs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sgbrfs.c:337:24: 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ sgbrfs.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sgbrfs.c:474:20: warning: 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_) { ^ 12 warnings generated. 12 warnings generated. sgebak.c:250:13: warning: unused variable 'junk' [-Wunused-variable] sgbtrs.c:250:13:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sgebak.c:warning: unused variable 'junk' [-Wunused-variable] 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) { ^ sgbtrs.c:sgebak.c270::28214: warning: unused function 'spow_ui' [-Wunused-function] :15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ sgebak.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sgebak.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ 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)static float spow_ui(float x, integer n) { ^ sgbtrs.c:282 ^: 15: warning: unused function 'dpow_ui' [-Wunused-function] sgebak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ sgbtrs.c:309:23: warning: static integer smaxloc_(float *w, integer s, integer e, integer *n)unused function 'cpow_ui' [-Wunused-function] ^ sgebak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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] 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 cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sgebak.c: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 float cpow_ui(_Complex float x, integer n) { ^ sgbtrs.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgbtrs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ sgbtrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ sgbtrs.c:374:16: warning: unused function 'smaxloc_' [-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_) { ^ 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_) { ^ 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_) { ^ sgbtrs.c:474:20: warning: 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. 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_) { ^ 12 warnings generated. sgebrd.c:sgebd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 250static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; : ^ 13sgebd2.c:270:14: : warning: warning: unused variable 'junk' [-Wunused-variable] 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) {static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ^ sgebd2.csgebrd.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] 337static _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] 24static 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] warning: unused function 'zpow_ui' [-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 _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_) { ^sgebd2.c:350 sgebrd.c::16: warning: unused function 'pow_ii' [-Wunused-function] 474static integer pow_ii(integer x, integer n) { ^ sgebd2.c:367:16: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 '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_) { ^ 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_) { ^ 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__]); ^ 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: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_) { ^ 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) { ^ ( ) 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__]); ^ 12 warnings generated. 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. 12 warnings generated. 15 warnings generated. 12 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_) { ^ 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] sgehrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgehd2.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) { ^ sgehrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] sgehd2.c:367:16: warning: unused function 'dmaxloc_' [-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 integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ sgehd2.c:374:16: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] warning: static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ sgehrd.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) ^ 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 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_) { ^ 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] sgehd2.cstatic 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_) { ^ 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_) { ^ 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) { ^ ( ) 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. 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_) { ^ 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. 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. 12 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_) { ^ 15 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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) { ^ ( ) 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; ^ 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_) { ^ 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_) { ^ 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) { ^ 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 _Complex float cpow_ui(_Complex float x, integer n) { ^ sgetri.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ 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] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sgetri.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static 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] static 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ sggbak.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sggbak.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] 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] static _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) { ^ 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 inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sggbak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] 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__]); ^ 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__]); ^ 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: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] 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) { ~~ ~~~~~^~~~~~~~~~~~~ sggev.c:880: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) { ^ ( ) sggev.c:880:34: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvl < 1 || ilvl && *ldvl < *n) { ^ ( ) sggev.csggev3.c:882:34: :warning: '&&' within '||' [-Wlogical-op-parentheses]881:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvr < 1 || ilvr && *ldvr < *n) { } else if (*ldvr < 1 || ilvr && *ldvr < *n) { ~~ ~~~~~^~~~~~~~~~~~~ ~~ ~~~~~^~~~~~~~~~~~~ sggev3.csggev.c:881:34: note: :882:34: note: place parentheses around the '&&' expression to silence this warning place parentheses around the '&&' expression to silence this warning } else if (*ldvr < 1 || ilvr && *ldvr < *n) { ^ ( ) } 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: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: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) { ^ ( ) 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_) { ^ 14 warnings generated. 14 warnings generated. 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) { ^ ( ) 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] 11 warnings generated. 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_) { ^ 12 warnings generated. 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; ^ ( ) 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_) { ^ 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_) { ^ 14 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 15 warnings generated. 16 warnings generated. 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_) { ^ 12 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_) { ^ 15 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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. 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] slaqz3.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slaqz4.c:318::226:13:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^warning: unused variable 'junk' [-Wunused-variable] slaqz4.c:325: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_) { ^ ^ slaqz4.c:339:20: warning: unused function 'zdotc_' [-Wunused-function] slaqz3.c:246:14: warning: unused function 'spow_ui' [-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 float spow_ui(float x, integer n) { ^ slaqz3.c:258:15: warning: unused function 'dpow_ui' [-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 double dpow_ui(double x, integer n) { ^ slaqz3.c:270:23: warning: unused function 'cpow_ui' [-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) { ^ 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_) { ^ 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) { ^ ( ) 12 warnings generated. 12 warnings generated. 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. 13 warnings generated. 12 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_) { ^ 12 warnings generated. 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_) { ^ 12 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_) { ^ 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_) { ^ 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] 16 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 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. 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_) { ^ 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) { ^ 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")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 12 warningsslangb.c:652:15: note: initialize the variable 'value' to silence this warning real value; ^ = 0.0 generated. 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_) { ^ 12 warnings generated. 17 warnings generated. 13 warnings generated. 13 warnings generated. 12 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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ slangt.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ slangt.c:350:16: 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] 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ slanhs.c:730:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized] } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ slanhs.c:753:15: note: uninitialized use occurs here ret_val = value; ^~~~~ slanhs.c:730:12: note: remove the 'if' if its condition is always true } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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. 14 warnings generated. 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 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; ^~~~~ slansp.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 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] slansb.cstatic _Complex double zpow_ui(_Complex double x, integer n) {: 774 ^: 12: slansp.cnote: :remove the 'if' if its condition is always true350 :16: warning: unused function 'pow_ii' [-Wunused-function] } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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: slansb.cunused function 'smaxloc_' [-Wunused-function]: 657:15: note: initialize the variable 'value' to silence this warning real value;static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ^ = 0.0 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_) { ^ 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_) { ^ 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 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 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 13 warnings generated. 13 warnings generated. 13 warnings generated. 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: 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; ^~~~~ warning: unused function 'pow_ii' [-Wunused-function] slantr.c:899:12: note: remove the 'if' if its condition is always true } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ static integer pow_ii(integer x, integer n) { ^ slantr.cslantp.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] 669static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ slantp.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] :15static 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:note: initialize the variable 'value' to silence this warning 20: warning: unused function 'cdotu_' [-Wunused-function] real value; ^ = 0.0static 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: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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 11 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_) { ^ 13 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 13 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_) { ^ 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 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. 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.cslaqr4.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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~ :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_) { ^ 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_) { ^ 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); ^ ( ) 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_) { ^ slaqtr.c: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] static _Complex double zpow_ui(_Complex double x, integer n) { ^ 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 integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slaqtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ slaqtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slaqtr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ slaqtr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slaqtr.c: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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ slar1v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ slar1v.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ slar1v.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slar1v.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ slar1v.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slar1v.c:412:20: warning: 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 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_) { ^ 12 warnings generated. 13 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 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_) { ^ 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. 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_) { ^ 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_) { ^ 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] static 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_) { ^ 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. 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. 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_) { ^ 12 warnings generated. slasyf_rook.c:785:24: warning: '&&' within '||' [-Wlogical-op-parentheses] if (k <= *n - *nb + 1 && *nb < *n || k < 1) { ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~ 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_) { ^ 19 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) { ^ ( ) 12 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 12 warnings generated. 14 warnings generated. 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_) { ^ 12 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_) { ^ 12 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 && ( ^ ( 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] 16 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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] sorglq.c:250:13: warning: 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_) { ^ ^sorglq.c:270:14: warning: sorgl2.c:443unused function 'spow_ui' [-Wunused-function]: 20: warning: unused function 'cdotu_' [-Wunused-function] static float spow_ui(float x, integer n) { ^ sorglq.c:282:15:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { warning: ^unused function 'dpow_ui' [-Wunused-function] sorgl2.c:474:static double dpow_ui(double x, integer n) { ^ sorglq.c:20309:23: warning: unused function 'cpow_ui' [-Wunused-function] : warning: unused function 'zdotu_' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sorglq.c:337:24static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {: ^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_) { ^ sorgr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sorgr2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ sorgr2.c: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 inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. sorgrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sorgrq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static 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] static _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:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ sorgrq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ 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) { ^ ( ) 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:16: warning: unused function 'dmaxloc_' [-Wunused-function] static 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_) { ^ 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_) { ^ 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) { ^ 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_) { ^ 12 warnings generated. 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] sormbr.c:793:13: warning: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {'&&' within '||' [-Wlogical-op-parentheses] ^ sorm22.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) { static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~ ^ sorm22.c:443:20sormbr.c:793:13: note: place parentheses around the '&&' expression to silence this warning: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ if (applyq && *lda < f2cmax(1,nq) || ! applyq && *lda < f2cmax(i__1,i__2)) {sorm22.c : ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~474: sormbr.c:793:48:20: warning: unused function 'zdotu_' [-Wunused-function] warning: '&&' within '||' [-Wlogical-op-parentheses] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 14 warnings generated. 14 warnings generated. 12 warnings generated. 14 warnings generated. 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. 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_) { ^ 12 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_) { ^ 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_) { ^ 14 warnings generated. 14 warnings generated. 14 warnings generated. 16 warnings generated. 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) { ^ ( ) 14 warningsormrq.c:250:13: warning: unused variable 'junk' [-Wunused-variable] sstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ generated. 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_) { ^ 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_) { ^ 12 warnings generated. 14 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_) { ^ 16 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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. 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_) { ^ 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] spbtrs.c:250:13: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^warning: unused variable 'junk' [-Wunused-variable] spocon.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ spbtrs.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) { ^ 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. 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. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. spstf2.c:796:21:spstrf.c warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types] :830 itemp = mymaxloc_(&work[1], &i__2, &i__3, &c__1);:22: warning: incompatible pointer types passing 'real *' (aka 'float *') to parameter of type 'double *' [-Wincompatible-pointer-types] ^~~~~~~~ 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) ^ 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) ^ 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) ^ 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) ^ 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_) { ^ 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_) { ^ 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. 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. 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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 12 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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:23: 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: sptsv.c:250:13: warning: unused variable 'junk' [-Wunused-variable] warning: unused function 'zdotu_' [-Wunused-function]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:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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] 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. 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) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. sptts2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sptts2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ sptts2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ sptts2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sptts2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sptts2.c:350:16: warning: unused function 'pow_ii' [-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) ^ sptts2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sptts2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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_) { ^ 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) { ^ srscl.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ srscl.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ srscl.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ srscl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ srscl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ srscl.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ srscl.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ srscl.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] 12static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 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) { ^ ( ) 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_) { ^ 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 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. ssbgv.c:756: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) { ^ ( ) 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.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ssbgv.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ ssbgv.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ ssbgv.c:367: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 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] 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] static 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. ssbgvd.c:835:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } 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) { ^ ( ) ssbgvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssbgvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ssbgvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ ssbgvd.c:309:23: 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_) { ^ 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. 13 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_) { ^ 13 warnings generated. 14 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 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) { ^ ( ) 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) { ^ ( ) 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) {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] sspgvd.cstatic _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) { 282 ^ 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] 15static 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] 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) { ^ sspgvd.c:309:23sspgvx.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) { ^ static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^sspgvd.c :337:24: warning: unused function 'zpow_ui' [-Wunused-function] sspgvx.c:474:20: warning: static _Complex double zpow_ui(_Complex double x, integer n) {unused function 'zdotu_' [-Wunused-function] ^ sspgvd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 13 warnings generated. 13 warnings generated. 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_) { ^ 12 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) ^ sspsv.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sspsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sspsv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(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_) { ^ 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) { ^ 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] static _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] static 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] 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] 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 inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sspsvx.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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; ^ ( ) ssptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssptrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ssptrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static 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] static _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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ssptrs.c:374:16: warning: unused function 'smaxloc_' [-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 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. 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ sstegr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sstegr.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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. 12 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. 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 12 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) { ^ 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:16: 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: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_) { ^ 13 warnings generated. 12 warnings generated. 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. 13 warnings generated. 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] ssygvx.c:913:24: warning: '&&' within '||' [-Wlogical-op-parentheses] 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] if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ 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_) { ^ ssygvx.c:913:24: note: place parentheses around the '&&' expression to silence this warning if (*ldz < 1 || wantz && *ldz < *n) { ^ ( ) ssygvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssygvd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ssygvd.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static 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] static integer pow_ii(integer x, integer n) { ^ ssygvd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ssygvd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ssygvd.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ssygvd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssygvd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ssygvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssygvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ssygvx.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssygvx.c:474:20: warning: 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. 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] ssyrfs.cstatic 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] 250:static 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"; ^ 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_) { ^ 12 warnings generated. ssysvx.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssysvx.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ssysvx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ ssysvx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ssysvx.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ ssysvx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ ssysvx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ssysvx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ssysvx.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssysvx.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ssysvx.c:443:20: 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_) { ^ ssytd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssytd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ssytd2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ ssytd2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ssytd2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ ssytd2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ ssytd2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ssytd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ssytd2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssytd2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ssytd2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ssytd2.c: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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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:ssyconvf_rook.c warning: unused function 'cpow_ui' [-Wunused-function] :250static _Complex float cpow_ui(_Complex float x, integer n) { ^ :ssyconvf.c13::337 :warning: 24unused variable 'junk' [-Wunused-variable] : 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) { ^ssyconvf_rook.c :270ssyconvf.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] :14: warning: unused function 'spow_ui' [-Wunused-function]static integer pow_ii(integer x, integer n) { ^ ssyconvf.c 12 warningsstatic float spow_ui(float x, integer n) { generated. : ^ 367:16: warning: unused function 'dmaxloc_' [-Wunused-function] ssyconvf_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function]static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ssyconvf.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) ^ ssyconvf_rook.c:ssyconvf.c309::38123:20: warning: : warning: unused function 'cpow_ui' [-Wunused-function] unused function 'cdotc_' [-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_) { ^ssyconvf_rook.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ssyconvf.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] ^ ssyconvf_rook.c:350:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {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] ssyconvf.c:static integer dmaxloc_(double *w, integer s, integer e, integer *n)443 : ^20: warning: unused function 'cdotu_' [-Wunused-function] ssyconvf_rook.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_) { ^ static integer smaxloc_(float *w, integer s, integer e, integer *n)ssyconvf.c : ^474 :20: warning: ssyconvf_rook.cunused function 'zdotu_' [-Wunused-function]: 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_) { ^ 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. 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_) { ^ 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. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ ssytri_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ssytri_3.c: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_) { ^ 12 warnings generated. 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. 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] 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 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 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. 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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]14 warnings generated. 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_) { ^ 12 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. 24 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_) { ^ 12 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_) { ^ 15 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_) { ^ 12 warnings generated. 12 warnings generated. 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:23: warning: unused function 'cpow_ui' [-Wunused-function] 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_) { ^ 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_) { ^ 12 warnings generated. 14 warnings generated. 12 warnings generated. 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_) { ^ 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) { ^ ( ) 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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:309strexc.c:250::1323:: warning: warning: unused function 'cpow_ui' [-Wunused-function]unused variable 'junk' [-Wunused-variable] static _Complex float cpow_ui(_Complex float x, integer n) { ^ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\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) ^strexc.c: strevc3.c:374:270:1416: :warning: unused function 'spow_ui' [-Wunused-function]warning: unused function 'smaxloc_' [-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) { ^static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ strexc.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] strevc3.c:381:20: static _Complex double zpow_ui(_Complex double x, integer n) { ^ strexc.c:350:16: warning: warning: unused function 'cdotc_' [-Wunused-function] unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ strexc.c:367:16: warning: 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] unused function 'dmaxloc_' [-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 integer dmaxloc_(double *w, integer s, integer e, integer *n)static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ strevc3.c:474:20 ^ strexc.c:374:16:: 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 '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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 14 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 16 warnings generated. 12 warnings generated. 12 warnings generated. 17 warnings generated. 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_) { ^ 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 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 14 warnings generated. spftrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 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_) { ^ 12 warnings generated. 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] 14 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 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) { 12 warnings generated. ^ 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; ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 13 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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~ 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) { ^ ( ) 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 && ( ^ ( 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: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: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)] > ^ ( sgejsv.c:2623:14: warning: '&&' within '||' [-Wlogical-op-parentheses] sgesvj.c:859:13: warning: variable 'large' set but not used [-Wunused-but-set-variable] if (p > q && (r__1 = v[p + q * v_dim1], abs(r__1)) <= ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ real t, large, apoaq, aqoap; ^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: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_) { ^ 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_) { ^ 13 warnings generated. 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) { ^ ( ) 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; ^ 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: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_) { ^ 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_) { ^ 13 warnings generated. 15 warnings generated. 11 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. 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 11 warnings generated. 11 warnings generated. 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_) { ^ 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_) { ^ 18 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 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] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgeqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] 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) ^ sgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sgeqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sgeqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ sgeqrt2.c: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. sgeqrt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\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] static double dpow_ui(double x, integer n) { ^ sgeqrt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ sgeqrt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ sgeqrt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ sgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ sgeqrt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sgeqrt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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. 13 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_) { ^ 12 warnings generated. 14 warnings generated. 25 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 13 warnings generated. 12 warnings generated. 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) { ^ ( ) 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: sgelqt.c:250:13: warning: unused variable 'junk' [-Wunused-variable] unused function 'zpow_ui' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static _Complex double zpow_ui(_Complex double x, integer n) { sgelqt.c ^: 270:14sgelqt3.c:: 350:warning: 16unused function 'spow_ui' [-Wunused-function] :static float spow_ui(float x, integer n) { ^ warning: unused function 'pow_ii' [-Wunused-function] sgelqt.cstatic 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] 282static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ sgelqt3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] :15static 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] : warning: 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] unused function 'dpow_ui' [-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 double dpow_ui(double x, integer n) { ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { 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_) { ^ 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. 13 warnings generated. 13 warnings generated. sgetsls.c:716:13: warning: variable 'mnk' set but not used [-Wunused-but-set-variable] integer mnk, lwm, lwo; ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 13 warnings generated. 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; ^ 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_) { ^ 15 warnings generated. 12 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. 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 sgemlq.c:789:14: } else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) {warning: '&&' within '||' [-Wlogical-op-parentheses] ^ ( ) if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,* ~~~~~^~~~~~~~~~~ ~~ 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: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: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_) { ^ 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_) { ^ 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. 15 warnings generated. 14 warnings generated. 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_) { ^ 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) { ^ ( ) 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 13 warnings generated. 12 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. 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; ^ 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_) { ^ ssb2st_kernels.c:700:29: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable] integer j1, j2, lm, ln, ajeter; ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 13 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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. 13 warnings generated. 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_) { ^ 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) { ^ ( ) 13 warnings generated. 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. 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_) { ^ 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: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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 12 warnings generated. 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. 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. 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_) { ^ 15 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) {dgebd2.c :250:13 ^ : warning: unused variable 'junk' [-Wunused-variable]dgebal.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_) { ^ dgebal.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] dgebd2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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_) { ^ dgees.c:825:36: warning: '&&' within '||' [-Wlogical-op-parentheses] 12 warning } else if (*ldvs < 1 || wantvs && *ldvs < *n) { ~~ ~~~~~~~^~~~~~~~~~~~~ s generated. 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] bwork[i__] = (*select)(&wr[i__], &wi[i__]); ^ 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__]); ^ 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_) { ^ 12 warnings generated. 12 warnings generated. dgeesx.c:893:69: warning: '&&' within '||' [-Wlogical-op-parentheses] } 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) { ^ ( ) 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__]); ^ 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_) { ^ 15 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 16 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 16 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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. 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. 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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 12 warnings generated. } 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) { ^ ( ) 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__; ^ 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_) { ^ 12 warnings generated. 12 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dggbak.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dggbak.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dggbak.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dggbak.c:443:20:dgetri.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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_) { ^dgetri.c dggbak.c::474270::2014: warning: unused function 'zdotu_' [-Wunused-function] : warning: unused function 'spow_ui' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^static float spow_ui(float x, integer n) { ^ dgetri.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dgetri.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 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) { ^ dgetri.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dgetri.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dgetri.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] 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. 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_) { ^ 13 warnings generated. 19 warnings generated. 12 warnings generated. 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__]); ^ dgges.c:1245: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: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] } else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) { ~~ ~~~~~~^~~~~~~~~~~~~~ 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__]); ^ 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) { ~~ ~~~~~^~~~~~~~~~~~~ dggev3.cdggev.c:883::88334::34 :note: warning: '&&' within '||' [-Wlogical-op-parentheses] place parentheses around the '&&' expression to silence this warning } else if (*ldvl < 1 || ilvl && *ldvl < *n) { } 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) { ^ ( ) 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) { ^ ( ) 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) { ^ ( ) 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: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: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. dggglm.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dggglm.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dggglm.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dggglm.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _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) { ^ dggglm.c:350:16: 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. 14 warnings generated. 11 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] static double dpow_ui(double x, integer n) { ^ dgghrd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dgghrd.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dgghrd.c: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] static 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] static 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 12 warnings generated. 15 warnings generated. dgtcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dgtcon.c: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. 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_) { ^ 12 warnings generated. 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_) { ^ 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) { ^ ( ) 12 warnings generated. 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. 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] dlaqz3.c:226:13: warning: unused variable 'junk' [-Wunused-variable] static _Complex float cpow_ui(_Complex float x, integer n) {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] dlaqz2.cstatic 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] 282: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_) { 24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ ^ dlaqz2.c:294:16: dlaqz3.cwarning: :unused function 'pow_ii' [-Wunused-function]353 :20:static integer pow_ii(integer x, integer n) { warning: ^unused function 'cdotu_' [-Wunused-function] dlaqz2.c:311:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n)static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ^ dlaqz2.cdlaqz3.c::318367::1620:: warning: warning: unused function 'smaxloc_' [-Wunused-function]unused function 'zdotu_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dlaqz2.c:325:20: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 1212 warnings generated. 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_) { ^ 12 warnings generated. dhsein.c:893:35: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvl < 1 || leftv && *ldvl < *n) { ~~ ~~~~~~^~~~~~~~~~~~~ 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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) { ^ ( ) 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] dhseqr.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_) { static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ^ dhsein.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] dhseqr.c:270:14: warning: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {unused function 'spow_ui' [-Wunused-function] ^ dhsein.c:474:20:static float spow_ui(float x, integer n) { warning: ^unused function 'zdotu_' [-Wunused-function] dhseqr.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) { ^ ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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. 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. 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:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlaexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dlaexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static 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_) { ^ dlag2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dlag2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dlag2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dlag2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dlag2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dlag2.c:350:16: 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_) { ^ 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_) { ^ 14 warnings generated. 12 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_) { ^ 16 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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. 17 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; ^~~~~ 12 warnings generated. 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 13 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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 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 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_) { ^ 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_) { ^ 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. 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. 13 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 11 warnings generated. 12 warnings generated. 13 warnings generated. 14 warnings generated. 13 warnings generated. 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_) { ^ 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. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~ 13 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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); ^ ( ) 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_) { ^ dlaqr5.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 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 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_) { ^ dlaqr5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static 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] 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: warning: 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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dlar1v.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ 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 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] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlar1v.c: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: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_) { ^ 13 warnings generated. 12 warnings generated. 12 warnings generated. 13 warnings generated. 12 warnings generated. iladlr.ciladlc.c:250::25013::13 :warning: unused variable 'junk' [-Wunused-variable]warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";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] 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) { 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) { ^ iladlr.c:309 ^:23 : warning: unused function 'cpow_ui' [-Wunused-function] iladlc.c:static _Complex float cpow_ui(_Complex float x, integer n) { 337:24: ^ iladlr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ iladlr.c:350:16static _Complex double zpow_ui(_Complex double x, integer n) { ^ iladlc.c:: warning: unused function 'pow_ii' [-Wunused-function] 350static integer pow_ii(integer x, integer n) {: ^16 : warning: unused function 'pow_ii' [-Wunused-function]iladlr.c :367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ iladlc.c:367:static integer dmaxloc_(double *w, integer s, integer e, integer *n)16 : ^ warning: unused function 'dmaxloc_' [-Wunused-function] iladlr.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n): ^374 :16:iladlc.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] warning: static integer smaxloc_(float *w, integer s, integer e, integer *n)unused function 'smaxloc_' [-Wunused-function] ^ iladlc.c:381:20: warning: unused function 'cdotc_' [-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_) { ^ iladlc.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_) { ^ iladlr.c:412:20: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ warning: iladlc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] unused function 'zdotc_' [-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_) { ^ 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. 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_) { ^ 12 warnings generated. dlarfg.c:250:13: warning: unused variable 'junk' [-Wunused-variable] dlarfgp.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"; ^ dlarfg.c:270dlarfgp.c:270:14: warning: 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) { ^ ^ dlarfgp.c:282dlarfg.c::15282:: 15warning: :unused function 'dpow_ui' [-Wunused-function] warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) {static double dpow_ui(double x, integer n) { ^ ^ dlarfgp.cdlarfg.c::309:23: warning: unused function 'cpow_ui' [-Wunused-function] 309:23: static _Complex float cpow_ui(_Complex float x, integer n) {warning: unused function 'cpow_ui' [-Wunused-function] ^ 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 _Complex float cpow_ui(_Complex float x, integer n) {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] dlarfg.cstatic 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] :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) { ^ 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_) { ^ 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ dlarrv.c:823:13: warning: variable 'done' set but not used [-Wunused-but-set-variable] integer done; ^ 12 warnings generated. 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_) { ^ 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. 12 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_) { ^ 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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.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] 12static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ warnings generated. 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_) { ^ 19 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 13 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_) { ^ 14 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 14 warnings generated. 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; ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 16 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 && ( ^ ( 12 warnings generated. dorgbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dorgbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dorgbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dorgbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dorgbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dorgbr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dorgbr.c: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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dorgbr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 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_) { ^ dorghr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dorghr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dorghr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dorghr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dorghr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dorghr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dorghr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dorghr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dorghr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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_) { ^ 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_) { ^ dorgql.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dorgql.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dorgql.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dorgql.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dorgql.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dorgql.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dorgql.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dorgql.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dorgql.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *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_) { ^ 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) { ^ dorglq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dorglq.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dorglq.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dorglq.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dorglq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dorglq.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dorglq.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dorglq.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 14 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ dorm2l.c:755:14: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && notran || ! left && ! notran) { ~~~~~^~~~~~~~~ ~~ dorm2l.c:755:14:dorgtr.c:250:13: 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) { ^ ( ) 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_) { ^ 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_) {dorgtsqr_row.c:250:13: warning: unused variable 'junk' [-Wunused-variable] ^static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; dorm2l.c: ^ 443dorgtsqr_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] 20:static _Complex float cpow_ui(_Complex float x, integer n) { ^ dorgtsqr_row.c: 337:24: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 'zpow_ui' [-Wunused-function] warning: unused function 'zdotu_' [-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 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) ^ 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_) {dorm2r.c:755:14: warning: '&&' within '||' [-Wlogical-op-parentheses] ^ ^ 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] if (left && ! notran || ! left && notran) { ~~~~~^~~~~~~~~~~ ~~ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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) { ^ ( ) 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_) { ^ 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_) { ^ 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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 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_) { ^ 12 warnings generated. 14 warnings generated. 14 warnings generated. 12 warnings generated. 12 warnings generated. 14 warnings generated. 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 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_) { ^ 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_) { ^ 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) { ^ ( ) 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:350dormqr.c:831:11: warning: '&&' within '||' [-Wlogical-op-parentheses] :16 if (left && ! notran || ! left && notran) { : ~~~~~^~~~~~~~~~~ ~~ warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dormlq.c:367:16: warning: dormqr.c:unused function 'dmaxloc_' [-Wunused-function] 831static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ :dormlq.c:11374:: 16note: :place parentheses around the '&&' expression to silence this warning warning: unused function 'smaxloc_' [-Wunused-function] if (left && ! notran || ! left && notran) {static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ^ ( ) dormlq.c:381:20: warning: dormqr.cunused function 'cdotc_' [-Wunused-function] :831static 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] 33: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && ! notran || ! left && notran) { 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] dormqr.c:831:33: 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_) { if (left && ! notran || ! left && notran) { ^ ^ ( ) 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_) { ^ 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_) { ^ 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_) { ^ 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) { ^ ( ) 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: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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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_) { ^ 14 warnings generated. 14 warnings generated. 16 warnings generated. 14 warnings generated. 14 warnings generated. 14 warnings generated. 14 warnings generated. 16 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:367dormtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] :16static 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] warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dpbcon.c:static _Complex double zpow_ui(_Complex double x, integer n) { ^ dormtr.c:350:16374: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] warning: unused function 'pow_ii' [-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 integer pow_ii(integer x, integer n) {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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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:16dpbstf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] : static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: dpbstf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] unused function 'pow_ii' [-Wunused-function]static float spow_ui(float x, integer n) { ^ dpbstf.c:282:15:static integer pow_ii(integer x, integer n) { warning: ^unused function 'dpow_ui' [-Wunused-function] dpbsv.c:367:static double dpow_ui(double x, integer n) {16 : ^ dpbstf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] warning: 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) { unused function 'dmaxloc_' [-Wunused-function] ^static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dpbsv.c:374:16:dpbstf.c:350: 16warning: : unused function 'smaxloc_' [-Wunused-function]warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) {static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ^ dpbstf.c:dpbsv.c367: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] 381static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dpbstf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] :20static 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] warning: 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] unused function 'cdotc_' [-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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 11 warnings generated. 11 warnings generated. dpptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 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 _Complex float cpow_ui(_Complex float x, integer n) { ^ dpptrs.c:337: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) { ^ 12 warnings generateddpptrs.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_) { ^ 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: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dptcon.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 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] static 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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) { ^ dptsv.c:250:dptrfs.c13::309 warning: unused variable 'junk' [-Wunused-variable] :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) { ^ dptsv.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] dptrfs.c:337:static float spow_ui(float x, integer n) {24 : ^ dptsv.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] warning: unused function 'zpow_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) { ^ static _Complex double zpow_ui(_Complex double x, integer n) { ^ dptrfs.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] dptsv.c:337:24: warning: static integer pow_ii(integer x, integer n) {unused function 'zpow_ui' [-Wunused-function] ^static _Complex double zpow_ui(_Complex double x, integer n) { ^ dptsv.c:350:16: warning: dptrfs.c:367:unused function 'pow_ii' [-Wunused-function]16: static integer pow_ii(integer x, integer n) { ^ dptsv.c: 367:16: warning: warning: unused function 'dmaxloc_' [-Wunused-function] 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 dmaxloc_(double *w, integer s, integer e, integer *n) ^ dptsv.c:static integer smaxloc_(float *w, integer s, integer e, integer *n)374 : ^16 : warning: dptrfs.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_) { ^ static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dptsv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] dptrfs.c:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^412:20: warning: dptsv.c:412unused function 'zdotc_' [-Wunused-function] :20: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^warning: unused function 'zdotc_' [-Wunused-function] dptrfs.c:static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {443:20: warning: unused function 'cdotu_' [-Wunused-function] ^ dptsv.c:443: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] 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_) { ^ 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. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 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) { ^ ( ) 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_) { ^ 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 13 warnings generated. 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) { ^ dsbgv.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 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: unused function 'cdotc_' [-Wunused-function] 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_) { ^ 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: 13 warnings generated. 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. dsbgvd.c:835:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ dsbgvd.c:835:34: note: place parentheses around the '&&' expression to silence this warning } else 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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. 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_) { ^ 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_) { ^ 13 warnings generated. 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) { ^ ( ) 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_) { ^ 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) { ^ ( ) 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_) { ^ 12 warnings generated. 13 warnings generated. 14 warnings generated. 13 warnings generated. 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) { ^ ( ) 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_) { ^ dspgvd.c:791:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ dspgv.c:733: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) { ^ ( ) 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) {dspgvd.c : ^250 :13: warning: unused variable 'junk' [-Wunused-variable] dspgv.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ :dspgvd.c309::27023:14: warning: unused function 'spow_ui' [-Wunused-function] :static float spow_ui(float x, integer n) { warning: ^ unused function 'cpow_ui' [-Wunused-function] dspgvd.c:282:15: 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) { ^ ^ dspgv.c:337dspgvd.c::30924::23 :warning: unused function 'zpow_ui' [-Wunused-function] warning: unused function 'cpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dspgv.c: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) { ^ dspgv.c :367:16: dspgvd.cwarning: :unused function 'dmaxloc_' [-Wunused-function]337 :24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dspgvd.cstatic integer dmaxloc_(double *w, integer s, integer e, integer *n):350:16: warning: unused function 'pow_ii' [-Wunused-function] ^ static integer pow_ii(integer x, integer n) { ^ dspgvd.c:367:16: dspgv.c:warning: unused function 'dmaxloc_' [-Wunused-function]374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dspgv.c:381static integer dmaxloc_(double *w, integer s, integer e, integer *n): 20 ^ dspgvd.c::374 :warning: 16:unused function 'cdotc_' [-Wunused-function] 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_) {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_) { dspgv.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] ^ dspgvd.cstatic 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] :443:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dspgv.c:47420: warning: unused function 'cdotu_' [-Wunused-function] :20:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dspgvd.c:474 warning: :unused function 'zdotu_' [-Wunused-function] 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_) { ^ 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) { ^ ( ) 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_) { ^ 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_) { ^ 13 warnings generated. 13 warnings generated. 13 warnings generated. 13 warnings generated. 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_) { ^ 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. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 13 warnings generated. 12 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_) { ^ 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_) { ^ 13 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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. 13 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 13 warnings generated. 14 warnings generated. 13 warnings generated. 12 warnings generated. 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] dsytd2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static _Complex double zpow_ui(_Complex double x, integer n) {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 ^ dsyrfs.c:: 350warning: :16unused function 'dpow_ui' [-Wunused-function]: warning: unused function 'pow_ii' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ static integer pow_ii(integer x, integer n) { dsytd2.c ^: 309:23: warning: unused function 'cpow_ui' [-Wunused-function] dsyrfs.cstatic _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] 367static 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] 16static 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] warning: unused function 'dmaxloc_' [-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 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_) { ^ ^ 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] static 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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. 12 warnings generated. 12 warnings generated. 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: 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_) { ^ 12 warnings generated. 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_) { ^ 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: 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_) { ^ 12 warnings generated. 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. 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_) { ^ 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. 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. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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. 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_) { ^ 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. 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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) { ^ dsytrs_aa_2stage.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dsytrs_aa_2stage.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dsytrs_aa_2stage.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dsytrs_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_) { ^ dsytrs_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_) { ^ dsytrs_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_) { ^ dsytrs_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. dtbcon.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dtbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dtbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dtbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dtbcon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ dtbcon.c:350:16: warning: 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 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] ~~~~^~~ ~~ 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, & ~~~~^~~ ~~ 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, & ^ ( ) dtgex2.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, & ~~~~^~~ ~~ dtgex2.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, & ^ ( ) dtgex2.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]); ~~~~^~~ ~~ dtgex2.c:1210:21: note: place parentheses around the '+' expression to silence this warning 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]); ~~^~~ ~~ 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]); ^ ( ) dtgex2.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]; ~~~~^~~ ~~ dtgex2.c:1213:45: note: place parentheses around the '+' expression to silence this warning t[m + (m << 2) - 5] = t[*n2 + 1 + (*n2 + 1 << 2) - 5]; ^ ( ) 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], ^ ( ) dtgex2.c:250: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) { ^ dtgex2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dtgex2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ 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) ^ dtgex2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dtgex2.c:443:20: 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_) { ^ dtgexc.c:791:35: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) { ~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ dtgexc.c:791:35: note: place parentheses around the '&&' expression to silence this warning } else if (*ldq < 1 || *wantq && *ldq < f2cmax(1,*n)) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ dtgexc.c:793:35: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) { ~~ ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ dtgexc.c:793:35: note: place parentheses around the '&&' expression to silence this warning } else if (*ldz < 1 || *wantz && *ldz < f2cmax(1,*n)) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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) { ^ ( ) 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: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dtgexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dtgexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dtgexc.c: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: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. 12 warnings generated. 24 warnings generated. 14 warnings generated. 12 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_) { ^ 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_) { ^ 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. 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 15 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_) { ^ dtptri.c: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. dtptrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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: 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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_) { ^ 13 warnings generated. 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_) { ^ 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 } else if (*ldq < 1 || wantq && *ldq < f2cmax(1,*n)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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) ^ dtrexc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dtrexc.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dtrexc.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dtrexc.c:474:20: warning: 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. 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_) { ^ dtrsen.c:911:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldq < 1 || wantq && *ldq < *n) { ~~ ~~~~~~^~~~~~~~~~~~ dtrsen.c:911:34: note: place parentheses around the '&&' expression to silence this warning } 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 dtrsen.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dtrsen.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dtrsen.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dtrsen.c:309:23: 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) { ^ 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) ^ dtrsen.c: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_) { ^ 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; ^ ( ) 12 warnings generated. 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_) { ^ 14 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_) { ^ 16 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 17 warnings generated. 12 warnings generated. 14 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 13 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_) { ^ 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_) { ^ 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_) { ^ dtpttf.c:711:33: warning: variable 'nt' set but not used [-Wunused-but-set-variable] integer n1, n2, ij, jp, js, nt; ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 14 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_) { ^ 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)) <= ^ ( 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ dgejsv.c:474: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: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) { ^ ( ) dgesvj.c:1234:51: warning: '&&' within '||' [-Wlogical-op-parentheses] if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) { ~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~ dgesvj.c:1234:51: note: place parentheses around the '&&' expression to silence this warning if (aapp <= sn || aaqq >= temp1 || sn <= aaqq && aapp <= temp1) { ^ ( ) 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; ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 13 warnings generated. 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; ^ 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_) { ^ 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_) { ^ 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_) { ^ 15 warnings generated. 11 warnings generated. 11 warnings generated. 12 warnings generated. 14 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] dpoequb.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^: 250:dgbequb.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] 13: warning: unused variable 'junk' [-Wunused-variable] 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_) { ^ 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. 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_) { ^ 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_) { ^ 12 warnings generated. 11 warnings generated. 12 warnings generated. 18 warnings generated. 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_) { ^ 12 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 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. 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_) { ^ 13 warnings generated. 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) { ^ ( ) 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 14 warnings generated. 12 warnings generated. 25 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_) { ^ 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: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dgelqt.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. dgetsls.c:718:23: warning: variable 'mnk' set but not used [-Wunused-but-set-variable] integer lw1, lw2, mnk, lwm, lwo; ^ 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_) { ^ 12 warnings generated. 13 warnings generated. 13 warnings generated. 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_) { ^ 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) { ^ ( ) 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: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_) { ^ 13 warnings generated. 12 warnings generated. 13 warnings generated. 12 warnings generated. 12 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_) { ^ 12 warnings generated. 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_) { ^ 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:374dgelq.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) ^ dlamswlq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] dgelq.cstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {: 270 ^: 14: dlamswlq.cwarning: :unused function 'spow_ui' [-Wunused-function]412:20: warning: unused function 'zdotc_' [-Wunused-function] static float spow_ui(float x, integer n) { ^ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ dgelq.c:dlamswlq.c282::443:20: 15warning: unused function 'cdotu_' [-Wunused-function] : warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dgelq.c:309:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 23: warning: unused function 'cpow_ui' [-Wunused-function] dlamswlq.c:474:20: static _Complex float cpow_ui(_Complex float x, integer n) {warning: unused function 'zdotu_' [-Wunused-function] ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ dgemlq.c:792:14: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && *m <= *k || right && *n <= *k || nb <= *k || nb >= f2cmax(i__1,* ~~~~~^~~~~~~~~~~ ~~ 15 warnings generated. 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; ^ 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_) { ^ 13 warnings generated. 15 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 13 warnings generated. 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; ^ dsytrd_sb2st.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dsytrd_sb2st.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dsytrd_sb2st.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dsytrd_sb2st.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ dsytrd_sb2st.c:337:24: 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:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ dsytrd_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_) { ^ dsytrd_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_) { ^ 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_) { ^ 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_) { ^ dsb2st_kernels.c:700:13: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable] integer ajeter; ^ 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: unused function 'smaxloc_' [-Wunused-function] 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_) { ^ dsyevd_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dsyevd_2stage.c:270:14: warning: 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) { ^ dsyevd_2stage.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _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:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dsyevd_2stage.c:367:16: warning: unused function 'dmaxloc_' [-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 inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dsyevd_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_) { ^ dsyevd_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_) { ^ dsyevd_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_) { ^ 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. 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) { ^ ( ) 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. 12 warnings generated. 13 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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. 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_) { ^ 16 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_) { ^ 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) { ^ ( ) 13 warnings generated. 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:12 warnings generated350: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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 12 warnings generated. 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) { ^ ( ) cbdsqr.c:250:13: 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_) { ^ 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_) { ^ cgbbrd.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static 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_) { ^ 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. 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_) { ^ 11 warnings generated. 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. 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_) { ^ 15 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_) { ^ 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. 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_) { ^ 18 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. 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] cgebrd.cstatic _Complex double zpow_ui(_Complex double x, integer n) {: 250 ^ cgebd2.c::350:1316:: warning: warning: unused variable 'junk' [-Wunused-variable]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 char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ^ cgebd2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] cgebrd.c:270:14: static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cgebd2.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_) { unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cgebd2.c: 412:20: warning: unused function 'zdotc_' [-Wunused-function] ^ cgebrd.cstatic inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {: 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] cgebd2.cstatic _Complex float cpow_ui(_Complex float x, integer n) { ^ :cgebrd.c443::20337:24: warning: unused function 'zpow_ui' [-Wunused-function] : warning: unused function 'cdotu_' [-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_) { ^ cgebd2.c: ^ 474:20: warning: unused function 'zdotu_' [-Wunused-function] cgebrd.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) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 14 warnings generated. 12 warnings generated. 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__]); ^ 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) { ^ ( ) 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: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) { ^ ( ) 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_) { ^ 12 warnings generated. 15 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 14 warnings generated. 16 warnings generated. 12 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] cgels.cstatic 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] 250: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_) {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_) { ^ 15 warnings generated. 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_) { ^ 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__; ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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. 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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cgeqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cgeqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 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_) { ^ cgeqrf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. cgeqrfp.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cgeqrfp.c:270:14: 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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cgeqrfp.c: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_) { ^ 12 warnings generated. 14 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_) { ^ 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. 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_) { ^ 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_) { ^ 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) { ^ ( ) 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. 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) { ^ ( ) 12 warnings generated. cgesvdx.c:836:10: warning: variable 'abstol' set but not used [-Wunused-but-set-variable] real abstol; ^ 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: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) { ^ ( ) 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)] > ^ ( 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: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 < ^ ( ) 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_) { ^ cgsvj0.c:827:22: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (rsvec && *ldv < *n || applv && *ldv < *mv) { ~~~~~~^~~~~~~~~~~~ ~~ cgsvj0.c:827:22: note: place parentheses around the '&&' expression to silence this warning } 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) { ~~ ~~~~~~^~~~~~~~~~~~~ cgsvj0.c:827:44: note: place parentheses around the '&&' expression to silence this warning } else if (rsvec && *ldv < *n || applv && *ldv < *mv) { ^ ( ) cgsvj1.c:847: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: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: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) {12 warning ^s generated. 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_) { ^ 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_) { ^ 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. 13 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:12 warnings generated. 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. 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_) { ^ 12 warnings generated. 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) { ^ ( ) cgges.c:928:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) { ~~ ~~~~~~^~~~~~~~~~~~~~ cgges.c:928:36: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvsr < 1 || ilvsr && *ldvsr < *n) { ^ ( ) 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] cggbal.cstatic 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] :250static 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] :13: 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"; ^ 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.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ cggbal.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 12 warnings generated. static integer dmaxloc_(double *w, integer s, integer e, integer *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_) { ^ 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_) { ^ 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_) { ^ 16 warnings generated. 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. 14 warnings generated. 12 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 + ^ ( ) 14 warnings generated. 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_) { ^ 11 warnings generated. cgglse.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cgglse.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cgglse.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cgglse.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cgglse.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ cgglse.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ cgglse.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cgglse.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cgglse.c:381:20: warning: unused function 'cdotc_' [-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 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 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_) { ^ cggqrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cggqrf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cggqrf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cggqrf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cggqrf.c:337:24: warning: unused function 'zpow_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 integer pow_ii(integer x, integer n) { ^ cggqrf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cggqrf.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cggqrf.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static 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] 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 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 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) { ^ ( ) 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:cggsvp3.c warning: unused function 'zdotu_' [-Wunused-function] :891static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ :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) { ^ ( ) 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. 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_) { ^ 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_) { ^ 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_) { ^ 15 warnings generated. 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_) { ^ 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. 12 warnings generated. 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) { ^ ( ) 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: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_) { ^ 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_) { ^ 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 13 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 22 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 13 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 14 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. 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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. 13 warnings generated. 12 warnings generated. 16 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 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_) { ^ 11 warnings generated. 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_) { ^ 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_) { ^ 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. 12 warnings generated. 12 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. 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_) { ^ 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_) { ^ 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: chesv_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable] unused function 'smaxloc_' [-Wunused-function]static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ chesv_rook.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ checon_rook.c:static float spow_ui(float x, integer n) {381 :20 ^: warning: unused function 'cdotc_' [-Wunused-function] chesv_rook.c:282:15:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { warning: ^unused function 'dpow_ui' [-Wunused-function] checon_rook.c:412:20: static double dpow_ui(double x, integer n) {warning: unused function 'zdotc_' [-Wunused-function] ^ chesv_rook.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_) { ^ checon_rook.c:443:20: static _Complex float cpow_ui(_Complex float x, integer n) {warning: unused function 'cdotu_' [-Wunused-function] ^ chesv_rook.c: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_) { ^ checon_rook.c:474:20static _Complex double zpow_ui(_Complex double x, integer n) {: ^warning: chesv_rook.c:350unused function 'zdotu_' [-Wunused-function]:16 : warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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. 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. 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_) { ^ 12 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 11 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_) { ^ 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_) { ^ 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 13 warnings generated. 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_) { ^ 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_) { ^ 13 warnings generated. 11 warnings generated. 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. 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 12 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_) { ^ 11 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_) { ^ 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; ^ ( ) 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_) { ^ 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) { ^ ( ) 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_) { ^ 12 warnings generated. 14 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. 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_) { ^ 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] clacn2.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ :clacon.c:250270::1314: warning: : warning: unused variable 'junk' [-Wunused-variable]unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ clacon.c:282:15:clacn2.c :warning: 270:14: warning: unused function 'spow_ui' [-Wunused-function]unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { static float spow_ui(float x, integer n) { ^ ^ clacon.c:clacn2.c309::23: warning: unused function 'cpow_ui' [-Wunused-function] 282:static _Complex float cpow_ui(_Complex float x, integer n) { 15 ^: warning: unused function 'dpow_ui' [-Wunused-function]clacon.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { static double dpow_ui(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:clacn2.c warning: unused function 'cdotc_' [-Wunused-function] :309:23: warning: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {unused function 'cpow_ui' [-Wunused-function] ^ static _Complex float cpow_ui(_Complex float x, integer n) { ^clacon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] clacn2.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_) { ^ clacon.cstatic _Complex double zpow_ui(_Complex double x, integer n) {: 443 ^: 20:clacn2.c:350: 16: warning: unused function 'pow_ii' [-Wunused-function] warning: static integer pow_ii(integer x, integer n) {unused function 'cdotu_' [-Wunused-function] ^ clacn2.c:367static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {: 16: warning: unused function 'dmaxloc_' [-Wunused-function] ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^clacon.c :474:20clacn2.c: :warning: 374unused function 'zdotu_' [-Wunused-function]: 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) ^ 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. 13 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. 12 warnings generated. 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: clacpy.c:250:13: warning: unused variable 'junk' [-Wunused-variable] unused function 'zdotu_' [-Wunused-function] 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: static 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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) { ^ 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: claed7.c:871:16: warning: incompatible pointer to integer conversion passing 'integer *' (aka 'int *') to parameter of type 'integer' (aka 'int'); remove & [-Wint-conversion] passing argument to parameter 'x' here ptr += pow_ii(&c__2, &i__2); ^~~~~ claed7.cstatic integer pow_ii(integer x, integer n) {: 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) { 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) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 15 warnings generated. 12 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_) { ^ 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. 11 warnings generated. 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_) { ^ 12 warnings generated. 15 warnings generated. 12 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_) { ^ 12 warnings generated. 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.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) { ^ ( ) 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_) { ^ clahef_rook.c:790:24: warning: '&&' within '||' [-Wlogical-op-parentheses] if (k <= *n - *nb + 1 && *nb < *n || k < 1) { ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ ~~ clahef_rk.c:872:clahef_rook.c:790:24: note: place parentheses around the '&&' expression to silence this warning 24 if (k <= *n - *nb + 1 && *nb < *n || k < 1) { ^ ( ) : 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_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) { ^ ( ) 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:16clahef_rook.c:250:13: warning: unused variable 'junk' [-Wunused-variable] : warning: unused function 'pow_ii' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static integer pow_ii(integer x, integer n) {clahef_rook.c : ^ clahef_rk.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] 367:16: static float spow_ui(float x, integer n) { ^warning: unused function 'dmaxloc_' [-Wunused-function] clahef_rook.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clahef_rk.c:static double dpow_ui(double x, integer n) {374 : ^16 : clahef_rook.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) ^ clahef_rk.c:381:20: warning: unused function 'cdotc_' [-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_) { ^ 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] clahef_rook.cstatic 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] :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) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 12 warnings generated. 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) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 11 warnings generated. 14 warnings generated. 14 warnings generated. 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_) { ^ 12 warnings generated. 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 clangb.c:754:16:clange.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: clange.c:270:14variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized] : } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ warning: clangb.c:781:15: note: uninitialized use occurs here ret_val = value; 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.cclangb.c::309754:12: note: remove the 'if' if its condition is always true :23 } else if (lsame_(norm, "F") || lsame_(norm, "E")) {: ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~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] clangb.c:653:15: note: 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] initialize the variable 'value' to silence this warningstatic integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clange.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] real value; 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] ^ = 0.0 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_) { ^ 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_) { ^ 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 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 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_) { ^ 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. 13 warnings generated. 13 warnings generated. 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. 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_) { ^ 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: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_) { ^ 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. 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_) { ^ 13 warnings generated. 13 warnings generated. 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; ^~~~~ 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 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) { ^ clansp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ clansp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ clansp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clansp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clansp.c:381:20: warning: unused function 'cdotc_' [-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 zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 13 warnings generated. 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; ^~~~~ 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 clansy.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ clansy.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float 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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clansy.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clansy.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ clansy.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 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"; ^ clantp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ clantp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ clantp.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ clantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ clantp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ clantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clantp.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clantp.c:381:20: warning: unused function 'cdotc_' [-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_) { ^ clantp.c:443:20: 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 zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 13 warnings generated. 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 clantr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\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] static double dpow_ui(double x, integer n) { ^ clantr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ clantr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ clantr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ clantr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clantr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clantr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ clantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ clantr.c:443:20: warning: unused function 'cdotu_' [-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_) { ^ 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_) { ^ 11 warnings generated. 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_) { ^ 13 warnings generated. 12 warnings generated. 13 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_) { ^ 13 warnings generated. 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. 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. 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_) { ^ 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_) { ^ 12 warnings generated. 17 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 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) { ^ ( ) claqr3.c:250:13: claqr2.c:250:13: warning: warning: unused variable 'junk' [-Wunused-variable]unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ^ claqr3.cclaqr2.c::270270::1414:: warning: warning: unused function 'spow_ui' [-Wunused-function]unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) {static float spow_ui(float x, integer n) { ^ ^ claqr3.c:282claqr2.c::282:15: warning: unused function 'dpow_ui' [-Wunused-function] 15static double dpow_ui(double x, integer n) {: 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:16claqr2.c:309: warning: unused function 'pow_ii' [-Wunused-function] :static integer pow_ii(integer x, integer n) { ^ claqr3.c:23367: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] warning: static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ claqr3.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_) { ^ 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 _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_) { ^ claqr2.c:337:claqr3.c:474:20: 24: warning: unused function 'zpow_ui' [-Wunused-function] warning: static _Complex double zpow_ui(_Complex double x, integer n) {unused function 'zdotu_' [-Wunused-function] ^ claqr2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) {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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ^ 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_) { ^ 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); ^ ( ) 12 warnings generated. 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_) { ^ 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. 13 warnings generated. 12 warnings generated. 13 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. 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_) { ^ 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_) { ^ 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_) { ^ 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. 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. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 11 warnings generated. 12 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_) { ^ 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 if (g->r == 0.f && g->i == 0.f || sisnan_(&r__1)) { ^ ( ) 12 warnings generated. clartg.c:250:13: warning: unused variable 'junk' [-Wunused-variable] clarrv.c:818:13: warning: variable 'done' set but not used [-Wunused-but-set-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ integer done; ^ 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_) { ^ 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: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_) { ^ 11 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. clarz.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ clarz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ clarz.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ clarz.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ clarz.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ clarz.c: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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clarzt.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ clarzt.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ clarzt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ clarzt.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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. 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_) { ^ 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_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_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_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_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_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_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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 14 warnings generated. 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_) { ^ 14 warnings generated. 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. 11 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_) { ^ 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) { ^ cpbcon.c:250:cpbequ.c:28213:15:: warning: unused variable 'junk' [-Wunused-variable] warning: unused function 'dpow_ui' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static double dpow_ui(double x, integer n) { ^ cpbequ.c:309cpbcon.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] :23: warning: unused function 'cpow_ui' [-Wunused-function]static float spow_ui(float x, integer n) { ^ static _Complex float cpow_ui(_Complex float x, integer n) { ^ cpbcon.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] cpbequ.c:337:24: warning: static double dpow_ui(double x, integer n) {unused function 'zpow_ui' [-Wunused-function] ^ cpbcon.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { static _Complex float cpow_ui(_Complex float x, integer n) { ^ cpbcon.c: ^337: 24cpbequ.c::350 :warning: 16:unused function 'zpow_ui' [-Wunused-function] 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) { ^ ^ cpbequ.ccpbcon.c:350:16::367:16: warning: warning: unused function 'pow_ii' [-Wunused-function]unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) static integer pow_ii(integer x, integer n) { ^ ^ cpbequ.c:cpbcon.c374:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] :16static integer dmaxloc_(double *w, integer s, integer e, integer *n) : warning: unused function 'smaxloc_' [-Wunused-function] ^ static integer smaxloc_(float *w, integer s, integer e, integer *n) ^cpbcon.c cpbequ.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] :374:16: warning: unused function 'smaxloc_' [-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 integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cpbcon.c:381:20: 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]warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotu_(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_) { ^ cpbcon.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] ^ cpbequ.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_) { ^ cpbcon.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_) { ^ 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. 12 warnings generated. 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_) { ^ 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. 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. 12 warnings generated. 10 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. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 10 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 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_) { ^ cpotri.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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. 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] 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_) { ^ 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_) { ^ 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) ^ cpstf2.c:803: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: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_) { ^ 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:412:20: warning: unused function 'zdotc_' [-Wunused-function] 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_) { ^ 12 warnings generated. 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. 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_) { cpprfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] ^ cppsv.c:474:20: warning: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";unused function 'zdotu_' [-Wunused-function] ^ cpprfs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {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. 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_) { ^ 14 warnings generated. 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_) { ^ 11 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_) { ^ 12 warnings generated. 12 warnings generated. 12 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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] 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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 && ^ ( 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) { ^ ( ) 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_) { ^ 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. 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_) { ^ 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. 13 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_) { ^ 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. 12 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_) { ^ 12 warnings generated. 12 warnings generated. 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:csrscl.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 14:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ csrscl.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] warning: static float spow_ui(float x, integer n) { ^ csrscl.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] unused function 'spow_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 float spow_ui(float x, integer n) {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] ^static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ csrscl.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ csrscl.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] csptrs.c: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] 282: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] 15: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] 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) { ^ 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)) { ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ cstedc.c:836:18: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses] lrwmin = *n - 1 << 1; ~~~^~~ ~~ cstedc.c:836:18: note: place parentheses around the '-' expression to silence this warning lrwmin = *n - 1 << 1; ^ ( ) 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 12 warnings generated. 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. 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. cstein.c: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: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)) { ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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)13 warnings generated. ^ 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_) { ^ 20 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 12 warnings generated. 13 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_) { ^ 12 warnings generated. 13 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_) { ^ 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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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. 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. 11 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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] csytrs_3.c:250:13static _Complex double zpow_ui(_Complex double x, integer n) {: warning: unused variable 'junk' [-Wunused-variable] ^ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ csytrf_aa.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] csytrs_3.cstatic integer pow_ii(integer x, integer n) {: ^270 :14: warning: csytrf_aa.cunused function 'spow_ui' [-Wunused-function]: 367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static float spow_ui(float x, integer n) { ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ csytrs_3.ccsytrf_aa.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] :282:static integer smaxloc_(float *w, integer s, integer e, integer *n)15 : ^ warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ csytrf_aa.c:381:csytrs_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 20:static _Complex float cpow_ui(_Complex float x, integer n) { warning: ^ unused function 'cdotc_' [-Wunused-function] csytrs_3.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) { ^ csytrf_aa.c:412csytrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] :static integer pow_ii(integer x, integer n) { 20 ^: warning: unused function 'zdotc_' [-Wunused-function]csytrs_3.c :367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ csytrf_aa.c:443static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ csytrs_3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] :20: warning: unused function 'cdotu_' [-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 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 cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ csytrs_3.c:412:20: warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {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_) { ^ 12 warnings generated. 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. 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. 11 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_) { ^ 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. 12 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_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. 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ csytrf_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_) { ^ csytrf_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. csytrs_aa_2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ csytrs_aa_2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ 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_) { ^ 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. 12 warnings generated. 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) ^ 12ctgevc.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] warningstatic inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { s generated. ^ 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_) { ^ 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_) { ^ 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)) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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) { ^ ( ) 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_) { ^ 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_) { ^ 14 warnings generated. 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) { ^ ( ) 12 warnings generated. 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; ^ 14 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 16 warnings generated. 11 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_) { ^ 12 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. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 14 warnings generated. 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_) { ^ 13 warnings generated. 12 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 13 warnings generated. 14 warnings generated. 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_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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) { ^ cung2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cung2r.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cung2r.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 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_) { ^ cung2r.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cung2r.c: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 && ( ^ ( cungbr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cungbr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cungbr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cungbr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cungbr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ cungbr.c:350:16: 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. 12 warnings generated. 10 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_) { ^ 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_) { ^ 14 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. 12 warnings generated. cungtr.c:250: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_) { ^ 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_) { ^ 12 warnings generated. 12 warningcunm2r.cs generated. :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) { ^ ( ) cunm2l.c:756:14: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && notran || ! left && ! notran) { ~~~~~^~~~~~~~~ ~~ cunm2r.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cunm2l.c:756:14:cunm2r.c:270:14: warning: unused function 'spow_ui' [-Wunused-function]note: place parentheses around the '&&' expression to silence this warning if (left && notran || ! left && ! notran) { ^ ( ) cunm2l.c:756:34static float spow_ui(float x, integer n) {: warning: '&&' within '||' [-Wlogical-op-parentheses] ^ cunm2r.c if (left && notran || ! left && ! notran) {: 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) { ^ cunm2l.ccunm2r.c::756337::3424: warning: unused function 'zpow_ui' [-Wunused-function] : note: place parentheses around the '&&' expression to silence this warning static _Complex double zpow_ui(_Complex double x, integer n) { ^ cunm2r.c:350 if (left && notran || ! left && ! notran) {: 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_) { ^ 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] 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 double dpow_ui(double x, integer n) {static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cungtsqr_row.c:309:23: warning: ^ cunm2l.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) { ^ 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] cunm2l.cstatic 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] :412static 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] 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 14 warnings generated. 12 warnings generated. 12 warnings generated. 14 warnings generated. 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) { ^ cunm22.ccunml2.c::250282::1315:: warning: warning: unused variable 'junk' [-Wunused-variable]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 char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cunml2.c:412:cunm22.c:27020: warning: unused function 'zdotc_' [-Wunused-function] :14: warning: unused function 'spow_ui' [-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 float spow_ui(float x, integer n) {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: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_) { ^ 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.ccunmql.c:838:31: warning: '&&' within '||' [-Wlogical-op-parentheses] : if (left && notran || ! left && ! notran) { ~~ ~~~~~~~^~~~~~~~~~~ 836cunmlq.c:838:31: note: place parentheses around the '&&' expression to silence this warning : if (left && notran || ! left && ! notran) { ^ ( ) 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) { ^ ( ) cunmlq.c:250: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) { ^ ( ) 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_) { ^ 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] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cunmr2.c: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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cunmr2.c: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. 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_) { ^ 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) { ^ ( ) 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_) { ^ cunmr3.c:754:31: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*l < 0 || left && *l > *m || ! left && *l > *n) { ~~ ~~~~~^~~~~~~~~~ cunmr3.c:754:31: note: place parentheses around the '&&' expression to silence this warning } else if (*l < 0 || left && *l > *m || ! left && *l > *n) { ^ ( ) 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. 12 warnings generated. 16 warnings generated. 12 warnings generated. 1414 warnings generated. warnings generated. 14 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) { ^ ( ) 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) { ^ cunmrq.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ 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] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cunmrq.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 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_) { ^ 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) { ^ ( ) cunmrz.c:868:11: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && ! notran || ! left && notran) { ~~~~~^~~~~~~~~~~ ~~ 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) { ~~ ~~~~~~~^~~~~~~~~ cunmrz.c:868:33: note: place parentheses around the '&&' expression to silence this warning if (left && ! notran || ! left && notran) { ^ ( ) 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: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ cunmtr.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ cunmtr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cunmtr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cunmtr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cunmtr.c:412: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_) { ^ 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_) { ^ cupgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cupgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cupgtr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cupgtr.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cupgtr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 16 warnings generated. 16 warnings generated. 12 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) { ^ ( ) 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 13 warnings generated. 17 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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: warning: 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) { ^ 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] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ctfttr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ctfttr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ctfttr.c: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; ^ ctpttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ctpttf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ctpttf.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ ctpttf.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ctpttf.c:337:24: warning: 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_) { ^ 12 warningctpttf.c:s 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_) { ^ 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_) { ^ 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. 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_) { ^ 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. 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_) { ^ 13 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_) { ^ 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_) { ^ 13 warnings generated. 11 warnings generated. 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 12 warnings generated. 13 warnings generated. 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_) { ^ 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cunbdb3.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ cunbdb4.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cunbdb4.c:270:14: 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_) { ^ 12 warnings generated. 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 12 warningcuncsd2by1.c:250:13: warning: unused variable 'junk' [-Wunused-variable] s generated. 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. 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_) { ^ 13 warnings generated. cgeqrt2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cgeqrt2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cgeqrt2.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cgeqrt2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cgeqrt2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ cgeqrt2.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ cgeqrt2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cgeqrt2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cgeqrt2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cgeqrt2.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ cgeqrt2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ cgeqrt2.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. 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_) { ^ cgeqrt3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cgeqrt3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static 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) { ^ cgeqrt3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cgeqrt3.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ cgeqrt3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ cgeqrt3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cgeqrt3.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] 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_) { ^ 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. 14 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_) { ^ 13 warnings generated. 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 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] cgelqt3.c:250:13static 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] : 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"; ^ 13 warningcgelqt3.cs generated. :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] cgemlqt.c:727:36:static _Complex float cpow_ui(_Complex float x, integer n) { warning: ^ '&&' within '||' [-Wlogical-op-parentheses] 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 } else if (*mb < 1 || *mb > *k && *k > 0) {: ~~ ~~~~~~~~~^~~~~~~~~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:cgemlqt.c:381727:36: note: place parentheses around the '&&' expression to silence this warning :20: warning: unused function 'cdotc_' [-Wunused-function] } else if (*mb < 1 || *mb > *k && *k > 0) {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_) { ^ 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_) { ^ 12 warnings generated. 13 warnings generated. 13 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 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) { ^ ( ) 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 15 warnings generated. 12 warnings generated. 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. 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:23: 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_) { ^ 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_) { ^ 13 warnings generated. 15 warnings generated. 14 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 13 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_) { ^ 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:760:13: warning: variable 'wantq' set but not used [-Wunused-but-set-variable] logical wantq, upper; ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 13 warnings generated. 12 warnings generated. 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; ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 13 warnings generated. 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_) { ^ 13 warnings generated. 16 warnings generated. 12 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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. 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_) { ^ 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) { ^ ( ) 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_) { ^ 13 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 12 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) { ^ ( ) 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_) { ^ 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. 12 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. 15 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_) { ^ 12 warnings generated. 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_) { ^ 18 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ zgeequ.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static 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_) { ^ 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. 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) { ^ ( ) 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 && ! ^ ( 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__]); ^ zgeesx.c:856:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvs < 1 || wantvs && *ldvs < *n) { ~~ ~~~~~~~^~~~~~~~~~~~~ zgeesx.c:856:36: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvs < 1 || wantvs && *ldvs < *n) { ^ ( ) zgeev.c:801:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvl < 1 || wantvl && *ldvl < *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__]); ^ zgeev.c:801:36: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvl < 1 || wantvl && *ldvl < *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) { ^ ( ) 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: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_) { ^ 14 warnings generated. 12 warnings generated. 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] } else if (*ldvr < 1 || wantvr && *ldvr < *n) { ~~ ~~~~~~~^~~~~~~~~~~~~ zgeevx.c:930:36: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvr < 1 || wantvr && *ldvr < *n) { ^ ( ) 15 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 14 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:zgelq2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] warning: unused function 'cdotc_' [-Wunused-function] 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) { ^static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zgelqf.c zgelq2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] :412:20: warning: unused function 'zdotc_' [-Wunused-function]static _Complex float cpow_ui(_Complex float x, integer n) { ^ zgelq2.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_) { ^ zgelqf.cstatic _Complex double zpow_ui(_Complex double x, integer n) {: 443 ^: 20: warning: unused function 'cdotu_' [-Wunused-function] zgelq2.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) { ^ ^ zgelq2.czgelqf.c::367474::2016: warning: unused function 'zdotu_' [-Wunused-function] : warning: static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 12 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_) { ^ 12 warnings generated. 12 warnings generated. 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] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zgelsd.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ zgelsd.c: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:710:56: warning: variable 'lwork_zgeqrf__' set but not used [-Wunused-but-set-variable] integer itau, lwork_zgebrd__, lwork_zgelqf__, i__, lwork_zgeqrf__, ^ zgelss.c:712:13: warning: variable 'lwork_zunmqr__' set but not used [-Wunused-but-set-variable] chunk, lwork_zunmqr__; ^ 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_) { ^ 12 warnings generated. 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_) { ^ 15 warnings generated. 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. 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_) { 12 warning ^s generated. 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_) { ^ 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_) { ^ 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. 14 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 16 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. 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_) { ^ 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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ zgesc2.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] 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) { ^ zgesc2.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zgesc2.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ zgesc2.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ zgesc2.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zgesc2.c: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 < * ~~ ~~~~~~~^~~~~~~~~~~~ zgesdd.c:884:35: note: place parentheses around the '&&' expression to silence this warning } else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < * ^ ( ) zgesdd.c:884:68: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < * ~~ ~~~~~~~~~~~~~~~~~^~~~~~~~~~~ zgesdd.c:884:68: note: place parentheses around the '&&' expression to silence this warning } else if (*ldu < 1 || wntqas && *ldu < *m || wntqo && *m < *n && *ldu < * ^ ( zgesvd.czgesdd.c:887:35: warning: '&&' within '||' [-Wlogical-op-parentheses] : } else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn || ~~ ~~~~~~^~~~~~~~~~~~~ 853:62zgesdd.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:warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { ~~ ~~~~~~^~~~~~~~ 887:58: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn || ~~ ~~~~~~^~~~~~~~~~~~~~~~ zgesvd.c:853:62: note: place parentheses around the '&&' expression to silence this warning } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { ^ ( ) zgesdd.c:887:58: note: zgesvd.c:861:35: warning: '&&' within '||' [-Wlogical-op-parentheses] place parentheses around the '&&' expression to silence this warning } else if (*ldu < 1 || wntuas && *ldu < *m) { ~~ ~~~~~~~^~~~~~~~~~~~ } else if (*ldvt < 1 || wntqa && *ldvt < *n || wntqs && *ldvt < minmn || ^ ( ) zgesvd.c:861zgesdd.c:888:24: warning: '&&' within '||' [-Wlogical-op-parentheses] : wntqo && *m >= *n && *ldvt < *n) { ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~ zgesdd.c:888:24: note: place parentheses around the '&&' expression to silence this warning wntqo && *m >= *n && *ldvt < *n) { ^ ( ) 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) { ^ ( ) 12 warnings generated. 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_) { ^ zgesvd.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zgesvd.c:270:14: 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) { ^ zgesvd.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 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_) { ^ 12 warnings generated. 12 warnings generated. zgesvdx.c:828:24: warning: variable 'abstol' set but not used [-Wunused-but-set-variable] doublereal bignum, abstol; ^ zgesvj.c:1008:22: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (rsvec && *ldv < *n || applv && *ldv < *mv) { ~~~~~~^~~~~~~~~~~~ ~~ zgesvj.c:1008:22: note: place parentheses around the '&&' expression to silence this warning } 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) { ^ ( ) 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) { ^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) ^ 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zgesvdx.c: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: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 / ^ ( 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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zgesvj.c:374:16: 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] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zgesvj.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] 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_) { ^ zgejsv.c:1251:26: warning: '&&' within '||' [-Wlogical-op-parentheses] jobu, "W") && rsvec && l2tran)) { ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~ 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)) { ^ ) 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 < ^ ( ) 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 || ^ ( ) zgejsv.c:3362:14: warning: '&&' within '||' [-Wlogical-op-parentheses] if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 || p < ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~ zgejsv.c:3362:14: note: place parentheses around the '&&' expression to silence this warning if (p > q && z_abs(&v[p + q * v_dim1]) <= temp1 || p < ^ ( ) 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: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) { ^ ( ) 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) { ^ ( ) 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: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_) { ^ 12 warnings generated. 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. 12 warnings generated. 13 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_) { ^ 12 warnings generated. 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_) { ^ 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) { ^ ( ) 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_) { ^ 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_) { ^ 16 warnings generated. 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) { ~~ ~~~~~^~~~~~~~~~~~~ 16 warnings generated. 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_) { ^ zggev3.c:877:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvl < 1 || ilvl && *ldvl < *n) { ~~ ~~~~~^~~~~~~~~~~~~ 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_) { ^ 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_) { ^ 17 warnings generated. 16 warnings generated. 14 warnings generated. 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_) { ^ 14 warnings generated. 12 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) { ^ ( ) 14 warnings generated. 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_) { ^ 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; ^ ( ) 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_) { ^ 11 warnings generated. 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_) { ^ 14 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 15 warnings generated. 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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. 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_) { ^ 15 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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) { ^ ( ) 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) { ^ ( ) 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:zhbev.c:250:13: warning: unused variable 'junk' [-Wunused-variable] warning: unused function 'cdotu_' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zhbev.c:270:14: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { warning: ^ zhbevd.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] unused function 'spow_ui' [-Wunused-function]static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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. 13 warnings generated. 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)) { ~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 12 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 13 warnings generated. 22 warnings generated. 13 warnings generated. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 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_) { ^ zheevr.c:1025:24: warning: '&&' within '||' [-Wlogical-op-parentheses] if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ zheevr.c:1025:24: note: place parentheses around the '&&' expression to silence this warning if (*ldz < 1 || wantz && *ldz < *n) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 13 warnings generated. zheevx.c:903:24: warning: '&&' within '||' [-Wlogical-op-parentheses] if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ zheevx.c:903: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_) { ^ 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) { ^ zhegst.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 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_) { ^ 12 warnings generated. 13 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 16 warnings generated. 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_) { ^ zherfs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zherfs.c:270:14: 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_) { ^ 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_) { ^ 13 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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] static 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_) { ^ 12 warnings generated. 12 warnings 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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. 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.czhetri_rook.c:374:16: :warning: 250unused function 'smaxloc_' [-Wunused-function]: 13: warning: unused variable 'junk' [-Wunused-variable] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";zhetrs_rook.c : ^381 :20: warning: unused function 'cdotc_' [-Wunused-function]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 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) { ^ zhetrs_rook.czhetri_rook.c::337412:20: warning: :unused function 'zdotc_' [-Wunused-function] 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) { ^ zhetrs_rook.c:443:20:zhetri_rook.c warning: unused function 'cdotu_' [-Wunused-function] :350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zhetri_rook.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ :367zhetrs_rook.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 '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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 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) { ^ zhetrs_3.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zhetrs_3.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zhetrs_3.c:374:16: warning: unused function 'smaxloc_' [-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:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ zhecon_3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zhecon_3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zhecon_3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ zhecon_3.c:309:23: warning: 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_) { ^ 11 warnings generated. 12 warnings generated. 12 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. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 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. 11 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_) { ^ 13 warnings generated. 12 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 11 warnings generated. 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_) { ^ 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. 11 warnings generated. 14 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. 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_) { ^ 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_) { ^ 13 warnings generated. 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. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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] zlaesy.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_) { ^ zlaev2.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";: 474 ^ :20: warning: unused function 'zdotu_' [-Wunused-function] zlaesy.c:270:14: static 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) { ^ 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_) { ^ 12 warnings generated. 11 warnings generated. 12 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_) { ^ 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: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) { ^ ( ) 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_) { ^ zlahef.c: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_) { ^ 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_) { ^ 15 warnings generated. 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_) { ^ 12 warnings generated. 11 warnings generated. 14 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_) { ^ 12 warnings generated. 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. 14 warnings generated. 11 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 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] 13 warningstatic 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] s generatedstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ . 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_) { ^ 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 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")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 13 warningszlanhb.c generated: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. 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; ^~~~~ zlanhe.c:772:12: note: remove the 'if' if its condition is always true } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ zlanhe.c:653:21: note: initialize the variable 'value' to silence this warning doublereal value; ^ = 0.0 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_) { ^ 13 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 zlanhp.c:772:16: warning: variable 'value' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized] zlanhs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ } else if (lsame_(norm, "F") || lsame_(norm, "E")) { ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ zlanhp.c:843:15: note: uninitialized use occurs here zlanhs.c ret_val = value; ^~~~~ :270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zlanhs.c:282:zlanhp.c:772:12: note: remove the 'if' if its condition is always true 15 } else if (lsame_(norm, "F") || lsame_(norm, "E")) {: 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:zlanhp.c:646:21: note: initialize the variable 'value' to silence this warning 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) { doublereal value; ^ = 0.0 ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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 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_) { ^ 13 warnings generated. 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 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 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_) { ^ zlantp.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zlantp.c:270: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:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ zlantp.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ zlantp.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zlantp.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 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_) { ^ 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 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) ^ zlantr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ zlantr.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zlantr.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ zlantr.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zlantr.c: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. 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_) { ^ 13 warnings generated. 13 warnings generated. 11 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_) { ^ 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. 17 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. zlaqhp.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zlaqhp.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zlaqhp.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ zlaqhp.c:309: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_) { ^ 12 warnings generated. 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] 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 inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zlaqp2.c:474:20: warning: 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. 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_) { ^ 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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 12 warnings generated. 12 warnings generated. 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.) { ^ ( ) 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: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.) { ^ ( ) 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_) { ^ 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( ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 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); ~~~~^~~ ~~ zlaqr5.c:965:20: note: place parentheses around the '-' expression to silence this warning k = krcol + (m22 - 1 << 1); ^ ( ) 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); ^ ( ) 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_) { ^ zlaqsp.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zlaqsp.c:270:14: 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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 13 warnings generated. 13 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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] 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. 12 warnings generated. 12 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_) { ^ 12 warnings generated. 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_) { ^ zlarcm.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zlarcm.c:270: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_) { ^ 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] static double dpow_ui(double x, integer n) { ^ zlarf.c: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 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] 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] 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_) { ^ 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_) { ^ zlarfb_gett.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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. 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_) { ^ 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_) { ^ 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. 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_) { ^ 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_) { ^ 11 warnings generated. 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_) { ^ 12 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 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) { ^ ( ) 13 warnings generated. 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_) { ^ 20 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_) { ^ 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_) { ^ 12 warnings generated. 12 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_) { ^ 11 warnings generated. 14 warnings generated. 14 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_) { ^ 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) { ^ 14 warnings generated. 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_) { ^ 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_) { ^ 11 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 10 warnings generated. 12 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_) { ^ 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_) { ^ 10 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 10 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 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_) { ^ 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) {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.czpotri.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::282:374:16: warning: unused function 'smaxloc_' [-Wunused-function] 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.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n): 337: ^24 : warning: unused function 'zpow_ui' [-Wunused-function]zpotri.c:381:20 : warning: unused function 'cdotc_' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) {static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ^ zpotri.c:zpotrs.c:412350: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] 20static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zpotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] : warning: unused function 'zdotc_' [-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_) { ^ zpotri.czpotrs.c::381:443:20:20 warning: :unused function 'cdotu_' [-Wunused-function] warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zpotri.c:474:20: warning: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zpotrs.cunused function 'zdotu_' [-Wunused-function]: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_) { ^ 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. 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:350zppequ.c::250:13: warning: unused variable 'junk' [-Wunused-variable] 16:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zppequ.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] warning: static float spow_ui(float x, integer n) { ^ zppequ.c:282:15unused 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) warning: ^ zppcon.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) ^ 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 double dpow_ui(double x, integer n) {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] zppequ.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ :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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 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) { ^11 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 11 warnings generated. 12 warnings generated. 11 warnings generated12 warnings generated. . 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_) { ^ 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_) { ^ 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_) { ^ 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. 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_) { ^ zpttrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static 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. 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_) { ^ 13 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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. 12 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_) { ^ 12 warnings generated. 12 warnings generated. 13 warnings generated. 13 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ zstedc.c:366:16: 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] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ zstedc.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_) { ^ zstedc.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_) { ^ zstedc.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_) { ^ 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_) { ^ zstegr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zstegr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zstegr.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] 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] static 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] 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] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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_) { ^ 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. 13 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)) { ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 11 warnings generated. 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_) { ^ zsycon.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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_) { ^ 12 warnings generated. 20 warnings generated. 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. && ^ ( 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_) { ^ 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.) { ^ ( ) 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 13 warnings generated. zsysv.c:zsysvx.c:250:25013:13: warning: unused variable 'junk' [-Wunused-variable] :static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: unused variable 'junk' [-Wunused-variable] zsysvx.c:270:14:static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: unused function 'spow_ui' [-Wunused-function] zsysv.c:static float spow_ui(float x, integer n) {270 : ^14 : warning: unused function 'spow_ui' [-Wunused-function] zsysvx.c:282:15: warning: static float spow_ui(float x, integer n) {unused function 'dpow_ui' [-Wunused-function] ^ zsysv.c:282:15static double dpow_ui(double x, integer n) {: ^ zsysvx.c:warning: unused function 'dpow_ui' [-Wunused-function] 309:23: warning: unused function 'cpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ static _Complex float cpow_ui(_Complex float x, integer n) {zsysv.c : ^309 :23:zsysvx.c :warning: unused function 'cpow_ui' [-Wunused-function] 337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) {static _Complex float cpow_ui(_Complex float x, integer n) { ^ ^ zsysvx.c:350:16zsysv.c:: 337warning: :24: unused function 'pow_ii' [-Wunused-function]warning: unused function 'zpow_ui' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ static _Complex double zpow_ui(_Complex double x, integer n) { ^zsysvx.c :367zsysv.c:350:16:: warning: unused function 'pow_ii' [-Wunused-function]16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zsysv.c:367:16: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]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_) { 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_) {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_) { ^ zsysv.c:443zsysvx.c::20474:: 20warning: 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] 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_) { ^ 12 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_) { ^ 13 warnings generated. 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. 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_) { ^ 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_) { ^ 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. 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_) { ^ 12 warnings generated. 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_) { ^ 11 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_) { ^ 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. 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_) { ^ 12 warnings generated. 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_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_) { ^ 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_) { ^ 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. 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. 12 warnings generated. 11 warnings generated. 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_) { ^ 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. 12 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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. 12 warnings generated. 12 warnings generated. 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. 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_) { ^ zsycon_3.c:250:13:zsysv_rk.c warning: unused variable 'junk' [-Wunused-variable] :443static 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) { ^ 20zsycon_3.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ zsycon_3.c:: 337warning: unused function 'cdotu_' [-Wunused-function] :24: warning: unused function 'zpow_ui' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {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:zsysv_rk.c:16: warning: unused function 'smaxloc_' [-Wunused-function] 474static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ zsycon_3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] :20static 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] warning: unused function 'zdotu_' [-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_) { ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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)) { ~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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: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) { ^ ( ) 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] ztgsja.c:1005:34: warning: static _Complex double zpow_ui(_Complex double x, integer n) { ^ ztgsen.c:350'&&' within '||' [-Wlogical-op-parentheses] :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] } else if (*ldu < 1 || wantu && *ldu < *m) { 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_) { ^ 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.; ^ 14 warnings generated. 12 warnings generated. 14 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_) { ^ 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_) { ^ 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_) { ^ 11 warnings generated. 16 warnings generated. 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. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. ztrevc.c:834:35: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvl < 1 || leftv && *ldvl < *n) { ~~ ~~~~~~^~~~~~~~~~~~~ ztrevc.cztrevc3.c:891:35: warning: '&&' within '||' [-Wlogical-op-parentheses] :834 } else if (*ldvl < 1 || leftv && *ldvl < *n) { ~~ ~~~~~~^~~~~~~~~~~~~ :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) { ^ ( ) 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. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 14 warnings generated. 13 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) { ^ ( ) 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] ztrsna.cstatic double dpow_ui(double x, integer n) { ^:874:35: warning: '&&' within '||' [-Wlogical-op-parentheses] ztrrfs.c } else if (*ldvl < 1 || wants && *ldvl < *n) { ~~ ~~~~~~^~~~~~~~~~~~~ :309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ztrrfs.c: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] 337:24: } else if (*ldwork < 1 || wantsp && *ldwork < *n) { ~~ ~~~~~~~^~~~~~~~~~~~~~~ warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) {ztrsna.c : ^ 880:38: note: place parentheses around the '&&' expression to silence this warning ztrrfs.c } else if (*ldwork < 1 || wantsp && *ldwork < *n) {: 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_) { ^ 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: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_) { ^ 13 warnings generated. 12 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_) { ^ 14 warnings generated. 14 warnings generated. 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_) { ^ 12 warnings generated. 14 warnings generated. zung2r.c:250:zung2l.c:13250:13:: warning: unused variable 'junk' [-Wunused-variable] warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zung2r.cstatic char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";: 270 ^: 14: warning: unused function 'spow_ui' [-Wunused-function] zung2l.c:270:static float spow_ui(float x, integer n) {14 : ^ zung2r.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] warning: static double dpow_ui(double x, integer n) { unused function 'spow_ui' [-Wunused-function] ^ static float spow_ui(float x, integer n) {zung2r.c : ^309 :23: warning: unused function 'cpow_ui' [-Wunused-function] zung2l.cstatic _Complex float cpow_ui(_Complex float x, integer n) { : ^282:15: warning: unused function 'dpow_ui' [-Wunused-function] zung2r.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ zung2l.c:309static _Complex double zpow_ui(_Complex double x, integer n) {: 23 ^: warning: unused function 'cpow_ui' [-Wunused-function] zung2r.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) { ^ ^ zung2r.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] zung2l.c:337static integer dmaxloc_(double *w, integer s, integer e, integer *n): 24 ^: warning: unused function 'zpow_ui' [-Wunused-function] zung2r.c:374:16: warning: 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) ^ ^ zung2r.czung2l.c::381350:16: warning: unused function 'pow_ii' [-Wunused-function] :20: warning: unused function 'cdotc_' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zung2l.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_) { ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) zung2r.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] ^ zung2l.c:374:16: warning: static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {unused function 'smaxloc_' [-Wunused-function] ^ zung2r.c:443:20: warning: unused function 'cdotu_' [-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 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 cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ zung2l.cstatic inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ :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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 10 warnings generated. 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_) { ^ 12 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_) { ^ 14 warnings generated. 12 warnings generated. zungql.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 12 warningzungql.cs generated. :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] 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) { ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { 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_) { ^ 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. 12 warnings generated. 12 warnings generated. 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. 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) { ^ zungtsqr_row.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ zungtsqr_row.c:309:23: warning: unused function 'cpow_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 integer pow_ii(integer x, integer n) { ^ zungtsqr_row.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zungtsqr_row.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ zungtsqr_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_) { ^ zungtsqr_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_) { ^ zungtsqr_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_) { ^ zungtsqr_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. 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) { ^ ( ) 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) { ^ ( ) zunm2l.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zunm2l.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zunm2l.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ zunm2l.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ zunm2l.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ zunm2l.c:350:16: 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 integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zunm2l.c:374:16: warning: unused function 'smaxloc_' [-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 cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ 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: 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_) { ^ 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_) { ^ 12 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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 14 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 14 warnings generated. 14 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_) { ^ 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) { ^ ( ) 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) { ^ ( ) 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) { ^ ( ) 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: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:zunmr2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: unused function 'dmaxloc_' [-Wunused-function] zunmr2.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zunmqr.c:static float spow_ui(float x, integer n) {374 : ^16 : warning: zunmr2.cunused function 'smaxloc_' [-Wunused-function]: 282:15: warning: 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) { zunmqr.c:381: ^ 20: warning: zunmr2.cunused function 'cdotc_' [-Wunused-function]: 309:23: 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_) {zunmr2.c : ^337 :24: warning: unused function 'zpow_ui' [-Wunused-function] zunmqr.c:412:20: warning: unused function 'zdotc_' [-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) {static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ^ zunmqr.c:443: zunmr2.c:367:16: 20: warning: unused function 'cdotu_' [-Wunused-function] warning: unused function 'dmaxloc_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) zunmqr.c ^: 474:20zunmr2.c:374:16: : 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 '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_) { ^ 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_) { ^ 14 warnings generated. 16 warnings generated. 12 warnings generated. 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_) { ^ 14 warnings generated. 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. 14 warnings generated. zunmtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zunmtr.czupgtr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] :270static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zupgtr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ zupgtr.c:282:15::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] warning: unused function 'dpow_ui' [-Wunused-function] 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 inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 14 warnings generated. 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_) { ^ 12 warnings generated. zstemr.c:1002:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ dzsum1.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ zstemr.c:1002dzsum1.c::27034::14 :note: place parentheses around the '&&' expression to silence this warningwarning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { } else if (*ldz < 1 || wantz && *ldz < *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_) { ^ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 16 warnings generated. 12 warnings generated. 16 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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; ^ 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. 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 doublereal value; ^ = 0.0 12 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 1212 warnings generated. warnings generated. 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; ^ ztpttf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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) { ^ 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.c:350:16: warning: 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] static 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] static 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_) { ^ ztpttr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ztpttr.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ztpttr.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] static _Complex float cpow_ui(_Complex float x, integer n) { ^ ztpttr.c:337: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_) { ^ 11 warnings generated. 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. 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. 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_) { ^ 13 warnings generated. 11 warnings generated. 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_) { ^ 12 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_) { ^ 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. 12 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_) { ^ 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] 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. 12 warnings generated. 13 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_) { ^ 12 warnings generated. 12 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_) { ^ 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. 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_) { ^ 12 warnings generated. 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_) { ^ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 12 warnings generated. 14 warnings generated. 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_) { ^ 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. ztpmlqt.c:800:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*mb < 1 || *mb > *k && *k > 0) { ~~ ~~~~~~~~~^~~~~~~~~ ztprfb.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ztprfb.c:270:14ztpmlqt.c:: 800warning: :36unused function 'spow_ui' [-Wunused-function]: note: place parentheses around the '&&' expression to silence this warning } else if (*mb < 1 || *mb > *k && *k > 0) { ^ ( ) 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] ztplqt.c:749:45: warning: '&&' within '||' [-Wlogical-op-parentheses] static integer smaxloc_(float *w, integer s, integer e, integer *n) } else if (*l < 0 || *l > f2cmin(*m,*n) && f2cmin(*m,*n) >= 0) { ~~ ~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ ^ 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_) { 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) { ^ ( ) ztprfb.c:412ztplqt.c:751::36: warning: '&&' within '||' [-Wlogical-op-parentheses] 20: warning: unused function 'zdotc_' [-Wunused-function] } else if (*mb < 1 || *mb > *m && *m > 0) { ~~ ~~~~~~~~~^~~~~~~~~ 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] ztplqt.c:751:36: note: 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] place parentheses around the '&&' expression to silence this warning } else if (*mb < 1 || *mb > *m && *m > 0) { ^ ( ) static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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] ztplqt.c:250:13: static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ ztpmlqt.c:warning: unused variable 'junk' [-Wunused-variable] 381:20: warning: unused function 'cdotc_' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ztplqt.c:270:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {14 ^ 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_) { warning: ^unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ ztplqt.c:282:ztpmlqt.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] 15:static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ztpmlqt.c:474 warning: unused function 'dpow_ui' [-Wunused-function] :20static double dpow_ui(double x, integer n) { ^ ztplqt.c:309:23:: warning: unused function 'zdotu_' [-Wunused-function] 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) { ^ 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. 12 warnings generated. 13 warnings generated. zgelqt.c:694:47: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*mb < 1 || *mb > f2cmin(*m,*n) && f2cmin(*m,*n) > 0) { ~~ ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~ zgelqt.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) { ^ ( ) 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ zgemlqt.c:746:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*mb < 1 || *mb > *k && *k > 0) { ~~ ~~~~~~~~~^~~~~~~~~ zgemlqt.c:zgetsls.c:722:13: warning: variable 'mnk' set but not used [-Wunused-but-set-variable] integer mnk; ^ 746:36: note: place parentheses around the '&&' expression to silence this warning } else if (*mb < 1 || *mb > *k && *k > 0) { ^ ( ) 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 13 warnings generated. zlatsqr.c:726:36: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*nb < 1 || *nb > *n && *n > 0) { ~~ ~~~~~~~~~^~~~~~~~~ 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:282zlatsqr.c:726:36::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] note: place parentheses around the '&&' expression to silence this warning static _Complex float cpow_ui(_Complex float x, integer n) { ^ } else if (*nb < 1 || *nb > *n && *n > 0) { ^ ( )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: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_) { ^ 15 warnings generated. 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) { ^ ( ) 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_) { ^ 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; ^ 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_) { ^ 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. 12 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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; ^ zhb2st_kernels.c:697:29: warning: variable 'ajeter' set but not used [-Wunused-but-set-variable] integer j1, j2, lm, ln, ajeter; ^ zhetrd_hb2st.c:250zhb2st_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]13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";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) {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.czhb2st_kernels.c::350:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 16static _Complex float cpow_ui(_Complex float x, integer n) { ^ zhb2st_kernels.c: warning: unused function 'pow_ii' [-Wunused-function] :static integer pow_ii(integer x, integer n) { ^337 :zhetrd_hb2st.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function]24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zhetrd_hb2st.czhb2st_kernels.c:350:16:374::16 :warning: unused function 'pow_ii' [-Wunused-function] warning: unused function 'smaxloc_' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ zhb2st_kernels.c:367:16static integer smaxloc_(float *w, integer s, integer e, integer *n): ^ warning: unused function 'dmaxloc_' [-Wunused-function]zhetrd_hb2st.c :381:20: warning: unused function 'cdotc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ zhb2st_kernels.c:374:16static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {: ^ warning: zhetrd_hb2st.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_) { ^ 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 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 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 13 warnings generated. 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) { ^ ( ) 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_) { ^ 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_) { ^ 12 warnings generated. 12 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_) { ^ 13 warnings generated. 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_) { ^ 13 warnings generated. 16 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 13 warnings generated. 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) { ^ ( ) 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) { ^ ( ) 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: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ clag2z.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ clag2z.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clag2z.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ clag2z.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ clag2z.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ clag2z.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 13 warnings generated. cpotrs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ cpotrs.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ cpotrs.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ cpotrs.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ cpotrs.c:337:24: warning: unused function 'zpow_ui' [-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) { ^ cpotrs.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ cpotrs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ cpotrs.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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:23: 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_) { ^ 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_) { ^ sbdsdc.c:828:40: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldu < 1 || icompq == 2 && *ldu < *n) { ~~ ~~~~~~~~~~~~^~~~~~~~~~~~ sbdsdc.c:828:40: note: place parentheses around the '&&' expression to silence this warning } else if (*ldu < 1 || icompq == 2 && *ldu < *n) { ^ ( ) sbdsdc.c:830:41: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) { ~~ ~~~~~~~~~~~~^~~~~~~~~~~~~ sbdsdc.c:830:41: note: place parentheses around the '&&' expression to silence this warning } else if (*ldvt < 1 || icompq == 2 && *ldvt < *n) { ^ ( ) 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: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 } else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) { ^ ( ) sbdsqr.c:853:53: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*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)) { ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~ 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) { ^ ( ) 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_) { ^ 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_) { ^ 13 warnings generated. 14 warnings generated. 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 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. 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_) { ^ 12 warnings generated. 13 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: warning: unused function 'zdotc_' [-Wunused-function] static 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slaed0.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ slaed1.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ slaed1.c:270:14: 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_) { ^ 18 warnings generated. 12 warnings generated. 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) { ^~~~~~~~~~~~~~ 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_) { ^ 15 warnings generated. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 12 warnings generated. 13 warnings generated. 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:35011 warnings generated. :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_) { ^ 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_) { ^ 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_) { ^ slaed9.c: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:756: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; ^~~~~ slaeda.c:350:31: note: 15passing argument to parameter 'x' here warnings generated. 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) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 23 warnings generated. 12 warnings generated. 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.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ slamrg.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ slamrg.c: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_) { ^ 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 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_) { ^ 12 warnings generated. 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_) { ^ 13 warnings generated. 12 warnings generated. 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_) { ^ 12 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_) { ^ 12 warnings generated. 16 warnings generated. 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_) { ^ 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.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ slarrc.c:381: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] static 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:474:20: warning: 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) { ^ ( ) slarre.c:1037:58: warning: '&&' within '||' [-Wlogical-op-parentheses] if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin] ~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~ slarre.c:1037:58: note: place parentheses around the '&&' expression to silence this warning if (irange == 1 || irange == 3 && d__[ibegin] > *vl && d__[ibegin] ^ ( slarrd.cslarre.c:1038:30: warning: '&&' within '||' [-Wlogical-op-parentheses] : <= *vu || irange == 2 && iblock[wbegin] == jblk) { ~~ ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~ slarre.c:1038:30: note: place parentheses around the '&&' expression to silence this warning <= *vu || irange == 2 && iblock[wbegin] == jblk) { ^ ( ) 971:49: warning: '&&' within '||' [-Wlogical-op-parentheses] if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu || ~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~ slarrd.c:971:49: 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:1117:18: warning: '&&' within '||' [-Wlogical-op-parentheses] ^ if (irange == 1 && ! forceb || usedqd) { ( ) ~~~~~~~~~~~~^~~~~~~~~~~ ~~ slarre.c:1117:18: note: place parentheses around the '&&' expression to silence this warning if (irange == 1 && ! forceb || usedqd) { ^ ( ) slarrd.c:1100:53: warning: '&&' within '||' [-Wlogical-op-parentheses] if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[ ~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~ slarrd.c:1100:53: note: place parentheses around the '&&' expression to silence this warning if (irange == 1 || *wl < d__[ibegin] - *pivmin && *wu >= d__[ ^ ( 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) { ^ ( ) 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:slarre.c:250:13:15: warning: unused function 'dpow_ui' [-Wunused-function] warning: unused variable 'junk' [-Wunused-variable] static double dpow_ui(double x, integer n) { ^ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";slarrd.c : ^ 309:23slarre.c:270: warning: :unused function 'cpow_ui' [-Wunused-function] 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 _Complex float cpow_ui(_Complex float x, integer n) { static double dpow_ui(double x, integer n) { ^ ^ slarrd.c:337:24slarre.c: warning: unused function 'zpow_ui' [-Wunused-function] :309:static _Complex double zpow_ui(_Complex double x, integer n) {23 : ^ warning: unused function 'cpow_ui' [-Wunused-function] slarrd.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) { ^ slarre.c:337slarrd.c::367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { static integer dmaxloc_(double *w, integer s, integer e, 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] slarrd.c:static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^374: 16: warning: unused function 'smaxloc_' [-Wunused-function] slarre.c:412:20: warning: unused function 'zdotc_' [-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:20static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ :slarre.c: 443warning: unused function 'zdotc_' [-Wunused-function] :20: warning: unused function 'cdotu_' [-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_) { ^ slarre.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_) { ^ 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_) {static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ^ slarrf.c:860:39: warning: '&&' within '||' [-Wlogical-op-parentheses] 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) { ^ ( ) 12 warnings generated. 12 warnings generated. 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_) { ^ 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. 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_) { ^ 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_) { ^ 14 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 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) { ~~ ~~~~~~~~~~~^~~~~~~~~~~ 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) { ^ slascl.c:722:63: note: place parentheses around the '&&' expression to silence this warning 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) { ^ } 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. 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_) { ^ 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_) { ^ 11 warnings generated. 12 warnings generated. 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_) { ^ 12 warnings generated. 17 warnings generated. 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_) { ^ 13 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] slasd6.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_) { ^ slasd5.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ slasd6.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {static float spow_ui(float x, integer n) { ^ ^ slasd6.cslasd5.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] :static double dpow_ui(double x, integer n) {474 :20: ^ warning: unused function 'zdotu_' [-Wunused-function] slasd6.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { 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. 18 warnings generated. 12 warnings generated. 17 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_) { ^ 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:350slasdq.c:803:27: warning: '&&' within '||' [-Wlogical-op-parentheses] :42: } else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*n)) { ~~~~~~~~~~~^~~~~~~~~~~~ ~~ note: passing argument to parameter 'n' here static integer pow_ii(integer x, integer 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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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: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_) { ^ 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_) { ^ 13 warnings generated. 16 warnings generated. 12 warnings generated. 13 warnings generated. 12 warnings generated. 15 warnings generated. 12 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_) { ^ 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; ^ ( ) 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_) { ^ 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; ^ ( ) slasq3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ slasq3.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ slasq3.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] 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_) { ^ 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 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) ^ slasq4.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slasq4.c:412: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:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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; ^ ( ) slasq6.c:670:slasq5.c:753:14: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses] i__1 = *n0 - 3 << 2;13 ~~~~^~~ ~~: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses] slasq5.c:753: i__1 = *n0 - 3 << 2;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; ~~~~^~~ ~~ slasq6.c:670:13: note: place parentheses around the '-' expression to silence this warning slasq5.c: i__1 = *n0 - 3 << 2;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; ~~~~^~~ ~~ slasq6.c:694:13: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses] i__1 = *n0 - 3 << 2; ~~~~^~~ ~~ slasq5.c:790:16: note: place parentheses around the '-' expression to silence this warning j4 = (*n0 - 2 << 2) - *pp; ^ ( ) slasq6.c:694:13: note: place parentheses around the '-' expression to silence this warning i__1 = *n0 - 3 << 2; ^ ( ) 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;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; ^ ( ) 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; ^ ( ) 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_) { ^ 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_) { ^ 16 warnings generated. 13 warnings generated. 15 warnings generated. 12 warnings generated. slasr.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: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slasr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] 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_) { ^ 24 warnings generated. 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_) { ^ 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 12 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] ^ ( 22 warnings generated. sstebz.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ sstebz.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ sstebz.c:282: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: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 work[1] = (real) lwmin; ^~~~~ sstedc.c:818:13: note: remove the 'if' if its condition is always true } else if (icompz == 2) { ^~~~~~~~~~~~~~~~~ sstedc.c:724:18: note: initialize the variable 'lwmin' to silence this warning integer lwmin, start; ^ = 0 sstedc.c:818:17: 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 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: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 } else if (*ldz < 1 || icompz > 0 && *ldz < f2cmax(1,*n)) { ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ 12 warnings generated. 12 warnings generated. 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_) { ^ 19 warnings generated. 11 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. 14 warnings generated. 12 warnings generated. 13 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] static 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_) { ^ ../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. 12 warnings generated. 13 warnings generated. dstevx.c:843:24: warning: '&&' within '||' [-Wlogical-op-parentheses] if (*ldz < 1 || wantz && *ldz < *n) { ~~ ~~~~~~^~~~~~~~~~~~ dcombssq.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dcombssq.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dcombssq.c:dbdsvdx.c:863:24:282 warning: '&&' within '||' [-Wlogical-op-parentheses] :15: warning: if (*ldz < 1 || wantz && *ldz < *n << 1) { ~~ ~~~~~~^~~~~~~~~~~~~~~~~ unused function 'dpow_ui' [-Wunused-function] dstevx.c:843:24: note: place parentheses around the '&&' expression to silence this warning 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]dbdsvdx.c: 863:24: note: place parentheses around the '&&' expression to silence this warning static integer pow_ii(integer x, integer n) { ^ dcombssq.c:367:16 if (*ldz < 1 || wantz && *ldz < *n << 1) {: ^ ( ) warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dcombssq.c:374:16: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"; warning: unused function 'smaxloc_' [-Wunused-function] ^ 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 integer smaxloc_(float *w, integer s, integer e, integer *n)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] dcombssq.cstatic 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] :381static 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] :20static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ : 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] 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) { ^ ( ) 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_) { ^ dbdsqr.c:855:27: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < f2cmax(1,*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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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_) { ^ ddisna.c:735:11: warning: '&&' within '||' [-Wlogical-op-parentheses] if (left && *m > *n || right && *m < *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) { ^ ( ) 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_) { ^ 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_) { ^ 13 warnings generated. 12 warnings generated. 14 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_) { ^ 12 warnings generated. 14 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_) { ^ 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. 12 warnings generated. 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_) { ^ 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_) { ^ 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_) { ^ 12 warnings generated. 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. 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. 12 warnings generated. 15 warnings generated. 18 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_) { ^ 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.cdlaed8.c:250:13: warning: unused variable 'junk' [-Wunused-variable] :static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";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: dlaed8.c:270:14unused function 'dmaxloc_' [-Wunused-function]: 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) { dlaed9.c ^: 374:16: dlaed8.cwarning: :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)static double dpow_ui(double x, integer n) { ^ ^ dlaed9.cdlaed8.c::381309::2023:: warning: 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) {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] dlaed8.c: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_) { ^ static _Complex double zpow_ui(_Complex double x, integer n) { ^ dlaed9.cdlaed8.c::350474::1620:: warning: warning: unused function 'pow_ii' [-Wunused-function]unused function 'zdotu_' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dlaed8.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) ^ 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) { ^ 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_) { ^ 15 warnings generated. 11 warnings generated. 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_) { ^ 12 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 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. 13 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. 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_) { ^ 12 warnings generated. 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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ 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.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 12 warnings generated. 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) { ^ 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) ^ 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_) { ^ 12 warnings generated. dlarrd.c:974:49: warning: '&&' within '||' [-Wlogical-op-parentheses] if (irange == 1 || irange == 2 && d__[1] > *vl && d__[1] <= *vu || ~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~ 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) { ^ ( ) 12 warnings generated. 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_) { ^ 12 warnings generated. 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) { ^ ( ) 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_) { ^ 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) { ^ ( ) dlarrf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dlarrf.c:270:14: warning: 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] static double dpow_ui(double x, integer n) { ^ 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 _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_) { ^ 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:412:20: warning: unused function 'zdotc_' [-Wunused-function] 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlarrj.c: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_) { ^ 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_) { ^ 12 warnings generated. 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. 12 warnings generated. 12 warnings generated. 14 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) ^ dlaruv.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dlartg.c:381:20:dlaruv.c:270:14: warning: warning: unused function 'spow_ui' [-Wunused-function] unused function 'cdotc_' [-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_) { ^ dlartg.c:412:20: dlaruv.c:282:15: warning: warning: unused function 'dpow_ui' [-Wunused-function] unused function 'zdotc_' [-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) ^ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {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_) { ^ ^ dlartg.c:443dlaruv.c::20412:: 20warning: :unused function 'cdotu_' [-Wunused-function] 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 cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ^ dlaruv.c:443dlartg.c:474:20: warning: :20: warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 12 warnings generated. 12 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) { ^ ( ) 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_) { ^ 11 warnings generated. 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_) { ^ 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 dlasd3.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dlasd3.c: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_) { ^ 17 warnings generated. 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:20: warning: unused function 'cdotu_' [-Wunused-function] 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 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_) { ^ 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_) { ^ 13 warnings generated. 12 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_) { ^ 12 warnings generated. 13 warnings generated. 17 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 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_) { ^ 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_) { ^ 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)) { ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ 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. 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_) { ^ 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_) { ^ 16 warnings generated. 13 warnings generated. 15 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] static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlasq1.c:474: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: warning: operator '<<' has lower precedence than '-'; '-' will be evaluated first [-Wshift-op-parentheses] i__1 = *n - 1 << 1; ~~~^~~ ~~ 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_) { ^ 12 warnings generated. 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.; ^ ( ) 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: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dlasq3.c:367: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) ^ 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] static 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_) { ^ 12 warnings generated. 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; ^ dlasq4.c:964:12: note: remove the 'if' if its condition is always true } else if (*n0in > *n0 + 2) { ^~~~~~~~~~~~~~~~~~~~~ dlasq4.c:673:17: note: initialize the variable 's' to silence this warning doublereal s, a2, b1, b2; ^ = 0.0 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_) { ^ 12 warnings generated. 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; ^ ( ) 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_) { ^ 12 warnings generated. 16 warnings generated. 13 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; ^ ( ) 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_) { ^ 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_) { ^ 15 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 22 warnings generated. 12 warnings generated. 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] ^ ( 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: 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_) { ^ 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; ^~~~~ 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_) { ^ 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)) { ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ dsterf.c:614:16: warning: variable 'rmax' set but not used [-Wunused-but-set-variable] doublereal rmax; ^ 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] dsterf.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { dsterf.c: ^270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dsterf.c:282:15: dsteqr.cwarning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ dsterf.c:412:20: :309:23: warning: unused function 'cpow_ui' [-Wunused-function] warning: unused function 'zdotc_' [-Wunused-function] static _Complex float cpow_ui(_Complex float x, integer n) { ^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] dsterf.c: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_) {static _Complex double zpow_ui(_Complex double x, integer n) { ^ ^ dsterf.c:dsteqr.c350::47416:20: warning: unused function 'zdotu_' [-Wunused-function] : warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ dsterf.c:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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. 19 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_) { ^ 14 warnings generated. 12 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. ../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_) { ^ 13 warnings generated. 12 warnings generated. ilaenv2stage.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ilaenv2stage.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static 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) ^ 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_) { ^ 13 warnings generated. ilaenv.c:765:16: warning: '&&' within '||' [-Wlogical-op-parentheses] if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 && ~~~~~~~~~~^~~~~~~~~~~~ ~~ 12 warnings generated. 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:68: note: place parentheses around the '&&' expression to silence this warning if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 && ^ ( 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) { ^ ) 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_) { ^ 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] 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] static 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_) { ^ 12 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_) { ^ 14 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_) { ^ 12 warnings generated. 19 warnings generated. 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) { ^ 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_) { ^ 12 warnings generated. 18 warnings generated. 18 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_) { ^ 16 warnings generated. 12 warnings generated. 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_) { ^ 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. 12 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_) { ^ 12 warnings generated. ../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_) { ^ ../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 ../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 ../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; ^ 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) { ^ ( ) 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_) { ^ 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_) { ^ 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/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/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_) { ^ 14 warnings generated. 15 warnings generated. 12 warnings generated. 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. 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_) { ^ 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] static _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) { ^ DEPRECATED/stzrqf.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] 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/stzrqf.c: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/stzrqf.c: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/stzrqf.c:443:20: warning: unused function 'cdotu_' [-Wunused-function] DEPRECATED/dgegs.cstatic inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ DEPRECATED/stzrqf.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] :883static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ :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/dgegs.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ DEPRECATED/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] static _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] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ DEPRECATED/dgegs.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ DEPRECATED/dgegs.c: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/dgegs.c: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/dgegs.c: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/dgegs.c:474:20: warning: 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/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_) { ^ 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_) { ^ 14 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) { ^ ( ) 14 warnings generated. 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_) { ^ 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. 15 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_) { ^ 12 warnings generated. 12 warnings generated. 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] static 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] 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_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 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/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) { ^ ( ) 15 warnings generated. 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_) { ^ 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. 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_) { ^ 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_) { ^ 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_) { ^ 15 warnings generated. 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 14 warnings generated. 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:DEPRECATED/ctzrqf.c warning: unused function 'zpow_ui' [-Wunused-function] :static _Complex double zpow_ui(_Complex double x, integer n) {250 : ^13 : warning: unused variable 'junk' [-Wunused-variable] DEPRECATED/clatzm.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) { ^ DEPRECATED/ctzrqf.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] DEPRECATED/clatzm.c:367:16: static float spow_ui(float x, integer n) { ^ DEPRECATED/ctzrqf.c:282warning: :15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ unused function 'dmaxloc_' [-Wunused-function]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) static integer dmaxloc_(double *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/clatzm.c:DEPRECATED/ctzrqf.c374: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] 443: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] 20: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] warning: 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_) { 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. 13 warnings generated. 15 warnings generated. 12 warnings generated. 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]DEPRECATED/zgegs.c: 882:36: warning: '&&' within '||' [-Wlogical-op-parentheses] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ DEPRECATED/zgegv.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] } else if (*ldvsl < 1 || ilvsl && *ldvsl < *n) { ~~ ~~~~~~^~~~~~~~~~~~~~ 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_) { ^ 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) { ^ ( ) 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/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/zgelsx.c:282:15: warning: unused function 'dpow_ui' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ DEPRECATED/zgelsx.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] 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/zgelsx.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ DEPRECATED/zgelsx.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ DEPRECATED/zgelsx.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static integer smaxloc_(float *w, integer s, integer e, integer *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/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/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/zggsvd.c:947:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldu < 1 || wantu && *ldu < *m) { ~~ ~~~~~~^~~~~~~~~~~~ DEPRECATED/zggsvd.c:947:34: note: place parentheses around the '&&' expression to silence this warning } else if (*ldu < 1 || wantu && *ldu < *m) { ^ ( ) DEPRECATED/zggsvd.c:949:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldv < 1 || wantv && *ldv < *p) { ~~ ~~~~~~^~~~~~~~~~~~ DEPRECATED/zggsvd.c:949:34: note: place parentheses around the '&&' expression to silence this warning } else if (*ldv < 1 || wantv && *ldv < *p) { ^ ( ) DEPRECATED/zggsvd.c:951:34: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ldq < 1 || wantq && *ldq < *n) { ~~ ~~~~~~^~~~~~~~~~~~ DEPRECATED/zggsvd.c:951:34: note: place parentheses around the '&&' expression to silence this warning } else if (*ldq < 1 || wantq && *ldq < *n) { ^ ( ) 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/zggsvp.cDEPRECATED/zggsvd.c::250474::2013:: warning: warning: unused function 'zdotu_' [-Wunused-function]unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 14 warnings generated. DEPRECATED/zlahrd.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ DEPRECATED/zlahrd.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ DEPRECATED/zlahrd.c:282: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 _Complex double zpow_ui(_Complex double x, integer n) { ^ DEPRECATED/zlahrd.c:350:16: warning: unused function 'pow_ii' [-Wunused-function] static integer pow_ii(integer x, integer n) { ^ DEPRECATED/zlahrd.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ DEPRECATED/zlahrd.c: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_) { ^ 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.) { ^ ( ) 15 warnings generated. 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] static integer pow_ii(integer x, integer n) { ^ DEPRECATED/zlatzm.c:367: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: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/zlatzm.c: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/zlatzm.c: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/zlatzm.c:474:20: warning: 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. 14 warnings generated. 15 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_) { ^ 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. 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) { ^ ( ) slatms.c:1030:37: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ku < 0 || isym != 1 && *kl != *ku) { ~~ ~~~~~~~~~~^~~~~~~~~~~~~ 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) { ~~~~~^~~~~~~~~~~ slatms.c:1034:11: note: place parentheses around the '&&' expression to silence this warning != 0 && *m != *n) { ^ ) 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_) { ^ 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) { ^ ( ) slakf2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] slatmr.c:1242:18: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";warning: '&&' within '||' [-Wlogical-op-parentheses] ^ slakf2.c: 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.c270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ :1242slakf2.c::58282:: 15warning: :'&&' 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)) ^ ( ) slatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: unused function 'dpow_ui' [-Wunused-function] slatmr.c:1246:57:static double dpow_ui(double x, integer n) { warning: ^'&&' within '||' [-Wlogical-op-parentheses] slakf2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] } else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) || ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ~~ static _Complex float cpow_ui(_Complex float x, integer n) { ^ slatme.c:slatmr.cslakf2.c:270::14:3371246::57: note: place parentheses around the '&&' expression to silence this warning24 : warning: unused function 'zpow_ui' [-Wunused-function] warning: unused function 'spow_ui' [-Wunused-function] } else if ((ipack == 0 || ipack == 1 || ipack == 2) && *lda < f2cmax(1,*m) || static float spow_ui(float x, integer n) { ^ static _Complex double zpow_ui(_Complex double x, integer n) { ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ ^ slatmr.c:1247:34slakf2.c:: 350warning: slatme.c'&&' within '||' [-Wlogical-op-parentheses] :282::15: warning: unused function 'dpow_ui' [-Wunused-function] 16 (ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==: ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~warning: unused function 'pow_ii' [-Wunused-function] static double dpow_ui(double x, integer n) { ^ static integer pow_ii(integer x, integer n) { slatme.c ^: 309:23:slakf2.c:367:16: warning: slatmr.cunused function 'cpow_ui' [-Wunused-function]:warning: 1247:unused function 'dmaxloc_' [-Wunused-function]34 : note: place parentheses around the '&&' expression to silence this warning static _Complex float cpow_ui(_Complex float x, integer n) {static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slakf2.c:374:16 (ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack ==: ^warning: unused function 'smaxloc_' [-Wunused-function] ( ) ^ static integer smaxloc_(float *w, integer s, integer e, integer *n)slatme.c : ^337 :24:slakf2.c :warning: 381unused function 'zpow_ui' [-Wunused-function]: 20:slatmr.c :warning: 1248unused function 'cdotc_' [-Wunused-function]: 10: warning: '&&' within '||' [-Wlogical-op-parentheses]static _Complex double zpow_ui(_Complex double x, integer n) { ^ slatme.c:350:16: static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {warning: 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) { ^ ~~~^~~~~~~~~~~~~~~~~ slakf2.c:412:20:unused function 'pow_ii' [-Wunused-function]slatmr.c :1248:10: note: place parentheses around the '&&' expression to silence this warning static integer pow_ii(integer x, integer n) { ^ slatme.c: 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) { ^ warning: ) unused function 'zdotc_' [-Wunused-function] slatmr.c:1248:42: warning: '&&' within '||' [-Wlogical-op-parentheses] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {slakf2.c:443:20:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] ~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~ warning: unused function 'cdotu_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slatme.c:374:16static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {: ^warning: unused function 'smaxloc_' [-Wunused-function] slakf2.c:474:20slatmr.c:: 1248warning: :unused function 'zdotu_' [-Wunused-function]42 :static integer smaxloc_(float *w, integer s, integer e, integer *n) note: ^ place parentheses around the '&&' expression to silence this warning slatme.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) {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_) { ^ 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_) { ^ 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_) { ^ slatmt.cslagsy.c:412:20:: 1040warning: :unused function 'zdotc_' [-Wunused-function]37 : warning: '&&' within '||' [-Wlogical-op-parentheses] 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] } else if (*ku < 0 || isym != 1 && *kl != *ku) { ~~ ~~~~~~~~~~^~~~~~~~~~~~~ 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_) { ^ 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) { ^ ) 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) ^ ( ) 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_) { ^ slatmr.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ slatmr.cslatmt.c:250:13: warning: unused variable 'junk' [-Wunused-variable] :static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 270slatmt.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] 14static 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] warning: static integer pow_ii(integer x, integer n) { ^ slatmt.c:367:16: warning: unused function 'spow_ui' [-Wunused-function]unused function 'dmaxloc_' [-Wunused-function] static float spow_ui(float x, integer n) {static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ ^ slatmt.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] slatmr.c:282static integer smaxloc_(float *w, integer s, integer e, integer *n): 15 ^: warning: unused function 'dpow_ui' [-Wunused-function] slatmt.cstatic 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) {381 :20: ^ warning: unused function 'cdotc_' [-Wunused-function] slatmr.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) {static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ ^ slatmr.c:350:slatmt.c16::412 :warning: 20unused function 'pow_ii' [-Wunused-function]: warning: static integer pow_ii(integer x, integer n) { ^ slatmr.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] unused function 'zdotc_' [-Wunused-function] static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ slatmr.c:374:16: warning: unused function 'smaxloc_' [-Wunused-function] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ static integer smaxloc_(float *w, integer s, integer e, integer *n) ^slatmt.c :443:slatmr.c20::381 :warning: 20unused function 'cdotu_' [-Wunused-function]: 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: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^warning: unused function 'zdotc_' [-Wunused-function] slatmt.cstatic 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] 474: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] 20:static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 12 warnings generated. 12 warnings generated. 13 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_) { ^ slarot.c:805:33: warning: '&&' within '||' [-Wlogical-op-parentheses] if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) { ~~ ~~~~~~~~~~~^~~~~~~~~~~~~~~~~~ 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) { ^~~~ slarot.c:805:33: note: place parentheses around the '&&' expression to silence this warning if (*lda <= 0 || ! (*lrows) && *lda < *nl - nt) { ^ ( ) 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 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_) { ^ slarot.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 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_) { ^ 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: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. 14 warning12 warnings generateds. generated. 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_) { ^ 26 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_) { ^ 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_) { ^ 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) { ^ ( ) 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) { ^ ) 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_) { ^ 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_) { ^ 12 warnings generated. 12 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) { ^ ) 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_) { ^ clagge.c:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ 17 warningsclagge.c generated:. 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_) { ^ 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. 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_) { ^ 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_) { ^ 12 warnings generated. 11 warnings generated. 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_) { ^ 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) { ^ ( ) 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: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) { ^ ( ) 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_) { ^ 11 warnings generated. 13 warnings generated. 13 warnings generated. 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_) { ^ 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_) { ^ 12 warnings generated. clatm2.c:802:16: warning: variable 'isub' is used uninitialized whenever 'if' condition is false [-Wsometimes-uninitialized] } else if (*ipvtng == 3) { ^~~~~~~~~~~~ clatm2.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:809:17: 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: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_) { ^ 27 warnings generated. 11 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] static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ clatm3.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] 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:20: 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_) { ^ 14 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_) { ^ 12 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_) { ^ 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] clahilb.cstatic integer smaxloc_(float *w, integer s, integer e, integer *n) :250: ^ slatm1.c:13: warning: unused variable 'junk' [-Wunused-variable]381 :20: static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ warning: clahilb.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { unused function 'cdotc_' [-Wunused-function] ^ 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 inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ slatm1.c:412:20: static _Complex float cpow_ui(_Complex float x, integer n) {warning: unused function 'zdotc_' [-Wunused-function] ^ clahilb.c :337:24: warning: unused function 'zpow_ui' [-Wunused-function] static _Complex double zpow_ui(_Complex double x, integer n) { ^ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { clahilb.c ^: 350:16: warning: unused function 'pow_ii' [-Wunused-function]slatm1.c :443:20: warning: static integer pow_ii(integer x, integer n) { ^ unused function 'cdotu_' [-Wunused-function] clahilb.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_) { ^ static integer dmaxloc_(double *w, integer s, integer e, integer *n) 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_) { ^ 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_) { ^ 12 warnings generated. 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_) { ^ 17 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. 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. dlatms.c:1034:37: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*ku < 0 || isym != 1 && *kl != *ku) { ~~ ~~~~~~~~~~^~~~~~~~~~~~~ 17 warningsdlatms.c:1034:37: note: place parentheses around the '&&' expression to silence this warning generated } 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) { ^ ) 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:250:13: warning: unused variable 'junk' [-Wunused-variable] static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ dlatms.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ 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) { ^ dlatms.c:337:24: warning: unused function 'zpow_ui' [-Wunused-function] 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:16: warning: unused function 'dmaxloc_' [-Wunused-function] 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:474dlatmr.c:1215:44: warning: '&&' within '||' [-Wlogical-op-parentheses] :20: } else if (igrade == -1 || igrade == 4 && *m != *n || igrade >= 1 && ~~ ~~~~~~~~~~~~^~~~~~~~~~~ warning: unused function 'zdotu_' [-Wunused-function] static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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 || ~~ ~~~~~~~~~~~~^~~~~~~~~~~ dlatmr.c:1231:44: note: place parentheses around the '&&' expression to silence this warning } else if (ipvtng == -1 || ipvtng == 3 && *m != *n || (ipvtng == 1 || ^ ( ) dlatmr.c:1232:19: warning: '&&' within '||' [-Wlogical-op-parentheses] ipvtng == 2) && isym == 0) { ~~~~~~~~~~~~~^~~~~~~~~~~~ dlatme.c:250:13: warning: unused variable 'junk' [-Wunused-variable] dlatmr.c:1232:19: note: place parentheses around the '&&' expression to silence this warning static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ ipvtng == 2) && isym == 0) { ^ ) dlatme.c:270:14: warning: unused function 'spow_ui' [-Wunused-function] static float spow_ui(float x, integer n) { ^ dlatme.c:282: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.cstatic _Complex float cpow_ui(_Complex float x, integer n) {: 1238 ^: 37: dlatme.cwarning: '&&' within '||' [-Wlogical-op-parentheses] : } else if (*ku < 0 || isym == 0 && *kl != *ku) { ~~ ~~~~~~~~~~^~~~~~~~~~~~~ 337:24:dlatmr.c: warning: unused function 'zpow_ui' [-Wunused-function] 1238static _Complex double zpow_ui(_Complex double x, integer n) { ^ dlatme.c::350:16: warning: unused function 'pow_ii' [-Wunused-function] 37static integer pow_ii(integer x, integer n) { ^ dlatme.c:367:16: warning: unused function 'dmaxloc_' [-Wunused-function] :static integer dmaxloc_(double *w, integer s, integer e, integer *n) ^ dlatme.cnote: place parentheses around the '&&' expression to silence this warning : } else if (*ku < 0 || isym == 0 && *kl != *ku) { ^ ( ) 374:16: warning: unused function 'smaxloc_' [-Wunused-function] dlatmr.c:1243:static integer smaxloc_(float *w, integer s, integer e, integer *n) ^ 18dlatme.c:381:20: warning: unused function 'cdotc_' [-Wunused-function] : static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlatme.c:412:20: warning: unused function 'zdotc_' [-Wunused-function] warning: '&&' within '||' [-Wlogical-op-parentheses] static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0 ~~~~~~~~~~~~^~~~~~~~~~~~ dlatme.c:443dlatmr.c:1243:18::20: warning: unused function 'cdotu_' [-Wunused-function] note: static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { ^ dlatme.c:474:20: warning: unused function 'zdotu_' [-Wunused-function] 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_) { ^ ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0 ^ ) dlatmr.c:1243:58: warning: '&&' within '||' [-Wlogical-op-parentheses] ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0 ~~ ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~ dlatmr.c:1243:58: note: place parentheses around the '&&' expression to silence this warning ipack == 6) && isym == 1 || ipack == 3 && isym == 1 && (*kl != 0 ^ ( dlatmr.c:1244:46: warning: '&&' within '||' [-Wlogical-op-parentheses] || *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)) ^ ( ) 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) || ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~ dlatmr.c:1248:34: warning: '&&' within '||' [-Wlogical-op-parentheses] (ipack == 3 || ipack == 4) && *lda < 1 || (ipack == 5 || ipack == ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~ 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 6) && *lda < kuu + 1 || ipack == 7 && *lda < kll + kuu + 1) { ^ ) dlatmr.c:1249:42: warning: '&&' within '||' [-Wlogical-op-parentheses] 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.) { ~~~~~~~~~~~~^~~~~~~~~~~~~ ~~ dlatmr.c:1820:25: note: place parentheses around the '&&' expression to silence this warning } else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) { ^ ( ) dlatmr.c:1820:54: warning: '&&' within '||' [-Wlogical-op-parentheses] } else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) { ~~ ~~~~~~~~~~~~^~~~~~~~~~~~~ dlatmr.c:1820:54: note: place parentheses around the '&&' expression to silence this warning } else if (*anorm > 1. && onorm < 1. || *anorm < 1. && onorm > 1.) { ^ ( ) 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_) { ^ 12 warnings generated. 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) { ^ ) 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 13 warnings generated. 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_) { ^ 12 warnings generated. 12 warnings generated. 12 warnings generated. 12 warnings generated. 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) { ^ ( ) 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_) { ^ 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 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:dlatm2.c:250:13: warning: unused variable 'junk' [-Wunused-variable] 15static 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] warning: static double dpow_ui(double x, integer n) { ^ dlatm2.c:309:23: warning: unused function 'cpow_ui' [-Wunused-function] unused function 'dpow_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 double dpow_ui(double x, integer n) {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] dlatm3.c:309:23: warning: 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) { dlatm2.c ^: 412:20: dlatm3.cwarning: unused function 'zdotc_' [-Wunused-function] :337static 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] :24: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] 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) { ^ 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_) { ^ 13 warnings generated. 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_) { ^ 14 warnings generated. 12 warnings generated. 26 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_) { ^ 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) {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) { ^ ) 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_) { ^ 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. 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.c12: warning1270s generated. :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_) { ^ 12 warnings generated. 17 warnings generated. 13 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) { ^ ) 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:zlaghe.c warning: :unused function 'zdotc_' [-Wunused-function]250 :13: warning: unused variable 'junk' [-Wunused-variable] 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 char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; ^ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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_) { ^ 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. 11 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) { ^ ( ) 11 warnings generated. 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_) { ^ 13 warnings generated. 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_) { ^ 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_) { ^ 12 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_) { ^ 14 warnings generated. 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_) { ^ 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) {11 warning ^ 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] sstatic integer smaxloc_(float *w, integer s, integer e, integer *n) generated . ^ 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_) { ^ 27 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_) { ^ 12 warnings generated. 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_) { ^ 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. 11 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_) { ^ 12 warnings generated. 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