mirror of
https://gitlab.com/scemama/irpf90.git
synced 2025-01-02 09:35:41 +01:00
Minor modification
Version:1.1.77
This commit is contained in:
parent
b42f50c0c4
commit
f265c48e8b
@ -231,7 +231,7 @@ class Variable(object):
|
|||||||
self._header = [ " %s :: %s %s"%(self.type, name, build_dim_colons(self) ) ]
|
self._header = [ " %s :: %s %s"%(self.type, name, build_dim_colons(self) ) ]
|
||||||
if self.is_main:
|
if self.is_main:
|
||||||
self._header += [ " logical :: %s_is_built = .False."%(name) ]
|
self._header += [ " logical :: %s_is_built = .False."%(name) ]
|
||||||
if "allocatable" in self.type:
|
if self.dim != []:
|
||||||
self._header += ["!DEC$ ATTRIBUTES ALIGN: 32 :: %s"%(name)]
|
self._header += ["!DEC$ ATTRIBUTES ALIGN: 32 :: %s"%(name)]
|
||||||
return self._header
|
return self._header
|
||||||
header = property(header)
|
header = property(header)
|
||||||
|
@ -1 +1 @@
|
|||||||
version = "1.1.76"
|
version = "1.1.77"
|
||||||
|
Loading…
Reference in New Issue
Block a user