217 Symm_logcosh_JM (double *w_init, int e, double *data, int f, int p, double alpha, double *w_final, …  in Symm_logcosh_JM()  argument
239 		mmult_JM (w_init, e, e, data, e, p, mat1);  in Symm_logcosh_JM()
268 		mmult_JM (mat4, e, e, w_init, e, e, mat5);  in Symm_logcosh_JM()
275 		transpose_mat_JM (w_init, &e, &e, mat6);  in Symm_logcosh_JM()
297 Def_logcosh_JM (double *w_init, int e, double *data, int f, int p, double alpha, double *w_final)  in Def_logcosh_JM()  argument
314 		mmult_JM (w_init, 1, e, data, e, p, mat1);  in Def_logcosh_JM()
337 			mat4[i] = (w_init[i]) * mean;  in Def_logcosh_JM()
352 Symm_exp_JM (double *w_init, int e, double *data, int f, int p, double alpha, double *w_final, doub…  in Symm_exp_JM()  argument
373     mmult_JM (w_init, e, e, data, e, p, mat1);  in Symm_exp_JM()
403     mmult_JM (mat4, e, e, w_init, e, e, mat5);  in Symm_exp_JM()
410     transpose_mat_JM (w_init, &e, &e, mat6);  in Symm_exp_JM()
432 Def_exp_JM (double *w_init, int e, double *data, int f, int p, double alpha, double *w_final)  in Def_exp_JM()  argument
449     mmult_JM (w_init, 1, e, data, e, p, mat1);  in Def_exp_JM()
464     mmult_JM (w_init, 1, e, data, e, p, mat1);  in Def_exp_JM()
475 	mat4[i] = (w_init[i]) * mean;  in Def_exp_JM()
646     double *data1, *Kmat, *temp1, *w_init;  in icainc_JM()  local
685     w_init = Calloc (e * e, double);  in icainc_JM()
691     orthog_mat_JM (temp1, e, w_init);  in icainc_JM()
700 	    Symm_logcosh_JM (w_init, e, data1, e, p, *alpha, w_final, &tol);  in icainc_JM()
718 	    Symm_exp_JM (w_init, e, data1, e, p, *alpha, w_final, &tol);  in icainc_JM()
740 		gramsch_JM (w_init, e, e, i + 1);  in icainc_JM()
741 		rowstd_JM (w_init, e, e, i + 1);  in icainc_JM()
746 			temp_w1[j] = w_init[i * e + j];  in icainc_JM()
750 			w_init[i * e + j] = temp_w2[j];  in icainc_JM()
752 		    gramsch_JM (w_init, e, e, i + 1);  in icainc_JM()
753 		    rowstd_JM (w_init, e, e, i + 1);  in icainc_JM()
756 			tol += ((temp_w1[j]) * (w_init[i * e + j]));  in icainc_JM()
775 		gramsch_JM (w_init, e, e, i + 1);  in icainc_JM()
776 		rowstd_JM (w_init, e, e, i + 1);  in icainc_JM()
781 			temp_w1[j] = w_init[i * e + j];  in icainc_JM()
785 			w_init[i * e + j] = temp_w2[j];  in icainc_JM()
787 		    gramsch_JM (w_init, e, e, i + 1);  in icainc_JM()
788 		    rowstd_JM (w_init, e, e, i + 1);  in icainc_JM()
791 			tol += ((temp_w1[j]) * (w_init[i * e + j]));  in icainc_JM()
805 		w_final[i * e + j] = w_init[i * e + j];  in icainc_JM()
818     Free (w_init);  in icainc_JM()