format问题求助

报错为
At line 3587 of file program2.f (unit = 66, file = 'output0/ymoutput.txt')
Fortran runtime error: Expected REAL for item 1 in formatted transfer, got INTEGER
(F6.3,I6,3F16.6)
代码为
!*** Print out displacements ***
write(ii66,*) '-- Displacements --'
write(ii66,669)
do i=1,node
write(ii66,670) i,tu(6*nmeasnod(i,1)-5),tu(6*nmeasnod(i,1)-4),tu(6*nmeasnod(i,1)-3)
enddo
669 format('Node No.',5x,'X [mm]',10x,'Y [mm]',10x,'Z [mm]')
670 format(F6.3,I6,3F16.6)
请问要怎么修改