dprod(3f)

NAME

dprod − double precision product intrinsic function

real a1,a2
double precision a3
a3 = dprod(a1,a2)

The dprod function returns the double precision product of its real arguments.