INTERFACE
SUBROUTINE EGGMLT (PRPI, KDLUX, KDLUN, KDGUX, KDGUN, KULOUT,&
 & KPRINT, PRPK, PLON0U, PLON1U, PLON2U, KSOTRP, PLAT1R, PLAT2R,&
 & PHSUD,PBETA) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE YEMGGCM
REAL(KIND=JPRB) ,INTENT(IN) :: PRPI
INTEGER(KIND=JPIM),INTENT(IN) :: KDLUX
INTEGER(KIND=JPIM),INTENT(IN) :: KDLUN
INTEGER(KIND=JPIM),INTENT(IN) :: KDGUX
INTEGER(KIND=JPIM),INTENT(IN) :: KDGUN
INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
INTEGER(KIND=JPIM),INTENT(IN) :: KPRINT
REAL(KIND=JPRB) ,INTENT(IN) :: PRPK
REAL(KIND=JPRB) ,INTENT(IN) :: PLON0U
REAL(KIND=JPRB) ,INTENT(IN) :: PLON1U
REAL(KIND=JPRB) ,INTENT(IN) :: PLON2U
INTEGER(KIND=JPIM),INTENT(IN) :: KSOTRP
REAL(KIND=JPRB) ,INTENT(INOUT) :: PLAT1R
REAL(KIND=JPRB) ,INTENT(INOUT) :: PLAT2R
REAL(KIND=JPRB) ,INTENT(IN) :: PHSUD
REAL(KIND=JPRB) ,INTENT(IN) :: PBETA
END SUBROUTINE EGGMLT
END INTERFACE
