INTERFACE
SUBROUTINE CASNDR1(PLOC,PTOT,KDIM,KTAI)
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE MPL_MODULE
INTEGER(KIND=JPIM),INTENT(IN) :: KDIM
REAL(KIND=JPRB) ,INTENT(IN) :: PLOC(KDIM)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTOT(KDIM)
INTEGER(KIND=JPIM),INTENT(IN) :: KTAI
END SUBROUTINE CASNDR1
END INTERFACE
