27 March 2023   6:08:10.095 PM
 
heated_plate():
  FORTRAN90 version
  A program to solve for the steady state temperature distribution
  over a rectangular plate.
 
  Spatial grid of      500 by      500 points.
 
  The iteration will repeat until the change is <=   0.100000E-02
 
  The steady state solution will be written to "sol_500x500.txt".
 
 Iteration  Change
 
         1     18.7375    
         2     9.36874    
         4     4.09882    
         8     2.28958    
        16     1.13660    
        32    0.568201    
        64    0.282805    
       128    0.141777    
       256    0.708080E-01
       512    0.354270E-01
      1024    0.177074E-01
      2048    0.885567E-02
      4096    0.442760E-02
      8192    0.221017E-02
     16384    0.104281E-02
 
     16955    0.999980E-03
 
  Error tolerance achieved.
  CPU time =    19.6660    
 
  Solution written to the output file "sol_500x500.txt".
 
HEATED_PLATE:
  Normal end of execution.

27 March 2023   6:08:29.959 PM