求帮忙看一下The type of the actual argument differs from the type of th...

fcode

CALL INVERT  (V,NN,NN,S,T,DET)      错误定位在这一行，说S的类型不对。
实参 S 被定义为
COMPLEX*16 SM(1),LAM(1),A1(1),A3(1),S(1),T(1),E(NN)

而对应的虚参
SUBROUTINE INVERT (A,NN,N,M,C,DET)      
M 被定义为
DIMENSION M(1)     
默认是整型，而与实参的 complex*16 不一致