| 查看: 630 | 回复: 4 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 lvhuidan 的 5 个金币 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】求助：关于compag visual fortran6 的运行问题
|
|||
| 我不懂编程，只是最近上《化工计算》这门课需要用到书上给出的fortran程序。我把书上的程序编好后，编译和链接都没有错误，可是一运行，就没有结果出现，试了2段程序，都是包括一个主程序和一个子程序的，用的是compag visual fortran6。不知道怎么回事，请高手指点！ |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
jjdg(金币+0,VIP+0):欢迎讨论！请继续支持程序软件版！ 11-23 17:11
|
这是试过的一段程序： DIMENSION C(4,5), X(4) REAL *8 C READ(*,*) M WRITE(*,10) M N=M+1 DO 2 I=1,M 2 READ(*,*) (C(I,J), J=1,N) WRITE(*,11) DO 3 I=1,M 3 WRITE(*,13) (C(I,J),J=1,N) CALL SIMUL(M,N,C,X) WRITE(*,12) DO 1 J=1,M 1 WRITE(*,14) X(J) 10 FORMAT(1X,'1','M=',I5) 11 FORMAT(//,1X,'COEFFICIENT MATRIX=',/) 12 FORMAT(//,1X,'SOLUTION VECTOR=',/) 13 FORMAT(8F10.4) 14 FORMAT(F15.4) STOP END SUBROUTINE SIMUL(M,N,C,X) IMPLICIT REAL*8 (A-H,O-Z) REAL*4X DIMENSION C(4,5),X(4) DO 1 K=1,M PIVOT=C(K,K) IF(DABS(PIVOT).LE.0.001) GOTO 2 DO 3 J=K,N 3 C(K,J)=C(K,J)/PIVOT DO 4 I=1,M IF(I.EQ.K) GOTO 4 PIVI=C(I,K) DO 5 J=K,N 5 C(I,J)=C(I,J)-PIVI*C(K,J) 4 CONTINUE 1 CONTINUE DO 6 J=1,M 6 X(J)=C(J,N) RETURN 2 WRITE(*,100) K 100 FORMAT(1X,'PIVOT ELEMENT',I5,1X,'IS CLOSE TO 0') RETURN END 数据 1M= 4 .47 0 -.012 -1 0 0 .92 0 -1.7857 5 .49 0 -.73 0 5 0 .08 -.01 2.5 990 从“数据..........990” 这一段在程序里不知怎么输入，可能就是这里的问题，因为程序里没有给出M的值，不知我想的对不对？请楼上的指点 |
3楼2009-11-22 10:40:23
4楼2009-11-24 16:31:52