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