【已解决】fortran请教——关于数据不全，循环读取自动读入下行问题怎么解决

sound

program statistics
integer y,m,d,ssdj
real tem,rh,ws,ssh
character(16):: filename1,filename2*20

open(11,file='E:\ssdjisuan\ssdlist.dat')
do while(.not.eof(11))
read(11,*)filename1
filename2=filename1 // '.txt'

open(1,file=filename1)
open(2,file=filename2)
read(1,*)
read(1,*)

do while(.not.eof(1))
tem=999
rh=999
ws=999
ssh=999
read(1,*)y,m,d,tem,rh,ws,ssh
if(y==1)cycle
ssdj=ssd(m,tem,rh,ws,ssh)
write(2,10)y,m,d,ssdj,tem,rh,ws,ssh
10 format (I6,3I4,4f6.1)
end do
close(1)
close(2)
end do
close(11)
代码如上
碰到的问题：因读入时 26日数据缺失一个要素，导致读入下一行，最后出现本行数据错误，下一行丢失问题，详情见图，初学不久，请教各位能否支个招，感激不尽。