INTERFACE
SUBROUTINE CACDGU(KTASK,CDVAR,KNUM,PCHAMP,KPROMA,KLEN,KZD,KZF,PGELAM,PGELAT)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
INTEGER(KIND=JPIM),INTENT(IN) :: KLEN
INTEGER(KIND=JPIM),INTENT(IN) :: KTASK
CHARACTER ,INTENT(IN) :: CDVAR*16
INTEGER(KIND=JPIM),INTENT(IN) :: KNUM
REAL(KIND=JPRB) ,INTENT(IN) :: PCHAMP(KPROMA,*)
INTEGER(KIND=JPIM),INTENT(IN) :: KZD
INTEGER(KIND=JPIM),INTENT(IN) :: KZF
REAL(KIND=JPRB) ,INTENT(IN) :: PGELAM(KLEN)
REAL(KIND=JPRB) ,INTENT(IN) :: PGELAT(KLEN)
END SUBROUTINE CACDGU
END INTERFACE
