Unverified Commit 16ed9380 authored by Andreas Marek's avatar Andreas Marek
Browse files

Utility binary elpa2_print_kernels should print to stdout

The utility binary printed the available kernels to stderr.
This is changed. The ELPA library itself still does all prints
on stderr
parent 904b747a
...@@ -94,6 +94,7 @@ module ELPA2_utilities ...@@ -94,6 +94,7 @@ module ELPA2_utilities
public :: AVAILABLE_COMPLEX_ELPA_KERNELS, AVAILABLE_REAL_ELPA_KERNELS public :: AVAILABLE_COMPLEX_ELPA_KERNELS, AVAILABLE_REAL_ELPA_KERNELS
public :: print_available_real_kernels, print_available_complex_kernels public :: print_available_real_kernels, print_available_complex_kernels
public :: query_available_real_kernels, query_available_complex_kernels
public :: qr_decomposition_via_environment_variable public :: qr_decomposition_via_environment_variable
...@@ -307,7 +308,6 @@ module ELPA2_utilities ...@@ -307,7 +308,6 @@ module ELPA2_utilities
!****** !******
contains contains
subroutine print_available_real_kernels subroutine print_available_real_kernels
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
use timings use timings
...@@ -320,6 +320,33 @@ module ELPA2_utilities ...@@ -320,6 +320,33 @@ module ELPA2_utilities
call timer%start("print_available_real_kernels") call timer%start("print_available_real_kernels")
#endif #endif
do i=1, number_of_real_kernels
if (AVAILABLE_REAL_ELPA_KERNELS(i) .eq. 1) then
write(*,*) REAL_ELPA_KERNEL_NAMES(i)
endif
enddo
write(*,*) " "
write(*,*) " At the moment the following kernel would be choosen:"
write(*,*) get_actual_real_kernel_name()
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("print_available_real_kernels")
#endif
end subroutine print_available_real_kernels
subroutine query_available_real_kernels
#ifdef HAVE_DETAILED_TIMINGS
use timings
#endif
implicit none
integer :: i
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("query_available_real_kernels")
#endif
do i=1, number_of_real_kernels do i=1, number_of_real_kernels
if (AVAILABLE_REAL_ELPA_KERNELS(i) .eq. 1) then if (AVAILABLE_REAL_ELPA_KERNELS(i) .eq. 1) then
write(error_unit,*) REAL_ELPA_KERNEL_NAMES(i) write(error_unit,*) REAL_ELPA_KERNEL_NAMES(i)
...@@ -330,10 +357,10 @@ module ELPA2_utilities ...@@ -330,10 +357,10 @@ module ELPA2_utilities
write(error_unit,*) get_actual_real_kernel_name() write(error_unit,*) get_actual_real_kernel_name()
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
call timer%stop("print_available_real_kernels") call timer%stop("query_available_real_kernels")
#endif #endif
end subroutine print_available_real_kernels end subroutine query_available_real_kernels
subroutine print_available_complex_kernels subroutine print_available_complex_kernels
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
...@@ -347,6 +374,33 @@ module ELPA2_utilities ...@@ -347,6 +374,33 @@ module ELPA2_utilities
call timer%start("print_available_complex_kernels") call timer%start("print_available_complex_kernels")
#endif #endif
do i=1, number_of_complex_kernels
if (AVAILABLE_COMPLEX_ELPA_KERNELS(i) .eq. 1) then
write(*,*) COMPLEX_ELPA_KERNEL_NAMES(i)
endif
enddo
write(*,*) " "
write(*,*) " At the moment the following kernel would be choosen:"
write(*,*) get_actual_complex_kernel_name()
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("print_available_complex_kernels")
#endif
end subroutine print_available_complex_kernels
subroutine query_available_complex_kernels
#ifdef HAVE_DETAILED_TIMINGS
use timings
#endif
implicit none
integer :: i
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("query_available_complex_kernels")
#endif
do i=1, number_of_complex_kernels do i=1, number_of_complex_kernels
if (AVAILABLE_COMPLEX_ELPA_KERNELS(i) .eq. 1) then if (AVAILABLE_COMPLEX_ELPA_KERNELS(i) .eq. 1) then
write(error_unit,*) COMPLEX_ELPA_KERNEL_NAMES(i) write(error_unit,*) COMPLEX_ELPA_KERNEL_NAMES(i)
...@@ -357,10 +411,10 @@ module ELPA2_utilities ...@@ -357,10 +411,10 @@ module ELPA2_utilities
write(error_unit,*) get_actual_complex_kernel_name() write(error_unit,*) get_actual_complex_kernel_name()
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
call timer%stop("print_available_complex_kernels") call timer%stop("query_available_complex_kernels")
#endif #endif
end subroutine print_available_complex_kernels end subroutine query_available_complex_kernels
function get_actual_real_kernel() result(actual_kernel) function get_actual_real_kernel() result(actual_kernel)
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
......
Supports Markdown
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