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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
北京石油化工学院2026年研究生招生接收调剂公告
1583/16返回列表上一页123456下一页末页
查看: 11518  |  回复: 157
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

felicity6056

至尊木虫 (知名作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
LZ，请问 block data是什么？
赞一下(1人) 回复此楼
努力的过程讲究方法！
21楼2009-08-10 16:35:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+3,VIP+0):欢迎常来，哈哈 8-27 16:45
主要作用是对 common 中的变量进行初始化，在主程度中不需要被调用。
赞一下(11人) 回复此楼
22楼2009-08-10 16:56:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+1,VIP+0):欢迎常来程序软件版 8-27 16:46
引用回帖:
Originally posted by snoopyzhao at 2009-8-10 16:56:
主要作用是对 common 中的变量进行初始化，在主程度中不需要被调用。

谢谢
回复此楼
努力的过程讲究方法！
23楼2009-08-10 16:59:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
再请教个问题
block data
        implicit real*8 (a-h,o-z)
        parameter(id=250,jd=250,nfd=10,nfp3=13,maxij=250)
        logical lstop,lsolve,lprint,lblk,ldata
        character*10 title
        common/name/title(nfp3)
        common/cntl/lstop,lsolid
        common/sorc/smax,ssum
        common/error/ier,jer
        common/coef/flow,diff,acof
        common/const/d1,d2,pr,ra,ra1,thita,ar,xlen,lgrid,mgrid
        common/indx/nf,nfmax,np,nrho,ngam,l1,l2,l3,m1,m2,m3,ist,jst,
     1            iter,last,lsolve(nfd),lprint(nfp3),lblk(nfd),mode,
     2            ldata,ntimes(nfd),ipref,jpref,dx,dy
        common/indx2/relax(nfp3),time,dt,xl,yl,rhocon,yox,nozf
        data nfmax,np,nrho,ngam/10,11,12,13/
        data lblk/10*.true./
        data relax,ntimes/nfp3*1.,nfd*1/
        data dt,ipref,jpref,rhocon/1.e10,1,1,1.29/
        data lstop,lsolve,lprint,ldata/25*.false./
        data mode,last/2,100/
        data title(1)/'   u      '/
        data title(2)/'   v      '/
        data title(3)/'   sf     '/
        data title(4)/'   fuel   '/
        data title(5)/'   oxy.   '/
        data title(6)/'   temp   '/
        data title(11)/'   pres.  '/
        end
这一段表示什么意思？最好能给每行解释的详细点，虫子的牛人们！

[ Last edited by felicity6056 on 2009-8-10 at 17:03 ]
赞一下(1人) 回复此楼
努力的过程讲究方法！
24楼2009-08-10 17:02:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+1,VIP+0):谢谢你，常来 8-27 16:47
没有什么特别的东西啊，只是在赋值而已。

任何一个讲 Fortran 77 的书中都会讲到的。自己找来看看吧，网上也有很多教程之类的东西。
赞一下(11人) 回复此楼
25楼2009-08-10 17:05:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by snoopyzhao at 2009-8-10 17:05:
没有什么特别的东西啊，只是在赋值而已。

任何一个讲 Fortran 77 的书中都会讲到的。自己找来看看吧，网上也有很多教程之类的东西。

能不能说得详细点啊，我在95的上面找不见相关的东西
赞一下(1人) 回复此楼
努力的过程讲究方法！
26楼2009-08-10 17:07:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
Fortran 77 教程谁有电子版的能不能发个我，谢谢！
赞一下(1人) 回复此楼
努力的过程讲究方法！
27楼2009-08-10 17:19:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
我的邮箱是147926013@qq.com
那为好心虫子有的话发给我，多谢多谢！
赞一下 回复此楼
努力的过程讲究方法！
28楼2009-08-10 17:27:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+3,VIP+0):谢谢你，常来啊，哈哈 8-27 16:47
只限于 fortran 77
个人认为下面这个很经典：
http://www.star.le.ac.uk/~cgp/prof77.html

这个也可以看看：
http://www.idris.fr/data/cours/lang/fortran/f90/F77.html

自己也可以在 google 上搜一下，很多很多。当然，多数是 *英文* 的。

不过，你为什么要看 fortran 77 的东西呢？ 90/95/2003/2008 不是更好？
赞一下(11人) 回复此楼
29楼2009-08-10 17:31:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

felicity6056

至尊木虫 (知名作家)
引用回帖:
Originally posted by snoopyzhao at 2009-8-10 17:31:
只限于 fortran 77
个人认为下面这个很经典：
http://www.star.le.ac.uk/~cgp/prof77.html

这个也可以看看：
http://www.idris.fr/data/cours/lang/fortran/f90/F77.html

自己也可 ...

找不见有些东西，程序像是77写的。你给的这些东西都是英文的，看起来太累了。不过还是谢谢你

[ Last edited by felicity6056 on 2009-8-10 at 17:35 ]
赞一下 回复此楼
努力的过程讲究方法！
30楼2009-08-10 17:34:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
1583/16返回列表上一页123456下一页末页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿郑州大学材料与化工085600，求调剂 +27 吃的不少 2026-04-02 27/1350 2026-04-06 15:19 by 495374996
[考研] 工科370求调剂 +3 溏心煎鸡蛋 2026-04-05 3/150 2026-04-06 10:55 by 这是一个无聊的�
[考研] 求调剂 +11 熊二想上岸 2026-04-04 11/550 2026-04-05 22:21 by 醉翁wl
[考研] 工科08-机械专硕-求调剂 +3 雷欧飞踢 2026-04-02 3/150 2026-04-05 18:49 by 蓝云思雨
[考研] 295求调剂 +8 FZAC123 2026-04-03 8/400 2026-04-05 17:46 by 蓝云思雨
[考研] 272求调剂 +4 电气李 2026-04-05 4/200 2026-04-05 10:41 by lbsjt
[考研] 359求调剂22408 +3 123456789qw 2026-03-31 3/150 2026-04-05 10:09 by zhq0425
[考研] 325求调剂 +4 春风不借意 2026-04-04 4/200 2026-04-04 14:46 by 湘农储能材料
[考研] 0703求调剂 +6 zizimo 2026-03-31 6/300 2026-04-04 14:16 by 无际的草原
[考研] 350一志愿北京航空航天大学08500材料科学与工程求调剂 +5 kjnasfss 2026-04-03 5/250 2026-04-03 22:29 by 无际的草原
[考研] 化工调剂303分，过四级 +28 栖梧待风 2026-04-02 28/1400 2026-04-03 21:40 by qlm5820
[考研] 考研调剂 +8 不爱喝饮料 2026-04-03 8/400 2026-04-03 16:40 by Mistake-J
[考研] 材料专硕322分 +13 哈哈哈吼吼吼哈 2026-04-01 13/650 2026-04-03 16:08 by 哦哦123
[考研] 一志愿大工学硕，求调剂 +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by 百灵童888
[考研] 材料调剂 +12 一样YWY 2026-04-01 12/600 2026-04-02 00:21 by 百秒光年
[考研] 304求调剂 +12 素年祭语 2026-03-31 15/750 2026-04-01 22:41 by peike
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 求调剂 +4 图鉴212 2026-03-30 5/250 2026-04-01 15:32 by 图鉴212
[硕博家园] 考研调剂 +5 骆驼男人 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
[考研] 080500-315分复试调剂 +9 上岸3821 2026-03-31 9/450 2026-03-31 17:29 by 唐沐儿
信息提示
关闭
请填处理意见
关闭