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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助完成】解释Fortran的一段程序
91/1返回列表
查看: 957  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 上海大学实验技术岗位非升即走 +8 嘻嘻哈哈乐呵呵 2026-05-15 8/400 2026-05-18 11:53 by ning312
[基金申请] 重磅！青年科学基金项目（C类）资助增幅预计超过50% +7 水和泥不是水泥 2026-05-13 10/500 2026-05-18 07:50 by 水和泥不是水泥
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 ky2p12rrjj 2026-05-15 4/200 2026-05-17 19:47 by Equinoxhua
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 xx7gd5zq4e 2026-05-15 6/300 2026-05-17 19:36 by Equinoxhua
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 cjf4bx70cj 2026-05-14 7/350 2026-05-17 18:49 by Equinoxhua
[基金申请] 这年头没有找到涵评专家，还有中面上的可能吗 +13 dd921ww 2026-05-12 16/800 2026-05-17 12:38 by 于轩
[考博] 26/27博士推荐 +3 1木头人13949 2026-05-13 3/150 2026-05-17 09:41 by YuY66
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 7hlccowb3h 2026-05-15 4/200 2026-05-17 07:46 by 11n4dfd8yn
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 8/400 2026-05-17 07:26 by 11n4dfd8yn
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:25 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:25 by ue3ir18jc3
[基金申请] 请问大佬b0816评完了吗 +4 市民华南虎 2026-05-12 8/400 2026-05-16 19:54 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[有机交流] 如何实现卤原子转化 +3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 by czyzsu
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 11:29 by h3oerqvkv9
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
信息提示
关闭
请填处理意见
关闭