Commit 9c63764b authored by Gregor Michalicek's avatar Gregor Michalicek

Added allocation check for g_mt array in mix/type_mixvector.F90

In a parallelized calculation this array might not be present on all processes
parent 044deff0
......@@ -108,7 +108,7 @@ CONTAINS
SUBROUTINE mixvector_reset()
IMPLICIT NONE
atoms=>NULL()
DEALLOCATE(g_mt)
IF (ALLOCATED(g_mt)) DEALLOCATE(g_mt)
IF (ALLOCATED(g_vac)) DEALLOCATE(g_vac)
IF (ALLOCATED(g_misc)) DEALLOCATE(g_misc)
END SUBROUTINE mixvector_reset
......
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