* installing *source* package ‘cbird’ ... ** package ‘cbird’ successfully unpacked and MD5 sums checked ** using staged installation ** libs make[2]: Entering directory '/data/gannet/ripley/R/packages/tests-BLAS/cbird/src' gcc -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -DUSE_FC_LEN_T -fpic -g -O2 -Wall -pedantic -mtune=native -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -c OptimCBIRD.c -o OptimCBIRD.o OptimCBIRD.c: In function ‘EstScore_Oblique_C’: OptimCBIRD.c:106:9: error: too few arguments to function ‘dgemm_’ 106 | dgemm_("N", "T", &N_sub, &N_var, &N_comp, &blas_one, REAL(R_F), &N_sub, REAL(R_A), &N_var, &blas_one, REAL(Theta), &N_sub); // Theta <- F %*% t(A) + vec.1.sub %*% t(mu) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:121:9: error: too few arguments to function ‘dgemm_’ 121 | dgemm_("T", "N", &N_comp, &N_comp, &N_var, &blas_one, REAL(R_A), &N_var, REAL(R_A), &N_var, &blas_zero, Mat_comp_comp, &N_comp); // t(A) %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:123:9: error: too few arguments to function ‘dgemm_’ 123 | dgemm_("N", "N", &N_sub, &N_comp, &N_var, &blas_one, REAL(Z_s), &N_sub, REAL(R_A), &N_var, &blas_zero, Mat_sv, &N_sub); // Z_s %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:124:9: error: too few arguments to function ‘dgemm_’ 124 | dgemm_("N", "N", &N_sub, &N_comp, &N_comp, &blas_one, Mat_sv, &N_sub, I_comp, &N_comp, &blas_zero, REAL(R_F), &N_sub); // Z_s %*% A %*% solve(t(A) %*% A) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:65:10: warning: unused variable ‘temp’ [-Wunused-variable] 65 | double temp; | ^~~~ OptimCBIRD.c:64:10: warning: unused variable ‘sum’ [-Wunused-variable] 64 | double sum = 0.0; | ^~~ OptimCBIRD.c:63:10: warning: unused variable ‘scalar’ [-Wunused-variable] 63 | double scalar; | ^~~~~~ OptimCBIRD.c:62:10: warning: unused variable ‘N_sub_double’ [-Wunused-variable] 62 | double N_sub_double = (double) N_sub; | ^~~~~~~~~~~~ OptimCBIRD.c:58:37: warning: unused variable ‘loss_GP’ [-Wunused-variable] 58 | double loss_old, loss = 1.0E+100, loss_GP; | ^~~~~~~ OptimCBIRD.c:54:13: warning: unused variable ‘j’ [-Wunused-variable] 54 | int i, j; | ^ OptimCBIRD.c:44:17: warning: unused variable ‘alpha_ini’ [-Wunused-variable] 44 | double alpha, alpha_ini = 100; | ^~~~~~~~~ OptimCBIRD.c:44:10: warning: unused variable ‘alpha’ [-Wunused-variable] 44 | double alpha, alpha_ini = 100; | ^~~~~ OptimCBIRD.c:42:10: warning: unused variable ‘N_ite_alpha’ [-Wunused-variable] 42 | int N_ite_alpha = (int) REAL(INFO)[5]; | ^~~~~~~~~~~ OptimCBIRD.c:41:10: warning: unused variable ‘N_ite_GP’ [-Wunused-variable] 41 | int N_ite_GP = (int) REAL(INFO)[4]; | ^~~~~~~~ OptimCBIRD.c: In function ‘EstScore_Orthogonal_C’: OptimCBIRD.c:241:9: error: too few arguments to function ‘dgemm_’ 241 | dgemm_("N", "T", &N_sub, &N_var, &N_comp, &blas_one, REAL(R_F), &N_sub, REAL(R_A), &N_var, &blas_one, REAL(Theta), &N_sub); // Theta <- F %*% t(A) + vec.1.sub %*% t(mu) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:282:17: error: too few arguments to function ‘dgemm_’ 282 | dgemm_("N", "N", &N_sub, &N_comp, &N_comp, &scalar, G, &N_sub, I_comp, &N_comp, &blas_one, F_target, &N_sub); // F - alpha * G | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:283:17: error: too few arguments to function ‘dgesvd_’ 283 | dgesvd_(&jobu, &jobvt, &N_sub, &N_comp, F_target, &N_sub, singular_value, U_svd, &N_sub, Vt_svd, &N_comp, work, &lwork, &info); | ^~~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/Lapack.h:348:10: note: declared here 348 | F77_NAME(dgesvd)(const char* jobu, const char* jobvt, const int* m, | ^~~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/Lapack.h:348:1: note: in expansion of macro ‘F77_NAME’ 348 | F77_NAME(dgesvd)(const char* jobu, const char* jobvt, const int* m, | ^~~~~~~~ OptimCBIRD.c:286:17: error: too few arguments to function ‘dgemm_’ 286 | dgemm_("N", "N", &N_sub, &N_comp, &N_comp, &blas_one, U_svd, &N_sub, Vt_svd, &N_comp, &blas_zero, REAL(R_F), &N_sub); // F <- U %*% t(V) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:188:11: warning: unused variable ‘temp’ [-Wunused-variable] 188 | double temp; | ^~~~ OptimCBIRD.c:187:11: warning: unused variable ‘sum’ [-Wunused-variable] 187 | double sum = 0.0; | ^~~ OptimCBIRD.c:184:11: warning: unused variable ‘N_sub_double’ [-Wunused-variable] 184 | double N_sub_double = (double) N_sub; | ^~~~~~~~~~~~ OptimCBIRD.c:179:11: warning: unused variable ‘Mat_comp_comp’ [-Wunused-variable] 179 | double Mat_comp_comp[N_comp * N_comp]; | ^~~~~~~~~~~~~ OptimCBIRD.c:175:11: warning: unused variable ‘ipiv’ [-Wunused-variable] 175 | int ipiv[N_comp]; | ^~~~ OptimCBIRD.c:172:14: warning: unused variable ‘j’ [-Wunused-variable] 172 | int i, j; | ^ OptimCBIRD.c: In function ‘OptimCBIRD_C’: OptimCBIRD.c:555:9: error: too few arguments to function ‘dgemm_’ 555 | dgemm_("N", "T", &N_clust, &N_var, &N_comp, &blas_one, REAL(F), &N_clust, REAL(A), &N_var, &blas_one, Theta, &N_clust); // Theta <- F %*% t(A) + vec.1.clust %*% t(mu) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:574:9: error: too few arguments to function ‘dgemm_’ 574 | dgemm_("N", "T", &N_clust, &N_var, &N_comp, &blas_one, REAL(F), &N_clust, REAL(A), &N_var, &blas_zero, Mat_cv, &N_clust); // F %*% t(A) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:623:17: error: too few arguments to function ‘dgemm_’ 623 | dgemm_("N", "N", &N_clust, &N_comp, &N_comp, &scalar, G, &N_clust, I_comp, &N_comp, &blas_one, F_target, &N_clust); // F - alpha * G | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:624:17: error: too few arguments to function ‘dgesvd_’ 624 | dgesvd_(&jobu, &jobvt, &N_clust, &N_comp, F_target, &N_clust, singular_value, U_svd, &N_clust, Vt_svd, &N_comp, work, &lwork, &info); | ^~~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/Lapack.h:348:10: note: declared here 348 | F77_NAME(dgesvd)(const char* jobu, const char* jobvt, const int* m, | ^~~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/Lapack.h:348:1: note: in expansion of macro ‘F77_NAME’ 348 | F77_NAME(dgesvd)(const char* jobu, const char* jobvt, const int* m, | ^~~~~~~~ OptimCBIRD.c:627:17: error: too few arguments to function ‘dgemm_’ 627 | dgemm_("N", "N", &N_clust, &N_comp, &N_comp, &blas_one, U_svd, &N_clust, Vt_svd, &N_comp, &blas_zero, REAL(F), &N_clust); // F <- U %*% t(V) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:405:11: warning: unused variable ‘vec_comp’ [-Wunused-variable] 405 | double vec_comp[N_comp]; | ^~~~~~~~ OptimCBIRD.c:399:11: warning: unused variable ‘temp’ [-Wunused-variable] 399 | double temp; | ^~~~ OptimCBIRD.c:384:11: warning: unused variable ‘N_clust_clust’ [-Wunused-variable] 384 | int N_clust_clust = N_clust * N_clust; | ^~~~~~~~~~~~~ OptimCBIRD.c:372:23: warning: unused variable ‘uplo’ [-Wunused-variable] 372 | char jobz = 'V', uplo = 'U'; // for dsyev_ | ^~~~ OptimCBIRD.c:372:11: warning: unused variable ‘jobz’ [-Wunused-variable] 372 | char jobz = 'V', uplo = 'U'; // for dsyev_ | ^~~~ OptimCBIRD.c:362:11: warning: variable ‘eigen_value2’ set but not used [-Wunused-but-set-variable] 362 | double *eigen_value2; //¾º½ç¤«¤é¹ß½ç¤Ø¤ÎʤÓÂؤ¨ÍÑ | ^~~~~~~~~~~~ OptimCBIRD.c:361:11: warning: variable ‘eigen_value’ set but not used [-Wunused-but-set-variable] 361 | double *eigen_value; | ^~~~~~~~~~~ OptimCBIRD.c:355:44: warning: unused variable ‘blas_minus_one’ [-Wunused-variable] 355 | double blas_one = 1.0, blas_zero = 0.0, blas_minus_one = 1.0; | ^~~~~~~~~~~~~~ OptimCBIRD.c: In function ‘PenLogLikelihood’: OptimCBIRD.c:771:11: warning: unused variable ‘prod’ [-Wunused-variable] 771 | double prod; | ^~~~ OptimCBIRD.c:767:11: warning: unused variable ‘N_clust_var’ [-Wunused-variable] 767 | int N_clust_var = N_clust * N_var; | ^~~~~~~~~~~ OptimCBIRD.c:765:11: warning: unused variable ‘lossfunc’ [-Wunused-variable] 765 | double lossfunc; | ^~~~~~~~ OptimCBIRD.c:763:14: warning: unused variable ‘j’ [-Wunused-variable] 763 | int i, j, k; | ^ OptimCBIRD.c:762:11: warning: unused variable ‘blas_one_int’ [-Wunused-variable] 762 | int blas_one_int = 1; | ^~~~~~~~~~~~ OptimCBIRD.c:761:40: warning: unused variable ‘blas_minus_one’ [-Wunused-variable] 761 | double blas_one = 1, blas_zero = 0, blas_minus_one = -1; | ^~~~~~~~~~~~~~ OptimCBIRD.c:761:25: warning: unused variable ‘blas_zero’ [-Wunused-variable] 761 | double blas_one = 1, blas_zero = 0, blas_minus_one = -1; | ^~~~~~~~~ OptimCBIRD.c:761:11: warning: unused variable ‘blas_one’ [-Wunused-variable] 761 | double blas_one = 1, blas_zero = 0, blas_minus_one = -1; | ^~~~~~~~ OptimCBIRD.c: In function ‘F_LossCBIRD’: OptimCBIRD.c:883:3: error: too few arguments to function ‘dgemm_’ 883 | dgemm_("N", "T", &N_clust, &N_var, &N_comp, &blas_one, F, &N_clust, A, &N_var, &blas_one, Theta, &N_clust); // Theta <- F %*% t(A) + vec.1.clust %*% t(mu) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:862:40: warning: unused variable ‘blas_minus_one’ [-Wunused-variable] 862 | double blas_one = 1, blas_zero = 0, blas_minus_one = -1; | ^~~~~~~~~~~~~~ OptimCBIRD.c:862:25: warning: unused variable ‘blas_zero’ [-Wunused-variable] 862 | double blas_one = 1, blas_zero = 0, blas_minus_one = -1; | ^~~~~~~~~ OptimCBIRD.c: In function ‘F_Grad_ind’: OptimCBIRD.c:938:3: error: too few arguments to function ‘dgemm_’ 938 | dgemm_("N", "T", &N_sub, &N_var, &N_comp, &blas_one, F, &N_sub, A, &N_var, &blas_zero, Mat_sv, &N_sub); // F %*% t(A) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:939:3: error: too few arguments to function ‘dgemm_’ 939 | dgemm_("N", "N", &N_sub, &N_comp, &N_var, &blas_quarter, Mat_sv, &N_sub, A, &N_var, &blas_zero, Mat_sc, &N_sub); // 1/4 * F %*% t(A) %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:940:3: error: too few arguments to function ‘dgemm_’ 940 | dgemm_("N", "N", &N_sub, &N_comp, &N_var, &blas_quarter, X_s, &N_sub, A, &N_var, &blas_zero, G, &N_sub); // 1/4 * Z.s %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:941:3: error: too few arguments to function ‘dgemm_’ 941 | dgemm_("N", "N", &N_sub, &N_comp, &N_comp, &blas_one, Mat_sc, &N_sub, I_comp, &N_comp, &blas_minus_one, G, &N_sub); // G <- 1/4 * F %*% t(A) %*% A - 1/4 * Z.s %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:921:14: warning: unused variable ‘j’ [-Wunused-variable] 921 | int i, j; | ^ OptimCBIRD.c:921:11: warning: unused variable ‘i’ [-Wunused-variable] 921 | int i, j; | ^ OptimCBIRD.c: In function ‘F_Grad’: OptimCBIRD.c:964:3: error: too few arguments to function ‘dgemm_’ 964 | dgemm_("N", "T", &N_clust, &N_var, &N_comp, &blas_one, F, &N_clust, A, &N_var, &blas_zero, Mat_cv, &N_clust); // F %*% t(A) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:967:3: error: too few arguments to function ‘dgemm_’ 967 | dgemm_("N", "N", &N_clust, &N_comp, &N_var, &blas_one, Mat_cv, &N_clust, A, &N_var, &blas_zero, G, &N_clust); // (F %*% t(A) - X.f) %*% A | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:957:11: warning: unused variable ‘N_clust_comp’ [-Wunused-variable] 957 | int N_clust_comp = N_clust * N_comp; | ^~~~~~~~~~~~ OptimCBIRD.c:954:44: warning: unused variable ‘blas_minus_one’ [-Wunused-variable] 954 | double blas_one = 1.0, blas_zero = 0.0, blas_minus_one = 1.0; | ^~~~~~~~~~~~~~ OptimCBIRD.c: In function ‘F_LossSLPCA’: OptimCBIRD.c:1029:3: error: too few arguments to function ‘dgemm_’ 1029 | dgemm_("N", "T", &N_sub, &N_var, &N_comp, &blas_minus_one, F, &N_sub, A, &N_var, &blas_one, temp_X, &N_sub); // X - F %*% t(A) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:1030:3: error: too few arguments to function ‘dgemm_’ 1030 | dgemm_("N", "N", &N_sub, &N_var, &N_var, &blas_one, temp_X, &N_sub, I_var, &N_var, &blas_minus_one, Mat_sv, &N_sub); // temp <- X - F %*% t(A) - vec.1.sub %*% t(mu) | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:1033:3: error: too few arguments to function ‘dgemm_’ 1033 | dgemm_("T", "N", &N_var, &N_var, &N_sub, &blas_one, Mat_sv, &N_sub, Mat_sv, &N_sub, &blas_zero, Mat_vv, &N_var); // t(temp) %*% temp | ^~~~~~ In file included from /data/gannet/ripley/R/R-devel/include/R.h:80, from OptimCBIRD.c:16: /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:10: note: declared here 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~ /data/gannet/ripley/R/R-devel/include/R_ext/RS.h:77:25: note: in definition of macro ‘F77_CALL’ 77 | # define F77_CALL(x) x ## _ | ^ /data/gannet/ripley/R/R-devel/include/R_ext/BLAS.h:207:1: note: in expansion of macro ‘F77_NAME’ 207 | F77_NAME(dgemm)(const char *transa, const char *transb, const int *m, | ^~~~~~~~ OptimCBIRD.c:1006:17: warning: unused variable ‘term2’ [-Wunused-variable] 1006 | double term1, term2; | ^~~~~ OptimCBIRD.c:1003:10: warning: unused variable ‘N_sub_double’ [-Wunused-variable] 1003 | double N_sub_double = (double) N_sub; | ^~~~~~~~~~~~ make[2]: *** [/data/gannet/ripley/R/R-devel/etc/Makeconf:169: OptimCBIRD.o] Error 1 make[2]: Leaving directory '/data/gannet/ripley/R/packages/tests-BLAS/cbird/src' ERROR: compilation failed for package ‘cbird’ * removing ‘/data/gannet/ripley/R/packages/tests-BLAS/Libs/cbird-lib/cbird’ Command exited with non-zero status 1 Time 0:01.01, 0.51 + 0.13