110526Sdlw /* 222956Skre * Copyright (c) 1980 Regents of the University of California. 322956Skre * All rights reserved. The Berkeley software License Agreement 422956Skre * specifies the terms and conditions for redistribution. 522956Skre * 6*23856Sjerry * @(#)r_dim.c 5.3 07/09/85 710526Sdlw */ 810526Sdlw 9*23856Sjerry float flt_retval; 10*23856Sjerry 1123854Sjerry float r_dim(a,b) 1210526Sdlw float *a, *b; 1310526Sdlw { 14*23856Sjerry flt_retval = *a > *b ? *a - *b : 0; 15*23856Sjerry return(flt_retval); 1610526Sdlw } 17