Function Dprod

Part of:

package f2cl-lib
( dprod < x > < y > )