diff options
Diffstat (limited to 'SRC/zla_hercond_x.f')
| -rw-r--r-- | SRC/zla_hercond_x.f | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/SRC/zla_hercond_x.f b/SRC/zla_hercond_x.f index 56fb0daf..a3b19cf4 100644 --- a/SRC/zla_hercond_x.f +++ b/SRC/zla_hercond_x.f @@ -153,7 +153,7 @@ * .. Local Scalars .. INTEGER KASE, I, J DOUBLE PRECISION AINVNM, ANORM, TMP - LOGICAL UP + LOGICAL UP, UPPER COMPLEX*16 ZDUM * .. * .. Local Arrays .. @@ -180,8 +180,15 @@ ZLA_HERCOND_X = 0.0D+0 * INFO = 0 - IF( N.LT.0 ) THEN + UPPER = LSAME( UPLO, 'U' ) + IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN + INFO = -1 + ELSE IF ( N.LT.0 ) THEN INFO = -2 + ELSE IF( LDA.LT.MAX( 1, N ) ) THEN + INFO = -4 + ELSE IF( LDAF.LT.MAX( 1, N ) ) THEN + INFO = -6 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZLA_HERCOND_X', -INFO ) |