| 查看: 1910 | 回复: 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-15
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有50人回复
-
filecode
已经有11人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
空中飞客
至尊木虫 (著名写手)
- 应助: 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
