INTERFACE
SUBROUTINE SUECRADI
END SUBROUTINE SUECRADI
END INTERFACE