diff --git a/src/fortran/fct.cpp b/src/fortran/fct.cpp
index e6ef00857..7ee84de4c 100644
--- a/src/fortran/fct.cpp
+++ b/src/fortran/fct.cpp
@@ -26,6 +26,8 @@ typedef Cabinet<Transport> TransportCabinet;
 
 typedef integer status_t;
 
+namespace {
+
 XML_Node* _xml(const integer* n)
 {
     return &XmlCabinet::item(*n);
@@ -51,6 +53,8 @@ Transport* _ftrans(const integer* n)
     return &TransportCabinet::item(*n);
 }
 
+} // unnamed namespace
+
 std::string f2string(const char* s, ftnlen n)
 {
     int k;
diff --git a/src/fortran/fctxml.cpp b/src/fortran/fctxml.cpp
index 263a78934..41c1ffd4c 100644
--- a/src/fortran/fctxml.cpp
+++ b/src/fortran/fctxml.cpp
@@ -23,11 +23,15 @@ template<> XmlCabinet* XmlCabinet::s_storage = 0;
 
 typedef integer status_t;
 
+namespace {
+
 XML_Node* _xml(const integer* i)
 {
     return &XmlCabinet::item(*i);
 }
 
+} // unnamed namespace
+
 std::string f2string(const char* s, ftnlen n);
 
 extern "C" {