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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 关于fortran
51/1返回列表
查看: 671  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

李学忠

铁杆木虫 (知名作家)

lxz

[求助] 关于fortran

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-06-15 13:02:22
已阅   回复此楼   关注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的回帖
查看全部 6 个回答

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的回帖

snoopyzhao

至尊木虫 (职业作家)
★
jjdg(金币+1): 感谢参与 2011-06-16 01:49:14
你用啥编译器，好象不支持 Fortran 90 的语法？
赞一下(1人) 回复此楼
5楼2011-06-15 17:02:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 305分求调剂（食品工程） +5 Sxy112 2026-03-21 7/350 2026-03-24 12:27 by 544594351
[考研] 276求调剂。有半年电池和半年高分子实习经历 +9 材料学257求调剂 2026-03-23 10/500 2026-03-24 07:36 by wangy0907
[考研] 环境学硕288求调剂 +8 皮皮皮123456 2026-03-22 8/400 2026-03-23 23:47 by 热情沙漠
[考研] 材料专业求调剂 +11 hanamiko 2026-03-18 11/550 2026-03-23 23:12 by peike
[考研] 291 求调剂 +4 化工2026届毕业� 2026-03-21 5/250 2026-03-23 16:46 by 化工2026届毕业�
[考研] 350求调剂 +6 weudhdk 2026-03-19 6/300 2026-03-23 15:47 by tangyuan0840221
[考研] 070300，一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
[考研] 289材料与化工（085600）B区求调剂 +3 这么名字咋样 2026-03-22 4/200 2026-03-22 17:56 by 云民大李老师
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 260求调剂 +3 朱芷琳 2026-03-20 4/200 2026-03-22 15:12 by 朱芷琳
[基金申请] 山东省面上项目限额评审 +4 石瑞0426 2026-03-19 4/200 2026-03-22 08:50 by Wei_ren
[考研] 材料与化工（0856）304求B区调剂 +3 邱gl 2026-03-20 7/350 2026-03-21 19:05 by 15709483992
[考研] 一志愿重庆大学085700资源与环境专硕，总分308求调剂 +3 墨墨漠 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[考研] 288求调剂 +16 于海海海海 2026-03-19 16/800 2026-03-20 22:28 by JourneyLucky
[考研] 329求调剂 +9 想上学吖吖 2026-03-19 9/450 2026-03-20 22:01 by luoyongfeng
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +22 rare12345 2026-03-18 22/1100 2026-03-20 20:39 by zhukairuo
[考研] 一志愿南理工085701环境302求调剂院校 +3 葵梓卫队 2026-03-20 3/150 2026-03-20 19:28 by zhukairuo
[考研] 材料学硕318求调剂 +5 February_Feb 2026-03-19 5/250 2026-03-19 23:51 by 23Postgrad
[考研] 0703化学调剂 +4 18889395102 2026-03-18 4/200 2026-03-19 16:13 by 30660438
信息提示
关闭
请填处理意见
关闭