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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助完成】解释Fortran的一段程序
91/1返回列表
查看: 1058  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 申请科研项目纯靠实力能成功吗？ 200+7 David1982 2026-10-13 11/550 2026-10-15 10:30 by zyqchem
[职场人生] 40+中年人失业后，还能找到好工作吗？ +5 xqy2009 2026-10-13 5/250 2026-10-15 09:49 by 淘淘塑物性通
[硕博家园] 极限拉扯，如何抉择 +11 Isak0320 2026-10-12 15/750 2026-10-14 21:55 by 猫鱼不是鱼
[论文投稿] 二审4个多月了还是Awaiting Reviewer Scores 10+3 纳斯达克ML 2026-10-11 4/200 2026-10-14 17:30 by babero
[有机交流] OpenAI又攻克数学难题了，离AI做有机合成还有多远？ +8 wangyl_123 2026-10-10 13/650 2026-10-14 15:12 by zuesli
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 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文章，我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 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
[公派出国] 售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
信息提示
关闭
请填处理意见
关闭