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*23854Sjerry * @(#)r_dim.c 5.2 07/08/85 710526Sdlw */ 810526Sdlw 9*23854Sjerry float r_dim(a,b) 1010526Sdlw float *a, *b; 1110526Sdlw { 1210526Sdlw return( *a > *b ? *a - *b : 0); 1310526Sdlw } 14