1*10526Sdlw /* 2*10526Sdlw * "@(#)r_dim.c 1.1" 3*10526Sdlw */ 4*10526Sdlw 5*10526Sdlw double r_dim(a,b) 6*10526Sdlw float *a, *b; 7*10526Sdlw { 8*10526Sdlw return( *a > *b ? *a - *b : 0); 9*10526Sdlw } 10