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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】高手帮我看看这是怎么回事？
61/1返回列表
查看: 744  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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)


可以编译过
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
湿出个未来!冲动是魔鬼,但是没有冲动连人都不是!饭要一口口吃，爱要一次次做!
1楼 2010-06-26 20:45:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-06-27 15:09:23
您只是编译了一个函数，您的主函数呢？
赞一下(2人) 回复此楼
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，做为程序的起始点。
赞一下(2人) 回复此楼
4楼2010-06-27 15:18:53
已阅   回复此楼   关注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的回帖

yalefield

金虫 (文坛精英)

老汉一枚
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by suetung8 at 2010-06-27 16:16:06:
yale兄

呵呵，俺村的大姑娘、小媳妇都叫俺“老汉”。
赞一下(1人) 回复此楼
6楼2010-06-27 18:59:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 suetung8 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +31 医学老男孩 2026-08-13 69/3450 2026-08-16 00:16 by mo_mo_mo_mo
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +7 Ldrop2023 2026-08-13 7/350 2026-08-15 15:57 by mzhh2000
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 22/1100 2026-08-14 23:45 by Noways
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥？ +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了，巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 确定了，国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
信息提示
关闭
请填处理意见
关闭