门锁槽木头坏了怎么修:Fortran语言矩阵问题中pythag函数是怎么定义的