LCPQ/irpf90
10
0
Fork 0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-22 04:13:33 +01:00
Code Releases Activity

irp_finalize

Browse Source 
Version:1.1.74
This commit is contained in:
Anthony Scemama 2011-06-01 16:56:56 +02:00
parent b4e93c05da
commit 57707b3922
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/touches.py
View File

@ -43,9 +43,9 @@ def create():
var = variables[v] var = variables[v]
if var.is_touched: if var.is_touched:
out += var.toucher out += var.toucher
var2 = variables[v] if var.dim != []:
if var2.dim != []:
finalize += " if (allocated(%s)) then\n"%v finalize += " if (allocated(%s)) then\n"%v
finalize += " %s_is_built = .False.\n"%var.same_as
finalize += " deallocate(%s)\n"%v finalize += " deallocate(%s)\n"%v
finalize += " endif\n" finalize += " endif\n"
finalize += "end\n" finalize += "end\n"

2
src/version.py
View File

@ -1 +1 @@
version = "1.1.73" version = "1.1.74"