Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
0b19d06a
Unverified
Commit
0b19d06a
authored
Feb 11, 2015
by
Andreas Marek
Browse files
Error in BGQ kernel detection
Error in configure test program fixed
parent
ff13970b
Changes
4
Hide whitespace changes
Inline
Side-by-side
configure
View file @
0b19d06a
...
@@ -6523,7 +6523,7 @@ $as_echo_n "checking whether we can compile with BGQ intrinsics... " >&6; }
...
@@ -6523,7 +6523,7 @@ $as_echo_n "checking whether we can compile with BGQ intrinsics... " >&6; }
cat > conftest.$ac_ext <<_ACEOF
cat > conftest.$ac_ext <<_ACEOF
program test_bgq
program test_bgq
VECTOR(REAL(8))::QPX_x
1
VECTOR(REAL(8))::QPX_x
2
real*8 :: hh(10,2))
real*8 :: hh(10,2))
QPX_h2 = VEC_SPLATS(hh(2,2))
QPX_h2 = VEC_SPLATS(hh(2,2))
...
...
configure.ac
View file @
0b19d06a
...
@@ -450,7 +450,7 @@ AC_MSG_CHECKING([whether we can compile with BGQ intrinsics])
...
@@ -450,7 +450,7 @@ AC_MSG_CHECKING([whether we can compile with BGQ intrinsics])
AC_LINK_IFELSE([AC_LANG_SOURCE([
AC_LINK_IFELSE([AC_LANG_SOURCE([
program test_bgq
program test_bgq
VECTOR(REAL(8))::QPX_x
1
VECTOR(REAL(8))::QPX_x
2
real*8 :: hh(10,2))
real*8 :: hh(10,2))
QPX_h2 = VEC_SPLATS(hh(2,2))
QPX_h2 = VEC_SPLATS(hh(2,2))
...
...
src/elpa2.F90
View file @
0b19d06a
...
@@ -2837,7 +2837,7 @@ subroutine trans_ev_tridi_to_band_real(na, nev, nblk, nbw, q, ldq, &
...
@@ -2837,7 +2837,7 @@ subroutine trans_ev_tridi_to_band_real(na, nev, nblk, nbw, q, ldq, &
#endif
#endif
#if defined(WITH_REAL_BGQ_KERNEL)
#if defined(WITH_REAL_BGQ_KERNEL)
use
real_bg
p
_kernel
,
only
:
double_hh_trafo_bgq
use
real_bg
q
_kernel
,
only
:
double_hh_trafo_bgq
#endif
#endif
#ifdef HAVE_DETAILED_TIMINGS
#ifdef HAVE_DETAILED_TIMINGS
use
timings
use
timings
...
...
src/elpa2_kernels/elpa2_kernels_real_bgq.f90
View file @
0b19d06a
! This file is part of ELPA.
! This file is part of ELPA.
!
!
! The ELPA library was originally created by the ELPA consortium,
! The ELPA library was originally created by the ELPA consortium,
! consisting of the following organizations:
! consisting of the following organizations:
!
!
! - Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
! - Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
! - Bergische Universität Wuppertal, Lehrstuhl für angewandte
! - Bergische Universität Wuppertal, Lehrstuhl für angewandte
! Informatik,
! Informatik,
! - Technische Universität München, Lehrstuhl für Informatik mit
! - Technische Universität München, Lehrstuhl für Informatik mit
! Schwerpunkt Wissenschaftliches Rechnen ,
! Schwerpunkt Wissenschaftliches Rechnen ,
! - Fritz-Haber-Institut, Berlin, Abt. Theorie,
! - Fritz-Haber-Institut, Berlin, Abt. Theorie,
! - Max-Plack-Institut für Mathematik in den Naturwissenschaftrn,
! - Max-Plack-Institut für Mathematik in den Naturwissenschaftrn,
! Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
! Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
! and
! and
! - IBM Deutschland GmbH
! - IBM Deutschland GmbH
!
!
!
!
...
@@ -19,8 +19,8 @@
...
@@ -19,8 +19,8 @@
! http://elpa.rzg.mpg.de/
! http://elpa.rzg.mpg.de/
!
!
! ELPA is free software: you can redistribute it and/or modify
! ELPA is free software: you can redistribute it and/or modify
! it under the terms of the version 3 of the license of the
! it under the terms of the version 3 of the license of the
! GNU Lesser General Public License as published by the Free
! GNU Lesser General Public License as published by the Free
! Software Foundation.
! Software Foundation.
!
!
! ELPA is distributed in the hope that it will be useful,
! ELPA is distributed in the hope that it will be useful,
...
@@ -44,7 +44,7 @@
...
@@ -44,7 +44,7 @@
! This file contains the compute intensive kernels for the Householder transformations.
! This file contains the compute intensive kernels for the Householder transformations.
!
!
! *** Special IBM BlueGene/Q version with QPX intrinsics in Fortran ***
! *** Special IBM BlueGene/Q version with QPX intrinsics in Fortran ***
!
!
! Copyright of the original code rests with the authors inside the ELPA
! Copyright of the original code rests with the authors inside the ELPA
! consortium. The copyright of any additional modifications shall rest
! consortium. The copyright of any additional modifications shall rest
! with their original authors, but shall adhere to the licensing terms
! with their original authors, but shall adhere to the licensing terms
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment