10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-11-08 23:23:44 +01:00

Corrected bug with gfortran

This commit is contained in:
Anthony Scemama 2015-05-22 10:05:04 +02:00
parent 864647f0c7
commit a985d7577a

View File

@ -108,11 +108,11 @@ def dimsize(x):
size = str( int(b1) - int(b0) + 1 ) size = str( int(b1) - int(b0) + 1 )
else: else:
if b0.replace('-','').isdigit(): if b0.replace('-','').isdigit():
size = "%s - (%d)"%(b1,int(b0)-1) size = "(%s) - (%d)"%(b1,int(b0)-1)
elif b1.replace('-','').isdigit(): elif b1.replace('-','').isdigit():
size = "%d - (%s)"%(int(b1)+1,b0) size = "(%d) - (%s)"%(int(b1)+1,b0)
else: else:
size = "%s - (%s) + 1"%(b1,b0) size = "(%s) - (%s) + 1"%(b1,b0)
return size return size
def put_info(text,filename): def put_info(text,filename):