Fixup broken fortran link convention

All other functions use one trailing underscore, but this
set uses two; consequently, the functions are not found
at link time.

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 10 insertions, 10 deletions

diff --git a/src/mt/stringref.cc b/src/mt/stringref.cc
index 66b3d3e..dbae3a9 100644
--- a/src/mt/stringref.cc
+++ b/src/mt/stringref.cc
@@ -30,11 +30,11 @@ extern "C" {
   int srfindtab_(const char* s,const int& sn,const char* c,const int& cn,const char* tab);
   int scomptab_(const char* s,const char* c,const int& n,const char* tab);
   void sconvert_(char* s,const int& sn,const char* tab);
-  int find_of__(const char* s,const int& sn,const char* set);
-  int rfind_of__(const char* s,const int& sn,const char* set);
-  int find_not_of__(const char* s,const int& sn,const char* set);
-  int rfind_not_of__(const char* s,const int& sn,const char* set);
-  int skip_parentesis__(const char* s,const int& sn,
+  int find_of_(const char* s,const int& sn,const char* set);
+  int rfind_of_(const char* s,const int& sn,const char* set);
+  int find_not_of_(const char* s,const int& sn,const char* set);
+  int rfind_not_of_(const char* s,const int& sn,const char* set);
+  int skip_parentesis_(const char* s,const int& sn,
                        const char& left,const char& right,const char& esc);
   int strip_(char* s,const char* c,const int& cn,const char& esc);
 }
@@ -105,13 +105,13 @@ int sref::rfind(const sref& s,const charmap& tab) const {
   return srfindtab_(map,dim,s.map,s.dim,tab.map);
 }
 
-int sref::find_of(const charset& s) const { return find_of__(map,dim,s.map); }
-int sref::rfind_of(const charset& s) const { return rfind_of__(map,dim,s.map); }
-int sref::find_not_of(const charset& s) const { return find_not_of__(map,dim,s.map); }
-int sref::rfind_not_of(const charset& s) const { return rfind_not_of__(map,dim,s.map); }
+int sref::find_of(const charset& s) const { return find_of_(map,dim,s.map); }
+int sref::rfind_of(const charset& s) const { return rfind_of_(map,dim,s.map); }
+int sref::find_not_of(const charset& s) const { return find_not_of_(map,dim,s.map); }
+int sref::rfind_not_of(const charset& s) const { return rfind_not_of_(map,dim,s.map); }
   
 int sref::skip(const bracket& bra) const {
-  return skip_parentesis__(map,dim,bra.left,bra.right,bra.esc);
+  return skip_parentesis_(map,dim,bra.left,bra.right,bra.esc);
 }
 
 ////////////////////////////////////////////////////////////////