[Dart-dev] [3329] DART/branches/nancy_work/mpi_utilities: My test branch only: In the repos we keep the system()

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080508/5163f922/attachment-0001.html
-------------- next part --------------
Modified: DART/branches/nancy_work/mpi_utilities/mpi_utilities_mod.f90
===================================================================
--- DART/branches/nancy_work/mpi_utilities/mpi_utilities_mod.f90	2008-05-08 22:54:27 UTC (rev 3328)
+++ DART/branches/nancy_work/mpi_utilities/mpi_utilities_mod.f90	2008-05-08 22:57:27 UTC (rev 3329)
@@ -224,14 +224,14 @@
 ! at link time about an undefined symbol (something like '_system_') then
 ! comment this interface block in and try again.
  
- ! interface block for getting return code back from system() routine
- interface
-  function system(string)
-   character(len=*) :: string
-   integer :: system
-  end function system
- end interface
- ! end block
+! ! interface block for getting return code back from system() routine
+! interface
+!  function system(string)
+!   character(len=*) :: string
+!   integer :: system
+!  end function system
+! end interface
+! ! end block
 
 contains
 

Modified: DART/branches/nancy_work/mpi_utilities/null_mpi_utilities_mod.f90
===================================================================
--- DART/branches/nancy_work/mpi_utilities/null_mpi_utilities_mod.f90	2008-05-08 22:54:27 UTC (rev 3328)
+++ DART/branches/nancy_work/mpi_utilities/null_mpi_utilities_mod.f90	2008-05-08 22:57:27 UTC (rev 3329)
@@ -199,14 +199,14 @@
 ! at link time about an undefined symbol (something like '_system_') then
 ! comment this interface block in and try again.
 
- ! interface block for getting return code back from system() routine
- interface
-  function system(string)
-   character(len=*) :: string
-   integer :: system
-  end function system
- end interface
- ! end block
+! ! interface block for getting return code back from system() routine
+! interface
+!  function system(string)
+!   character(len=*) :: string
+!   integer :: system
+!  end function system
+! end interface
+! ! end block
 
 
 contains