Merge pull request #79 from vgaskov/master

Fix issue with checking input parameter in p?potri

Author: langou

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

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

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

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