1*24234Sjerry /* 2*24234Sjerry * Copyright (c) 1980 Regents of the University of California. 3*24234Sjerry * All rights reserved. The Berkeley software License Agreement 4*24234Sjerry * specifies the terms and conditions for redistribution. 5*24234Sjerry * 6*24234Sjerry * @(#)d_dprod.c 1.1 08/09/85 7*24234Sjerry */ 8*24234Sjerry 9*24234Sjerry double d_dprod(x,y) 10*24234Sjerry double *x, *y; 11*24234Sjerry { 12*24234Sjerry /* dprod with -r8 flag - all in double precision */ 13*24234Sjerry return( (*x) * (*y) ); 14*24234Sjerry } 15