原始来源缺少传递假定形状数组所需的接口

Question

我在使用Visual Studio和Intel Parallel Studio编译Fortran程序时出现问题，它返回以下错误：

错误＃7978：原始来源缺少传递假定形状数组所需的接口。

电话是：

Call MontaPrecondicionadorJacob (el,cone,ke,PP)

子程序是：

subroutine MontaPrecondicionadorJacob (el,cone,ke,PP)
implicit none
!   Parâmetros da subroutina
!      
integer,intent(in):: el             !
integer,intent(in):: cone(:,:)      !
real(8),intent(in):: ke(:,:)        !
real(8),intent(out):: PP(:)         !
!
!   Variáveis internas
!
integer:: no
integer:: gl
!
do no=1,20
    do gl=1,3              
        PP((cone(el,no)-1)*3+gl)=PP((cone(el,no)-1)*3+gl)+ke((no-1)*3+gl,(no-1)*3+gl)                        
    end do
end do
end subroutine