| 查看: 1481 | 回复: 12 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
fortran如何消除实数小数点后无意义的零已有3人参与
|
||
|
例如：变量定义为real*8 , 如 fortran算出17550.0000000，由于格式要求我只要17550，这种情况要怎么解决呢， 程序的主要功能：输出从1到16873（不要26的倍数）循环，怎么实现只有小数点前面的数，不要后面无意义的零 program maint integer k real t real t1,t2,t3,t4,t5,t6,t7,t8 !integer t11,t22,t33,t44,t55,t66,t77,t88 print*,'打开xabcyt.txt' open(6,file='xabcyt.txt') t=0 do k=1,16873 t=t+1 if(mod(t,26.0)/=0) then t1=t t2=26+t t3=27+t t4=1+t t5=676+t t6=702+t t7=703+t t8=677+t write(6,'(6f)')t1,t2,t3,t4,t5,t6 write(6,'(2f)')t7,t8 !t11=int(t1) !t22=int(t2) !t33=int(t3) !t44=int(t4) !t55=int(t5) !t66=int(t6) !t77=int(t7) !t88=int(t8) !write(6,'(6f)')t11,t22,t33,t44,t55,t66 !write(6,'(2f)')t77,t88 ! end if !100 format('2X,I5,2X,I5,2X,I5,2X,I5,2X,I5,2X,I5') !200 format('2X,I5,2X,I5') end do close(6) print*,'xabc运行完成' end 之前尝试了实数取整和有格式输出，实数取整最后算出来都是0.00000，有格式输出有断点，由于fortran才刚刚接触，有些问题还不懂，希望各位大神不吝赐教 |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
qchem
铁杆木虫 (著名写手)
- 应助: 280 (大学生)
- 金币: 6871.6
- 散金: 1411
- 红花: 43
- 帖子: 2586
- 在线: 668.9小时
- 虫号: 183011
- 注册: 2006-02-12
- 专业: 理论和计算化学
12楼2016-05-07 06:11:42
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
2楼2016-05-03 21:44:44
3楼2016-05-04 10:39:27
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
4楼2016-05-04 12:52:03