INTERFACE
SUBROUTINE ERSIN (KSCATP,&
 & KOBTYP,KCDTYP,KOBSQNO,KCDSQNO,&
 & LDMESAGE,LDTAKEN) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE PARERSCA
USE YOMDB
USE LOCAL_TRAFOS
INTEGER(KIND=JPIM),INTENT(IN) :: KSCATP
INTEGER(KIND=JPIM),INTENT(IN) :: KOBTYP
INTEGER(KIND=JPIM),INTENT(IN) :: KCDTYP
INTEGER(KIND=JPIM),INTENT(IN) :: KOBSQNO
INTEGER(KIND=JPIM),INTENT(IN) :: KCDSQNO
LOGICAL ,INTENT(INOUT) :: LDMESAGE
LOGICAL ,INTENT(OUT) :: LDTAKEN
INTEGER(KIND=JPIM), PARAMETER :: IVAR=7
END SUBROUTINE ERSIN
END INTERFACE
