Home | History | Annotate | Download | only in testing

Lines Matching refs:SDIFF

98       REAL               SDIFF
100       EXTERNAL           SDIFF, LSE
240       IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
3041       REAL FUNCTION SDIFF( X, Y )
3051       SDIFF = X - Y
3054 *     End of SDIFF.