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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 量子化学 » Gaussian » 【求助】关于fortran的
141/2返回列表12下一页
查看: 905  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

忘尘天空

银虫 (小有名气)

[交流] 【求助】关于fortran的

用fortran编写的程序在运行的时候遇到这样的提示：
for.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Debug/1.1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

是什么意思呢？
当我在前面加了PROGRAM的时候，就出下面的提示：

Error: Syntax error, found END-OF-STATEMENT when expecting one of:
  program
又是什么意思呢？请高人指点，感激不尽！
回复此楼

» 猜你喜欢
快乐生活，感恩！
1楼 2009-02-09 19:30:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

老虎大王

木虫 (著名写手)
★ ★
lei0736(金币+2,VIP+0):谢谢 2-10 09:30
你的这个子程序，是可以编通的，但是你编译的时候用了build或者link，就出现了顶楼里的错误。我估计你用的是visual Fortran。

对于光有子程序的文件，只能编译(compile），不要Bulid，否则一定会出现你顶楼所说的错误。

不好意思，我理解有问题，我们绕了一些弯路。
赞一下(11人) 回复此楼
12楼2009-02-09 21:03:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

老虎大王

木虫 (著名写手)
★ ★ ★
lei0736(金币+3,VIP+0):谢谢 2-10 09:27
for.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Debug/1.1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

这个错误，是指有一个外部函数没有声明。
请你检查：你是不是在程序中敲错了某个函数（或子例程）的名字，导致主程序中和函数（或子程序）中使用的名字不一样。

例如：你有一条语句call sub1（。。。。）
但在写子程序的时候写成了 subroutine sbu1(.....)
就会导致这个错误提示。

这是我编程中常见的问题。当然也有可能是其它问题。好像数组名敲错了也有可能引起这个错误提示，使用的编译器不一样，可能情况有所不同。

[ Last edited by 老虎大王 on 2009-2-9 at 19:57 ]
赞一下(10人) 回复此楼
2楼2009-02-09 19:47:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★ ★ ★ ★
lei0736(金币+4,VIP+0):谢谢 2-10 09:27
当我在前面加了PROGRAM的时候，就出下面的提示：

Error: Syntax error, found END-OF-STATEMENT when expecting one of:
  program

这个错误是说，你写了program语句，却没有写上程序名。
如果使用Program语句，必须跟程序名
例如：program my_program
这是一个完整的program语句。如果你只写
program
后面啥都没有，那就会出现你所说的这个错误提示。
赞一下(10人) 回复此楼
3楼2009-02-09 19:52:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

忘尘天空

银虫 (小有名气)
这是我编写的程序
           PROGRAM FAC(I)
         SUBROUTINE FAC(I)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,49,1
         RO(I1)=RO(I1-1)*I1
    1           CONTINUE
                 RETURN
         END
   c
运行时，还是出现了这样的提示：
Error: Syntax error, found '(' when expecting one of: ;
       PROGRAM FAC(I)
到底该怎么样修改呢？
谢谢
赞一下 回复此楼
快乐生活，感恩！
4楼2009-02-09 20:21:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★
lei0736(金币+1,VIP+0):谢谢 2-10 09:28
这个错误是说program里面的程序名不能带括号。把(i)去掉吧。
赞一下(10人) 回复此楼
5楼2009-02-09 20:25:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★ ★ ★ ★ ★
lei0736(金币+5,VIP+0):谢谢 2-10 09:28
PROGRAM FAC(I)
         SUBROUTINE FAC(I)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,49,1
         RO(I1)=RO(I1-1)*I1
    1           CONTINUE
                 RETURN
         END

如果这是你的完整程序，那么它至少有三个问题：
1. 程序名违法，不能带括号。
2.你用了program语句，就说明你这个文件包含一个主程序，但是实际上你的主程序一句话也没有，虽然这是可以的，但是你需要一个End语句来结束主程序（你现在的end语句看来是属于子程序的）
3.子程序FAC(I)，其中的参数 I 没有使用，这虽然是允许的，但是会出现警告。
赞一下(10人) 回复此楼
6楼2009-02-09 20:30:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

忘尘天空

银虫 (小有名气)
PROGRAM FAC
         SUBROUTINE FAC(I)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,I
         RO(I1)=RO(I1-1)*I1
1              CONTINUE
                 RETURN
         END
c
现在的错误变成了两个
Error: This statement is positioned incorrectly and/or has syntax errors.
  SUBROUTINE FAC(I)
---------^
G:\wangrong\chengxu\XIUGAI\1\1.1.for(8) : Error: A RETURN statement is invalid in the main program.
       RETURN
赞一下 回复此楼
快乐生活，感恩！
7楼2009-02-09 20:35:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★ ★ ★
lei0736(金币+3,VIP+0):谢谢 2-10 09:28
我刚编译了一下，可以的。但是你的主程序与子程序同名了，这也不行。我给你改成了。
      PROGRAM FAC1

        end
          SUBROUTINE FAC(I)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,49,1
         RO(I1)=RO(I1-1)*I1
    1           CONTINUE
                RETURN
         END

第一，主程序名改成了FAC1。
第二，主程序加了END。

这样可以编译通过。
赞一下(10人) 回复此楼
8楼2009-02-09 20:40:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★ ★
lei0736(金币+2,VIP+0):谢谢 2-10 09:29
如果你这个文件只是你的程序的一部分，建议你不要用program语句。你的程序不管分成多少个文件，只能有一个主程序，也就是只能有一个program语句。
赞一下(10人) 回复此楼
9楼2009-02-09 20:43:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

忘尘天空

银虫 (小有名气)
这个只是个子程序的，就是调不通，我就想加个主程序试试看可不可以调好。
我才开始用fortran，请多多指教！
赞一下 回复此楼
快乐生活，感恩！
10楼2009-02-09 20:48:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 忘尘天空 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 伙伴们，祝我生日快乐吧 +15 myrtle 2026-03-10 24/1200 2026-03-15 21:16 by 苏州_逗号
[考研] 321求调剂 +3 大米饭！ 2026-03-15 3/150 2026-03-15 17:48 by 哈哈哈哈嘿嘿嘿
[基金申请] 国自科面上基金字体 +4 iwuli 2026-03-12 5/250 2026-03-15 17:07 by 风云无泪
[考研] 085601材料工程315分求调剂 +3 yang_0104 2026-03-15 3/150 2026-03-15 10:58 by peike
[考研] 311求调剂 +3 26研0 2026-03-15 3/150 2026-03-15 09:12 by JourneyLucky
[考研] 求调剂 +3 清风问长安 2026-03-09 3/150 2026-03-14 02:15 by JourneyLucky
[考研] 312求调剂 +6 陌宸希 2026-03-10 6/300 2026-03-14 00:40 by JourneyLucky
[考研] 一志愿湖师大化学289求调剂 +6 XMCMM3.14159 2026-03-10 6/300 2026-03-14 00:28 by JourneyLucky
[考研] b区环境工程求调剂 +4 Maps1 2026-03-10 6/300 2026-03-14 00:23 by JourneyLucky
[考研] 311求调剂 +5 牛乳糖的卡卡 2026-03-10 5/250 2026-03-14 00:05 by JourneyLucky
[考研] 285 求调剂 资源与环境 一志愿北京化工大学 +3 未名考生 2026-03-10 3/150 2026-03-13 23:04 by JourneyLucky
[考研] 求调剂（材料与化工327） +4 爱吃香菜啦 2026-03-11 4/200 2026-03-13 22:11 by JourneyLucky
[考研] 泣血叩求调剂恩，愿以丹心报师恩 +6 Iuruoh 2026-03-11 6/300 2026-03-13 22:06 by JourneyLucky
[考研] 求材料调剂 085600英一数二总分302 前三科235 精通机器学习 一志愿哈工大 +4 林yaxin 2026-03-12 4/200 2026-03-13 22:04 by 星空星月
[考研] 工科，求调剂 +3 我887 2026-03-11 3/150 2026-03-13 21:39 by JourneyLucky
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 0703一志愿211 285分求调剂 +4 ly3471z 2026-03-13 4/200 2026-03-13 13:00 by JourneyLucky
[考研] 研究生招生 +3 徐海涛11 2026-03-10 7/350 2026-03-12 14:26 by 徐海涛11
[基金申请] 提交后的基金本子，已让学校撤回了，可否换口子提交 +3 dut_pfx 2026-03-10 3/150 2026-03-11 08:38 by kudofaye
[考研] 收调剂 +7 调剂的考研学生 2026-03-10 7/350 2026-03-10 17:57 by 麦茶汤圆
信息提示
关闭
请填处理意见
关闭