activate global fits in presence of global parameters

TODO

@@ -142,8 +142,6 @@ convolution with function
 
 coord name algebra
 
-parallelize global fits
-
 
 == WAITING FOR CLUE ==
 

pub/lib/fit.cpp

@@ -296,12 +296,13 @@ static void fit_evaluate_glo( const double* par, int m_dat, const void *data,
             throw S("inconsistent number of free parameters");
 
         bool want_error = wt==COlc::_VAR || wt==COlc::_VARC;
-//#pragma omp parallel for // if ( !NCurveFit::verbosity )
+#pragma omp parallel for // if ( !NCurveFit::verbosity )
         for( int jj=0; jj<mydata->J2J.size(); ++jj ) {
-            int j = mydata->J2J[jj];
-            RSpec s = fd->VS(j);
-            RObj cu = fc->eval_curve( s->x, mydata->k, j, want_error );
-            compute_residues( fvec, mydata->Offset[jj], j, s, cu, wt );
+            compute_residues(
+                fvec, mydata->Offset[jj], mydata->J2J[jj], fd->VS(mydata->J2J[jj]),
+                fc->eval_curve( fd->VS(mydata->J2J[jj])->x, mydata->k, mydata->J2J[jj],
+                                want_error ),
+                wt );
         }
     } catch ( string& s ) {
         cerr << "\n" << s << "\n";