The R Project SVN – R – Diff – /branches/R-exp-R5/src/modules/lapack/dlamch.f

             IWARN = .TRUE.
          END IF
          FIRST = .FALSE.
 ***
 * Comment out this if block if EMIN is ok
-         IF( IWARN ) THEN
+*         IF( IWARN ) THEN
-            FIRST = .TRUE.
+*            FIRST = .TRUE.
-            WRITE( 6, FMT = 9999 )LEMIN
+*            WRITE( 6, FMT = 9999 )LEMIN
-         END IF
+*         END IF
 ***
+*
 *        Assume IEEE arithmetic if we found denormalised  numbers above,
 *        or if arithmetic seems to round in the  IEEE style,  determined
 *        in routine DLAMC1. A true IEEE machine should have both  things
       EMAX = LEMAX
       RMAX = LRMAX
+*
       RETURN
+*
-FORMAT( / / ' WARNING. The value EMIN may be incorrect:-',
+*9999 FORMAT( / / ' WARNING. The value EMIN may be incorrect:-',
-     $      '  EMIN = ', I8, /
+*    $      '  EMIN = ', I8, /
-     $      ' If, after inspection, the value EMIN looks',
+*    $      ' If, after inspection, the value EMIN looks',
-     $      ' acceptable please comment out ',
+*    $      ' acceptable please comment out ',
-     $      / ' the IF block as marked within the code of routine',
+*    $      / ' the IF block as marked within the code of routine',
-     $      ' DLAMC2,', / ' otherwise supply EMIN explicitly.', / )
+*    $      ' DLAMC2,', / ' otherwise supply EMIN explicitly.', / )
+*
 *     End of DLAMC2
+*
       END
+*

The R Project SVN R