Commit b83181ce authored by Gustav Bihlmayer's avatar Gustav Bihlmayer

added deallocation of some arrays in soc_or_ssdw

parent 1b4c0c8b
......@@ -116,6 +116,9 @@
! if( ntypd < ntype )then
! ntypd = ntype
! endif
IF (ALLOCATED(neq)) DEALLOCATE(neq)
IF (ALLOCATED(ntyrep)) DEALLOCATE(ntyrep)
IF (ALLOCATED(zatom)) DEALLOCATE(zatom)
ALLOCATE( neq(ntype),ntyrep(ntype),zatom(ntype) )
neq(1:ntype) = 0
......
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