11 May 2010   8:08:15.785 AM
 
COST_TEST
  FORTRAN90 version
 
  Test the FFTPACK5 Cosine Transform routines.
 
TEST01
  For real fast cosine transforms, 1D,
  COST1I initializes the transforms,
  COST1F does a forward transforms;
  COST1B does a backward transforms.
 
  The number of data items is N = 4096
 
  The original data:
 
         1  0.15441427E-01
         2  0.52405602    
         3  0.80930066    
         4  0.91671026    
         5  0.14975941    
         6  0.64746253E-02
         7  0.81902778    
         8  0.40008637    
         9  0.25180870    
        10  0.14908369    
 
  The FFT coefficients:
 
         1  0.49683216    
         2  -.82119294E-02
         3  -.15197121E-03
         4  -.67906347E-02
         5  0.10358667E-01
         6  -.14575866E-01
         7  0.10416001E-02
         8  -.14773483E-01
         9  -.29696987E-02
        10  -.13238335E-01
 
  The retrieved data:
 
         1  0.15211732E-01
         2  0.52423316    
         3  0.80931890    
         4  0.91670543    
         5  0.14977117    
         6  0.64959014E-02
         7  0.81902009    
         8  0.40008989    
         9  0.25179392    
        10  0.14908217    
 
TEST02
  For double precision fast cosine transforms, 1D,
  DCOST1I initializes the transforms,
  DCOST1F does a forward transforms;
  DCOST1B does a backward transforms.
 
  The number of data items is N = 4096
 
  The original data:
 
         1  0.15441427E-01
         2  0.52405601    
         3  0.80930069    
         4  0.91671028    
         5  0.14975941    
         6  0.64746253E-02
         7  0.81902779    
         8  0.40008638    
         9  0.25180872    
        10  0.14908369    
 
  The FFT coefficients:
 
         1  0.49683213    
         2  -.82119281E-02
         3  -.15191933E-03
         4  -.67906201E-02
         5  0.10358591E-01
         6  -.14575892E-01
         7  0.10416474E-02
         8  -.14773469E-01
         9  -.29697275E-02
        10  -.13238367E-01
 
  The retrieved data:
 
         1  0.15441427E-01
         2  0.52405601    
         3  0.80930069    
         4  0.91671028    
         5  0.14975941    
         6  0.64746253E-02
         7  0.81902779    
         8  0.40008638    
         9  0.25180872    
        10  0.14908369    
 
COST_TEST
  Normal end of execution.
 
11 May 2010   8:08:15.800 AM