program crea_dat

       real dum(2,3)
         parameter (ni=1,nj=1,nk=1,nt=1,nv=1)

       OPEN(8,FILE='bin.dat',status='replace',FORM='UNFORMATTED')
       OPEN(7,FILE='data.dat',STATUS='OLD')
       do t=1,nt !temp
         do v=1,nv !var
           do n=1,nk !level
               do i=1,2 
                       do j=1,3 
                          read(7,*,END=150)d
  150                     dum(i,j)=d
                       end do        
               end do
               write(8)dum
               write(*,*) dum       
            end do            
         end do
       end do
       CLOSE(8)
       CLOSE(7)
       end