subroutine user_search c c user signal search algorithm. c the user can provide this routine user_search.f that, c given an event, fills the common hec_search_inc c following a user defined algorithm c the default user algorithm is the dummy algorithm c implicit none c c user signal search algorithm c c set default to the dummy algorithm c call hec_search_0 c end