Commit 0569bcdb authored by Andreas Marek's avatar Andreas Marek
Browse files

Include sanity check in all ELPA1 templates

parent 74a0c95b
......@@ -54,6 +54,8 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../sanity.X90"
#if REALCASE == 1
!cannot use __FILE__ because filename with path can be too long for gfortran (max line length)
......
......@@ -52,6 +52,8 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
subroutine merge_systems_&
&PRECISION &
( na, nm, d, e, q, ldq, nqoff, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
......
......@@ -52,6 +52,8 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
subroutine solve_tridi_&
&PRECISION &
( na, nev, d, e, q, ldq, nblk, matrixCols, mpi_comm_rows, &
......
#if 0
! This file is part of ELPA.
!
! The ELPA library was originally created by the ELPA consortium,
! consisting of the following organizations:
!
! - Max Planck Computing and Data Facility (MPCDF), formerly known as
! Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
! - Bergische Universität Wuppertal, Lehrstuhl für angewandte
! Informatik,
! - Technische Universität München, Lehrstuhl für Informatik mit
! Schwerpunkt Wissenschaftliches Rechnen ,
! - Fritz-Haber-Institut, Berlin, Abt. Theorie,
! - Max-Plack-Institut für Mathematik in den Naturwissenschaften,
! Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
! and
! - IBM Deutschland GmbH
!
! This particular source code file contains additions, changes and
! enhancements authored by Intel Corporation which is not part of
! the ELPA consortium.
!
! More information can be found here:
! http://elpa.mpcdf.mpg.de/
!
! ELPA is free software: you can redistribute it and/or modify
! it under the terms of the version 3 of the license of the
! GNU Lesser General Public License as published by the Free
! Software Foundation.
!
! ELPA is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with ELPA. If not, see <http://www.gnu.org/licenses/>
!
! ELPA reflects a substantial effort on the part of the original
! ELPA consortium, and we ask you to respect the spirit of the
! license that we chose: i.e., please contribute any changes you
! may have back to the original ELPA library distribution, and keep
! any derivatives of ELPA under the same license that we chose for
! the original distribution, the GNU Lesser General Public License.
!
!
! ELPA1 -- Faster replacements for ScaLAPACK symmetric eigenvalue routines
!
! Copyright of the original code rests with the authors inside the ELPA
! consortium. The copyright of any additional modifications shall rest
! with their original authors, but shall adhere to the licensing terms
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
function elpa_solve_evp_&
&MATH_DATATYPE&
......
......@@ -52,6 +52,8 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#if REALCASE == 1
subroutine v_add_s_&
......
......@@ -52,6 +52,8 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
!> \brief Transforms the eigenvectors of a tridiagonal matrix back
!> to the eigenvectors of the original matrix
!> (like Scalapack Routine PDORMTR)
......
......@@ -81,6 +81,7 @@
!>
!> \param useGPU If true, GPU version of the subroutine will be used
!>
#include "../sanity.X90"
subroutine tridiag_&
&MATH_DATATYPE&
......
......@@ -44,6 +44,7 @@
#endif
#include "config-f90.h"
#include "../sanity.X90"
subroutine elpa_reduce_add_vectors_&
&MATH_DATATYPE&
......
......@@ -48,6 +48,7 @@
#endif
#include "config-f90.h"
#include "../sanity.X90"
subroutine elpa_transpose_vectors_&
&MATH_DATATYPE&
......
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