关于char01的讨论汇总 - 话题女王 - 未名观察

全部话题 - 话题: char01

c*******n
发帖数: 1648

1

来自主题: Computation版 - 关于文件输出，请教大家？

FILENAME = 'char01'
DO I = 1, 10
J = 10+II
WRITE(FILENAME(5:6),I2.2) I
OPEN(UNIT=J,FILE=FILENAME)
ENDDO
result:
char01
char02
....

未名新帖统计// 7月16日

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

* 这里只显示发帖超过25的版面，努力灌水吧:-)