求大神指导error #6637

Harry

[Fortran] 纯文本查看 复制代码

PROGRAM MAIN
   REAL W(5,5)
   CALL READIN(W)
   CALL PUTOUT(W)
  CALL WMAX(W,X1,X2) !// 此行出问题
   WRITE(*,*)'X1=',X1,'X2=',X2
    END

    SUBROUTINE READIN(A)
    REAL A(5,5)
    WRITE(*,*)'Enter 5*5 matrix:'
    DO 10 I=1,5
        READ(*,*)(A(I,J),J=1,5)
10  CONTINUE
    END

    SUBROUTINE PUTOUT(A)
    REAL A(5,5)
    DO 20 I=1,5
        WRITE(*,*) (A(I,J),J=1,5)
20  CONTINUE
    END

    SUBROUTINE WMAX(A,S1,S2)
    S1=A(1,1)
    S2=A(1,5)
    DO 30 I=2,5
        IF(S1.LT.A(I,I)) S1=A(I,I)
        IF(s2.LT.A(I,5-I+1)) S2=A(I,5-I+1)
30  CONTINUE
    END

错误        1         error #6637: When a dummy argument is a function, the corresponding actual argument must also be a function.   [W]        
C:\Users\Administrator\Documents\Visual Studio 2013\Projects\10-15-5=5juzhen\10-15-5=5juzhen\5=5.f90        5        
问题出在红色那一行

Harry

vvt 发表于 2015-10-15 14:42
[mw_shl_code=fortran,true]SUBROUTINE WMAX(A,S1,S2)
  Real A(5,5) !// 添加此句
    S1=A(1,1)[/mw_shl_ ...

对，应该加上那句。解决了，谢谢了

Harry

fcode 发表于 2015-10-15 14:51
我将你的代码改了一下，你看看这里面的一些代码习惯。会比你自己的代码可读性、可修改性好一些。（例如要改 ...

多谢了，我在学Fortran，可以的话，以后还请多多指教