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

Resolve inconsistency between neigd2 in types/types_misc and dimension%neigd2

The inconsistency lead to array operations with arrays of different sizes in
the relevant dimension.
parent c948ef73
...@@ -198,7 +198,7 @@ CONTAINS ...@@ -198,7 +198,7 @@ CONTAINS
CALL mpi_bc_potden(mpi,stars,sphhar,atoms,input,vacuum,oneD,noco,inDen) CALL mpi_bc_potden(mpi,stars,sphhar,atoms,input,vacuum,oneD,noco,inDen)
#endif #endif
dimension%neigd2 = dimension%neigd dimension%neigd2 = MIN(dimension%neigd,dimension%nbasfcn)
IF (noco%l_soc) dimension%neigd2 = dimension%neigd*2 IF (noco%l_soc) dimension%neigd2 = dimension%neigd*2
!HF !HF
......
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