INTERFACE
SUBROUTINE SUCLDP
END SUBROUTINE SUCLDP
END INTERFACE