6 December  2023   8:00:40.114 AM      
 
fd1d_wave_test():
  Fortran77 version
  Test fd1d_wave().
 
FD1D_WAVE_TEST01
  Try the "shark" wave.
 
  Stability condition ALPHA = C * DT / DX =    1.00000    
 
  Plot data written to "test01_data.txt".
 
FD1D_WAVE_TEST02
  Try a sine curve.
 
  Stability condition ALPHA = C * DT / DX =    1.00000    
 
  Plot data written to "test02_data.txt".
 
fd1d_wave_test():
  Normal end of execution.
 
 6 December  2023   8:00:40.115 AM