18 December  2023   1:01:04.233 PM      

spiral_data_test():
  Fortran77 version
  Test spiral_data().

TEST01
  Sample a spiral velocity field and estimate
  the range of the solution values.

           Minimum       Maximum

  U:      -1.85404         2.22494    
  V:      -2.23154         1.85234    

TEST02:
  Sample a spiral velocity field and estimate the
  range of residuals in the continuity equation.

           Minimum       Maximum

  Pr:       0.00000         0.00000    

TEST03:
  Generate a spiral velocity field on a regular grid.
  Store in GNUPLOT data and command files.

  Data written to "spiral_data_data.txt".
  Commands written to "spiral_data_commands.txt".

spiral_data_test():
  Normal end of execution.
18 December  2023   1:01:04.235 PM