mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-11-08 15:13:42 +01:00
Corrected bug with gfortran
This commit is contained in:
parent
864647f0c7
commit
a985d7577a
@ -108,11 +108,11 @@ def dimsize(x):
|
||||
size = str( int(b1) - int(b0) + 1 )
|
||||
else:
|
||||
if b0.replace('-','').isdigit():
|
||||
size = "%s - (%d)"%(b1,int(b0)-1)
|
||||
size = "(%s) - (%d)"%(b1,int(b0)-1)
|
||||
elif b1.replace('-','').isdigit():
|
||||
size = "%d - (%s)"%(int(b1)+1,b0)
|
||||
size = "(%d) - (%s)"%(int(b1)+1,b0)
|
||||
else:
|
||||
size = "%s - (%s) + 1"%(b1,b0)
|
||||
size = "(%s) - (%s) + 1"%(b1,b0)
|
||||
return size
|
||||
|
||||
def put_info(text,filename):
|
||||
|
Loading…
Reference in New Issue
Block a user