1*10465Sdlw /* 2*10465Sdlw * "@(#)d_prod.c 1.1" 3*10465Sdlw */ 4*10465Sdlw 5*10465Sdlw double d_prod(x,y) 6*10465Sdlw float *x, *y; 7*10465Sdlw { 8*10465Sdlw return( (*x) * (*y) ); 9*10465Sdlw } 10