Commit 2012f567 authored by Uliana Alekseeva's avatar Uliana Alekseeva

More tests for ELPA

parent 2868883a
......@@ -8,7 +8,7 @@ if (NOT FLEUR_USE_ELPA)
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -I$ENV{ELPA_MODULES}")
endif()
if (DEFINED ENV{ELPA_LIB})
set(TEST_LIBRARIES "-L${ELPA_LIB};-lelpa_openmp;${FLEUR_LIBRARIES}")
set(TEST_LIBRARIES "-L$ENV{ELPA_LIB};-lelpa_openmp;-lstdc++;${FLEUR_LIBRARIES}")
endif()
try_compile(FLEUR_USE_ELPA ${CMAKE_BINARY_DIR} ${CMAKE_SOURCE_DIR}/cmake/tests/test_ELPA.f90
LINK_LIBRARIES ${TEST_LIBRARIES})
......@@ -24,6 +24,7 @@ message("ELPA Library found:${FLEUR_USE_ELPA}")
#Now check for version of elpa
if (FLEUR_USE_ELPA)
set(FLEUR_USE_ELPA false)
try_compile(FLEUR_USE_ELPA_OLD ${CMAKE_BINARY_DIR} ${CMAKE_SOURCE_DIR}/cmake/tests/test_ELPA_OLD.f90
LINK_LIBRARIES ${FLEUR_LIBRARIES})
try_compile(FLEUR_USE_ELPA_NEW ${CMAKE_BINARY_DIR} ${CMAKE_SOURCE_DIR}/cmake/tests/test_ELPA_NEW.f90
......@@ -36,12 +37,15 @@ LINK_LIBRARIES ${FLEUR_LIBRARIES})
message("201605003 ELPA: ${FLEUR_USE_ELPA_201605003}")
#Set preprocessor switches
if (FLEUR_USE_ELPA_OLD)
set(FLEUR_USE_ELPA true)
set(FLEUR_MPI_DEFINITIONS ${FLEUR_MPI_DEFINITIONS} "CPP_ELPA" "CPP_ELPA2")
endif()
if (FLEUR_USE_ELPA_NEW)
set(FLEUR_USE_ELPA true)
set(FLEUR_MPI_DEFINITIONS ${FLEUR_MPI_DEFINITIONS} "CPP_ELPA" "CPP_ELPA2" "CPP_ELPA_NEW")
endif()
if (FLEUR_USE_ELPA_201605003)
set(FLEUR_USE_ELPA true)
set(FLEUR_MPI_DEFINITIONS ${FLEUR_MPI_DEFINITIONS} "CPP_ELPA" "CPP_ELPA2" "CPP_ELPA_201605003")
endif()
endif()
program test
use elpa1
integer:: ierr,mpi_subcom, myrowblacs, mycolblacs
integer:: mpi_comm_rows,mpi_comm_cols,m,nb,mycolssca,ok
integer:: mpi_comm_rows,mpi_comm_cols,m,nb,mycolssca
logical :: ok
real :: bsca(10,10)
ok=CHOLESKY_real (m,bsca,SIZE(bsca,1),nb,mycolssca,mpi_comm_rows,mpi_comm_cols,.false.)
end
program test
use elpa1
integer:: ierr,mpi_subcom, myrowblacs, mycolblacs
integer:: mpi_comm_rows,mpi_comm_cols,m,nb,mycolssca,ok
integer:: mpi_comm_rows,mpi_comm_cols,m,nb,mycolssca
logical ::ok
real :: bsca(10,10)
CALL CHOLESKY_real (m,bsca,SIZE(bsca,1),nb,mycolssca,mpi_comm_rows,mpi_comm_cols,.false.,ok)
end
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment