      SUBROUTINE CALC_ESC_ETC (RISK, HMAX, GMAX, MMAX, N_DERIVS)
      USE CONSTANTS ! INCLUDES "MAX_MODEL"
      IMPLICIT NONE
      
      INTEGER, INTENT(IN) :: GMAX     ! MAXIMUM TYPE INDEX
C      INTEGER, INTENT(IN) :: HMAX     ! MAXIMUM SEGMENT INDEX
      REAL, INTENT(OUT) :: RISK(MAX_MODEL,HMAX,GMAX,MMAX,0:N_DERIVS) ! RISK, W/ DERIVS.
      INTEGER, INTENT(IN) :: HMAX     ! MAXIMUM SEGMENT INDEX
      INTEGER, INTENT(IN) :: MMAX     ! MAXIMUM NUMBER OF MINE TYPES
      INTEGER, INTENT(IN) :: N_DERIVS ! NO. OF DERIVATIVES
C ***
      RISK = 0.
      RETURN
      END SUBROUTINE CALC_ESC_ETC
