[pashasnuff@vk]

Фортран 77 и 90

В каждом столбце матрицы изменить положение элементов таким образом, чтобы вначале распологались отрицательные элементы а потом
остальные по убыванию.
Смотри прикрепленные картинки.

Нужно решить задачу с использованием Подпрограмм RAZD и UPOR
но есть одна загвоздка, в подпрограмме RAzd(A,m,F,k) не совсем понятно что такое F и как его задавать


Common /N/b
External F
Dimension a(5,6),B(5)
Real a,F,B
Integer I,j,x,k
data A/5.3,-0.25,1.35,2.25,-0.5,2.1,7.1,-2.5,0.9,-1.7,-3.2,4.3,6.83,-4.3,3.7,-1.25,-0.7,0.35,5.25,-1.25,0.5,-1.1,1.8,-0.83,8.9,-3.05,0.15,-1.7,4.1,2.0/
!read(*,*)A
write(*,45)
45 format(6x,'Matrica A')
write(*,76)((A(i,j),j=1,6,1),i=1,5,1)
76 format(6(3x,f5.2))
Do j=1,6,1
K=0
Do i=1,5,1
If(a(I,j)<0) then
K=k+1 ! определяем K
Endif
Enddo
Do i=1,5,1
B(i)=0 ! выделяем из матрицы вектор в котором будем менять местами элементы
B(i)=A(I,j)
Enddo
RAzd(B,5,x,k) !вот тут нужно применить эту подпрограмму для выделенного вектора B
Upor(a,5,6) !со второй подпрограммой все ясно
write(*,55)
55 format(6x, 'perestavlennaya Matrica A')
write(*,76)((a(i,j),j=1,6,1),i=1,5,1)
END



А вот с функцией F проблемы
Real function F(x)
Integer x
Real B(5)
Common /N/b
F=B(x)
Return
End


А еще непонятно что в общую область брать