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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助完成】解释Fortran的一段程序
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 918  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

malei123

新虫 (小有名气)

[交流] 【求助完成】解释Fortran的一段程序

本人是FORTRAN的初学者,就大家帮帮忙给解释一下下面的简单程序!
WRITE(*,*) 'MOLECULAR DYNAMICS SIMULATION PROGRAM'
        WRITE(*,*)
        WRITE(*,*) 'NUMBER OF PARTICLE IS    ',NPART
        WRITE(*,*) 'SIDE LENGTH OF THE BOX IS',SIDE
        WRITE(*,*) 'CUT OFF IS               ',RCOFF
        WRITE(*,*) 'REDUCED TEMPERATURE IS   ',TREF
        WRITE(*,*) 'BASIC TIME STEP IS       ',H
        WRITE(*,*)

[ Last edited by wangmonk on 2009-7-22 at 21:35 ]
回复此楼

» 猜你喜欢
jisuan
1楼 2009-07-13 20:16:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sitonyl

铁杆木虫 (文坛精英)
★
sunxiao(金币+1,VIP+0):谢谢参与，欢迎常来交流 7-15 06:51
就是结果的输出吧。
赞一下(10人) 回复此楼
zz
2楼2009-07-14 10:33:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

argo

铁杆木虫 (著名写手)

上善若水
★
sunxiao(金币+1,VIP+0):谢谢参与，欢迎常来交流 7-15 06:51
把后面的字符及变量的值输出到默认的输出设备，一般指屏幕
赞一下(10人) 回复此楼
居善地，心善渊，与善仁，言善信，正善治，事善能，动善时。
3楼2009-07-14 13:27:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

malei123

新虫 (小有名气)

求助

我知道,这些,帮忙解释一下语句,定义的字符都代表什么?
赞一下 回复此楼
jisuan
4楼2009-07-14 18:46:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

stereochemistry

★
sunxiao(金币+1,VIP+0):谢谢参与，欢迎常来交流 7-15 06:51
这个问题比较奇怪，呵呵。。。字符的意义，程序都告诉你了呀
赞一下(10人) 回复此楼
5楼2009-07-14 19:13:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

argo

铁杆木虫 (著名写手)

上善若水
★ ★ ★
wangen994(金币+2,VIP+0):感谢你参与讨论 7-16 09:03
malei123(金币+1,VIP+0):好 7-16 09:03
这个问题确实比较奇怪
从你给出的代码来看，NPART应该就是NUMBER OF PARTICLE，其余应该类推吧。
如果是看别人的代码，可以在程序中找找代码作者的注释。如果是师兄弟所写的，可以找得到本人，实在不懂的，可以直接问他吧。
还有一点，应该要知道所看的程序是干什么用的，从中去把代码重新翻译成数学公式，就可以大致知道各个变量所代表的意思吧
赞一下(10人) 回复此楼
居善地，心善渊，与善仁，言善信，正善治，事善能，动善时。
6楼2009-07-15 17:46:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingxb

金虫 (正式写手)

迷途书虫
★
malei123(金币+1,VIP+0):非常好 8-8 10:18
该问题应该不属于Fortran程序问题，而是英语问题。

尝试翻译如下：

WRITE(*,*) 'MOLECULAR DYNAMICS SIMULATION PROGRAM'
          分子动力学模拟程序
        WRITE(*,*)
        WRITE(*,*) 'NUMBER OF PARTICLE IS    ',NPART
                          粒子数
        WRITE(*,*) 'SIDE LENGTH OF THE BOX IS',SIDE
                          盒子的边长

        WRITE(*,*) 'CUT OFF IS               ',RCOFF
                          截断
        WRITE(*,*) 'REDUCED TEMPERATURE IS   ',TREF
                          约化温度为
        WRITE(*,*) 'BASIC TIME STEP IS       ',H
                         基本时间步长

        WRITE(*,*)
赞一下 回复此楼
http://sites.google.com/site/nwnuatom/个人网站，欢迎猛击乱点！
7楼2009-07-19 17:39:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tianlangxingaa

铁杆木虫 (著名写手)
这个不难吧，是fortran的基本东西啊，如果不太明白，还是翻翻书，系统学习下，会很有用的
赞一下 回复此楼
8楼2009-07-21 06:58:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dummy1

木虫 (正式写手)
就是输出文件得内容，你把第一个星号，改成数字比如50，就会生成一个fort.50得文件，默认是终端输出。例如：'NUMBER OF PARTICLE IS    ' 这是解释NPART得意义。
引用回帖:
Originally posted by malei123 at 2009-7-13 20:16:
本人是FORTRAN的初学者,就大家帮帮忙给解释一下下面的简单程序!
WRITE(*,*) 'MOLECULAR DYNAMICS SIMULATION PROGRAM'
        WRITE(*,*)
        WRITE(*,*) 'NUMBER OF PARTICLE IS    ',NPART
        WRITE(*,*) 'SIDE LENGTH ...

赞一下 回复此楼
9楼2009-07-21 14:28:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 malei123 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0856材料化工调剂 总分330 +12 zhubinhao 2026-03-27 12/600 2026-03-29 06:38 by 544594351
[考研] 083000学硕274求调剂 +8 Li李鱼 2026-03-26 8/400 2026-03-28 20:33 by 加油向未来啊
[考研] 一志愿厦门大学化学学硕307求调剂 +10 y7czhao 2026-03-26 10/500 2026-03-28 14:23 by 唐沐儿
[考研] 346求调剂 一志愿070303有机化学 +3 萝卜炖青菜 2026-03-28 3/150 2026-03-28 14:11 by 唐沐儿
[考研] 0703本科郑州大学求调剂 +3 nhj_ 2026-03-25 3/150 2026-03-28 13:24 by Iveryant
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 315分求调剂 +7 26考研上岸版26 2026-03-26 7/350 2026-03-28 04:05 by fmesaito
[考研] 291求调剂 +7 孅華 2026-03-22 7/350 2026-03-28 04:02 by fmesaito
[考研] 085600材料与化工调剂 +10 A-哆啦Z梦 2026-03-23 16/800 2026-03-27 15:13 by caszguilin
[考研] 085601 材料工程 313分 求调剂 +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 0703化学求调剂 +3 丹青奶盖 2026-03-26 5/250 2026-03-26 20:11 by macy2011
[考研] 一志愿河工大 081700 276求调剂 +4 地球绕着太阳转 2026-03-23 4/200 2026-03-26 14:27 by zzll406
[考研] 一志愿中南大学化学学硕0703总分337求调剂 +7 niko- 2026-03-22 7/350 2026-03-25 20:14 by qingfeng258
[考研] 求b区院校调剂 +4 周56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[考研] 求调剂 +3 李李不服输 2026-03-25 3/150 2026-03-25 13:03 by cmz0325
[考研] 284求调剂 +15 Zhao anqi 2026-03-22 15/750 2026-03-25 12:51 by wht0531
[考研] 生物学学硕求调剂 +7 小羊睡着了? 2026-03-23 10/500 2026-03-25 02:24 by 清风拂扬。 m
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪！？！
信息提示
关闭
请填处理意见
关闭