mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-09-02 01:33:42 +02:00
Aligned errays
Version:1.1.76
This commit is contained in:
parent
5a76800954
commit
b42f50c0c4
@ -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:
|
||||
|
@ -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)
|
||||
|
||||
|
@ -1 +1 @@
|
||||
version = "1.1.75"
|
||||
version = "1.1.76"
|
||||
|
Loading…
Reference in New Issue
Block a user