       program convert
       dimension a(109,109),b(109,109),c(109,109)
c
       do k = 1, 3
       write(0,1000) k
1000   format(1x,i3)
       read(11,100)((a(i,j),i=1,109),j=1,109)
       read(12,100)((b(i,j),i=1,109),j=1,109)
       read(13,100)((c(i,j),i=1,109),j=1,109)
c
       write(51)((a(i,j),i=1,109),j=1,109)
       write(52)((b(i,j),i=1,109),j=1,109)
       write(53)((c(i,j),i=1,109),j=1,109)
c
       write(54)((a(i,j),i=1,109),j=1,109)
       write(55)((b(i,j),i=1,109),j=1,109)
       write(56)((c(i,j),i=1,109),j=1,109)
        do i = 1, 109
         do j = 1, 109
          write(57,101)a(i,j)
          write(58,101)b(i,j)
          write(59,101)c(i,j)
100       FORMAT (4F20.14)
101       FORMAT (F20.14)
         enddo
        enddo
      enddo
99999 stop
      end

