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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
北京石油化工学院2026年研究生招生接收调剂公告
1583/16返回列表上一页123456下一页末页
查看: 11515  |  回复: 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下一页末页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 华南理工0703化学，总分336求调剂 +8 手机用户 2026-04-03 8/400 2026-04-06 11:48 by lijunpoly
[考研] 0703化学 +17 妮妮ninicgb 2026-04-04 18/900 2026-04-06 10:41 by 大力水手力大无�
[考研] 第一志愿东南大学物理313，有科研竞赛获奖经历，希望物理复试调剂 +3 马内橙 2026-04-05 3/150 2026-04-06 10:32 by 蓝云思雨
[考研] 一志愿C9的化学工程（085602） 340分，感觉校内调剂无望，求调剂 +12 万事宜臻 2026-04-04 12/600 2026-04-06 07:46 by 无际的草原
[考研] 277求调剂 数一104分 +6 瓶子PZ 2026-04-05 6/300 2026-04-05 20:38 by 啵啵啵0119
[考研] 304求调剂 +3 luoye0105 2026-04-05 3/150 2026-04-05 18:16 by 土木硕士招生
[考研] 298求调剂 +3 manman511 2026-04-05 3/150 2026-04-05 18:09 by kk112233
[考研] 282电子信息0854专硕调剂 +4 202451007219 2026-04-02 6/300 2026-04-04 21:55 by laoshidan
[考研] 341求调剂 +3 洛多罗 2026-04-02 4/200 2026-04-04 21:36 by 智能智慧
[考研] 281求调剂 +10 aaawhy 2026-04-03 10/500 2026-04-03 21:42 by lbsjt
[考研] 282求调剂 不挑专业 求收留 +7 Yam. 2026-03-30 8/400 2026-04-03 14:12 by zhangdingwa
[基金申请] 请问共同通讯和共同一作的认可度问题 10+4 psa1234 2026-04-01 10/500 2026-04-03 11:08 by Kittylucky
[考研] 交通运输考试264分求工科调剂 +4 jike777 2026-04-02 4/200 2026-04-02 21:53 by zllcz
[考研] 一志愿复旦材料，英一专硕，总分357调剂 +4 1050389037 2026-04-02 5/250 2026-04-02 21:40 by dongzh2009
[考研] 求调剂 +7 Aniyaio 2026-04-02 7/350 2026-04-02 16:42 by zzsw+
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 08生物与医药专硕初试346找调剂 +6 dianeeee 2026-04-01 7/350 2026-04-02 08:23 by guoweigw
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
[考研] 一志愿大连理工大学，机械工程学硕，341 +3 西瓜田的守望者 2026-03-30 3/150 2026-03-31 11:08 by asdfzly
信息提示
关闭
请填处理意见
关闭