diff options
Diffstat (limited to 'TESTING/LIN/aladhd.f')
| -rw-r--r-- | TESTING/LIN/aladhd.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/aladhd.f b/TESTING/LIN/aladhd.f index 3a53e0bd..a45a56f3 100644 --- a/TESTING/LIN/aladhd.f +++ b/TESTING/LIN/aladhd.f @@ -279,7 +279,7 @@ * ELSE IF( LSAMEN( 2, P2, 'HA' ) ) THEN * -* HA: Hermitian +* HA: Hermitian * Aasen algorithm WRITE( IOUNIT, FMT = 9971 )PATH, 'Hermitian' * @@ -294,9 +294,9 @@ WRITE( IOUNIT, FMT = 9978 )5 WRITE( IOUNIT, FMT = 9976 )6 WRITE( IOUNIT, FMT = '( '' Messages:'' )' ) - - - ELSE IF( LSAMEN( 2, P2, 'HE' ) .OR. + + + ELSE IF( LSAMEN( 2, P2, 'HE' ) .OR. $ LSAMEN( 2, P2, 'HP' ) ) THEN * * HE: Hermitian indefinite full |