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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 物理 » 统计、非线性&软物质 » 【求助】关于fortran编程的
51/1返回列表
查看: 1225  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

忘尘天空

银虫 (小有名气)

[交流] 【求助】关于fortran编程的

这是我有fortran编写的一个程序，就是执行不出来，请哪位高手指点一下是那个地方出错了，老是提示有一个错误
         PROGRAM
         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
谢谢！

[ Last edited by 忘尘天空 on 2009-2-9 at 17:20 ]
回复此楼

» 猜你喜欢
快乐生活，感恩！
1楼 2009-02-09 15:53:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★
musi429(金币+3,VIP+0):多谢交流~ 2-18 01:02
SUBROUTINE FAC(I)
        IMPLICIT REAL*8(A-H,O-Z)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,I
         RO(I1)=RO(I1-1)*I1
1       CONTINUE
       RETURN
         END
去掉program就行了。。。不过有些变量你没有声明。我给你补上了。
赞一下(10人) 回复此楼
8楼2009-02-17 15:28:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

lianghust

铁杆木虫 (正式写手)
这是主程序还是子程序？？没看出来
赞一下 回复此楼
3楼2009-02-09 17:01:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

忘尘天空

银虫 (小有名气)
这是一个子程序，在运行的时候总是会出现：
dfor.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Debug/1.1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

1.1.exe - 2 error(s), 0 warning(s)
不知道是什么意思，该如何修改呢？谢谢
赞一下 回复此楼
快乐生活，感恩！
4楼2009-02-09 17:29:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

忘尘天空

银虫 (小有名气)
I没有定义
要如何定义呢？
赞一下 回复此楼
快乐生活，感恩！
5楼2009-02-09 17:31:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭