diff --git a/BLAS/SRC/xerbla_array.f b/BLAS/SRC/xerbla_array.f index 8a3c87840b..1143094bcb 100644 --- a/BLAS/SRC/xerbla_array.f +++ b/BLAS/SRC/xerbla_array.f @@ -105,7 +105,7 @@ SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO) EXTERNAL XERBLA * .. * .. Executable Statements .. - SRNAME = '' + SRNAME = ' ' DO I = 1, MIN( SRNAME_LEN, LEN( SRNAME ) ) SRNAME( I:I ) = SRNAME_ARRAY( I ) END DO diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index dbcdd742fc..079ad1e4c1 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -22,6 +22,9 @@ if ( FORTRAN_ILP ) else () set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -integer-size 64") endif() + elseif( (CMAKE_Fortran_COMPILER_ID STREQUAL "VisualAge" ) OR # CMake 2.6 + (CMAKE_Fortran_COMPILER_ID STREQUAL "XL" ) ) # CMake 2.8 + set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -qintsize=8") elseif( CMAKE_Fortran_COMPILER_ID STREQUAL "NAG" ) if ( WIN32 ) set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} /i8") diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index e78079c0eb..bbe84cbb2b 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -1,3 +1,8 @@ +if(NOT LAPACKE) + return() +endif() + + # Create a header file lapacke_mangling.h for the routines called in my C programs include(FortranCInterface) ## Ensure that the fortran compiler and c compiler specified are compatible @@ -14,11 +19,6 @@ endif() add_subdirectory(include) -if(NOT LAPACKE) - return() -endif() - - message(STATUS "LAPACKE enabled") enable_language(C) diff --git a/SRC/dsytrd_sy2sb.f b/SRC/dsytrd_sy2sb.f index 1660b5c7e3..d090b75082 100644 --- a/SRC/dsytrd_sy2sb.f +++ b/SRC/dsytrd_sy2sb.f @@ -293,7 +293,7 @@ SUBROUTINE DSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, INFO = 0 UPPER = LSAME( UPLO, 'U' ) LQUERY = ( LWORK.EQ.-1 ) - LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SY2SB', '', N, KD, -1, -1 ) + LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SY2SB', ' ', N, KD, -1, -1 ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN INFO = -1 diff --git a/SRC/xerbla_array.f b/SRC/xerbla_array.f index ff0a0186b7..1bffae8d75 100644 --- a/SRC/xerbla_array.f +++ b/SRC/xerbla_array.f @@ -115,7 +115,7 @@ SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) EXTERNAL XERBLA * .. * .. Executable Statements .. - SRNAME = '' + SRNAME = ' ' DO I = 1, MIN( SRNAME_LEN, LEN( SRNAME ) ) SRNAME( I:I ) = SRNAME_ARRAY( I ) END DO diff --git a/SRC/zhetrd_he2hb.f b/SRC/zhetrd_he2hb.f index e1b2e17948..51e2d209b6 100644 --- a/SRC/zhetrd_he2hb.f +++ b/SRC/zhetrd_he2hb.f @@ -293,7 +293,7 @@ SUBROUTINE ZHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, INFO = 0 UPPER = LSAME( UPLO, 'U' ) LQUERY = ( LWORK.EQ.-1 ) - LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HE2HB', '', N, KD, -1, -1 ) + LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HE2HB', ' ', N, KD, -1, -1 ) IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN INFO = -1