From e3d5c5eb77549b5e4bc278449270eecc7c791346 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Wed, 9 Sep 2009 10:49:44 +0000
Subject: [PATCH] do not attempt to read command line arguments; mpich on
mahone objects.
---
DOUAR.f90 | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/DOUAR.f90 b/DOUAR.f90
index 3cbd6c14..58c269f3 100644
--- a/DOUAR.f90
+++ b/DOUAR.f90
@@ -101,8 +101,8 @@ call int_to_char(ciproc,3,iproc)
threadinfo%Logunit=1000+iproc
open (unit=threadinfo%Logunit,file='./DEBUG/mpilogs/Log_'//ciproc//'.dat',status='replace')
-write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-08-20'
-if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-08-20'
+write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-09-03'
+if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-09-03'
write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc
call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat')
@@ -114,6 +114,10 @@ call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat'
!------------------------------------------------------------------------------|
numarg=iargc()
+! 2009-09-03: Douglas Guptill
+! mpich doesn't allow us to read the command line
+! so we simulate an empty one
+numarg = 0
if (numarg==0) then
params%infile='input.txt'
--
GitLab