版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

田山东

捐助贵宾 (著名写手)

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

回复此楼

» 猜你喜欢

08工科求调剂290分已经有5人回复
301求调剂已经有11人回复
270求调剂已经有9人回复
一志愿厦门大学材料工程专硕354找调剂！！！已经有7人回复
311求调剂已经有14人回复
298求B区调剂已经有5人回复
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂已经有9人回复
求调剂推荐已经有3人回复
一志愿北京理工大学本科211材料工程294求调剂已经有9人回复
初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文已经有5人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

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人)