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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求助关于program的用法
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 670  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

444874095

新虫 (初入文坛)

[求助] 求助关于program的用法 已有1人参与

我在电脑上运行一个高斯赛德尔迭代的计算代码，迭代是用子程序给出的。在主程序中，我在首位加入了program main运行后就会出现This name does not match the unit name.不加program就能运行。哪位大神知道只是为什么啊？
回复此楼

» 猜你喜欢
1楼 2015-11-10 21:17:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

444874095

新虫 (初入文坛)
代码如下
IMPLICIT NONE
DIMENSION A(4,4),B(4),X(4)
DOUBLE PRECISION A,B,X
REAL:: EPS
INTEGER::I,L
DATA A/7.0,9.0,-2.0,1.0,2.0,15.0,-2.0,3.0,1.0,3.0,11.0,2.0,-2.0,-2.0,5.0,13.0/  
DATA B/4.0,7.0,-1.0,0.0/
EPS=1.0E-06
CALL AGSDL(A,B,4,X,EPS,L)
IF (L.NE.0) THEN
  WRITE(*,10) (X(I),I=1,4)
END IF
10 FORMAT(1X,D15.6)
END

SUBROUTINE AGSDL(A,B,N,X,EPS,L)
DIMENSION A(N,N),B(N),X(N)
DOUBLE PRECISION A,B,X,T,S,P,Q
INTEGER::N
DO 5 I=1,N
  IF (ABS(A(I,I))+1.0.EQ.1.0) THEN
L=0
WRITE(*,100)
RETURN
  END IF
5  CONTINUE
100  FORMAT(1X,'FAIL')
L=100
DO 10 I=1,N
10   X(I)=0.0
20   P=0.0
L=L-1
DO 50 I=1,N
  T=X(I)
  S=0.0
  DO 30 J=1,N
IF(J.NE.I) S=S+A(I,J)*X(J)
30  CONTINUE
      X(I)=(B(I)-S)/A(I,I)
      Q=ABS(X(I)-T)/(1+ABS(X(I)))
      IF (Q.GT.P) P=Q
50  CONTINUE
      IF((P.GE.EPS).AND.(L.NE.0)) GOTO 20
      IF(L.EQ.0) WRITE(*,100)
      RETURN
END SUBROUTINE AGSDL
赞一下 回复此楼
2楼2015-11-10 21:19:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

78506174

至尊木虫 (知名作家)

【答案】应助回帖

感谢参与，应助指数 +1
PROGRAM MAIN

END PROGRAM MAIN

发自小木虫Android客户端
赞一下 回复此楼
3楼2015-11-11 11:49:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

444874095

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by 78506174 at 2015-11-11 11:49:32
PROGRAM MAIN
END PROGRAM MAIN

主程序加上这个就出现上面说的那个错误了。

发自小木虫Android客户端
赞一下 回复此楼
4楼2015-11-11 11:50:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

78506174

至尊木虫 (知名作家)

【答案】应助回帖

END 也加上PROGRAM MAIN

发自小木虫Android客户端
赞一下 回复此楼
5楼2015-11-11 11:52:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

444874095

新虫 (初入文坛)
引用回帖:
5楼: Originally posted by 78506174 at 2015-11-11 11:52:15
END 也加上PROGRAM MAIN

加了的。。没有用。。

发自小木虫Android客户端
回复此楼
6楼2015-11-11 11:52:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

78506174

至尊木虫 (知名作家)
引用回帖:
6楼: Originally posted by 444874095 at 2015-11-11 11:52:48
加了的。。没有用。。
...

很遗憾。。。没见过

发自小木虫Android客户端
回复此楼
7楼2015-11-11 11:55:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 444874095 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工科求调剂290分 +5 1314捧花 2026-04-02 8/400 2026-04-02 13:16 by 乔哒哒哒
[考研] 342求调剂 +12 Mary Keen 2026-03-28 13/650 2026-04-01 21:02 by 流情牧豪
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-30 16/800 2026-04-01 17:58 by 邱gl
[考研] 330分求调剂 +11 qzenlc 2026-03-29 11/550 2026-04-01 14:32 by chenqifeng666
[硕博家园] 考研调剂 +5 骆驼男人 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
[考研] 安徽大学专硕生物与医药专业(086000)324分，英语已过四六级，六级521，求调剂 +10 美味可乐鸡翅 2026-03-26 12/600 2026-04-01 11:17 by syh9288
[硕博家园] 博一被送出联培感觉不适应怎么办 +3 全村的狗 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[考研] 求0861交通运输专硕or材料专硕调剂 +4 勒布朗@ 2026-03-31 4/200 2026-04-01 09:54 by 一只好果子?
[考研] 求调剂 +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[考研] 材料与化工272求调剂 +25 阿斯蒂芬2004 2026-03-28 25/1250 2026-03-31 16:27 by hypershenger
[考研] 085600，专业课化工原理，320分求调剂 +6 大馋小子 2026-03-29 6/300 2026-03-31 10:03 by 氯化亚硝酰
[考研] 本科211总分289，08工学真心求调剂 +3 utopiaE 2026-03-30 3/150 2026-03-30 23:42 by ms629
[考研] 0703化学321分求调剂 +10 三dd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
[考研] 283求调剂（080500） +14 A child 2026-03-27 14/700 2026-03-30 12:06 by 探123
[考研] 一志愿北京工业大学，324分求调剂 +6 零八# 2026-03-28 6/300 2026-03-29 21:20 by nanaliuyun
[考研] 298求调剂 +3 种圣赐 2026-03-29 3/150 2026-03-29 12:06 by longlotian
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 8/400 2026-03-29 08:16 by 松花缸1201
[考研] 求调剂 +7 争取九点睡 2026-03-28 8/400 2026-03-28 21:07 by 争取九点睡
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
信息提示
关闭
请填处理意见
关闭