[wolf000]

прошу помочь. Сложение двух матриц МхN, FORTRAN 77
PROGRAM PR
CCCC SLOZHENIE DVUH MATRIC RAZMERA MxN
DIMENSION A(100,100),B(100,100),C(100,100)
INTEGER A,B,C
READ*,M,N
DO 1 I=1,M
DO 2 J=1,N
READ*,A(I,J),B(I,J)
2 CONTINUE
1 CONTINUE
PRINT*,'A(M,N)=',((A(I,J),I=1,M),J=1,N)
PRINT*,'B(M,N)=',((B(I,J),I=1,M),J=1,N)
CALL MATADD(A,B,C,M,N,4)
PRINT*,'C=',((C(I,J),I=1,M),J=1,N)
END

SUBROUTINE MATADD(A,B,C,M,N,LU)
DIMENSION A(LU,*),B(LU,*),C(LU,*)
INTEGER A,B,C
DO 5 I=1,M
DO 6 J=1,N
C(I,J)=A(I,J)+B(I,J)
6 CONTINUE
5 CONTINUE
RETURN
END

ВВОД ДАННЫХ, ВЫВОД ДАННЫХ/ОТВЕТ ЗАДАЧИ
СКОПИРОВАНО ИЗ BUSH:


2
2
1
2
3
4
5
6
7
8




A(M,N)= 1 5 3 7
B(M,N)= 2 6 4 8

C= 3 11 0 0


ОБРАЗЦЫ ВВОДИМЫХ МАТРИЦ

A B
1 5 2 6
3 7 4 8

ДОЛЖНО ПОЛУЧИТьСЯ

C
3 11
7 15

ПОЛУЧИЛОСь

C
3 11
0 0

БОЛЬШОЕ СПАСИБО ЗА ПОМОЩЬ