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

24小时热门版块排行榜    

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

李学忠

铁杆木虫 (知名作家)

lxz

[求助] 关于fortran

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

» 猜你喜欢

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

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的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华东理工大学081700，初试分数271 +5 kotoko_ik 2026-03-23 6/300 2026-03-24 10:29 by 学术搬砖er
[考研] 材料调剂 +5 匹克i 2026-03-23 5/250 2026-03-24 08:50 by dick_runner
[考研] 一志愿南航材料专317分求调剂 +4 炸呀炸呀炸薯条 2026-03-23 4/200 2026-03-24 07:32 by wangy0907
[考研] 求调剂 +7 十三加油 2026-03-21 7/350 2026-03-23 23:48 by 热情沙漠
[考研] 335分 | 材料与化工专硕 | GPA 4.07 | 有科研经历 +4 cccchenso 2026-03-23 4/200 2026-03-23 23:00 by 徐ckkk
[考研] 265求调剂 +10 梁梁校校 2026-03-17 10/500 2026-03-23 21:17 by 一切OK
[考研] 333求调剂 +3 ALULU4408 2026-03-23 3/150 2026-03-23 19:04 by macy2011
[考研] 上海电力大学材料防护与新材料重点实验室招收调剂研究生（材料、化学、电化学，环境） +3 我爱学电池 2026-03-23 3/150 2026-03-23 17:16 by AZMK
[考研] 一志愿南京理工大学085701资源与环境302分求调剂 +5 葵梓卫队 2026-03-18 7/350 2026-03-23 16:26 by lingjue
[考研] 317求调剂 +12 申子申申 2026-03-19 18/900 2026-03-22 22:23 by luoyongfeng
[考研] 一志愿西安交通大学材料工程专业 282分求调剂 +11 枫桥ZL 2026-03-18 13/650 2026-03-22 20:26 by edmund7
[考研] 311求调剂 +6 冬十三 2026-03-18 6/300 2026-03-22 20:18 by edmund7
[考研] 315分，诚求调剂，材料与化工085600 +3 13756423260 2026-03-22 3/150 2026-03-22 20:11 by edmund7
[考研] 一志愿中南化学（0703）总分337求调剂 +9 niko- 2026-03-19 10/500 2026-03-22 16:08 by ColorlessPI
[考研] 一志愿南大，0703化学，分数336，求调剂 +3 收到VS 2026-03-21 3/150 2026-03-21 18:42 by 学员8dgXkO
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-20 3/150 2026-03-21 16:46 by barlinike
[考研] 265求调剂 +12 梁梁校校 2026-03-19 14/700 2026-03-21 13:38 by lature00
[考研] 材料学求调剂 +4 Stella_Yao 2026-03-20 4/200 2026-03-20 20:28 by ms629
[考研] 086500 325 求调剂 +3 领带小熊 2026-03-19 3/150 2026-03-20 18:38 by 尽舜尧1
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
信息提示
关闭
请填处理意见
关闭