9 May 2025   9:01:01.379 PM
 
FD1D_WAVE_TEST():
  FORTRAN90 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.
 
 9 May 2025   9:01:01.380 PM