From 97b4c08a5623d0164a7dc963bb92b7e84ea699fe Mon Sep 17 00:00:00 2001
From: Dave Goodwin <dgg@caltech.edu>
Date: Tue, 18 Dec 2007 02:41:05 +0000
Subject: [PATCH] added cantera_iface

---
 Cantera/fortran/src/cantera_iface.f90 | 31 +++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 Cantera/fortran/src/cantera_iface.f90

diff --git a/Cantera/fortran/src/cantera_iface.f90 b/Cantera/fortran/src/cantera_iface.f90
new file mode 100644
index 000000000..0897bf481
--- /dev/null
+++ b/Cantera/fortran/src/cantera_iface.f90
@@ -0,0 +1,31 @@
+module cantera_iface
+
+  use fct
+  use cantera_xml
+  use cantera_thermo
+  use cantera_kinetics
+
+  type interface_t
+    type(phase_t) :: gas
+    type(phase_t) :: bulk
+    type(phase_t) :: surf
+  end type interface_t
+
+contains
+
+    type(interface_t) function newInterface(xml_phase, surf, gas, bulk)
+      implicit none
+      type(XML_Node), intent(inout):: xml_phase
+      type(phase_t) :: gas
+      type(phase_t) :: bulk
+      type(phase_t) :: surf
+      type(interface_t) :: iface
+      iface%gas = gas
+      iface%bulk = bulk
+      iface%surf = surf
+      call newKinetics(xml_phase, surf, gas, bulk)
+      newInterface = iface
+    end function newInterface
+
+end module cantera_iface
+