| 查看: 1490 | 回复: 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才刚刚接触，有些问题还不懂，希望各位大神不吝赐教 |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
空中飞客
至尊木虫 (著名写手)
- 应助: 21 (小学生)
- 金币: 12747.9
- 散金: 250
- 红花: 10
- 帖子: 1897
- 在线: 399.7小时
- 虫号: 938763
- 注册: 2010-01-07
- 性别: GG
- 专业: 物理学I
7楼2016-05-04 13:24:52
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