INTERFACE
SUBROUTINE SUAERSN (KTSW, KSW)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
INTEGER(KIND=JPIM),INTENT(IN) :: KSW
END SUBROUTINE SUAERSN
END INTERFACE