      REAL FUNCTION MEVHMIH(XDUMMY)
      REAL
     +ID      ,IND     ,DEPTH   ,COINC   ,ASEG    ,BSEG    ,
     +APHA    ,ACHN    ,BPHA    ,BCHN    ,CPHA    ,CCHN    ,
     +DPHA    ,DCHN    ,EPHA    ,ECHN     
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
*
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
      COMMON/PAWIDN/IDNEVT,VIDN1,VIDN2,VIDN3,VIDN(10),
     +ID      ,IND     ,DEPTH   ,COINC   ,ASEG    ,BSEG    ,
     +APHA    ,ACHN    ,BPHA    ,BCHN    ,CPHA    ,CCHN    ,
     +DPHA    ,DCHN    ,EPHA    ,ECHN     
*
      
      MEVHMIH=0.
      if (id.eq.07180044.) THEN MEVHMIH = 118.70 ENDIF
      if (id.eq.07180142.) THEN MEVHMIH = 111.79 ENDIF
      if (id.eq.07180202.) THEN MEVHMIH = 106.67 ENDIF
      if (id.eq.07180232.) THEN MEVHMIH = 101.52 ENDIF
      if (id.eq.07180316.) THEN MEVHMIH = 81.05 ENDIF
      if (id.eq.07180330.) THEN MEVHMIH = 70.98 ENDIF
      if (id.eq.07180347.) THEN MEVHMIH = 61.02 ENDIF
      if (id.eq.07180411.) THEN MEVHMIH = 59.02 ENDIF
      if (id.eq.07180425.) THEN MEVHMIH = 58.02 ENDIF
      if (id.eq.07180439.) THEN MEVHMIH = 57.00 ENDIF
      if (id.eq.07180454.) THEN MEVHMIH = 55.99 ENDIF
      if (id.eq.07180531.) THEN MEVHMIH = 54.96 ENDIF
      if (id.eq.07180548.) THEN MEVHMIH = 52.90 ENDIF
      if (id.eq.07180610.) THEN MEVHMIH = 48.87 ENDIF
      if (id.eq.07180840.) THEN MEVHMIH = 46.82 ENDIF
      if (id.eq.07180855.) THEN MEVHMIH = 44.87 ENDIF
      if (id.eq.07180908.) THEN MEVHMIH = 42.79 ENDIF
      if (id.eq.07180921.) THEN MEVHMIH = 40.72 ENDIF
      if (id.eq.07180937.) THEN MEVHMIH = 35.50 ENDIF
      if (id.eq.07180951.) THEN MEVHMIH = 33.44 ENDIF
      if (id.eq.07181003.) THEN MEVHMIH = 31.56 ENDIF
      if (id.eq.07181018.) THEN MEVHMIH = 30.53 ENDIF
      if (id.eq.07181032.) THEN MEVHMIH = 28.44 ENDIF
      if (id.eq.07181045.) THEN MEVHMIH = 26.35 ENDIF
      if (id.eq.07181131.) THEN MEVHMIH = 24.36 ENDIF
      if (id.eq.07181145.) THEN MEVHMIH = 20.27 ENDIF
      if (id.eq.07181234.) THEN MEVHMIH = 17.27 ENDIF
      if (id.eq.07181258.) THEN MEVHMIH = 16.23 ENDIF
      if (id.eq.07181318.) THEN MEVHMIH = 14.12 ENDIF
      if (id.eq.07181440.) THEN MEVHMIH = 10.23 ENDIF
      if (id.eq.07181458.) THEN MEVHMIH = 9.17 ENDIF
      if (id.eq.07181547.) THEN MEVHMIH = 8.10 ENDIF
      if (id.eq.07181610.) THEN MEVHMIH = 7.03 ENDIF
      if (id.eq.07181652.) THEN MEVHMIH = 5.22 ENDIF

      END
