12 May       2025   9:03:35.928 PM      
 
test_laplace_test():
  Fortran77 version
  Test test_laplace(),
  a collection of Laplace transform 
  / inverse transform pairs.
 
  There are       16 test functions.
 
P00_TITLE_TEST
  List the problem title
 
   Problem    Title
 
         1
  Forward   F(T) = 1
  Backward  G(Z) = 1/z
 
         2
  Forward   F(T) = t
  Backward  G(Z) = 1/z**2
 
         3
  Forward   F(T) = sin(t)
  Backward  G(Z) = 1/(z*z+1)
 
         4
  Forward   F(T) = t*exp(-t)
  Backward  G(Z) = 1/(1+z)**2
 
         5
  Forward   F(T) = 1/sqrt(pi*t)
  Backward  G(Z) = 1/sqrt(z)
 
         6
  Forward   F(T) = theta(t-5)
  Backward  G(Z) = 1/(z*exp(5*z))
 
         7
  Forward   F(T) = -gamma-log(t)
  Backward  G(Z) = log(z)/z
 
         8
  Forward   F(T) = square wave
  Backward  G(Z) = 1/(z*(1+exp(-z)))
 
         9
  Forward   F(T) = t*cos(t)
  Backward  G(Z) = (z*z-1)/(z*z+1)**2
 
        10
  Forward   F(T) = (exp(-t/4)-exp(-t/2))/sqrt(4*pi*t**3)
  Backward  G(Z) = sqrt(z+1/2)-sqrt(z+1/4)
 
        11
  Forward   F(T) = 2*exp(-4/t)/sqrt(pi*t**3)
  Backward  G(Z) = exp(-4*sqrt(z))
 
        12
  Forward   F(T) = sin(t)/t
  Backward  G(Z) = atan(1/z)
 
        13
  Forward   F(T) = j0(t)
  Backward  G(Z) = 1/sqrt(1+z*z)
 
        14
  Forward   F(T) = cos(2*sqrt(t))/sqrt(pi*t)
  Backward  G(Z) = 1/(sqrt(z)*exp(1/z))
 
        15
  Forward   F(T) = exp(-0.5*t)
  Backward  G(Z) = 1/(z+0.5)
 
        16
  Forward   F(T) = exp(-0.2*t)*sin(t)
  Backward  G(Z) = 1/(1+(z+0.2)**2)
 
test_laplace_test():
  Normal end of execution.
 
12 May       2025   9:03:35.928 PM