Question

高分求编一个fortran程序~编写求n个数中最大最小值的子程序，再调用子程序求矩阵某些元素的最大最小值

向各位高手求助~~~分值还可以追加~请发送到qq3297269@yahoo.com.cn “某些元素”到时可能有具体例子，比如对角线上的，第X行，第X列，正数，麻烦高手也顺便给我举个例子...矩阵是二维数组吗？那怎么转换成一维数组呢？感激不尽！！！

Answer 1

subroutine findext(a,n,max,min)
implicit none
integer i,n
real*8 a(n),max,min
max=a(1)
min=a(1)
do i=2,n
if(a(i)>max) then
max=a(i)
else
min=a(i)
endif
enddo
end subroutine findext

例子，矩阵real*8 m(n,n)
real*8 temp(n)
第n行的最大最小值
temp=m(n,:)
call findext(temp,n, max,min)
第n列的最大最小值
temp=m(:,n)
call findext(temp,n, max,min)
对角线
do i=1,n
temp(i)=m(i,i)
enddo
call findext(temp,n, max,min)

Answer 2

已发送，查收