你的program需要use 一下这个module，比如：module my_lib implicit nonecontains function DETERMINANT (a) result (b) ... end function DETERMINANT subroutine ELEMENT_KS (a) ... end subroutine ELEMENT_KS ...end module my_libprogram my_main use my_lib ! <-...
我的是这样的，subroutine里加了一个变量D2X，而call 时没有对应修改，所以出错，直接把call语句修改一下就ok了，改成：CALL CONSTRUCT_X(Mloc,Mloc1,Nloc,DX,U,DelxU,UxL,UxR,Kappa,D2X)
上面写的是：coberoot 下面写的是：cuberoot 统一一下。