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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助完成】解释Fortran的一段程序
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 924  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿北京化工大学材料与化工（085600）296求调剂 +13 稻妻小编 2026-03-26 13/650 2026-03-29 08:20 by fmesaito
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 330分求调剂 +5 qzenlc 2026-03-29 5/250 2026-03-29 07:37 by 无际的草原
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 生物学学硕，一志愿湖南大学，初试成绩338 +6 YYYYYNNNNN 2026-03-26 7/350 2026-03-28 20:52 by 唐沐儿
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
[考研] 一志愿华北电力大学能动专硕，293，求调剂 +3 15537177284 2026-03-23 5/250 2026-03-28 16:11 by xxxsssccc
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 266分，求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 0856，材料与化工321分求调剂 +12 大馋小子 2026-03-27 13/650 2026-03-28 10:56 by self2008
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 0703化学338求调剂！ +6 Zuhui0306 2026-03-26 7/350 2026-03-27 10:35 by shangxh
[考研] 324求调剂 +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[考研] 342求调剂 +3 加油a李zs 2026-03-26 3/150 2026-03-27 00:29 by wxiongid
[考研] 材料考研求调剂 +3 Dendel 2026-03-23 6/300 2026-03-26 17:51 by fmesaito
[考研] 352求调剂 +4 大米饭！ 2026-03-22 4/200 2026-03-26 16:40 by 不吃魚的貓
[考研] 296求调剂 +4 汪！？！ 2026-03-25 7/350 2026-03-25 16:41 by 汪！？！
[考研] 284求调剂 +3 yanzhixue111 2026-03-23 6/300 2026-03-23 22:58 by pswait
信息提示
关闭
请填处理意见
关闭