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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】高手帮我看看这是怎么回事？
61/1返回列表
查看: 741  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +31 医学老男孩 2026-08-13 69/3450 2026-08-16 00:16 by mo_mo_mo_mo
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +9 majunge000 2026-08-11 11/550 2026-08-15 23:20 by botar
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +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
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 请教兼职经验 +3 是阿文鸭 2026-08-09 3/150 2026-08-14 12:07 by HER12025
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] FileCode能看出啥？ +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] Filecode 又变了，巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分？ +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 帮忙看看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
[基金申请] 国自然结果 +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 仁砚薪传
信息提示
关闭
请填处理意见
关闭