extended the expressions for USE_DESEL_ROWS and USE_SEL_DESEL_COLS to the second line

scr2016 · scr2016 · commit e73e1b071555 · 2026-04-09T15:07:57.000-07:00
diff --git a/SRC/dgecxx.f b/SRC/dgecxx.f
@@ -931,15 +931,17 @@ SUBROUTINE DGECXX( FACT, USESD, M, N,
       NFREE = NSUB
       MINMN = MIN( M, N )
 *
-      LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1)
+      LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1 )
 *
       RETURNX = LSAME( FACT, 'X' )
       RETURNC = LSAME( FACT, 'C' ) .OR. RETURNX
 *
-      USE_DESEL_ROWS = LSAME( USESD, 'R' ) .OR. LSAME( USESD, 'A' )
-      USE_SEL_DESEL_COLS = LSAME( USESD, 'C') .OR. LSAME( USESD, 'A' )
+      USE_DESEL_ROWS = LSAME( USESD, 'R' )
+     $                 .OR. LSAME( USESD, 'A' )
+      USE_SEL_DESEL_COLS = LSAME( USESD, 'C' )
+     $                 .OR. LSAME( USESD, 'A' )
 *
-      IF ( .NOT.(RETURNC .OR. LSAME( FACT, 'P') ) ) THEN
+      IF( .NOT.( RETURNC .OR. LSAME( FACT, 'P') ) ) THEN
          INFO = -1
       ELSE IF( .NOT.( USE_DESEL_ROWS .OR. USE_SEL_DESEL_COLS
      $       .OR. LSAME( USESD, 'N' ) ) ) THEN

Original file line number	Diff line number	Diff line change
`@@ -931,15 +931,17 @@ SUBROUTINE DGECXX( FACT, USESD, M, N,`
`931`	`931`	`NFREE = NSUB`
`932`	`932`	`MINMN = MIN( M, N )`
`933`	`933`	`*`
`934`		`- LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1)`
	`934`	`+ LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1 )`
`935`	`935`	`*`
`936`	`936`	`RETURNX = LSAME( FACT, 'X' )`
`937`	`937`	`RETURNC = LSAME( FACT, 'C' ) .OR. RETURNX`
`938`	`938`	`*`
`939`		`- USE_DESEL_ROWS = LSAME( USESD, 'R' ) .OR. LSAME( USESD, 'A' )`
`940`		`- USE_SEL_DESEL_COLS = LSAME( USESD, 'C') .OR. LSAME( USESD, 'A' )`
	`939`	`+ USE_DESEL_ROWS = LSAME( USESD, 'R' )`
	`940`	`+ $ .OR. LSAME( USESD, 'A' )`
	`941`	`+ USE_SEL_DESEL_COLS = LSAME( USESD, 'C' )`
	`942`	`+ $ .OR. LSAME( USESD, 'A' )`
`941`	`943`	`*`
`942`		`- IF ( .NOT.(RETURNC .OR. LSAME( FACT, 'P') ) ) THEN`
	`944`	`+ IF( .NOT.( RETURNC .OR. LSAME( FACT, 'P') ) ) THEN`
`943`	`945`	`INFO = -1`
`944`	`946`	`ELSE IF( .NOT.( USE_DESEL_ROWS .OR. USE_SEL_DESEL_COLS`
`945`	`947`	`$ .OR. LSAME( USESD, 'N' ) ) ) THEN`