|
Lines 14-22
Link Here
|
| 14 |
fl = n1 |
14 |
fl = n1 |
| 15 |
if(a.lt.0.0d0) fl=fl+1 |
15 |
if(a.lt.0.0d0) fl=fl+1 |
| 16 |
write(form,120) n1,n2 |
16 |
write(form,120) n1,n2 |
| 17 |
write(str(1:n1),form) a |
17 |
c write(str(1:n1),form) a |
| 18 |
C workaround to fix gfortran4.0 bug: 0.999999999--> 0 |
18 |
print *,form, '['//str(1:n1)//']' |
| 19 |
c print *,form, '['//str(1:n1)//']' |
|
|
| 20 |
if (str(2:n1).eq.'0.'.and.a.gt.0.9999d0) str(2:2)='1' |
19 |
if (str(2:n1).eq.'0.'.and.a.gt.0.9999d0) str(2:2)='1' |
| 21 |
elseif (ifmt .eq. -1) then |
20 |
elseif (ifmt .eq. -1) then |
| 22 |
C Inf |
21 |
C Inf |
