aboutsummaryrefslogtreecommitdiff
path: root/src/lmm.cpp
diff options
context:
space:
mode:
authorPeter Carbonetto2017-05-04 10:52:24 -0500
committerPeter Carbonetto2017-05-04 10:52:24 -0500
commit452f232cb627d7180bf1c845dff9ddd88af6a600 (patch)
tree7b4b114dae947b01c552743b34be14214686e399 /src/lmm.cpp
parent03d7d2556a9284dc0ac3e155b5c9a8d69b1b21ee (diff)
downloadpangemma-452f232cb627d7180bf1c845dff9ddd88af6a600.tar.gz
Fixed problems with duplicate symbols in io.o, lmm.o, param.o and vc.o; created a Makefile for Mac OS X (tested on 10.11, i.e., El Capitan).
Diffstat (limited to 'src/lmm.cpp')
-rw-r--r--src/lmm.cpp24
1 files changed, 0 insertions, 24 deletions
diff --git a/src/lmm.cpp b/src/lmm.cpp
index 044f33c..a707534 100644
--- a/src/lmm.cpp
+++ b/src/lmm.cpp
@@ -183,30 +183,6 @@ void LMM::WriteFiles ()
return;
}
-
-
-
-
-
-
-
-
-
-
-//map a number 1-(n_cvt+2) to an index between 0 and [(n_c+2)^2+(n_c+2)]/2-1
-size_t GetabIndex (const size_t a, const size_t b, const size_t n_cvt) {
- if (a>n_cvt+2 || b>n_cvt+2 || a<=0 || b<=0) {cout<<"error in GetabIndex."<<endl; return 0;}
- size_t index;
- size_t l, h;
- if (b>a) {l=a; h=b;} else {l=b; h=a;}
-
- size_t n=n_cvt+2;
- index=(2*n-l+2)*(l-1)/2+h-l;
-
- return index;
-}
-
-
void CalcPab (const size_t n_cvt, const size_t e_mode, const gsl_vector *Hi_eval, const gsl_matrix *Uab, const gsl_vector *ab, gsl_matrix *Pab)
{
size_t index_ab, index_aw, index_bw, index_ww;