110526Sdlw /* 2*22956Skre * Copyright (c) 1980 Regents of the University of California. 3*22956Skre * All rights reserved. The Berkeley software License Agreement 4*22956Skre * specifies the terms and conditions for redistribution. 5*22956Skre * 6*22956Skre * @(#)r_dim.c 5.1 06/07/85 710526Sdlw */ 810526Sdlw 910526Sdlw double r_dim(a,b) 1010526Sdlw float *a, *b; 1110526Sdlw { 1210526Sdlw return( *a > *b ? *a - *b : 0); 1310526Sdlw } 14