[mpich2-commits] r5488 - mpich2/trunk/test/mpi/f77/datatype

[gropp at mcs.anl.gov]

Author: gropp
Date: 2009-10-20 03:20:51 -0500 (Tue, 20 Oct 2009)
New Revision: 5488

Modified:
   mpich2/trunk/test/mpi/f77/datatype/allctypesf.f
Log:
Move the include of mpif.h so that the Fortran 90 versions that use the mpi module will have the module in the correct place in the file

Modified: mpich2/trunk/test/mpi/f77/datatype/allctypesf.f
===================================================================
--- mpich2/trunk/test/mpi/f77/datatype/allctypesf.f	2009-10-19 22:33:48 UTC (rev 5487)
+++ mpich2/trunk/test/mpi/f77/datatype/allctypesf.f	2009-10-20 08:20:51 UTC (rev 5488)
@@ -78,9 +78,9 @@
 C
 C Check name of datatype
       subroutine CheckDtype( intype, name, ierr )
+      include 'mpif.h'
       integer intype, ierr
       character *(*) name
-      include 'mpif.h'
       integer ir, rlen
       character *(MPI_MAX_OBJECT_NAME) outname
 C     
@@ -102,9 +102,9 @@
 C
 C Check name of datatype (allows alias)
       subroutine CheckDtype2( intype, name, name2, ierr )
+      include 'mpif.h'
       integer intype, ierr
       character *(*) name, name2
-      include 'mpif.h'
       integer ir, rlen
       character *(MPI_MAX_OBJECT_NAME) outname
 C