Skip to content
Snippets Groups Projects
Commit f50b35c4 authored by Rudolf Zeller's avatar Rudolf Zeller
Browse files

Skip rhocore calculation if density of states is calculated

parent dfa7b15c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source/KKRnano/source/KKRnano.F90
+ 1
− 1
View file @ f50b35c4
...@@ -268,7 +268,7 @@ program KKRnano ...@@ -268,7 +268,7 @@ program KKRnano
enddo ! ila enddo ! ila
! Core relaxation - only mastergroup needs results ! Core relaxation - only mastergroup needs results
if (mp%isInMasterGroup) then if (mp%isInMasterGroup.and.params%npol /= 0) then
! Not threadsafe: intcor, intin, intout have a save statement ! Not threadsafe: intcor, intin, intout have a save statement
ebot = emesh%E1; if (any(params%npntsemi > 0)) ebot = emesh%EBOTSEMI ebot = emesh%E1; if (any(params%npntsemi > 0)) ebot = emesh%EBOTSEMI
!!!$omp parallel do private(ila, atomdata) !!!$omp parallel do private(ila, atomdata)
......
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