Bubble Sort using Fortran

PROGRAM  bubbleSort
   implicit  none
  Integer :: row, col, i, ii, iii, temp 
  integer, dimension(:,:), allocatable :: myarray
  
  Allocate(myarray(1:row, 1:col))

DO i =1, row
    READ(1,*) myarray(i, :)
    do ii =1, row-1
        do iii =1, row- i-1
        if (myarray(i,iii)> myarray(i,iii+1)) then 
            temp = myarray(i,iii)
            myarray(i,iii+1) = temp
        end if 
        end do 
    end do 
    
    
END DO


DO i = 1, row
      write(*,*) myarray(i, :)
END DO 

END program bubbleSort