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

24小时热门版块排行榜    

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