[mpich2-commits] r7719 - mpich2/trunk

[jayesh at mcs.anl.gov]

Author: jayesh
Date: 2011-01-13 13:28:01 -0600 (Thu, 13 Jan 2011)
New Revision: 7719

Modified:
   mpich2/trunk/winconfigure.wsf
Log:
Generate mpi_base.f90 on Windows - Was changed to configure generated file in r7524

Modified: mpich2/trunk/winconfigure.wsf
===================================================================
--- mpich2/trunk/winconfigure.wsf	2011-01-13 18:56:00 UTC (rev 7718)
+++ mpich2/trunk/winconfigure.wsf	2011-01-13 19:28:01 UTC (rev 7719)
@@ -2059,6 +2059,8 @@
 				Else
 					str = Replace(str, "@F77_MPI_OFFSET@", "INTEGER (KIND=8)")
 				End If
+                        Case "@WTIME_DOUBLE_TYPE@"
+                                str = Replace(str, "@WTIME_DOUBLE_TYPE@", "DOUBLE PRECISION")
 			' FIXME: The size of int,... could depend on compiler options
                         ' These defns, *FC*, are specific to the Intel Fortran Compiler on Windows.
                         ' These values may not work for say gfortran
@@ -4807,6 +4809,16 @@
 			fin.Close()
 			fout.Close()
 
+			' Create mpi_base.f90 
+			printMsg "VERBOSE", "Creating src\binding\f90\mpi_base.f90"
+			set fout = fs.CreateTextFile("mpi_base.f90" , True)
+			set fin  = fs.OpenTextFile("mpi_base.f90.in")
+			contents = fin.ReadAll()
+			contents = ReplaceAts(contents, false, false)
+			fout.Write(contents)
+			fin.Close()
+			fout.Close()
+
 			WshShell.CurrentDirectory = "..\..\.."
 
 		End If