234.txt
(64 KB, 下载次数: 10)
[Fortran] 纯文本查看 复制代码 PROGRAM Ex001
IMPLICIT NONE
REAL(16) X(1024),Y(1024)
integer I,dt
OPEN(12,FILE='123.txt')
OPEN(13,FILE='234.txt')
DO I=1,1024
read(12,*)x(i),y(i)
dt=2
Y(I)=Y(I)*dt
write(13,*) I," ",Y(I)
ENDDO
close(12)
close(13)
END
没有任何问题呀,你不要从屏幕上看,上面显示不全的
|