title: Fortran Bubble Sort Algorithm
body: <p>I'm with problems to compile a Bubble sort algorithm, I dont know what I'm doing wrong. I will appreciate so much if somebody helps me.</p>
  
  <p>This is the code:</p>
  
  <pre><code>program bubble
  
     integer, dimension(6) :: vec 
       integer :: temp, bubble, lsup, j
  
        read *, vec !the user needs to put 6 values on the array
         lsup = 6 !lsup is the size of the array to be used
  
    do while (lsup &gt; 1)
  bubble = 0 !bubble in the greatest element out of order
        do j = 1, (lsup-1)
      if vet(j) &gt; vet(j+1) then
      temp = vet(j)
      vet(j) = vet(j+1)
      vet(j+1) = temp
      bubble = j
        endif 
      enddo
      lsup = bubble   
  enddo   
      print *, vet
  end program
  </code></pre>
  
  <p>Thanks!</p>