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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 量子化学 » Gaussian » 【求助】关于fortran的
51/1返回列表
查看: 856  |  回复: 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的回帖

老虎大王

木虫 (著名写手)
★ ★ ★
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的回帖
查看全部 14 个回答

老虎大王

木虫 (著名写手)
★ ★ ★
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的回帖
查看全部 14 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭