Next: DREAL, Previous: DOT_PRODUCT, Up: Intrinsic Procedures
DPROD
— Double product functionDPROD(X,Y)
returns the product X*Y
.
RESULT = DPROD(X, Y)
X | The type shall be REAL .
|
Y | The type shall be REAL .
|
REAL(8)
.
program test_dprod real :: x = 5.2 real :: y = 2.3 real(8) :: d d = dprod(x,y) print *, d end program test_dprod