Question

我是FORTRAN初学者，想得出一个二维数组中的最大值，说是可以用MAXVAL函数，具体在怎么用了，求解

有一个二维数组A(I,J)，欲得出其中的最大值，并输出

Answer 1

使用FREE FORMAT格式：
注释：L和M分别是输入数组的行数和列数，AA是输入的二维数组，ANS是得到的该二维数组的最大值。这个名为MAXAA的子例程是先将二维数组AA的数字存入一个一维数组中，再使用选择法排序，得到的最大值存入ANS中。所有的实数变量都是双精度的。
SUBROUTINE MAXAA(L M, AA, ANS)
IMPLICIT NONE
!!!!!! VARIABLES
INTEGER :: L, M, I, J, K, N
REAL*8 :: AA(L, M), A(N), ANS
!!!!!! CALCULATION PROCESS
!!! TRANSFERING THE TWO-DIMENSIONAL ARRAY
N = L * M
DO I = 1, L
DO J = 1, M
A((I-1)*L+J) = AA(I, J)
ENDDO
ENDDO
!!! SORTING THE MAX NUMBER
DO I = 1, N-1
DO J = I+1,N
IF (A(J) > a(I)) THEN
T = A(I)
A(I) = A(J)
A(J) = T
ENDIF
ENDDO
ENDDO
!!! GET THE MAX NUMBER
ANS = A(1)
END SUBROUTINE

Answer 2

一楼 在说什么呢
如果 想得到一个值
直接maxval（A）
fortran程序
do i=1,n
do j=1,n
if A(i,j)>temp then
temp = A(i,j)
endif
end do
enddo
输出 temp