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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】请教fortran90高手！！
152/2返回列表上一页12
查看: 1013  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

grant.tgb

木虫 (小有名气)

在我这里没任何问题啊

★ ★
woshilsh(金币+2,VIP+0):谢谢您的热心解答，期待您常来！
屏幕输出结果是：

4926277576697053184
Press any key to continue

＝＝＝＝＝＝＝＝＝＝
我加了一些输出语句，用于检查，但不影响程序的对错啊。

program digui
integer(kind=8)::fac
open(16,FILE='out.dat')
print*,fac(34)
close(16)
end program digui
recursive function fac(n) result(fac_rst)
integer,intent(in)::n
integer(kind=8)::fac_rst
if(n==0)then
fac_rst=1
else
fac_rst=n*fac(n-1)
end if
write(16,*) n, fac_rst
end function
赞一下(10人) 回复此楼
11楼2008-11-27 15:12:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

stereochemistry

写法有问题,换个写法,呵呵.....
赞一下 回复此楼
12楼2008-11-29 10:37:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)
还是不能运行,郁闷！清高手指点写法错在哪里？谢谢！！
赞一下 回复此楼
13楼2008-11-29 11:33:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cuicoffee

铁杆木虫 (小有名气)
大多数机器整型数最多是用4个字节存储,也就是kind=4,只有特殊机器(Alpha系统)才能用8字节(也就是kind=8)存储.
grant.tgb  改数据类型做法可以,但是你得不到一个数各个位的具体值,这是浮点数特性造成的.
另,grant.tgb  用的是什么机器,或有无什么方法扩大计算机存储整型数的字节数,

[ Last edited by cuicoffee on 2008-11-29 at 15:48 ]
赞一下 回复此楼
业精于勤？行成于思？概率多大？
14楼2008-11-29 15:40:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)
多谢高手指点！问题解决了
赞一下 回复此楼
15楼2008-11-30 08:55:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jianchaoyv 的主题更新
152/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 上海大学实验技术岗位非升即走 +9 嘻嘻哈哈乐呵呵 2026-05-15 9/450 2026-05-19 01:47 by jurkat.1640
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +8 1234567wang 2026-05-17 10/500 2026-05-18 18:52 by zzahkj
[基金申请] 国自然上会要求 +5 无名者登山 2026-05-18 9/450 2026-05-18 17:50 by BlakeReary
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 by Equinoxhua
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 l7k6xnh0yc 2026-05-14 5/250 2026-05-17 19:39 by Equinoxhua
[考博] 找博士生导师 +4 小代想上岸 2026-05-15 5/250 2026-05-17 17:44 by 脱颖而出
[考博] 2026博士还有哪些学校有名额 +6 小王求读研 2026-05-15 7/350 2026-05-17 16:54 by 知音湖畔
[考博] 26/27博士推荐 +3 1木头人13949 2026-05-13 3/150 2026-05-17 09:41 by YuY66
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 4/200 2026-05-17 08:06 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:31 by 11n4dfd8yn
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 8/400 2026-05-17 07:26 by 11n4dfd8yn
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:11 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:57 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:50 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-17 00:45 by ue3ir18jc3
[有机交流] 求有机合成大神指点三硫酸乙烯酯（CAS：2793408-99-6）的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
信息提示
关闭
请填处理意见
关闭