954
0
大师
Open (10, File='result.dat') Do ii = 1, npc Open (20, File='data.txt') Read( 20 , * ) data( : ) result( : , ii ) = data( : ) Close (20) Do i = 1, ndc Write (10, '(<ii>f16.7)') result( i , 1:ii ) End Do End Do Close (10)
使用道具 举报
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-1 07:44
Powered by Tencent X3.4
© 2013-2024 Tencent