100
0
专家
使用道具 举报
Integer , parameter :: N = 10 real :: a(N) , b(N) , c(N) open( 12 , file = '文件名' ) read(12,*) do i = 1 , N read( 12 , * ) a(i) , b(i) , c(i) end do
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-16 17:27
Powered by Tencent X3.4
© 2013-2024 Tencent