diff --git a/lapack-netlib/SRC/dspgvd.f b/lapack-netlib/SRC/dspgvd.f index 3d5afbf8ee..d9a3936a3e 100644 --- a/lapack-netlib/SRC/dspgvd.f +++ b/lapack-netlib/SRC/dspgvd.f @@ -225,7 +225,8 @@ SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * .. * .. External Functions .. LOGICAL LSAME - EXTERNAL LSAME + DOUBLE PRECISION DROUNDUP_LWORK + EXTERNAL LSAME, DROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL DPPTRF, DSPEVD, DSPGST, DTPMV, DTPSV, XERBLA diff --git a/lapack-netlib/SRC/dsygvd.f b/lapack-netlib/SRC/dsygvd.f index 6b585bae34..d0f9633f5c 100644 --- a/lapack-netlib/SRC/dsygvd.f +++ b/lapack-netlib/SRC/dsygvd.f @@ -245,7 +245,8 @@ SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * .. * .. External Functions .. LOGICAL LSAME - EXTERNAL LSAME + DOUBLE PRECISION DROUNDUP_LWORK + EXTERNAL LSAME, DROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL DPOTRF, DSYEVD, DSYGST, DTRMM, DTRSM, XERBLA