[Fortran] 纯文本查看 复制代码 subroutine TEXT2
INTEGER A
DIMENSION A(100)
CHARACTER CRLF
CHARACTER C(420)
INTEGER i,j
CHARACTER*80 ASCLIB
120 format(10(10i4,a2))
ASCLIB='45GTEST.txt'
crlf=char(13)//char(10)
OPEN(11,FILE=ASCLIB,STATUS='REPLACE',ACCESS='DIRECT',
1 FORM='FORMATTED',RECL=420)
DO i=1,100
a(i)=55
end do
write(c,120) (a(j:j+9),CRLF,j=1,91,10)
write(11,'(a)',rec=1) c
close (11)
return
END
您能看看为什么我的这个运行一直报错吗 |