INTERFACE
SUBROUTINE ROUSEA(KPROMA,KIDIA,KFDIA,PAPHI,PUB,PVB,PSLM,PAZO)
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) :: PAPHI(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUB(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PVB(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSLM(KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PAZO(KPROMA)
END SUBROUTINE ROUSEA
END INTERFACE
