program rdRTN
integer,parameter::nlon=360,nlat=181,nlon1=361
integer,dimension(nlon1,nlat)::TCC,LCC,MCC,HCC,BCC
real,dimension(nlon,nlat,5)::data
integer::i,j,k
integer::dd,mm,yy,hh
read(10)dd,mm,yy,TCC,hh
read(10)dd,mm,yy,HCC,hh
read(10)dd,mm,yy,MCC,hh
read(10)dd,mm,yy,LCC,hh
read(10)dd,mm,yy,BCC,hh
do j=1,nlat
do i=1,nlon
data(i,j,1)=TCC(i,j)
data(i,j,2)=HCC(i,j)
data(i,j,3)=MCC(i,j)
data(i,j,4)=LCC(i,j)
data(i,j,5)=BCC(i,j)
enddo
enddo
do k=1,5
write(11)((data(i,j,k),i=1,nlon),j=1,nlat)
enddo
k=1
do j=1,nlat
write(12,'(''nlat='',i10)')j
write(12,1000)(data(i,j,1),i=1,nlon)
enddo
1000 format((18(20f6.1/))//)
close(11)
end program rdRTN