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

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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_complex \- solve the complex eigenvalue problem with either the 1
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
.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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_complex_double \- solve the complex eigenvalue problem with eithe
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
.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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_complex_single \- solve the complex eigenvalue problem with eithe
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
.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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_real \- solve the real eigenvalue problem
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
.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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_real_double \- solve the real eigenvalue problem
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
.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
.nh
.SH NAME
......@@ -8,7 +8,7 @@ elpa_solve_evp_real_single \- solve the real eigenvalue problem
.SH SYNOPSIS
.br
.SS FORTRAN INTERFACE
use elpa
use elpa_driver
.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)"
......
......@@ -62,14 +62,14 @@ function elpa_solve_evp_&
&")
use, intrinsic :: iso_c_binding
use elpa, only : elpa_solve_evp_&
use elpa_driver, only : elpa_solve_evp_&
&MATH_DATATYPE&
&_&
&PRECISION
implicit none
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
integer(kind=c_int), value, intent(in) :: useGPU
#if REALCASE == 1
......
......@@ -53,7 +53,7 @@
#include "config-f90.h"
!> \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 elpa1
use elpa2
......@@ -562,5 +562,5 @@ module ELPA
end function elpa_solve_evp_complex_single
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
end module elpa
end module elpa_driver
......@@ -42,7 +42,7 @@
! any derivatives of ELPA under the same license that we chose for
! 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>
......
......@@ -78,7 +78,7 @@ program test_complex2
! distributed along with the original code in the file "COPYING".
!-------------------------------------------------------------------------------
use precision
use ELPA
use elpa_driver
use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP
use test_util
......
......@@ -78,7 +78,7 @@ program test_complex2
! distributed along with the original code in the file "COPYING".
!-------------------------------------------------------------------------------
use precision
use ELPA
use elpa_driver
use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP
use test_util
......
......@@ -79,7 +79,7 @@ program test_real2
!
!-------------------------------------------------------------------------------
use precision
use ELPA
use elpa_driver
use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP
use test_util
......
......@@ -79,7 +79,7 @@ program test_real2
!
!-------------------------------------------------------------------------------
use precision
use ELPA
use elpa_driver
use elpa_utilities, only : error_unit
#ifdef WITH_OPENMP
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