      SUBROUTINE HEC_CRL_EVT
C ----------------------------------------------------------------------
C-
C-    User pass 1 event routine
C-
C ----------------------------------------------------------------------
C
      IMPLICIT NONE
C
      include'hec_trig.inc'
C ----------------------------------------------------------------------
C
      IF (TRIG_RANDOM) THEN
        CALL HEC_CRL_CORREL(0)
      ENDIF
C
      END
C ======================================================================
