diff options
Diffstat (limited to 'src/patch/patch_interp.cc')
-rw-r--r-- | src/patch/patch_interp.cc | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/patch/patch_interp.cc b/src/patch/patch_interp.cc index 0784f74..e23ce04 100644 --- a/src/patch/patch_interp.cc +++ b/src/patch/patch_interp.cc @@ -1,4 +1,4 @@ -// patch_interp.cc -- patch interpolation region +// patch_interp.cc -- interpolation from a patch // $Id$ // @@ -9,7 +9,7 @@ // // patch_interp::query_interpolator // patch_interp::verify_Jacobian_sparsity_pattern_ok -// patch_interp::molecule_minmax_m_ipar +// patch_interp::molecule_minmax_ipar_m // patch_interp::molecule_posn // patch_interp::Jacobian // @@ -413,13 +413,13 @@ if ( MSS_is_fn_of_interp_coords || MSS_is_fn_of_input_array_values //****************************************************************************** // -// This function queries the interpolator to get the [min,max] m ipar +// This function queries the interpolator to get the [min,max] ipar m // coordinates of the interpolation molecules. // // (This API implicitly assumes that the Jacobian sparsity is one which // is "ok" as verified by verify_Jacobian_sparsity_pattern_ok() .) // -void patch_interp::molecule_minmax_m_ipar(int& min_m_ipar, int& max_m_ipar) +void patch_interp::molecule_minmax_ipar_m(int& min_ipar_m, int& max_ipar_m) const { const int N_dims = 1; @@ -434,7 +434,7 @@ status2 = Util_TableSetInt(interp_par_table_handle_, 0, "molecule_max_m"); if ((status1 < 0) || (status2 < 0)) then error_exit(ERROR_EXIT, -"***** patch_interp::molecule_minmax_m_ipar():\n" +"***** patch_interp::molecule_minmax_ipar_m():\n" " can't set molecule min/max m queries\n" " in interpolator parmameter table!\n" " error status1=%d status2=%d\n" @@ -444,7 +444,7 @@ if ((status1 < 0) || (status2 < 0)) // // query the interpolator // -query_interpolator("molecule_minmax_m_ipar"); +query_interpolator("molecule_minmax_ipar_m"); // // get molecule min/max m query results from parameter table @@ -459,14 +459,14 @@ status2 = Util_TableGetIntArray(interp_par_table_handle_, "molecule_max_m"); if ((status1 < 0) || (status2 < 0)) then error_exit(ERROR_EXIT, -"***** patch_interp::molecule_maxmax_m_ipar():\n" +"***** patch_interp::molecule_maxmax_ipar_m():\n" " can't get molecule min/max m query results\n" " from interpolator parmameter table!\n" " error status1=%d status2=%d\n" , status1, status2); /*NOTREACHED*/ -min_m_ipar = molecule_min_m; -max_m_ipar = molecule_min_m; +min_ipar_m = molecule_min_m; +max_ipar_m = molecule_min_m; // // delete Jacobian-sparsity-pattern query entries from the parameter table @@ -556,10 +556,10 @@ if (jtutil::how_many_in_range(min_iperp(), max_iperp()) > 0) // ghosted gridfns, // partial interpolate() data_buffer(ghosted_gfn, iperp, parindex) // --------------------------------------------------------------- -// partial ghosted_gridfn(ghosted_gfn, iperp, posn+m_ipar) +// partial ghosted_gridfn(ghosted_gfn, iperp, posn+ipar_m) // // This function stores the Jacobian in -// Jacobian_buffer(iperp, parindex, m_ipar) +// Jacobian_buffer(iperp, parindex, ipar_m) // where we implicitly assume the Jacobian to be independent of // ghosted_gfn[*], and where // posn = posn_buffer(iperp, parindex) |