Commit 0d424729 authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected wrong data types of work_r and work_c in cdn_mt/abcof.F90

...and a small initialization in init/inped.F90.
parent 2f1a72da
...@@ -55,8 +55,8 @@ CONTAINS ...@@ -55,8 +55,8 @@ CONTAINS
!$ COMPLEX, ALLOCATABLE :: acof_loc(:,:), bcof_loc(:,:) !$ COMPLEX, ALLOCATABLE :: acof_loc(:,:), bcof_loc(:,:)
!$ COMPLEX, ALLOCATABLE :: acof_inv(:,:), bcof_inv(:,:) !$ COMPLEX, ALLOCATABLE :: acof_inv(:,:), bcof_inv(:,:)
LOGICAL enough(atoms%natd),apw(0:atoms%lmaxd,atoms%ntypd) LOGICAL enough(atoms%natd),apw(0:atoms%lmaxd,atoms%ntypd)
COMPLEX, ALLOCATABLE :: work_r(:) REAL, ALLOCATABLE :: work_r(:)
REAL, ALLOCATABLE :: work_c(:) COMPLEX, ALLOCATABLE :: work_c(:)
LOGICAL :: l_real LOGICAL :: l_real
IF (PRESENT(realdata)) THEN IF (PRESENT(realdata)) THEN
......
...@@ -91,6 +91,7 @@ ...@@ -91,6 +91,7 @@
input%l_core_confpot=.TRUE. !this is the former CPP_CORE switch! input%l_core_confpot=.TRUE. !this is the former CPP_CORE switch!
input%l_useapw=.FALSE. !this is the former CPP_APW switch! input%l_useapw=.FALSE. !this is the former CPP_APW switch!
atoms%lapw_l(:) = -1
!---> pk non-collinear !---> pk non-collinear
!---> read the angle information from nocoinf !---> read the angle information from nocoinf
noco%qss(:) = 0.0 noco%qss(:) = 0.0
......
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