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:
parent
864647f0c7
commit
a985d7577a
@ -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):
|
||||||
|
Loading…
Reference in New Issue
Block a user