10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-30 16:15:41 +01:00

Minor modification

Version:1.1.77
This commit is contained in:
Anthony Scemama 2011-07-18 11:31:18 +02:00
parent b42f50c0c4
commit f265c48e8b
2 changed files with 2 additions and 2 deletions

View File

@ -231,7 +231,7 @@ class Variable(object):
self._header = [ " %s :: %s %s"%(self.type, name, build_dim_colons(self) ) ]
if self.is_main:
self._header += [ " logical :: %s_is_built = .False."%(name) ]
if "allocatable" in self.type:
if self.dim != []:
self._header += ["!DEC$ ATTRIBUTES ALIGN: 32 :: %s"%(name)]
return self._header
header = property(header)

View File

@ -1 +1 @@
version = "1.1.76"
version = "1.1.77"