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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 量子化学 » Gaussian » 【求助】关于fortran的
51/1返回列表
查看: 878  |  回复: 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(金币+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的回帖
查看全部 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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭