From d74142691d31f3b11307ec2264af724779753add Mon Sep 17 00:00:00 2001 From: vgaskov Date: Wed, 23 Nov 2022 18:03:52 +0700 Subject: [PATCH 1/4] Fix issue with checking input parameter in pdpotri Checking input parameters in p?potri doesn't work correctly since the branch is omitted. --- SRC/pdpotri.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/pdpotri.f b/SRC/pdpotri.f index fd287cdd..e7e795fd 100644 --- a/SRC/pdpotri.f +++ b/SRC/pdpotri.f @@ -158,7 +158,7 @@ SUBROUTINE PDPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) ELSE UPPER = LSAME( UPLO, 'U' ) CALL CHK1MAT( N, 2, N, 2, IA, JA, DESCA, 6, INFO ) - IF( INFO.NE.0 ) THEN + IF( INFO.EQ.0 ) THEN IROFF = MOD( IA-1, DESCA( MB_ ) ) ICOFF = MOD( JA-1, DESCA( NB_ ) ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN From 6b85669ec6a72a09c125954443a23b9e19f1cbe3 Mon Sep 17 00:00:00 2001 From: vgaskov Date: Wed, 23 Nov 2022 18:07:42 +0700 Subject: [PATCH 2/4] Fix issue with checking input parameter in pspotri Checking input parameters in p?potri doesn't work correctly since the branch condition is incorrect. --- SRC/pspotri.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/pspotri.f b/SRC/pspotri.f index d40243e5..95fdd093 100644 --- a/SRC/pspotri.f +++ b/SRC/pspotri.f @@ -158,7 +158,7 @@ SUBROUTINE PSPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) ELSE UPPER = LSAME( UPLO, 'U' ) CALL CHK1MAT( N, 2, N, 2, IA, JA, DESCA, 6, INFO ) - IF( INFO.NE.0 ) THEN + IF( INFO.EQ.0 ) THEN IROFF = MOD( IA-1, DESCA( MB_ ) ) ICOFF = MOD( JA-1, DESCA( NB_ ) ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN From 8068bfdbcf7f79d27838d5814a20ed487c927be5 Mon Sep 17 00:00:00 2001 From: vgaskov Date: Wed, 23 Nov 2022 18:08:18 +0700 Subject: [PATCH 3/4] Update pcpotri.f --- SRC/pcpotri.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/pcpotri.f b/SRC/pcpotri.f index eeaf9684..e2afc5ee 100644 --- a/SRC/pcpotri.f +++ b/SRC/pcpotri.f @@ -158,7 +158,7 @@ SUBROUTINE PCPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) ELSE UPPER = LSAME( UPLO, 'U' ) CALL CHK1MAT( N, 2, N, 2, IA, JA, DESCA, 6, INFO ) - IF( INFO.NE.0 ) THEN + IF( INFO.EQ.0 ) THEN IROFF = MOD( IA-1, DESCA( MB_ ) ) ICOFF = MOD( JA-1, DESCA( NB_ ) ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN From 018e70645552dc5b35a5b0086656c1d5f905c568 Mon Sep 17 00:00:00 2001 From: vgaskov Date: Wed, 23 Nov 2022 18:11:08 +0700 Subject: [PATCH 4/4] Fix issue with checking input parameter in pzpotri Checking input parameters in p?potri doesn't work correctly since the branch condition is incorrect. --- SRC/pzpotri.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/pzpotri.f b/SRC/pzpotri.f index 1d475fde..4d0ea77c 100644 --- a/SRC/pzpotri.f +++ b/SRC/pzpotri.f @@ -158,7 +158,7 @@ SUBROUTINE PZPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) ELSE UPPER = LSAME( UPLO, 'U' ) CALL CHK1MAT( N, 2, N, 2, IA, JA, DESCA, 6, INFO ) - IF( INFO.NE.0 ) THEN + IF( INFO.EQ.0 ) THEN IROFF = MOD( IA-1, DESCA( MB_ ) ) ICOFF = MOD( JA-1, DESCA( NB_ ) ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN