Double Precision Results:

 dp*de                   =   8.5397342226735660
 dble(sp*se)             =   8.5397342009798649
 dble(st)                =   8.5397338867187500
 dprod(sp,se)            =   8.5397342009798649
 dble(sp)*dble(se)       =   8.5397342009798649

 Single Precision Results:

 sp*se                   =   8.5397339
 real(dp*de)             =   8.5397339
 real(dble(sp)*dble(se)) =   8.5397339
 real(dprod(sp,se))      =   8.5397339

 Single Precision Epsilon    0.12E-06