program enshu00                                        
implicitnone
integer::seireki,joutai
real::kion01,kion02,kion03,kion04,kion05,kion06,&
kion07,kion08,kion09,kion10,kion11,kion12
do
read(*,'(i4,12f5.1)',iostat=joutai)seireki,&
kion01,kion02,kion03,kion04,kion05,kion06,&
kion07,kion08,kion09,kion10,kion11,kion12
if(joutai/=0)exit
write(*,'(i4,12f6.1)')seireki,&
kion01,kion02,kion03,kion04,kion05,kion06,&
kion07,kion08,kion09,kion10,kion11,kion12
enddo
endprogramenshu00