printarrays Subroutine

        subroutine printarrays()
        integer :: i
        do i=1,size(one2(1,:))
           write(*,'(*(i0,:","))') one2(i,:)
        enddo
        write(*,*)
        do i=1,size(two2(1,:))
           write(*,'(*(i0,:","))') two2(i,:)
        enddo
        end subroutine printarrays