<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 &gt; 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 &lt; 1000) then
          write(filename,'(a,i3)') 'graph.info.part.', dminfo % nprocs
+      else if (dminfo % nprocs &lt; 10000) then
+         write(filename,'(a,i4)') 'graph.info.part.', dminfo % nprocs
+      else if (dminfo % nprocs &lt; 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>