From ba727de3048a9065f5d48c39abd471cb5927e80b Mon Sep 17 00:00:00 2001 From: Angelika Schwarz Date: Fri, 16 Jun 2023 10:42:26 +0200 Subject: [PATCH] Remove legacy overflow warning for non-IEEE 754 machines --- SRC/dlas2.f | 4 +--- SRC/dlasv2.f | 4 +--- SRC/slas2.f | 4 +--- SRC/slasv2.f | 4 +--- 4 files changed, 4 insertions(+), 12 deletions(-) diff --git a/SRC/dlas2.f b/SRC/dlas2.f index ea929e86f7..ff75e3942f 100644 --- a/SRC/dlas2.f +++ b/SRC/dlas2.f @@ -93,9 +93,7 @@ *> infinite. *> *> Overflow will not occur unless the largest singular value itself -*> overflows, or is within a few ulps of overflow. (On machines with -*> partial overflow, like the Cray, overflow may occur if the largest -*> singular value is within a factor of 2 of overflow.) +*> overflows, or is within a few ulps of overflow. *> *> Underflow is harmless if underflow is gradual. Otherwise, results *> may correspond to a matrix modified by perturbations of size near diff --git a/SRC/dlasv2.f b/SRC/dlasv2.f index 64a06dee1a..cb2bf51c46 100644 --- a/SRC/dlasv2.f +++ b/SRC/dlasv2.f @@ -124,9 +124,7 @@ *> infinite. *> *> Overflow will not occur unless the largest singular value itself -*> overflows or is within a few ulps of overflow. (On machines with -*> partial overflow, like the Cray, overflow may occur if the largest -*> singular value is within a factor of 2 of overflow.) +*> overflows or is within a few ulps of overflow. *> *> Underflow is harmless if underflow is gradual. Otherwise, results *> may correspond to a matrix modified by perturbations of size near diff --git a/SRC/slas2.f b/SRC/slas2.f index 6ae86204cb..02ecbf4347 100644 --- a/SRC/slas2.f +++ b/SRC/slas2.f @@ -93,9 +93,7 @@ *> infinite. *> *> Overflow will not occur unless the largest singular value itself -*> overflows, or is within a few ulps of overflow. (On machines with -*> partial overflow, like the Cray, overflow may occur if the largest -*> singular value is within a factor of 2 of overflow.) +*> overflows, or is within a few ulps of overflow. *> *> Underflow is harmless if underflow is gradual. Otherwise, results *> may correspond to a matrix modified by perturbations of size near diff --git a/SRC/slasv2.f b/SRC/slasv2.f index 6b98e9a0c5..bf5d3ea0e0 100644 --- a/SRC/slasv2.f +++ b/SRC/slasv2.f @@ -124,9 +124,7 @@ *> infinite. *> *> Overflow will not occur unless the largest singular value itself -*> overflows or is within a few ulps of overflow. (On machines with -*> partial overflow, like the Cray, overflow may occur if the largest -*> singular value is within a factor of 2 of overflow.) +*> overflows or is within a few ulps of overflow. *> *> Underflow is harmless if underflow is gradual. Otherwise, results *> may correspond to a matrix modified by perturbations of size near