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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
1583/16返回列表上一页123456下一页末页
查看: 13159  |  回复: 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下一页末页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 申请科研项目纯靠实力能成功吗？ 200+5 David1982 2026-10-13 8/400 2026-10-14 21:38 by lhw_GPA4.0
[硕博家园] 中科院海洋所招收海洋材料相关领域博士研究生及研究助理 +3 sujiner 2026-10-08 4/200 2026-10-14 20:40 by qicaiyun
[职场人生] 40+中年人失业后，还能找到好工作吗？ +3 xqy2009 2026-10-13 3/150 2026-10-14 20:17 by 43358052
[有机交流] OpenAI又攻克数学难题了，离AI做有机合成还有多远？ +8 wangyl_123 2026-10-10 13/650 2026-10-14 15:12 by zuesli
[教师之家] 课题组会帮你通过考核么？ +4 好运来～9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷！
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬，路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些？ +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
关闭
请填处理意见
关闭