110465Sdlw /* 2*22867Skre * Copyright (c) 1980 Regents of the University of California. 3*22867Skre * All rights reserved. The Berkeley software License Agreement 4*22867Skre * specifies the terms and conditions for redistribution. 5*22867Skre * 6*22867Skre * @(#)d_prod.c 5.1 06/07/85 710465Sdlw */ 810465Sdlw 910465Sdlw double d_prod(x,y) 1010465Sdlw float *x, *y; 1110465Sdlw { 1210465Sdlw return( (*x) * (*y) ); 1310465Sdlw } 14