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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【已完结】求助：哪位帮忙写个简单的fortran小程序？谢谢。
51/1返回列表
查看: 1436  |  回复: 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的回帖

Eric945945

新虫 (初入文坛)
请问，Hz，meV，cm-1之间怎么换算
赞一下 回复此楼
7楼2016-01-22 10:30:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 5/250 2026-09-01 05:45 by o3EMxHUAQDtS
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 3/150 2026-08-31 22:23 by o3EMxHUAQDtS
[基金申请] 投票:  有多少人是今天查系统知道结果的？ +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 21:30 by xiangy672
[基金申请] 哪位高人中了，把查询到的截图贴出来让我看看，让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 能否申诉？ +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 中青基了要发朋友圈吗？ +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中，共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？ +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜？ 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 牛来！米来！面来！ +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
关闭
请填处理意见
关闭