Cleaning of readmat

2019-09-10 16:29:13 +01:00 · 2019-09-10 16:29:13 +01:00 · 6ffc53d08a
parent 54f425aa8b
commit 6ffc53d08a
1 changed files with 1 additions and 0 deletions
--- a/EPW/src/readmat.f90
+++ b/EPW/src/readmat.f90
@ -888,6 +888,7 @@
      CLOSE(iunifc)
    ENDIF
    !
+    DEALLOCATE(ifc)
    WRITE(stdout, '(/5x,"Finished reading ifcs"/)')
    !
    !-------------------------------------------------------------------------------