Lines Matching refs:THEN
103 IF( ONE.EQ.RND ) THEN
109 IF( LSAME( CMACH, 'E' ) ) THEN
111 ELSE IF( LSAME( CMACH, 'S' ) ) THEN
114 IF( SMALL.GE.SFMIN ) THEN
122 ELSE IF( LSAME( CMACH, 'B' ) ) THEN
124 ELSE IF( LSAME( CMACH, 'P' ) ) THEN
126 ELSE IF( LSAME( CMACH, 'N' ) ) THEN
128 ELSE IF( LSAME( CMACH, 'R' ) ) THEN
130 ELSE IF( LSAME( CMACH, 'M' ) ) THEN
132 ELSE IF( LSAME( CMACH, 'U' ) ) THEN
134 ELSE IF( LSAME( CMACH, 'L' ) ) THEN
136 ELSE IF( LSAME( CMACH, 'O' ) ) THEN
