attempt at fixing build errors for CI tests

Author: Johnathan Rhyne

SRC/clarft.f

@@ -177,7 +177,8 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. Parameters ..
 *
  COMPLEX ONE, NEG_ONE, ZERO
- PARAMETER(ONE=1.0E+0, ZERO = 0.0E+0, NEG_ONE=-1.0E+0)
+ PARAMETER(ONE=(1.0E+0,0.0E+0), ZERO = (0.0E+0,0.0E+0),
+ $ NEG_ONE=(-1.0E+0,0.0E+0))
 *
 * .. Local Scalars ..
 *
@@ -191,7 +192,8 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. External Functions..
 *
  LOGICAL LSAME
- EXTERNAL LSAME
+ INTEGER ILAENV
+ EXTERNAL LSAME, ILAENV
 *
 * .. Intrinsic Functions..
 *

SRC/dlarft.f

@@ -191,7 +191,8 @@ RECURSIVE SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. External Functions..
 *
  LOGICAL LSAME
- EXTERNAL LSAME
+ INTEGER ILAENV
+ EXTERNAL LSAME, ILAENV
 * 
 * The general scheme used is inspired by the approach inside DGEQRT3
 * which was (at the time of writing this code):

SRC/slarft.f

@@ -191,7 +191,8 @@ RECURSIVE SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. External Functions..
 *
  LOGICAL LSAME
- EXTERNAL LSAME
+ INTEGER ILAENV
+ EXTERNAL LSAME, ILAENV
 * 
 * The general scheme used is inspired by the approach inside DGEQRT3
 * which was (at the time of writing this code):

SRC/zlarft.f

@@ -177,7 +177,8 @@ RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. Parameters ..
 *
  COMPLEX*16 ONE, NEG_ONE, ZERO
- PARAMETER(ONE=1.0D+0, ZERO = 0.0D+0, NEG_ONE=-1.0D+0)
+ PARAMETER(ONE=(1.0D+0,0.0D+0), ZERO = (0.0D+0,0.0D+0),
+ $ NEG_ONE=(-1.0D+0,0.0D+0))
 *
 * .. Local Scalars ..
 *
@@ -191,7 +192,8 @@ RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV,
 * .. External Functions..
 *
  LOGICAL LSAME
- EXTERNAL LSAME
+ INTEGER ILAENV
+ EXTERNAL LSAME, ILAENV
 *
 * .. Intrinsic Functions..
 *