blob: 894d76581f2fc3101e8b6b7e0468a6bd4dde1060 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
exec(SCI+'/modules/differential_equations/tests/unit_tests/bvode_tst.sci');
[z,zf]=col1();
if max(abs(z-zf))>1.e-5 then bugmes();quit;end
[z,zf]=col2(0);
// Fortran Coded version
if max(abs(z-zf))>1.e-2 then bugmes();quit;end
[z,zf]=col2(1);
// Scilab coded version
if max(abs(z-zf))>1.e-2 then bugmes();quit;end
|
