From f08e63e652a564b3f805b69c05948e497c7b28f6 Mon Sep 17 00:00:00 2001
From: siddhu8990
Date: Mon, 6 Jun 2016 09:18:33 +0530
Subject: File handling functions added

---
 .../c/differential_calculus/interfaces/int_ode.h   | 31 +++++++++++++++++++---
 1 file changed, 27 insertions(+), 4 deletions(-)

(limited to '2.3-1/src/c/differential_calculus/interfaces/int_ode.h')

diff --git a/2.3-1/src/c/differential_calculus/interfaces/int_ode.h b/2.3-1/src/c/differential_calculus/interfaces/int_ode.h
index 1cb64497..28f43999 100644
--- a/2.3-1/src/c/differential_calculus/interfaces/int_ode.h
+++ b/2.3-1/src/c/differential_calculus/interfaces/int_ode.h
@@ -17,11 +17,34 @@
 extern "C" {
 #endif
 
-#define d0d0d0g2oded0(in1, in2, in3, in4) dodes(in1, in2, in3, in4, 1, 1.0e-2,\
-											 1.0e-2, 1.0e-6)
+#define d0d0d0fn0oded0(in1, in2, in3, func_name) dodes(in1, in2, in3, \
+					func_name, "rkf",1, 1.0e-2, 1.0e-2, 1.0e-6, NULL)
 
-#define d2d0d0f0oded2(in1, size1, in2, in3, func_name, out) dodea(in1, in2, in3, func_name, \
-							size1[1], 1.0e-2, 1.0e-2, 1.0e-6, size1, out)
+#define d2d0d0fn0oded2(in1, size1, in2, in3, func_name, out) dodea(in1, \
+					in2, in3, func_name, "rkf",size1[1], 1.0e-2, 1.0e-2, \
+					1.0e-6, size1, out)
+
+#define d0d0d2fn0oded2(in1, in2, in3, size3, func_name, out) dodea(in1, in2, \
+					in3, func_name, "rkf", 1, 1.0e-2, 1.0e-2, 1.0e-6, size3, out)
+
+#define d2d0d2fn0oded2(in1, size1, in2, in3, size3, func_name, out) dodea(in1, \
+					in2, in3, func_name, "rkf",size1[1], 1.0e-2, 1.0e-2, \
+					1.0e-6, size1, out)
+
+#define g2d0d0d0fn0oded0(solvertype, typesize, in1, in2, in3, func_name) dodes(in1, in2, in3, \
+					func_name, solvertype, 1, 1.0e-2, 1.0e-2, 1.0e-6, NULL)
+
+#define g2d2d0d0fn0oded2(solvertype, typesize, in1, size1, in2, in3, func_name, out) \
+					dodea(in1, in2, in3, func_name, solvertype, size1[1], \
+					1.0e-2, 1.0e-2, 1.0e-6, size1, out)
+
+#define g2d0d0d2fn0oded2(solvertype, typesize, in1, in2, in3, size3, func_name, out) \
+					dodea(in1, in2, in3, func_name, solvertype,1, 1.0e-2, 1.0e-2, \
+					1.0e-6, size3, out)
+
+#define g2d2d0d2fn0oded2(solvertype, typesize, in1, size1, in2, in3, size3, func_name, out) dodea(in1, \
+					in2, in3, func_name, solvertype, size1[1], 1.0e-2, 1.0e-2, \
+					1.0e-6, size1, out)
 
 #ifdef  __cplusplus
 } /* extern "C" */
-- 
cgit