| 查看: 10747 | 回复: 157 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【交流】Fortran语言答疑专帖已有46人参与
|
||
[ Last edited by nono2009 on 2009-11-18 at 10:34 ] |
回复此楼» 本帖已获得的红花（最新10朵）
ynn112» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★ ★ ★ ★
余泽成(金币+5):谢谢参与应助！ 2010-12-06 16:32:26
余泽成(金币+5):谢谢参与应助！ 2010-12-06 16:32:26
|
依据我的理解，写了一个简单的示范程序，可以参考一下，我没有按照你的意思来写，我感觉你或许说的有点问题，呵呵， Implicit None Integer Max_Parameter,Max_step Parameter(Max_Parameter=20,Max_step=20) Integer H(Max_Parameter,Max_step) c Allocatable H(:,  Character(Len=60) FileName Integer Ihere,Istep,Io,Ibegin c Write(*,*) 'Please input name of the input files' c Read(*,*) FileName c Open(10,File=Trim(FileName)//'.txt',Status='OlD') Open(10,File='aaa.txt',Status='OlD') Read(10,*) Ihere Ibegin=0 Rewind(10) 14 Read(10,*,End=123) Istep,Io If(Istep.eq.Ihere) Then Ibegin=Ibegin+1 H(Ibegin,Istep)=Io Else Ibegin=1 Ihere=Istep H(Ibegin,Istep)=Io EndIF Goto 14 123 Continue write(*,*) H(1,1), H(1,2), H(1,3), H(1,4), H(1,5), H(1,6) write(*,*) H(2,1), H(2,2), H(2,3), H(2,4), H(2,5), H(2,6) write(*,*) H(3,1), H(3,2), H(3,3), H(3,4), H(3,5), H(3,6) write(*,*) H(4,1), H(4,2), H(4,3), H(4,4), H(4,5), H(4,6) write(*,*) H(5,1), H(5,2), H(5,3), H(5,4), H(5,5), H(5,6) End   [ Last edited by maomao1210 on 2010-12-2 at 09:45 ] |
88楼2010-12-02 09:42:43
2楼2009-06-01 12:32:17
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★ ★ ★ ★
wangen994(金币+2,VIP+0):鼓励一下，哈哈 6-4 11:55
gwdavid(金币+3,VIP+0):辛苦了!答疑帖加大奖励力度!;) 6-7 10:32
wangen994(金币+0,VIP+0):请你讲九月份十月份的参与应助的帖子整理附在http://emuch.net/bbs/viewthread.php?tid=1358729&fpage=1后面，以便发放津贴 11-9 19:00
wangen994(金币+2,VIP+0):鼓励一下，哈哈 6-4 11:55
gwdavid(金币+3,VIP+0):辛苦了!答疑帖加大奖励力度!;) 6-7 10:32
wangen994(金币+0,VIP+0):请你讲九月份十月份的参与应助的帖子整理附在http://emuch.net/bbs/viewthread.php?tid=1358729&fpage=1后面，以便发放津贴 11-9 19:00
|
哦。我给你举个例子吧，比如对称矩阵 A[3,3] A(1,1) A(1,2) A(1,3) A(2,1) A(2,2) A(2,3) A(3,1) A(3,2) A(3,3) 只要存储成一个一维数组即可： B(1)=A(1,1),B(2)=A(2,1),B(3)=A(2,2), B(4)=A(3,1),B(5)=A(3,2),B(6)=A(3,3). 还要记住这个： 行和列与存储该值的关系为：II=MAX(I,J)*(MAX(I,J)+1)/2+MIN(I,J), 那么B(II)==A(I,J). 不知道我讲的能听懂与否。如果不懂，继续发问。 |
3楼2009-06-01 12:41:49
anbb1009
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 555.6
- 散金: 100
- 帖子: 375
- 在线: 233小时
- 虫号: 644698
- 注册: 2008-11-03
- 专业: 凝聚态物性 II ：电子结构
4楼2009-06-05 14:35:16