| 查看: 1911 | 回复: 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才刚刚接触，有些问题还不懂，希望各位大神不吝赐教 |
回复此楼» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有56人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有9人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
关于Filecode分析方法
已经有13人回复
-
时间戳又变了8-15
已经有9人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有8人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有9人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有6人回复
weiwei43
至尊木虫 (正式写手)
- 应助: 16 (小学生)
- 金币: 18316.1
- 红花: 6
- 帖子: 737
- 在线: 94.7小时
- 虫号: 250282
- 注册: 2006-05-13
- 专业: 机械动力学
9楼2016-05-05 08:20:36
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
