Resolved compilation issues of `rhoq` due to introduction of new runoptions.

cmake/source_list_KKRhost.txt

@@ -36,7 +36,6 @@ add_executable(
     source/common/constants.f90
     source/common/rotatespinframe.f90
     source/common/profiling.f90
-    source/common/wunfiles.F90
     source/common/mympi.F90
     source/common/types.F90
     source/common/timing.F90
@@ -352,6 +351,7 @@ add_executable(
     source/KKRhost/wrldaupot.f90
     source/KKRhost/wrldos.f90
     source/KKRhost/wrmoms.f90
+    source/KKRhost/wunfiles.F90
     source/KKRhost/ylag.f90
     source/KKRhost/ymy.f90
     )
@@ -367,7 +367,6 @@ if(ENABLE_BdG)
         source/common/version.F90
         source/common/version_info.F90
         source/common/profiling.f90 
-        source/common/wunfiles.F90 
         source/common/mympi.F90 
         source/common/DataTypes.f90
         source/common/constants.f90 
@@ -392,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/wunfiles.F90
         source/KKRhost/main_tmat_runner.F90
         source/KKRhost/global_variables.F90 
         source/KKRhost/save_wavefun.F90 

cmake/source_list_rhoq.txt

@@ -8,7 +8,6 @@ add_executable(
     source/common/version_info.F90
     source/common/DataTypes.f90
     source/common/constants.f90
-    source/common/wunfiles.F90
     source/common/profiling.f90
     source/common/mympi.F90
     source/common/types.F90
@@ -28,8 +27,6 @@ add_executable(
     source/rhoq/interpol_shape.f
     source/rhoq/read_shape.f
     source/rhoq/mod_rhoq.F90
-    source/rhoq/opt.f90
-    source/rhoq/test.f90
     )
 
 if(CMAKE_Fortran_COMPILER_ID MATCHES GNU)

source/rhoq/mod_rhoq.F90

@@ -213,13 +213,13 @@ end subroutine read_scoef_rhoq
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
-subroutine read_input_rhoq(t_rhoq, uio)
+subroutine read_input_rhoq(t_rhoq)
   ! read input such as proble layer mu_0, and parameters such as lmmaxso etc.
   use mod_ioinput, only: ioinput
   implicit none
   type(type_rhoq), intent(inout) :: t_rhoq
-  character*256, intent(in) :: uio ! unit in which to find inputcard
   ! local
+  character(len=:), allocatable :: uio ! unit in which to find inputcard
   integer :: ier
   
   call ioinput('mu0_rhoq        ',uio,1,7,ier)
@@ -2177,7 +2177,6 @@ program test
 
   implicit none
   
-  character*256 :: uio ! unit in which to find inputcard
   integer :: nkpt, Nkx, Nky ! total number of kpoints, k-mesh in x/y
   integer :: lmmaxso, natyp
   integer :: naez,ncls,nr,nemb
@@ -2225,7 +2224,6 @@ program test
   if(myrank==master) then
     
     ! read in scalars
-    uio = 'inputcard'
     open(9999, file='params.txt')
     read(9999,*) lmmaxso, natyp
     read(9999,*) naez, ncls, nr, nemb, lmax
@@ -2297,7 +2295,7 @@ program test
     call read_scoef_rhoq(t_rhoq)
 
     ! read from inputcard
-    call read_input_rhoq(t_rhoq, uio)
+    call read_input_rhoq(t_rhoq)
 
     ! save kpt, volcub, volbz nkpt to t_rhoq
     call save_kmesh_rhoq(t_rhoq,nkpt,kpt,volcub,volbz, Nkx, Nky)