<p><b>ringler@lanl.gov</b> 2009-08-11 12:57:40 -0600 (Tue, 11 Aug 2009)</p><p><br>
graph filename was null for nprocs > 1000.<br>
<br>
graph filename is not computed up to nprocs less than 100,000<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/module_block_decomp.F
===================================================================
--- trunk/swmodel/module_block_decomp.F        2009-08-11 02:50:49 UTC (rev 22)
+++ trunk/swmodel/module_block_decomp.F        2009-08-11 18:57:40 UTC (rev 23)
@@ -34,12 +34,17 @@
write(filename,'(a,i2)') 'graph.info.part.', dminfo % nprocs
else if (dminfo % nprocs < 1000) then
write(filename,'(a,i3)') 'graph.info.part.', dminfo % nprocs
+ else if (dminfo % nprocs < 10000) then
+ write(filename,'(a,i4)') 'graph.info.part.', dminfo % nprocs
+ else if (dminfo % nprocs < 100000) then
+ write(filename,'(a,i5)') 'graph.info.part.', dminfo % nprocs
end if
open(unit=iunit, file=trim(filename), form='formatted', status='old', iostat=istatus)
if (istatus /= 0) then
write(0,*) 'Could not open block decomposition file for ',dminfo % nprocs,' tasks.'
+ write(0,*) 'Filename: ',trim(filename)
call dmpar_abort(dminfo)
end if
</font>
</pre>