17 December  2023   9:29:44.649 AM      
 
stochastic_diffusion_tes():
  Fortran77 version
  Test stochastic_diffusion().

BNT_CONTOUR
  Display contour or surface plots of the stochastic
  diffusivity function defined by DIFFUSIVITY_2D_BNT.

  The first plot uses uniform random values for OMEGA.
  The second uses Gaussian (normal) random values.
 
  Created graphics data file "bnt_data.txt".
  Created graphics command file "bnt_commands.txt".

ELMAN_CONTOUR
  Display contour or surface plots of the stochastic
  diffusivity function defined by DIFFUSIVITY_2D_ELMAN.
 
  Created graphics data file "elman_data.txt".
  Created graphics command file "elman_commands.txt".

NTW_CONTOUR
  Display contour or surface plots of the stochastic
  diffusivity function defined by DIFFUSIVITY_2D_NTW.
 
  Created graphics data file "ntw_data.txt".
  Created graphics command file "ntw_commands.txt".
 
XK_CONTOUR
  Plot the stochastic diffusivity function
  defined by DIFFUSIVITY_1D_XK.
 
  Created graphics data file "xk_data.txt".
  Created graphics command file "xk_commands.txt".
 
stochastic_diffusion_test():
  Normal end of execution.
 
17 December  2023   9:29:44.679 AM