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

24小时热门版块排行榜    

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

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 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的？ +15 爱看书的可乐 2026-08-26 17/850 2026-08-27 22:18 by xxniao123
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 基金不中，共勉 +10 eulota 2026-08-26 10/500 2026-08-27 17:23 by lqllinqiaoli
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7 process2012 2026-08-23 10/500 2026-08-26 19:23 by hmhminy
[基金申请] 系统查不到 +10 董八千 2026-08-26 10/500 2026-08-26 16:30 by Equinoxhua
[基金申请] 怎么查啊 +5 huang1991js 2026-08-26 5/250 2026-08-26 16:09 by Equinoxhua
[基金申请] 范进中举一文的中心思想 +9 炎黄贵胄 2026-08-22 10/500 2026-08-26 15:40 by semaglutide
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国际合作可查了，中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 牛来！米来！面来！ +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
信息提示
关闭
请填处理意见
关闭