9 July 2020   8:25:56.349 PM

fire_simulation
  FORTRAN90 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   1218309397

  Fire starts at tree(19, 8)

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

  XXXXXXXXXXXXXXX.....
  XXXXXXXXXXXXXXX.....
  XXXXXXXXXXXXX.......
  XXXXXXXXXXXXX.......
  XXXXXXXXXXXXX.......
  XXXXXXXXXXXXX....X..
  XXXXXXXXXXXXX.......
  XXXXXXXXXXXXX....X..
  XXXXXXXXXXXXX.......
  XXXXXXXXXXXX.....XX.
  ...XXXXXXX..........
  ..XXXXXXXX..........
  ..XX...XXX...X......
  ..X.................
  X....XX.............
  X.................X.
  X...............XXX.
  XXXX......X......XX.
  XXX....*..X.........
  XXXX..XX...X........

  Percentage of forest burned =   0.535000    

fire_simulation:
  Normal end of execution.

 9 July 2020   8:25:56.351 PM