Fortran编程 哪里出错了 请大神指导

subroutine CYYL(Z,n,Sy,Sr)
implicit none
real Z(n),Sr(n),Sy
integer i,n
error FOR2290: implicit type for N detected between N and )
error FOR3362: symbol N has already been implicitly typed

那请问这个用allocate怎么改 谢谢

Fortran中你定义固定大小数组时，数组里的N必须确定，不能是变量，如果需要定义可变大小的数组，需要使用allocate的方式

求绝对值的内部函数是abs，求数组最大值的内部函数是maxval，最小值minval，他们都支持数组运算，所以程序编起来相当简单。比如一个数组为a(n)，属实数域，其程序可写为 integer,parameter :: n = 10 real a(n) real a_abs_max, a_abs_min ! set value for a a = (/ 1.0, 2.0, -1.5, 2.1, -1.3, 2.7, 3.3, 1.5, -3.3, 1.8 /) a_abs_max = maxval( abs(a) ) a_abs_min = minval( abs(a) ) ! output the results print *, '绝对值最大数是：', a_abs_max print *, '绝对值最小数是：', a_abs_min end 对于矩阵，直接取出要求的数据到a里在用上面的程序即可，非常简单！