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