[Dart-dev] [3672] DART/trunk/doc/mpi: Fix a misnamed variable; added 'implicit none'; and fixed

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20081125/2950543a/attachment.html
-------------- next part --------------
Modified: DART/trunk/doc/mpi/ftest_go.f90
===================================================================
--- DART/trunk/doc/mpi/ftest_go.f90	2008-11-25 20:58:05 UTC (rev 3671)
+++ DART/trunk/doc/mpi/ftest_go.f90	2008-11-25 22:23:19 UTC (rev 3672)
@@ -42,7 +42,9 @@
 ! BUILD TIP 2:
 ! Some systems require this interface block in order to use the system()
 ! function.  However, some other systems complain if this is here... 
-! If this is a problem your program will not link and most likely give ! you an error about an undefined symbol (something like '_system_').  ! Comment this block in or out as needed.
+! If this is a problem your program will not link and most likely give 
+! 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
@@ -55,6 +57,7 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+implicit none
 
 ! integer variables
 integer :: ierror, myrank, totalprocs
@@ -162,7 +165,7 @@
    verbose = .true.
 
    ! the i5.5 format below will not handle task counts larger than this.
-   if (total_tasks > 99999) then
+   if (totalprocs > 99999) then
       print *, 'cannot handle task counts > 99999'
       call exit
    endif

Modified: DART/trunk/doc/mpi/ftest_mpi.f90
===================================================================
--- DART/trunk/doc/mpi/ftest_mpi.f90	2008-11-25 20:58:05 UTC (rev 3671)
+++ DART/trunk/doc/mpi/ftest_mpi.f90	2008-11-25 22:23:19 UTC (rev 3672)
@@ -56,6 +56,7 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+implicit none
 
 ! integer variables
 integer :: ierror, myrank, totalprocs, rc

Modified: DART/trunk/doc/mpi/ftest_stop.f90
===================================================================
--- DART/trunk/doc/mpi/ftest_stop.f90	2008-11-25 20:58:05 UTC (rev 3671)
+++ DART/trunk/doc/mpi/ftest_stop.f90	2008-11-25 22:23:19 UTC (rev 3672)
@@ -58,6 +58,7 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
 
+implicit none
 
 ! integer variables
 integer :: ierror, myrank, totalprocs
@@ -172,7 +173,7 @@
    verbose = .true.
 
    ! the i5.5 format below will not handle task counts larger than this.
-   if (total_tasks > 99999) then
+   if (totalprocs > 99999) then
       print *, 'cannot handle task counts > 99999'
       call exit
    endif