57
15
0
熟手
使用道具 举报
838
2
大宗师
01
program
test
02
integer
i
03
real
s
,
a
04
character
(
512
)
::
filename
05
call
system
'dir *.txt /b>1.dat'
06
=
0.0
07
open
10
file
'1.dat'
08
do
09
read
'(a)'
iostat
if
/=
exit
11
12
*
13
close
14
+
end
16
status
'delete'
17
101
大师
1
新人
li913 发表于 2020-2-16 14:37 群共享,fortran批量处理文件。
81
专家
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-5-1 11:29
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.