write(777,111)iyy,imm,idd,ihh,dire(iy,imm,idd,ii),inte(iy,imm,idd,ii)


111 format(i4,2x,i2.2,2x,i2.2,2x,i2.2,2x,f6.1,2x,f6.1)