INTERFACE
SUBROUTINE CAIMMA ( PMAT , KDIMAT , PBBB , KDIBBB , KRANG , KVEC )
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KDIMAT
INTEGER(KIND=JPIM),INTENT(IN) :: KDIBBB
INTEGER(KIND=JPIM),INTENT(IN) :: KRANG
INTEGER(KIND=JPIM),INTENT(IN) :: KVEC
REAL(KIND=JPRB) ,INTENT(IN) :: PMAT(KDIMAT,KRANG)
REAL(KIND=JPRB) ,INTENT(IN) :: PBBB(KDIBBB,KVEC)
END SUBROUTINE CAIMMA
END INTERFACE
