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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【已完结】求助：哪位帮忙写个简单的fortran小程序？谢谢。
71/1返回列表
查看: 1427  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

阿黛拉

银虫 (小有名气)

[求助] 【已完结】求助：哪位帮忙写个简单的fortran小程序？谢谢。

1 f  =   57.411351 THz   360.726156 2PiTHz 1915.036473 cm-1   237.434347 meV
             X         Y         Z           dx          dy          dz
     11.185417 13.455304 10.654821    -0.660109   -0.666449   -0.332733  
。。。。
2 f  =   33.141990 THz   208.237266 2PiTHz 1105.497764 cm-1   137.064303 meV
             X         Y         Z           dx          dy          dz
     11.185417 13.455304 10.654821    -0.020412    0.018883   -0.002727  
。。。。
   3 f  =   30.073705 THz   188.958660 2PiTHz 1003.150784 cm-1   124.374891 meV
。。。。
想实现  N个含字母f行中单位为THz的数值的加和，若记为total（THz），转化为Hz单位需要乘以十的十二次方，记为TOTAL。
代入公式0.5h*TOTAL计算。（h的数值为4.13566743＊十的负十五次方）
请教fortran程序。谢谢！
文件见附件。[ Last edited by jjdg on 2011-9-24 at 14:24 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
进退有度，才不至进退维谷；宠辱皆忘，方可以宠辱不惊。
1楼 2011-09-23 11:02:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

阿黛拉(金币+5): 等待您的帮助，能否写程序并加上注释我也想学习写程序。谢谢您的关注。 2011-09-23 16:02:13
这个很简单吧，现在没有时间，如果晚上之前没有人帮你，我再来，呵呵……
赞一下 回复此楼
2楼2011-09-23 14:13:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-09-28 10:32:26
因为我不喜欢写注释，而且程序很简单，所以就不写了吧，呵呵……
CODE:
program car
   implicit none
   character(len=80) :: line
   real, dimension (:), allocatable :: Hz
   integer :: ios, n
   
   open(unit = 11, file = 'car.txt', status = 'old')
   
   n = 0
   do
      read(11, '(a)', iostat = ios) line
      if (ios /= 0) exit
      if (index(line, 'f  =  ') /= 0) n = n + 1
   end do
   
   allocate(Hz(n))
   
   rewind(11)
   
   n = 0
   do
      read(11, '(a)', iostat = ios) line
      if (ios /= 0) exit
      if (index(line, 'f  =  ') /= 0) then
          n = n + 1
          read(line, '(tr11,f10.6)') Hz(n)
      end if
   end do
   
   write(*,*) Hz

   write(*,*) 0.5 * 4.13566743E-15  * Hz * 1.0E10

end program car
赞一下(1人) 回复此楼
3楼2011-09-23 18:32:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
余泽成(金币+3): 谢谢参与应助！ 2011-09-28 10:32:40
引用回帖:
1楼: Originally posted by 阿黛拉 at 2011-09-23 11:02:50:
1 f  =   57.411351 THz   360.726156 2PiTHz 1915.036473 cm-1   237.434347 meV
             X         Y         Z           dx          dy          dz
     11.185417 13.455304 10.654821    -0.66010 ...

才看到是加和，呵呵……，稍微改了一下前面的程序：
CODE:
program car
   implicit none
   character(len=80) :: line
   real, dimension (:), allocatable :: Hz
   integer :: ios, n
   
   open(unit = 11, file = 'car.txt', status = 'old')
   
   n = 0
   do
      read(11, '(a)', iostat = ios) line
      if (ios /= 0) exit
      if (index(line, 'f  =  ') /= 0) n = n + 1
   end do
   
   allocate(Hz(n))
   
   rewind(11)
   
   n = 0
   do
      read(11, '(a)', iostat = ios) line
      if (ios /= 0) exit
      if (index(line, 'f  =  ') /= 0) then
          n = n + 1
          read(line, '(tr11,f10.6)') Hz(n)
      end if
   end do
   
!  write(*,*) Hz

   write(*,*) sum(Hz)

   write(*,*) 0.5 * 4.13566743E-15  * sum(Hz) * 1.0E10

end program car
赞一下(1人) 回复此楼
4楼2011-09-23 22:30:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
阿黛拉(金币+5): 非常感谢您的热心帮助，可谓是精益求精。由衷地表示感谢。问题已成功解决。 2011-09-24 10:05:23
余泽成(金币+1): 辛苦了！ 2011-09-28 10:32:57
一个更加简单的版本：
CODE:
program car
   implicit none
   character(len=80) :: line
   real :: Hz, total
   integer :: ios
   
   open(unit = 11, file = 'car.txt', status = 'old')
   
   total = 0.0
   do
      read(11, '(a)', iostat = ios) line
      if (ios /= 0) exit
      if (index(line, 'f  =  ') /= 0) then
         read(line, '(tr11,f10.6)') Hz
         total = total + Hz
      end if
   end do
   
   write(*,*) total

   write(*,*) 0.5 * 4.13566743E-15  * total * 1.0E10

end program car
赞一下(1人) 回复此楼
5楼2011-09-23 22:34:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主
★ ★ ★
余泽成(金币+3): 谢谢参与应助，辛苦了！ 2011-09-28 10:33:23
具体见附件！
赞一下(1人) 回复此楼
努力学习！以正当途径！获得需要的知识！
6楼2011-09-27 02:30:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Eric945945

新虫 (初入文坛)
请问，Hz，meV，cm-1之间怎么换算
赞一下 回复此楼
7楼2016-01-22 10:30:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 阿黛拉 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今天务委会开完了，明天出结果吗 +18 angus9576 2026-08-25 22/1100 2026-08-26 00:41 by merchancy
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +16 木水思豆 2026-08-25 19/950 2026-08-25 23:56 by dragonxp
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 7K1CJE38xLG4 2026-08-25 3/150 2026-08-25 23:20 by cNXvBfCpiZOM
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 有没有大神帮我看看基金代码 28+4 1234567wang 2026-08-24 10/500 2026-08-25 19:15 by lfy8008
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +5 process2012 2026-08-23 7/350 2026-08-25 09:42 by huixian257
[基金申请] 今天基金会出结果吗？20260819 +17 kkkl_v 2026-08-19 18/900 2026-08-25 09:41 by windflowerwy
[基金申请] 我面上完蛋了 +13 且听虎啸 2026-08-20 14/700 2026-08-25 09:10 by mrkang
[基金申请] 只有每年这种时候来逛逛小木虫 +25 yaoyewhu2008 2026-08-20 27/1350 2026-08-25 08:01 by Equinoxhua
[基金申请] filecode，4个jtjc了 +14 ziyangfang 2026-08-19 17/850 2026-08-24 18:37 by 哈哈蛤？
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 科研孤儿太难了 +18 我4大白菜 2026-08-20 19/950 2026-08-24 09:47 by 凯恩广盛催化分�
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜吗？ +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] 时间戳今天，20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
信息提示
关闭
请填处理意见
关闭