diff options
-rw-r--r-- | SRC/dbdsdc.f | 6 | ||||
-rw-r--r-- | SRC/sbdsdc.f | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index 40185268..0af80cbd 100644 --- a/SRC/dbdsdc.f +++ b/SRC/dbdsdc.f @@ -368,9 +368,9 @@ $ Q( START+( IC+QSTART-2 )*N ), $ Q( START+( IS+QSTART-2 )*N ), $ WORK( WSTART ), IWORK, INFO ) - IF( INFO.NE.0 ) THEN - RETURN - END IF + END IF + IF( INFO.NE.0 ) THEN + RETURN END IF START = I + 1 END IF diff --git a/SRC/sbdsdc.f b/SRC/sbdsdc.f index 31c51a4f..58f08f59 100644 --- a/SRC/sbdsdc.f +++ b/SRC/sbdsdc.f @@ -367,9 +367,9 @@ $ Q( START+( IC+QSTART-2 )*N ), $ Q( START+( IS+QSTART-2 )*N ), $ WORK( WSTART ), IWORK, INFO ) - IF( INFO.NE.0 ) THEN - RETURN - END IF + END IF + IF( INFO.NE.0 ) THEN + RETURN END IF START = I + 1 END IF |