INTERFACE
SUBROUTINE EXCHCO_VDF(&
 & KPROMA,KIDIA,KFDIA,&
 & PUB5,PVB5,PUN5,PVN5,&
 & PAPHI5,PAZO5,&
 & PRI5,PBN5,PBM5) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHI5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUB5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PVB5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUN5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PVN5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAZO5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRI5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PBN5 (KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PBM5 (KPROMA)
END SUBROUTINE EXCHCO_VDF
END INTERFACE
