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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
1583/16返回列表上一页123456下一页末页
查看: 10722  |  回复: 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下一页末页
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭