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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 关于fortran
51/1返回列表
查看: 670  |  回复: 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 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 293求调剂 +6 加一一九 2026-03-24 6/300 2026-03-24 14:29 by JourneyLucky
[考研] 086003食品工程求调剂 +4 淼淼111 2026-03-24 4/200 2026-03-24 11:53 by 544594351
[考研] 【考研调剂】化学专业 281分，一志愿四川大学，诚心求调剂 +12 吃吃吃才有意义 2026-03-19 13/650 2026-03-24 10:06 by NCUT_Yu
[考研] 材料专硕找调剂 +3 哈哈哈吼吼吼哈 2026-03-23 3/150 2026-03-23 23:13 by peike
[考研] 284求调剂 +3 yanzhixue111 2026-03-23 6/300 2026-03-23 22:58 by pswait
[考研] 材料/农业专业，07/08开头均可，过线就行 +3 呵唔哦豁 2026-03-23 4/200 2026-03-23 22:30 by 汪！？！
[考研] 一志愿武理材料工程348求调剂 +6 ￣^￣゜汗 2026-03-19 9/450 2026-03-23 19:53 by pswait
[考研] 材料与化工085600，总分304，本科有两篇sci参与，求调剂 +4 幸运的酱酱 2026-03-22 5/250 2026-03-22 20:15 by edmund7
[考研] 289求调剂 +7 怀瑾握瑜l 2026-03-20 7/350 2026-03-22 15:57 by ColorlessPI
[考研] 286求调剂 +10 Faune 2026-03-21 10/500 2026-03-21 23:34 by 314126402
[考研] 求调剂 +3 13341 2026-03-20 3/150 2026-03-21 18:28 by 学员8dgXkO
[考研] 307求调剂 +3 余意卿 2026-03-18 3/150 2026-03-21 17:31 by ColorlessPI
[考研] 材料与化工（0856）304求 B区 调剂 +3 邱gl 2026-03-21 3/150 2026-03-21 13:47 by lature00
[考研] 330求调剂0854 +3 assdll 2026-03-21 3/150 2026-03-21 13:01 by 搏击518
[考研] 一志愿西南交大，求调剂 +5 材化逐梦人 2026-03-18 5/250 2026-03-21 00:26 by JourneyLucky
[考研] 一志愿南昌大学，327分，材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 中南大学化学学硕337求调剂 +3 niko- 2026-03-19 6/300 2026-03-20 21:58 by luoyongfeng
[考研] 一志愿南理工085701环境302求调剂院校 +3 葵梓卫队 2026-03-20 3/150 2026-03-20 19:28 by zhukairuo
[考研] 0703化学调剂 +4 18889395102 2026-03-18 4/200 2026-03-19 16:13 by 30660438
[考研] 【同济软件】软件（085405）考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
信息提示
关闭
请填处理意见
关闭