Lines Matching full:sdiff
97 REAL SDIFF99 EXTERNAL SDIFF, LSE253 IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )2892 REAL FUNCTION SDIFF( X, Y )2902 SDIFF = X - Y2905 * End of SDIFF.