program prod_test
double precision :: dp, de
real :: sp, se, st
dp 4.0D0 *datan( 1.0D0 ) ! Double Precision Pi
de dexp( 1.0D0 ) ! Double Precision e
sp 4.0 *atan( 1.0 ) ! and here in Single Precision
se exp( 1.00 )
write(*,'(A/)') " Double Precision Results:"
write(*,*) "dp*de
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|