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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 关于fortran
61/1返回列表
查看: 637  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

李学忠

铁杆木虫 (知名作家)

lxz

[求助] 关于fortran

刚开始学习fortran，现在想把一个txt文件，里面有三列，800多行，想把其中的一列全部加上一个数，如果加上后这个数超过20，那么就减去20.不超过就算了。
最后输出txt文件，给怎么实现呢，谢谢！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-06-15 13:02:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
余泽成(金币+3): 辛苦了！ 2011-06-15 21:00:45
比如在第一列上加一个值，那么可以用以下实现：
CODE:
program poly
real :: x, y, z, num
integer :: ios

open(unit=12, file='polymer.txt', status='old')
open(unit=13, file='output.txt', status='new')

write(*,*) 'please input the specific real number:'
read(*,*) num
do
   read(12,*, iostat=ios) x, y, z
   if (ios /= 0) exit
   if ((x + num) > 20.0) then
      x = x + num - 20.0
   else
      x = x + num
   end if
   write (13, *) x, y, z
end do

end program poly
赞一下(1人) 回复此楼
2楼2011-06-15 14:31:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
李学忠(金币+5): 非常感谢！ 2011-06-15 16:22:49
余泽成(金币+2): 谢谢参与应助！ 2011-06-15 21:01:20
指定列加特定的数值：
CODE:
program poly
real :: num
real, dimension(3) :: coor
integer :: ios, i

open(unit=12, file='polymer.txt', status='old')
open(unit=13, file='output_.txt', status='new')

write(*,*) 'please input the specific real number:'
read(*,*) num

write(*,*) 'which column do you want to add (1, 2, or 3)?'
read(*,*) i
do
   read(12,*, iostat=ios) coor(1:3)
   if (ios /= 0) exit
   if ((coor(i) + num) > 20.0) then
      coor(i) = coor(i) + num - 20.0
   else
      coor(i) = coor(i) + num
   end if
   write (13, *) coor(1:3)
end do

end program poly
赞一下(1人) 回复此楼
3楼2011-06-15 14:35:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

李学忠

铁杆木虫 (知名作家)

lxz
引用回帖:
Originally posted by snoopyzhao at 2011-06-15 14:35:23:
指定列加特定的数值：

[code]
program poly
real :: num
real, dimension(3) :: coor
integer :: ios, i

open(unit=12, file='polymer.txt', status='old')
open(unit=13, file='output_.txt', status ...

你好，谢谢你了
这是
赞一下 回复此楼
4楼2011-06-15 16:53:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
jjdg(金币+1): 感谢参与 2011-06-16 01:49:14
你用啥编译器，好象不支持 Fortran 90 的语法？
赞一下(1人) 回复此楼
5楼2011-06-15 17:02:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

李学忠

铁杆木虫 (知名作家)

lxz
引用回帖:
Originally posted by snoopyzhao at 2011-06-15 17:02:12:
你用啥编译器，好象不支持 Fortran 90 的语法？

哦。谢谢我再试试
回复此楼
6楼2011-06-15 17:51:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 李学忠 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 4/200 2026-02-08 08:47 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 4/200 2026-02-08 08:46 by vs90ilomwc
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 5/250 2026-02-08 08:32 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 08:27 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:26 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:12 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:07 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 08:06 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 07:52 by vs90ilomwc
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 07:46 by vs90ilomwc
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:32 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:27 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:26 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:07 by vs90ilomwc
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[考博] 天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人） +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[公派出国] CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优 +4 雨念 2026-02-01 6/300 2026-02-06 23:32 by MelissaPon
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
关闭
请填处理意见
关闭