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
CALL mpi_bc_potden(mpi,stars,sphhar,atoms,input,vacuum,oneD,noco,inDen)
#endif
dimension%neigd2 = dimension%neigd
dimension%neigd2 = MIN(dimension%neigd,dimension%nbasfcn)
IF (noco%l_soc) dimension%neigd2 = dimension%neigd*2
!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