| 查看: 809 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】知道这个程序为什么报错嘛？ 【已解决】
|
|||
|
implicit real*8(a-h,o-z) read(*,*) n write(*,*)n, fac(n) read(*,*) m write(*,*)m, fac(m) end function fac(n) implicit real*8(a-h,o-z) data f/1/ write(*,*) '***' if(n.lt.0) return do i=1,n f=f*i enddo fac=f return end 在练习save应用的时候，写了上个小的子程序，看看Save用法的，没想到不对，报错如附件中所示，愿高手指点，奉上20金币酬谢。 上面个小程序，是输入一个数，求其的阶乘的程序， 我就只求为啥会报这个错，多谢。多谢。 [ Last edited by nono2009 on 2009-12-29 at 16:17 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
广西大学-广州大学招聘博士后 欢迎广大优秀人才！！！
已经有6人回复
-
两块石头
已经有5人回复
-
面上没中，邀请各位路过的虫友分析一下分数
已经有8人回复
-
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生
已经有3人回复
-
找导师
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
学科评审组评审是指会评吗？
已经有5人回复
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555230
- 散金: 27828
- 红花: 2148
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
6楼2009-12-27 20:21:06
dic213
木虫 (著名写手)
第三军团儿童团团长
- 应助: 0 (幼儿园)
- 金币: 1777.4
- 散金: 5
- 帖子: 2476
- 在线: 37.1小时
- 虫号: 42931
- 注册: 2004-04-03
- 性别: GG
- 专业: 计算数学
2楼2009-12-27 19:22:48
3楼2009-12-27 19:54:45
4楼2009-12-27 20:02:35