Commit 8e8a0307 authored by Gregor Michalicek's avatar Gregor Michalicek

Small bugfix in cdn_mt/cdnmt.f90

parent 8ab68118
......@@ -251,6 +251,7 @@ CONTAINS
ENDDO ! end of loop over atom types
!$OMP END DO
DEALLOCATE ( f,g)
!$OMP END PARALLEL
WRITE (6,FMT=8000)
......@@ -287,7 +288,5 @@ CONTAINS
ENDIF
!---> end of test output
DEALLOCATE ( f,g)
END SUBROUTINE cdnmt
END MODULE m_cdnmt
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