6 October   2023   7:20:33.959 AM      

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   1126520298

  Fire starts at tree(12, 6)

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

  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXX
  ...XXXXXXXXXXXXXXXXX
  .......XXXXXXXXXXXXX
  .......XXXXX..XXXXXX
  X.XX.*........XXXXXX
  X.............XXXXXX
  X................XXX
  .................XXX
  X.....X.X........XXX
  ........X..XXX..XXXX
  ............XXXXXXXX
  .....X......XXXXXXXX
  .....XX...X.XXXXXXXX

  Percentage of forest burned =   0.335000    

fire_simulation():
  Normal end of execution.

 6 October   2023   7:20:33.959 AM