From: <tr...@us...> - 2008-03-13 23:39:50
|
Revision: 4742 http://octave.svn.sourceforge.net/octave/?rev=4742&view=rev Author: treichl Date: 2008-03-13 16:39:39 -0700 (Thu, 13 Mar 2008) Log Message: ----------- Untabified. Modified Paths: -------------- trunk/octave-forge/main/odepkg/src/odepkg_auxiliary_functions.cc Modified: trunk/octave-forge/main/odepkg/src/odepkg_auxiliary_functions.cc =================================================================== --- trunk/octave-forge/main/odepkg/src/odepkg_auxiliary_functions.cc 2008-03-13 23:38:45 UTC (rev 4741) +++ trunk/octave-forge/main/odepkg/src/odepkg_auxiliary_functions.cc 2008-03-13 23:39:39 UTC (rev 4742) @@ -82,7 +82,8 @@ octave_value_list varin; varin(0) = veve; varin(1) = vt; - varin(2) = vy; + varin(2) = vy; // vy.print_with_name (octave_stdout, "vy", true); + for (octave_idx_type vcnt = 0; vcnt < vextarg.length (); vcnt++) varin(vcnt+4) = vextarg(vcnt); @@ -95,7 +96,6 @@ case 1: varin(3) = ""; - // varout = feval ("odepkg_event_handle", varin, 1); varout = feval ("odepkg_event_handle", varin, 1); break; @@ -325,14 +325,14 @@ else if (vstate.string_value ().compare ("none") == 0) { varin(0) = vt; for (octave_idx_type vcnt = 0; vcnt < vextarg.length (); vcnt++) - varin(vcnt+1) = vextarg(vcnt); + varin(vcnt+1) = vextarg(vcnt); } else { // If "MStateDependence" is "weak" or "strong" varin(0) = vt; varin(1) = vy; // Fill up RHS arguments with extra arguments that are given for (octave_idx_type vcnt = 0; vcnt < vextarg.length (); vcnt++) - varin(vcnt+2) = vextarg(vcnt); + varin(vcnt+2) = vextarg(vcnt); } // Evaluate the Mass function and return results This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |