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

24小时热门版块排行榜    

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

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
余泽成(金币+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 个回答

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

至尊木虫 (职业作家)

【答案】应助回帖

★
阿黛拉(金币+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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的？ +12 爱看书的可乐 2026-08-26 14/700 2026-08-26 12:49 by coolysnow
[基金申请] 为什么国自然不能直接公布 +3 bjdxyxy 2026-08-26 3/150 2026-08-26 12:48 by 小丑鱼爱读书
[基金申请] 科研孤儿太难了 +21 我4大白菜 2026-08-20 22/1100 2026-08-26 11:29 by nlgza
[基金申请] 能否退出参与的面上项目解除限项 +22 koalala 2026-08-24 25/1250 2026-08-26 11:14 by dxcharlary
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 今天务委会开完了，明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[职场人生] 学生撞见辅导员送外卖，第二天全班都沉默了 +3 鲸鱼融金_浙江_� 2026-08-22 3/150 2026-08-26 09:01 by zzuzxg
[基金申请] 国合现在查不到了吗？ +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 牛来！米来！面来！ +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +24 木水思豆 2026-08-25 27/1350 2026-08-26 08:26 by yanchen918
[基金申请] 有没有大神帮我看看基金代码 28+4 1234567wang 2026-08-24 10/500 2026-08-25 19:15 by lfy8008
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 19/950 2026-08-25 17:57 by chick875
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 22/1100 2026-08-25 15:36 by 医学老男孩
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[基金申请] 我面上完蛋了 +13 且听虎啸 2026-08-20 14/700 2026-08-25 09:10 by mrkang
[基金申请] 看来今天不会放榜了？ +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
信息提示
关闭
请填处理意见
关闭