diff options
author | Peter Carbonetto | 2017-05-04 10:52:24 -0500 |
---|---|---|
committer | Peter Carbonetto | 2017-05-04 10:52:24 -0500 |
commit | 452f232cb627d7180bf1c845dff9ddd88af6a600 (patch) | |
tree | 7b4b114dae947b01c552743b34be14214686e399 /src/lmm.cpp | |
parent | 03d7d2556a9284dc0ac3e155b5c9a8d69b1b21ee (diff) | |
download | pangemma-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.cpp | 24 |
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; |