Use LSAME for character comparison (Reference-LAPACK PR755)
* ..
* .. External Functions ..
INTEGER ILAENV
- EXTERNAL ILAENV
+ LOGICAL LSAME
+ EXTERNAL ILAENV, LSAME
* ..
* .. Executable Statements ..
*
*
* Will add the VECT OPTION HERE next release
VECT = OPTS(1:1)
- IF( VECT.EQ.'N' ) THEN
+ IF( LSAME( VECT, 'N' ) ) THEN
LHOUS = MAX( 1, 4*NI )
ELSE
* This is not correct, it need to call the ALGO and the stage2
