12 May       2025   8:40:14.393 PM      
 
DOUBLE_COMPLEX
  Fortran77 version.
 
  Demonstrate double precision complex arithmetic.
 
TEST01
  Use complex values of the default type.
 
   A =              (1.00000000,1.00000000)
   B = sqrt ( A ) =             (1.09868419,0.455089837)
   C = A - B * B =        (-2.384185791E-07,0.00000000)
 
TEST02
  Use complex values of KIND = 8.
 
 
   A =                (1.0000000000000000,1.0000000000000000)
   B = sqrt ( A ) =               (1.0986841134678100,0.45508986056222733)
   C = A - B * B =         (-2.22044604925031308E-016,0.0000000000000000)
 
TEST03
  Use "DOUBLE COMPLEX" values.
 
   A =                (1.0000000000000000,1.0000000000000000)
   B = sqrt ( A ) =               (1.0986841134678100,0.45508986056222733)
   C = A - B * B =         (-2.22044604925031308E-016,0.0000000000000000)
 
DOUBLE_COMPLEX
  Normal end of execution.
 
12 May       2025   8:40:14.393 PM