主题:读取数据只能读到小数点前,求助啊
子程序如下:
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
什么原因啊,请各位大侠指教!