applications/F90HLA/libF90HLA13 F90HLA13CERTIWr...

[certi-cvs]

CVSROOT:        /sources/certi
Module name:    applications
Changes by:     Christian Stenzel <approx>      08/02/11 14:42:32

Modified files:
        F90HLA/libF90HLA13: F90HLA13CERTIWrap.cpp fedSrvMod.f90 

Log message:
        adjust naming conventions

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/applications/F90HLA/libF90HLA13/F90HLA13CERTIWrap.cpp?cvsroot=certi&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/applications/F90HLA/libF90HLA13/fedSrvMod.f90?cvsroot=certi&r1=1.2&r2=1.3

Patches:
Index: F90HLA13CERTIWrap.cpp
===================================================================
RCS file: /sources/certi/applications/F90HLA/libF90HLA13/F90HLA13CERTIWrap.cpp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- F90HLA13CERTIWrap.cpp       11 Feb 2008 14:25:07 -0000      1.2
+++ F90HLA13CERTIWrap.cpp       11 Feb 2008 14:42:32 -0000      1.3
@@ -55,7 +55,7 @@
 #define _F90requestFedResSucceeded fedsrvmod_mp_requestfedressucceeded_
 #define _F90requestFedResFailed fedsrvmod_mp_requestfedresfailed_
 #define _F90fedResBegun fedsrvmod_mp_fedresbegun_
-#define _F90initiateFedRes fedsrvmod_mp_initiatefedres_
+#define _F90initiateFedRestore fedsrvmod_mp_initiatefedrestore_
 #define _F90fedRestored fedsrvmod_mp_fedrestored_
 #define _F90fedNotRestored fedsrvmod_mp_fednotrestored_
 
@@ -102,7 +102,7 @@
 #define _F90requestFedResSucceeded __fedsrvmod__requestfedressucceeded
 #define _F90requestFedResFailed __fedsrvmod__requestfedresfailed
 #define _F90fedResBegun __fedsrvmod__fedresbegun
-#define _F90initiateFedRes __fedsrvmod__initiatefedres
+#define _F90initiateFedRestore __fedsrvmod__initiatefedrestore
 #define _F90fedRestored __fedsrvmod__fedrestored
 #define _F90fedNotRestored __fedsrvmod__fednotrestored
 
@@ -460,7 +460,7 @@
 
     // 4.19
     extern void
-        _F90initiateFedRes(const char*, const int*, // label
+        _F90initiateFedRestore(const char*, const int*, // label
                        const int*,              // fedHdl
                        int*);                   // error
 
@@ -876,7 +876,7 @@
         int lenLabel = theLabel.size();
        int fedHdl = fedHdl2Int(handle);
 
-       _F90initiateFedRes(theLabel.c_str(), &lenLabel,
+       _F90initiateFedRestore(theLabel.c_str(), &lenLabel,
                           &fedHdl,
                           &err);
 

Index: fedSrvMod.f90
===================================================================
RCS file: /sources/certi/applications/F90HLA/libF90HLA13/fedSrvMod.f90,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- fedSrvMod.f90       11 Feb 2008 14:25:07 -0000      1.2
+++ fedSrvMod.f90       11 Feb 2008 14:42:32 -0000      1.3
@@ -203,7 +203,7 @@
   end subroutine fedResBegun
 !
 ! 4.19
-  subroutine initiateFedRes(label, lenLabel, &
+  subroutine initiateFedRestore(label, lenLabel, &
                             fedHdl, &
                             err)
 
@@ -214,11 +214,11 @@
     integer, intent(in) :: fedHdl 
     integer, intent(inout) :: err
 
-    write(*,*) "initiateFedRes not implemented"
+    write(*,*) "initiateFedRestore not implemented"
     write(*,*) label
 
     err = 0
-  end subroutine initiateFedRes
+  end subroutine initiateFedRestore
 !
 ! 4.21
   subroutine fedRestored(err)