| 查看: 1903 | 回复: 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后的代码验证其规律
已经有49人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有21人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有5人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有8人回复
-
各位道友，我要去昆明玩几天，回来见。
已经有7人回复
-
filecode
已经有10人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有11人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有8人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有37人回复
-
好奇怪的filecode
已经有7人回复
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
5楼2016-05-04 12:52:54
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
