我对以下来源有疑问。当它在 gfortran 中编译时，它不能正常工作，然后出现两条错误消息。我该如何解决这个问题？任何评论都会非常有帮助。提前致谢。
program driver
integer i,ln,n,e,count,x,a,b,total
character driverid*12,var*12,ch*12
parameter (n=720321)
c 参数 (n=55062) 维度 var(n),a(n),b(n)
write(*,*) 'input run id(text)'
read(*,55) driverid
55 格式（一）
ln=index(driverid,' ')-1
open(6,file=driverid(1:ln)//'.out',form='formatted'
+,status='unknown')
open(1,file=driverid(1:ln)//'.txt',status='old')
do i=1,2
read(1,*)
end do
read(1,*) (var(i),i=1,n)
close(1)
total=0
count=1
do i=1,n
b(i)=0
read(var(i),*,iostat=e) x
if (e .eq. 0) then
a(count)=x
count=count+1
else
ln=index(var(i),' ')-1
if (var(i)(ln-1:ln-1) .eq. 'r') then
var(i)=var(i)(1:ln-2)
else
var(i)=var(i)(1:ln-1)
end if
read(var(i),'(i)') b(count-1)
end if
end do
do i=1,count
total=total+1+b(i)
end do
do i=1,total
write(6,'(10i)') (a(i),j=1,b(i))
end do
close(6)
end
错误消息如下
$ gfortran driver.f driver.f:43.23:
read(var(i),'(i)') b(count-1)
1
错误： (1) driver.f:53.20 的格式字符串中需要非负宽度：
write(6,'(10i)') (a(i),j=1,b(i))
1
错误：(1) 处的格式字符串中需要非负宽度