LCPQ
/
irpf90
mirror of https://gitlab.com/scemama/irpf90.git
10
0
Fork 0
Code Releases Activity

Merge with TApplencourt

This commit is contained in:
Anthony Scemama 2017-07-11 23:18:26 +02:00
parent ddfe8d9d18
commit abca1022c7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/entity.py
View File

@ -478,7 +478,7 @@ class Entity(object):
" if (allocated(%s)) then"%(name),
" deallocate (%s)"%(name)]
if command_line.do_memory:
result += " print *, 'Deallocating %s'"%(name)
result += [ " print *, 'Deallocating %s'"%(name) ]
result += [" endif"]
@ -552,7 +552,7 @@ class Entity(object):
if command_line.do_memory:
tmp = "\n print *, %s, 'Allocating %s(%s)'"
d = ','.join(self.dim)
result += tmp % ('size(' + name + ')', name, d)
result += tmp % ('size(' + name + ')', name, d)
return result
result = [" if (allocated (%s) ) then" % (name)]