[Fortran] Сортировка столбцов массива по убыванию

[abit-2010]

Помогите отсортировать столбцы массива A(-3:2,-4:0) по убыванию с помощью подпрограммы общего вида:

SUBROUTINE sort(B,M)
DIMENSION B(M)
REAL t
do I=1,M-1
do J=I+1,M
IF (B(I)<B(J))THEN
t=B(I)
B(I)=B(J)
B(J)=t
ENDIF
ENDDO
ENDDO
ENDSUBROUTINE

[Vago]

      PROGRAM abit-2010

         REAL A(-3:2, -4:0)

С        Вводим матрицу
         ...

         N_ROWS = (2-(-3))+1
         DO J = -4, 0
            CALL sort( A(-3,J), N_ROWS )
         END DO

C        Выводим матрицу с упорядоченными столбцами
         ...

         STOP
      END

[abit-2010]

Спасибо, Vago.