110457Sdlw /* 2*22852Skre * Copyright (c) 1980 Regents of the University of California. 3*22852Skre * All rights reserved. The Berkeley software License Agreement 4*22852Skre * specifies the terms and conditions for redistribution. 5*22852Skre * 6*22852Skre * @(#)d_dim.c 5.1 06/07/85 710457Sdlw */ 810457Sdlw 910457Sdlw double d_dim(a,b) 1010457Sdlw double *a, *b; 1110457Sdlw { 1210457Sdlw return( *a > *b ? *a - *b : 0); 1310457Sdlw } 14