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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
1583/16返回列表上一页123456下一页末页
查看: 12611  |  回复: 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下一页末页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 听说今天filecode变了 +16 布布和一二 2026-08-06 30/1500 2026-08-06 21:37 by 虫友是什么虫
[基金申请] filecode +10 等待解的谜 2026-08-06 14/700 2026-08-06 21:16 by zhanghaozhu
[基金申请] 固定端突然变了，今天 +3 archvillain 2026-08-06 7/350 2026-08-06 21:05 by archvillain
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 大家散了吧，后缀研究没有意义，别浪费时间了，过好目前的每一天，不要焦虑 +5 Tide man 2026-08-06 6/300 2026-08-06 20:19 by 苏知砚
[基金申请] 基金中了 +4 laoda193707 2026-08-06 4/200 2026-08-06 18:56 by olivermiaoer
[有机交流] 一个有机合成实验室都需要哪些设备？ 50+3 kf2781974 2026-07-31 12/600 2026-08-06 15:11 by eddyin
[基金申请] 求各位大神看下 100+6 hpkpkpkp 2026-08-05 33/1650 2026-08-06 14:49 by zhiyanjiang
[教师之家] 咨询面上基金 +4 李长云 2026-07-31 7/350 2026-08-06 11:20 by 李长云
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 8月时间戳变的，举个手。玩一下，释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[基金申请] 面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！ +22 低垂的野花 2026-07-31 30/1500 2026-08-05 18:03 by 低垂的野花
[基金申请] 好消息？这个有何含义？？？ +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 4/200 2026-08-05 09:59 by lfy8008
[基金申请] 有没有H口的？有收到消息的吗？ +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
[论文投稿] 十年后又回来了，论文投稿求助 +3 哈哈114477 2026-08-01 3/150 2026-08-04 15:40 by tegsgjy20
[基金申请] 纯娱乐，不喜欢勿喷 +7 Tide man 2026-08-04 10/500 2026-08-04 15:10 by loufangrui
[基金申请] 面上提前没消息，有中的吗 +14 archvillain 2026-08-02 18/900 2026-08-04 14:42 by archvillain
[基金申请] 娱乐 +4 Tide man 2026-08-03 4/200 2026-08-04 11:51 by wgch518
[基金申请] 什么时候能放榜呀？ +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
信息提示
关闭
请填处理意见
关闭