您所在位置：主题：读取数据只能读到小数点前，求助啊
wanglin007v
[专家分：0] 发布于 2010-11-03 16:07:00
子程序如下：
subroutine initialput
&(n_unknowns,x0_unknowns)
implicit real*8 (a-h,o-z)
integer n_unknowns
real*8,dimension(n_unknowns)::x0_unknowns
[color=FF0000]open
&(3,FILE='d:\inverse\input4.dat')
read(3,*)x0_unknowns[/color]
close(3)
write(*,*)"识别参数初始值:"
do i=1,2
write(*,1100)i,x0_unknowns(i)
end do
1100 format(1x,'x0_unknowns(',i2,')=',f16.9)
WRITE(*,*)"读入初始参数值完毕!"
end
在input4中的数据为 56500.5512983973 21080.4373374752
为什么读取后都只有 56500.0000000000 21080.0000000000
什么原因啊，请各位大侠指教！
subroutine initialput
&(n_unknowns,x0_unknowns)
implicit real*8 (a-h,o-z)
integer n_unknowns
real*8,dimension(n_unknowns)::x0_unknowns
[color=FF0000]open
&(3,FILE='d:\inverse\input4.dat')
read(3,*)x0_unknowns[/color]
close(3)
write(*,*)"识别参数初始值:"
do i=1,2
write(*,1100)i,x0_unknowns(i)
end do
1100 format(1x,'x0_unknowns(',i2,')=',f16.9)
WRITE(*,*)"读入初始参数值完毕!"
end
在input4中的数据为 56500.5512983973 21080.4373374752
为什么读取后都只有 56500.0000000000 21080.0000000000
什么原因啊，请各位大侠指教！