fortran语言中实型数据转成整型数据，导致数据发生变化的问题

云大小子

我的程序如下：
实型常量13062008.020乘以1000得到整数dname 然后print*，dname 会出现奇怪的数字
是不是由于数据长度超出了规定的长度导致的错误呢
program main
implicit none
!定义变量
real:: var1(361,281)
character(len=60) :: b
character(len=17) :: c
character(len=118) :: d
character aa*2 !变量
character filename*32 !变量
real::varr1,varr2,varr3,varr4,varr5,varr6,varr7
integer i,j,dname4
integer dname
real dname5 !日期
character dname1*11 ,dname2*8,dname3*3
aa='2d'
dname=13062008.020*1000
print*,dname
write(dname1,'(i11)')dname
dname2=dname1(1:8)
dname3=dname1(9:11)
filename='Z:\ecmwf_thin\'//aa//'\999\'//dname2//'.'//dname3
print*,dname2
print*,dname3
print*,trim(filename)
end

飞云侠客

是的， 浮点数溢出~

祁祁小五

整型数据溢出了~

shirly

write(dname1,'(i11)') dname 中的i11改成 i11.11试试？

云大小子

shirly 发表于 2013-9-2 09:08

                               
登录/注册后可看大图

write(dname1,'(i11)') dname 中的i11改成 i11.11试试？

问题解决了 ，造成这个错误的原因是整数部分数据特别大，小数部分则比较小，处理过程中容易出问题，我的解决办法是将整数和小数部分分开来处理