Помогите с фортраном

Программирование общее
1

Помогите с задачей по фортрану кто соображает,за ценой не постоим

Исходный цикл имеет вид:

DO 400 J=1,L

DO 400 K=1,L

A(K,J)=A(J,K)*0.5+C(J)

400 CONTINUE

Метод гиперплоскостей