c	program
	parameter (nl=23)
	real alat1(nl),alon1(nl),clim(nl),year(nl),mon(nl)
        character sid(nl) 
	open(unit=1,file='rain.txt')
	open(unit=2,file='resultrain.txt')
	do 20 i=1,nl
	read(1,*)year(i),mon(i),sid(i),alat1(i),alon1(i),clim(i)
 20	continue
 12     format(f10.2,2x,f10.2,56(2x,f10.2))
c 12	format(f6.3,2x,f7.3,14(2x,f10.2),14(2x,f10.2),14(2x,f10.2)
c     1  ,14(2x,f10.2))
      iyear=2011
	imon=8
	do 30 i=1,nl
c	t1(i)=300.
	write(2,14)iyear,imon,i,alat1(i),alon1(i),clim(i)
 30	continue
 14     format(i4,2x,i2,2x,i5,'ab',9x,f10.3,2x,f10.3,2x,f10.3)
	stop
	end