diff --git a/app/main.F90 b/app/main.F90 index 4f23ac9..9554fe1 100644 --- a/app/main.F90 +++ b/app/main.F90 @@ -8,7 +8,7 @@ program main implicit none - character(len=10) :: ver = "1.0.0" + character(len=10) :: ver = "1.0.1" call MPI_INIT(ierror) diff --git a/fpm.toml b/fpm.toml index c36254b..b85a4fc 100644 --- a/fpm.toml +++ b/fpm.toml @@ -1,5 +1,5 @@ name = "SsTC_driver" -version = "1.0.0" +version = "1.0.1" license = "GNU General Public License v3.0" author = "Álvaro R. Puente-Uriona" maintainer = "alvaro.ruiz@ehu.eus" @@ -24,7 +24,7 @@ source-form = "free" [dependencies] MAC = { git="https://github.com/irukoa/MAC.git", tag = "v1.0.0" } -WannInt = { git="https://github.com/irukoa/WannInt.git", tag = "v1.0.0" } +WannInt = { git="https://github.com/irukoa/WannInt.git", tag = "v1.0.1" } mpi = "*" openmp = "*" diff --git a/src/SsTC_driver.F90 b/src/SsTC_driver.F90 index 1fce469..714fa70 100644 --- a/src/SsTC_driver.F90 +++ b/src/SsTC_driver.F90 @@ -11,7 +11,7 @@ module SsTC_driver get_MPI_task_partition use SsTC_driver_utils, only: kpath, kslice, crys_to_cart, cart_to_crys, kpath_length use MAC, only: container_specifier, container - use WannInt, only: crystal, diagonalize, & + use WannInt, only: crystal, diagonalize, inverse, & dirac_delta, & deg_list, schur, & SVD, expsh, logu @@ -27,6 +27,7 @@ module SsTC_driver public :: container_specifier, container public :: crystal public :: diagonalize + public :: inverse public :: dirac_delta public :: deg_list public :: schur