7 October   2025   1:08:29.014 PM      

fire_simulation():
  Fortran77 version
  A probabilistic simulation of a forest fire.
  The probability of tree-to-tree spread is   0.500000    
  The random number generator is seeded by    796190967

  Fire starts at tree( 6,15)

  Map of fire damage.
  Fire started at "*".
  Burned trees are indicated by ".".
  Unburned trees are indicated by "X".

  XXXXXXXXX.........XX
  XXXXXXXX......X...X.
  XXXXXXXX............
  XXXXXXXXXXX.........
  XXXXXXXXXXX........X
  XXXX.XXXXXX...*...XX
  XXXX..............XX
  XXXXXXX.........X.XX
  XXXXXXX.........XXXX
  XXXXXX.............X
  XXXXXXXXXX.X.......X
  XXXXXXXXXX....XXXXXX
  XXXXXXXXXXXX..XXXXXX
  XXXXXXXXXXXX.XXXXXXX
  XXXXXXXXXXX..XXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX

  proportion of forest burned =   0.297500    

fire_simulation():
  Normal end of execution.

 7 October   2025   1:08:29.014 PM