Skip to content
Snippets Groups Projects
Commit 0b4a3d03 authored by Philipp Rüssmann's avatar Philipp Rüssmann
Browse files

Fix BdG compiler after update to newer version

parent 245f245a
No related branches found
No related tags found
No related merge requests found
......@@ -391,6 +391,7 @@ if(ENABLE_BdG)
source/common/radial_solver_Chebychev/rll_global_solutions.F90
source/common/radial_solver_Chebychev/sll_global_solutions.F90
source/common/radial_solver_Chebychev/create_newmesh.f90
source/KKRhost/runoptions.F90
source/KKRhost/wunfiles.F90
source/KKRhost/main_tmat_runner.F90
source/KKRhost/global_variables.F90
......
......@@ -27,6 +27,7 @@ subroutine main1a_dummy
use :: mod_main0, only: ielast, natyp, nspin, lmax, nsra, iend, lly, deltae, idoldau, ncheb, cleb, icleb, ez, npan_tot, &
lopt, ipan_intervall, zat, socscale, rnew, rpan_intervall, wldau
use :: mod_ioinput, only: ioinput
use :: mod_runoptions, only:write_BdG_tests
implicit none
......@@ -51,7 +52,7 @@ subroutine main1a_dummy
! for data import:
character (len=25) :: dummy
integer :: ier
character (len=256) :: uio ! NCOLIO=256
character (len=:), allocatable :: uio ! NCOLIO=256
! BdG specific:
......
......@@ -21,7 +21,7 @@ program tmat_runner
use :: mod_timing
use :: mod_md5sums
use :: memoryhandling
use :: mod_version_info, only: version_print_header
use :: mod_version_info, only: version_print_header, construct_serialnr
use :: global_variables
use :: mod_datatypes, only: dp
use :: mod_mympi, only: mympi_init, myrank, nranks, master, mpiatom, mpiadapt
......
......@@ -151,7 +151,7 @@ contains
character (len=100) :: filename
complex (kind=dp) :: e_shift
integer :: ier, KBdG
character (len=256) :: uio
character (len=:), allocatable :: uio
!-------------------------------------------------------------------------------
#ifdef CPP_OMP
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment