The R Project SVN – R – Diff – /trunk/src/modules/lapack/dlamc.f

 *         ( A guess; no known machine )
             IWARN = .TRUE.
          END IF
 ***
 * Comment out this if block if EMIN is ok
-         IF( IWARN ) THEN
+C          IF( IWARN ) THEN
-            FIRST = .TRUE.
+C             FIRST = .TRUE.
-            WRITE( 6, FMT = 9999 )LEMIN
+C             WRITE( 6, FMT = 9999 )LEMIN
-         END IF
+C          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:-',
+C  9999 FORMAT( / / ' WARNING. The value EMIN may be incorrect:-',
-     $      '  EMIN = ', I8, /
+C      $      '  EMIN = ', I8, /
-     $      ' If, after inspection, the value EMIN looks',
+C      $      ' If, after inspection, the value EMIN looks',
-     $      ' acceptable please comment out ',
+C      $      ' acceptable please comment out ',
-     $      / ' the IF block as marked within the code of routine',
+C      $      / ' the IF block as marked within the code of routine',
-     $      ' DLAMC2,', / ' otherwise supply EMIN explicitly.', / )
+C      $      ' DLAMC2,', / ' otherwise supply EMIN explicitly.', / )
+*
 *     End of DLAMC2
+*
       END
+*

The R Project SVN R