Searched refs:SFMIN (Results 1 – 2 of 2) sorted by relevance
82 DOUBLE PRECISION RND, EPS, SFMIN, SMALL, RMACH local108 SFMIN = TINY(ZERO)110 IF( SMALL.GE.SFMIN ) THEN115 SFMIN = SMALL*( ONE+EPS )117 RMACH = SFMIN
86 REAL RND, EPS, SFMIN, SMALL, RMACH local112 SFMIN = TINY(ZERO)114 IF( SMALL.GE.SFMIN ) THEN119 SFMIN = SMALL*( ONE+EPS )121 RMACH = SFMIN