09 May 2025   8:57:43.237 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.563547    1.575803    0.563547
     2    0.618608    0.178618    0.618608
     3    0.421500    0.317712    0.421500
     4    0.218354    0.397494    0.218354
     5    0.058356   -0.492583    0.058356
     6    0.105548    0.163992    0.105548
     7    0.245305   -0.027900    0.245305
     8    0.954257   -0.232945    0.954257
     9    0.226580    0.257659    0.226580
    10    0.111546   -0.226550    0.111546

cosine_transform_test():
  Normal end of execution.

09 May 2025   8:57:43.238 PM