| 查看: 975 | 回复: 1 | |||
[交流]
稀疏矩阵输出结果怎么写才对呢？
|
 找到一个例子。     这是用C语言写的代码，很高兴啊，终于看到一个好的例子了。  我把这段代码转为fortran，为什么我的输出结果跟他的不同呢？请教了，就是输出结果该怎么写才能得到他的结果呢？  麻烦大侠们出来指点一二。program yasuo implicit none integer i,j,index integer A(9,7) integer CD(10,3) open(1,file='ceshi.txt') index=0 data A/0,0,0,1,0,0,0,0,0,0,3,0,4,0,0,0,0,0,0,0,0,0,7,0,0,0,0, s 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0, s 0,0,0,0,0/ do i=1,9 do j=1,7 print*, A(i,j) enddo enddo do i=1,8 do j=1,7 if(A(i,j)/=0) then index=index+1 CD(index,1)=i CD(index,2)=j CD(index,3)=A(i,j) endif enddo enddo do i=1,index do j=1,3 write(1,*) CD(i,j) enddo enddo end 主要是换行这地方有点模糊啊。 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有11人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有17人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
-
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复
-
申博求助
已经有4人回复
2楼2012-11-11 07:50:05