irp_finalize

Version:1.1.74
2011-06-01 16:56:56 +02:00 · 2011-06-01 16:56:56 +02:00 · 57707b3922
parent b4e93c05da
commit 57707b3922
2 changed files with 3 additions and 3 deletions
--- a/src/touches.py
+++ b/src/touches.py
@ -43,9 +43,9 @@ def create():
    var = variables[v]
    if var.is_touched:
      out += var.toucher
-    var2 = variables[v]
-    if var2.dim != []:
+    if var.dim != []:
      finalize += "  if (allocated(%s)) then\n"%v
+      finalize += "    %s_is_built = .False.\n"%var.same_as
      finalize += "    deallocate(%s)\n"%v
      finalize += "  endif\n"
  finalize += "end\n"
--- a/src/version.py
+++ b/src/version.py
@ -1 +1 @@
-version = "1.1.73"
+version = "1.1.74"