The DPROD function returns a double precision REAL product, given two single precision REAL arguments.
Syntax
DPROD (x, y)
x is an INTENT(IN) scalar or array of type default REAL.
y is INTENT(IN) and scalar if x is a scalar, or an array if x is an array. y is of type default REAL.
The result is of type double-precision REAL. Its value is an approximation of the double-precision product of x and y.
Example
real :: x.1.25,y=1.25 write(*,*) x.y,dprod(x,y) ! writes 1.56250000000000