06 October 2025   6:03:04.439 PM

cosine_transform_test():
  Fortran90 version.
  Test cosine_transform().

COSINE_TRANSFORM_TEST01:
  COSINE_TRANSFORM_DATA does a cosine transform of data
  defined by a vector.

  Apply the transform, then its inverse.
  Let R be a random N vector.
  Let S be the transform of D.
  Let T be the transform of E.
  Then R and T will be equal.

     I      R(I)        S(I)        T(I)

     1    0.748304    1.789244    0.748304
     2    0.202415    0.329138    0.202415
     3    0.227312   -0.263408    0.227312
     4    0.636459    0.076858    0.636459
     5    0.899135    0.138716    0.899135
     6    0.274971    0.718572    0.274971
     7    0.086681    0.090567    0.086681
     8    0.763020   -0.292321    0.763020
     9    0.089679    0.351319    0.089679
    10    0.072894   -0.088415    0.072894

cosine_transform_test():
  Normal end of execution.

06 October 2025   6:03:04.439 PM