24小时热门版块排行榜    

查看: 588  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

suetung8

木虫 (知名作家)

老光棍一个

[交流] 【求助】高手帮我看看这是怎么回事? 已有2人参与

对照书上弄了一个,第一次弄,不知道这是什么错误,麻烦老大给指点下,多谢了

      subroutine forcem(press,th1,th2,nn,n)
      implicit real*8 (a-h,o-z)                                               dp
      dimension n(7)
      real LEN, MAX
c* * * * * *
c PURPOSE
c  definied non_uniformed distributed force on an element
c
c
c
c INPUT
c  press    distributed load magnitude given in input
c  th1      integration point coordinates
c  nn      integration point number
c  n       element number,etc
c
c* * * * * *
        MAX=450000.0
        LEN=25.0
        press=th1(2)*MAX/LEN

      return
      end


错误如下
Linking...
dfor.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Debug/fff.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

fff.exe - 2 error(s), 0 warning(s)


可以编译过
回复此楼
湿出个未来!冲动是魔鬼,但是没有冲动连人都不是!饭要一口口吃,爱要一次次做!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suetung8

木虫 (知名作家)

老光棍一个

引用回帖:
Originally posted by yalefield at 2010-06-27 15:18:53:
不管您的程序打算干什么,每个.for文件都可以编译为目标文件;
然后,多个目标文件在“连接”起来,形成可执行文件。

问题是,这些目标文件中,必须有、而且只能有一个main,做为程序的起始点。

明白些了~~多谢yale兄的解答,我再试试修改下看
若有不明白的再向yale请教
湿出个未来!冲动是魔鬼,但是没有冲动连人都不是!饭要一口口吃,爱要一次次做!
5楼2010-06-27 16:16:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

yalefield

金虫 (文坛精英)

老汉一枚

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-06-27 15:09:23
您只是编译了一个函数,您的主函数呢?
2楼2010-06-27 07:49:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suetung8

木虫 (知名作家)

老光棍一个

引用回帖:
Originally posted by yalefield at 2010-06-27 07:49:51:
您只是编译了一个函数,您的主函数呢?

yale兄好,这个是一个有限元软件的子程序,和这个类似的函数有的可以成功的,不知道这个为什么这个不能成功~~~必须要主函数吗?
湿出个未来!冲动是魔鬼,但是没有冲动连人都不是!饭要一口口吃,爱要一次次做!
3楼2010-06-27 14:23:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+2):谢谢参与应助! 2010-06-27 21:34:45
不管您的程序打算干什么,每个.for文件都可以编译为目标文件;
然后,多个目标文件在“连接”起来,形成可执行文件。

问题是,这些目标文件中,必须有、而且只能有一个main,做为程序的起始点。
4楼2010-06-27 15:18:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见