[Dart-dev] [3829] DART/trunk/doc/mpi/ftest_mpi.f90: make the default to have the system interface block in,

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090422/6ec0e24f/attachment.html 
-------------- next part --------------
Modified: DART/trunk/doc/mpi/ftest_mpi.f90
===================================================================
--- DART/trunk/doc/mpi/ftest_mpi.f90	2009-04-21 21:58:09 UTC (rev 3828)
+++ DART/trunk/doc/mpi/ftest_mpi.f90	2009-04-22 15:14:01 UTC (rev 3829)
@@ -31,9 +31,12 @@
 ! which defines the interfaces to the MPI library routines, or an include
 ! file which defines constants.  Try to use the module if it is available.
 
-!use mpi
-include "mpif.h"
+use mpi
 
+implicit none
+
+!include "mpif.h"
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
@@ -45,18 +48,17 @@
 ! you an error about an undefined symbol (something like '_system_').  
 ! Comment this block in or out as needed.
 
-! ! 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
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-implicit none
 
 ! integer variables
 integer :: ierror, myrank, totalprocs, rc