| 查看: 1044 | 回复: 9 | |||
| 当前主题已经存档。 | |||
sunnyrain108木虫 (著名写手)
|
[交流]
【求助】请教一个关于write的问题，谢谢~
|
||
|
请教各位：下面代码中 write(tdate(3:3),'(i1)') nday是啥意思？write命令的格式不是write(UNIT=number,FMT=fomat,...)的吗？tdate是个字符型的时间变量，nday是个整数。谢谢~ integer nday character*10 tdate if (nday .lt. 10) then write(tdate(3:3),'(i1)') nday else if (nday .lt. 100) then write(tdate(2:3),'(i2)') nday else write(tdate(1:3),'(i3)') nday end if |
回复此楼» 猜你喜欢
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
假如你的研究生提出不合理要求
已经有6人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
2楼2009-07-25 10:30:50
tjpm
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1025.7
- 散金: 10
- 红花: 1
- 帖子: 367
- 在线: 19.3小时
- 虫号: 717334
- 注册: 2009-03-07
- 专业: 凝聚态物性 II ：电子结构
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+3,VIP+0):感谢你参与讨论 7-25 14:03
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+3,VIP+0):感谢你参与讨论 7-25 14:03
|
这个是 fortran 的内部文件。彭国伦的《Fortran95程序设计》讲了的。 可以参考SUN的文档： 2.5 内部文件 内部文件是 CHARACTER 类型的对象，如变量、子串、数组、数组元素或结构化记录的字段。内部文件 READ 可以来自常量字符串。内部文件 I/O 通过由一个字符对象向另一数据对象传送和转换数据，模拟格式化 READ 和 WRITE 语句。不执行任何文件 I/O。 使用内部文件时： * 出现在 WRITE 语句中的是接收数据的字符对象的名称而非单元号。在 READ 语句中，出现的是字符对象源的名称而非单元号。 * 常量、变量或子串对象构成文件中的单条记录。 * 使用数组对象，每个数组元素对应于一条记录。 * 内部文件上的直接 I/O。（Fortran 95 标准只包括内部文件上的顺序格式化 I/O。）除了不能更改文件中的记录数之外，这一点与外部文件上的直接 I/O 相似。此时，记录是字符串数组的单个元素。这项非标准扩展仅在用 -f77 标志编译的 FORTRAN 77 兼容模式下可用。 * 每一顺序 READ 或 WRITE 语句均始于内部文件的开头。 示例：从内部文件（仅有一条记录）中以顺序、格式化方式进行读取： demo% cat intern1.f CHARACTER X*80 READ( *, ’(A)’ ) X READ( X, ’(I3,I4)’ ) N1, N2 ! This codeline reads the internal file X WRITE( *, * ) N1, N2 END demo% f95 -o tstintern intern1.f demo% tstintern 12 99 12 99 demo% 示例：从内部文件（三条记录）中以顺序、格式化方式进行读取： demo% cat intern2.f CHARACTER LINE(4)*16 DATA LINE(1) / ’ 81 81 ’ / DATA LINE(2) / ’ 82 82 ’ / DATA LINE(3) / ’ 83 83 ’ / DATA LINE(4) / ’ 84 84 ’ / READ( LINE,’(2I4)’) I,J,K,L,M,N PRINT *, I, J, K, L, M, N END demo% f95 intern2.f demo% a.out 81 81 82 82 83 83 demo% 示例：在 -f77 兼容模式下，从内部文件（一条记录）中以直接访问方式进行读取： demo% cat intern3.f CHARACTER LINE(4)*16 DATA LINE(1) / ’ 81 81 ’ / DATA LINE(2) / ’ 82 82 ’ / DATA LINE(3) / ’ 83 83 ’ / DATA LINE(4) / ’ 84 84 ’ / READ ( LINE, FMT=20, REC=3 ) M, N 20 FORMAT( I4, I4 ) PRINT *, M, N END demo% f95 -f77 intern3.f demo% a.out 83 83 demo% http://docs.sun.com/app/docs/doc ... 9df?l=zh&a=view http://bbs.pfan.cn/post-102851.html上也有介绍 3. 如何用Fortran动态生成输出格式？ 设有一个数组data(100)，输出时，希望每行输出num个数，而num由用户输入，如何实现？ 用内部文件： character(len=80) :: form real :: data(100) integer :: i,num data = (/ (i,i=1,100) /)/10.0 read(*,*) num write(form,*) "(",num,"f10.3)" write(*,form) data stop end |
3楼2009-07-25 12:16:28
sunnyrain108
木虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 8240.5
- 散金: 715
- 帖子: 2467
- 在线: 65.9小时
- 虫号: 451053
- 注册: 2007-11-04
- 专业: 自然地理学
4楼2009-07-25 14:42:24
calos818
木虫 (著名写手)
新人菜鸟
- 应助: 11 (小学生)
- 金币: 3135.7
- 散金: 77
- 红花: 3
- 帖子: 1200
- 在线: 730.5小时
- 虫号: 698507
- 注册: 2009-02-08
- 专业: 凝聚态物性 II ：电子结构
5楼2009-08-12 10:46:39
argo
铁杆木虫 (著名写手)
上善若水
- 应助: 4 (幼儿园)
- 金币: 9672.8
- 散金: 200
- 红花: 34
- 帖子: 1940
- 在线: 486.4小时
- 虫号: 507533
- 注册: 2008-02-19
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
6楼2009-08-12 12:27:05
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
7楼2009-08-12 19:05:40
argo
铁杆木虫 (著名写手)
上善若水
- 应助: 4 (幼儿园)
- 金币: 9672.8
- 散金: 200
- 红花: 34
- 帖子: 1940
- 在线: 486.4小时
- 虫号: 507533
- 注册: 2008-02-19
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
8楼2009-08-12 19:09:17
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
9楼2009-08-12 19:14:28
sunnyrain108
木虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 8240.5
- 散金: 715
- 帖子: 2467
- 在线: 65.9小时
- 虫号: 451053
- 注册: 2007-11-04
- 专业: 自然地理学
10楼2009-10-03 20:31:55