Commit 6bb59888 authored by Andreas Marek's avatar Andreas Marek
Browse files

Rename of legacy elpa_driver module

parent d0703559
.TH "elpa_solve_evp_complex" 3 "Mon Oct 10 2015" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_complex" 3 "Sun Mar 23 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_complex \- solve the complex eigenvalue problem with either the 1 ...@@ -8,7 +8,7 @@ elpa_solve_evp_complex \- solve the complex eigenvalue problem with either the 1
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_complex\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNEL, useGPU, method)" .RI "success = \fBelpa_solve_evp_complex\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNEL, useGPU, method)"
......
.TH "elpa_solve_evp_complex_double" 3 "Mon Oct 10 2015" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_complex_double" 3 "Sun Mar 24 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_complex_double \- solve the complex eigenvalue problem with eithe ...@@ -8,7 +8,7 @@ elpa_solve_evp_complex_double \- solve the complex eigenvalue problem with eithe
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_complex_double\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNEL, useGPU, method)" .RI "success = \fBelpa_solve_evp_complex_double\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNEL, useGPU, method)"
......
.TH "elpa_solve_evp_complex_single" 3 "Mon Oct 10 2015" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_complex_single" 3 "Sun Mar 23 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_complex_single \- solve the complex eigenvalue problem with eithe ...@@ -8,7 +8,7 @@ elpa_solve_evp_complex_single \- solve the complex eigenvalue problem with eithe
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_complex_single\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNE, useGPU, method)" .RI "success = \fBelpa_solve_evp_complex_single\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_COMPLEX_ELPA_KERNE, useGPU, method)"
......
.TH "elpa_solve_evp_real" 3 "Mon Oct 10 2016" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_real" 3 "Sun Mar 23 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_real \- solve the real eigenvalue problem ...@@ -8,7 +8,7 @@ elpa_solve_evp_real \- solve the real eigenvalue problem
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_real\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNEL=THIS_REAL_ELPA_KERNEL, useQr, useGPU, method)" .RI "success = \fBelpa_solve_evp_real\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNEL=THIS_REAL_ELPA_KERNEL, useQr, useGPU, method)"
......
.TH "elpa_solve_evp_real_double" 3 "Mon Oct 10 2016" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_real_double" 3 "Sun Mar 24 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_real_double \- solve the real eigenvalue problem ...@@ -8,7 +8,7 @@ elpa_solve_evp_real_double \- solve the real eigenvalue problem
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_real_double\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNEL, useQr, useGPU, method=method)" .RI "success = \fBelpa_solve_evp_real_double\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNEL, useQr, useGPU, method=method)"
......
.TH "elpa_solve_evp_real_single" 3 "Mon Oct 10 2016" "ELPA" \" -*- nroff -*- .TH "elpa_solve_evp_real_single" 3 "Sun Mar 24 2017" "ELPA" \" -*- nroff -*-
.ad l .ad l
.nh .nh
.SH NAME .SH NAME
...@@ -8,7 +8,7 @@ elpa_solve_evp_real_single \- solve the real eigenvalue problem ...@@ -8,7 +8,7 @@ elpa_solve_evp_real_single \- solve the real eigenvalue problem
.SH SYNOPSIS .SH SYNOPSIS
.br .br
.SS FORTRAN INTERFACE .SS FORTRAN INTERFACE
use elpa use elpa_driver
.br .br
.br .br
.RI "success = \fBelpa_solve_evp_real_single\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNE, useQr, useGPU, method)" .RI "success = \fBelpa_solve_evp_real_single\fP (na, nev, a(lda,matrixCols), ev(nev), q(ldq, matrixCols), ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, mpi_comm_all, THIS_REAL_ELPA_KERNE, useQr, useGPU, method)"
......
...@@ -62,14 +62,14 @@ function elpa_solve_evp_& ...@@ -62,14 +62,14 @@ function elpa_solve_evp_&
&") &")
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
use elpa, only : elpa_solve_evp_& use elpa_driver, only : elpa_solve_evp_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_& &_&
&PRECISION &PRECISION
implicit none implicit none
integer(kind=c_int) :: success integer(kind=c_int) :: success
integer(kind=c_int), value, intent(in) :: na, nev, lda, ldq, nblk, matrixCols, & integer(kind=c_int), value, intent(in) :: na, nev, lda, ldq, nblk, matrixCols, &
mpi_comm_cols, mpi_comm_rows, mpi_comm_all mpi_comm_cols, mpi_comm_rows, mpi_comm_all
integer(kind=c_int), value, intent(in) :: useGPU integer(kind=c_int), value, intent(in) :: useGPU
#if REALCASE == 1 #if REALCASE == 1
......
...@@ -53,7 +53,7 @@ ...@@ -53,7 +53,7 @@
#include "config-f90.h" #include "config-f90.h"
!> \brief Fortran module which provides the routines to the ELPA solver (1 and 2 stage) !> \brief Fortran module which provides the routines to the ELPA solver (1 and 2 stage)
module ELPA module elpa_driver
use, intrinsic :: iso_c_binding, only : c_double, c_int, c_float, c_float_complex, c_double_complex use, intrinsic :: iso_c_binding, only : c_double, c_int, c_float, c_float_complex, c_double_complex
use elpa1 use elpa1
use elpa2 use elpa2
...@@ -562,5 +562,5 @@ module ELPA ...@@ -562,5 +562,5 @@ module ELPA
end function elpa_solve_evp_complex_single end function elpa_solve_evp_complex_single
#endif /* WANT_SINGLE_PRECISION_COMPLEX */ #endif /* WANT_SINGLE_PRECISION_COMPLEX */
end module elpa end module elpa_driver
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
! any derivatives of ELPA under the same license that we chose for ! any derivatives of ELPA under the same license that we chose for
! the original distribution, the GNU Lesser General Public License. ! the original distribution, the GNU Lesser General Public License.
! !
! This file has been rewritten by L. Huedepohl and A. Marek, MPCDF ! This file has been written by L. Huedepohl and A. Marek, MPCDF
#include <elpa/elpa_constants.h> #include <elpa/elpa_constants.h>
......
...@@ -78,7 +78,7 @@ program test_complex2 ...@@ -78,7 +78,7 @@ program test_complex2
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
use precision use precision
use ELPA use elpa_driver
use elpa_utilities, only : error_unit use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
use test_util use test_util
......
...@@ -78,7 +78,7 @@ program test_complex2 ...@@ -78,7 +78,7 @@ program test_complex2
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
use precision use precision
use ELPA use elpa_driver
use elpa_utilities, only : error_unit use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
use test_util use test_util
......
...@@ -79,7 +79,7 @@ program test_real2 ...@@ -79,7 +79,7 @@ program test_real2
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
use precision use precision
use ELPA use elpa_driver
use elpa_utilities, only : error_unit use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
use test_util use test_util
......
...@@ -79,7 +79,7 @@ program test_real2 ...@@ -79,7 +79,7 @@ program test_real2
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
use precision use precision
use ELPA use elpa_driver
use elpa_utilities, only : error_unit use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
use test_util use test_util
......
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