10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-21 11:53:32 +01:00

Aligned errays

Version:1.1.76
This commit is contained in:
Anthony Scemama 2011-07-13 07:29:01 +02:00
parent 5a76800954
commit b42f50c0c4
3 changed files with 4 additions and 2 deletions

View File

@ -146,7 +146,7 @@ instead of
if firstword.startswith("case("):
return [ Case(i,line,filename) ], is_doc
if lower_line0[1:5] == "$omp":
if lower_line0[1:5] in ["$omp", "dec$", "dir$"]:
return [ Openmp(i,line,filename) ], is_doc
if re_decl.match(lower_line) is not None:

View File

@ -231,6 +231,8 @@ 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:
self._header += ["!DEC$ ATTRIBUTES ALIGN: 32 :: %s"%(name)]
return self._header
header = property(header)

View File

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