INTERFACE
SUBROUTINE SUHESS (KMUPD,YD_PDIAG,YDYBAR,YDSBAR,KTBMIN,&
 & KLM,KILM,PSIZE,LDWARM) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE CONTROL_VECTORS_COMM_MOD
USE CONTROL_VECTORS
USE MPL_MODULE
INTEGER(KIND=JPIM),INTENT(IN) :: KMUPD
TYPE(CONTROL_VECTOR),INTENT(INOUT) :: YD_PDIAG
TYPE(CONTROL_VECTOR),INTENT(INOUT) :: YDYBAR(KMUPD)
TYPE(CONTROL_VECTOR),INTENT(INOUT) :: YDSBAR(KMUPD)
INTEGER(KIND=JPIM),INTENT(OUT) :: KTBMIN(5)
INTEGER(KIND=JPIM),INTENT(OUT) :: KLM(KMUPD+3)
INTEGER(KIND=JPIM),INTENT(OUT) :: KILM
REAL(KIND=JPRB) ,INTENT(OUT) :: PSIZE
LOGICAL ,INTENT(IN) :: LDWARM
END SUBROUTINE SUHESS
END INTERFACE
