| 查看: 988 | 回复: 4 | |||
| 当前主题已经存档。 | |||
anshenyu铜虫 (小有名气)
|
[交流]
【求助】fortran怎么读入文件名随输入量变化的文件 已有2人参与
|
||
|
我有一系列的文件 分别是按照年份命名的 如果我需要打开譬如1949年的文件 应该怎么写open语句啊 open(2,file='iy.txt'),iy代表年份 这样好像实现不了啊 |
回复此楼» 猜你喜欢
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有5人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有7人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有8人回复
-
27年博士招生信息
已经有8人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有5人回复
-
无聊看看filecode
已经有10人回复
-
无聊看看时间戳打发时间
已经有8人回复
2楼2010-02-21 09:54:51
3楼2010-02-21 14:07:48
hrzhou
铁杆木虫 (著名写手)
一品黄梅
- 应助: 12 (小学生)
- 金币: 9339.5
- 红花: 5
- 沙发: 1
- 帖子: 2907
- 在线: 81.1小时
- 虫号: 25325
- 注册: 2003-10-10
- 专业: 冶金物理化学与冶金原理
4楼2010-04-17 21:43:40
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2):谢谢参与应助！ 2010-04-17 22:26
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2):谢谢参与应助！ 2010-04-17 22:26
|
自己编写一个把数字转换成字符变量的子程序即可！ subroutine date2num(num,date,yr,mon,dy) !************************************************************************************** ! transform the date of integer into the type of character character*10 date integer num1,num2,num3,num4,num5,num6,num7,num8,num9,num0,yr,mon,dy integer dys integer*4 num num1=num/10e8 num2=(num-num1*10e8)/10e7 num3=(num-num1*10e8-num2*10e7)/10e6 num4=(num-num1*10e8-num2*10e7-num3*10e6)/10e5 num5=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5)/10e4 num6=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4)/10e3 num7=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4-num6*10e3)/10e2 num8=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4-num6*10e3-num7*10e2)/10e1 num9=0 num0=0 yr=num1*1000+num2*100+num3*10+num4 mon=num5*10+num6 dy=num7*10+num8 date=char(num1+48)//char(num2+48)//char(num3+48)// & char(num4+48)//char(num5+48)//char(num6+48)// & char(num7+48)//char(num8+48)//char(num9+48)// & char(num0+48) !**********************************transformation end********************************** end subroutine 上述子程序是考虑年月日时的，你的问题更简单！ [ Last edited by mingkeng on 2010-4-17 at 21:54 ] |
5楼2010-04-17 21:52:51
5