12
5
0
入门
PROGRAM Ex001 IMPLICIT NONE REAL(16) X(1024),Y(1024) integer I,dt OPEN(12,FILE='123.txt') DO I=1,1024 read(12,*) X(I),Y(I) dt=2 Y(I)=Y(I)*dt write(*,*) I,Y(I) ENDDO pause END
123.txt
2017-3-29 09:13 上传
点击文件名下载附件
29 KB, 下载次数: 6
使用道具 举报
490
4
大宗师
66
16
专家
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
大头鼹鼠 发表于 2017-3-29 10:12 [mw_shl_code=fortran,true]PROGRAM Ex001 IMPLICIT NONE REAL(16) X(1024),Y(1024)
pasuka 发表于 2017-3-29 09:44 1、为啥要用4精度的浮点数?!lz确定编译器能够支持? 2、为啥有open无close呢? 3、为啥捎上pause这样的吃 ...
臭石头雪球
2033
论坛跑堂
1.png (47.58 KB, 下载次数: 367)
下载附件
2017-3-29 13:32 上传
2.png (50.12 KB, 下载次数: 380)
fcode 发表于 2017-3-29 13:32 我这里也毫无问题。可能只是windows的命令行缓存有限。
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
颁发给在娱乐版上传了真实照片的女性网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 14:54
Powered by Tencent X3.4
© 2013-2024 Tencent