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