INTERFACE
 SUBROUTINE SURHCRI(KULOUT)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER (KIND=JPIM),INTENT(IN) :: KULOUT
END SUBROUTINE SURHCRI
END INTERFACE