版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

返回列表

李学忠

铁杆木虫 (知名作家)

lxz

应助: 17 (小学生)
金币: 5959.4
散金: 3738
红花: 39
沙发: 60
帖子: 5736
在线: 1093.8小时
虫号: 362804
注册: 2007-05-05
性别: GG
专业: 无机纳米化学

[求助] 关于fortran

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

回复此楼

» 猜你喜欢

面上没中，邀请各位路过的虫友分析一下分数已经有13人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有8人回复
两块石头已经有8人回复
初秋的晨风已经有6人回复
学科评审组评审是指会评吗？已经有9人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有14人回复
广西大学-广州大学招聘博士后欢迎广大优秀人才！！！已经有7人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有17人回复
Ei源刊怎么投已经有4人回复
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

Fortran中关于数组的变化已经有5人回复
有没有人关注fortran语言的GPU并行呢？已经有12人回复
念旧与Fortran 已经有7人回复
【求助】fortran求解矩阵已经有7人回复
【交流】合流超比函数的 fortran程序（自己搞定了，不过也希望你来交流）已经有7人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离已经有34人回复
【求助】关于I/O单元问题已经有5人回复
【分享】将ELFCAR、CHGCAR转化成MS阅读可读的fortran代码已经有142人回复
【求助】请问一下fortran的可视化编程已经有7人回复

1楼 2011-06-15 13:02:22

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★ ★
余泽成(金币+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

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★
李学忠(金币+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

应助: 17 (小学生)
金币: 5959.4
散金: 3738
红花: 39
沙发: 60
帖子: 5736
在线: 1093.8小时
虫号: 362804
注册: 2007-05-05
性别: GG
专业: 无机纳米化学

引用回帖:

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