写出一个“求3*4矩阵中的最大元素和最小元素”的fortran程序,本人程序小白,望能详细解读下,

real a(3,4)
此处对a赋值
Write(*,*) MaxVal(a),MinVal(a)

PARAMETER (M=3,N=4)
INTEGER A(M,N)
READ(*,*)((A(I,J),J=1,4),I=1,3)
WRITE(*,100)A
100 FORMAT(1X,10I5)
K=1
L=1
!循环求最大值
DO 20 I=1,M
DO 10 J=1,N
IF (A(K,L)A(I,J))THEN
K=I
L=J
END IF
30 CONTINUE
40 CONTINUE
WRITE(*,*)A(K,L)
END