24小时热门版块排行榜

返回列表

田山东

捐助贵宾 (著名写手)

应助: 5 (幼儿园)
金币: 77
帖子: 1577
在线: 138.1小时
虫号: 800307

[交流] 稀疏矩阵输出结果怎么写才对呢？

找到一个例子。

这是用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
      主要是换行这地方有点模糊啊。

回复此楼

» 猜你喜欢

Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有6人回复
2025冷门绝学什么时候出结果已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
论文投稿，期刊推荐已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复

» 抢金币啦！回帖就可以得到:
查看全部散金贴

1楼2012-11-10 20:57:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

weiwei43

至尊木虫 (正式写手)

应助: 16 (小学生)
金币: 18316.1
帖子: 737
在线: 94.7小时
虫号: 250282

★ ★
田山东(金币+1): 谢谢参与
田山东: 金币+1, 要好好向前辈学习。致敬！！！ 2012-11-11 11:32:47

换行的地方改成：
   do i=1,index
         write(1,*) (CD(i,j),j=1,3)
      enddo
就可以对应每一个i输出一行了，但是结果是这样的。
   2          2          3
         4          1          1
         4          2          4
         5          3          7
         5          6          5

赞一下(1人)