******************************************************************************
      integer function getmednum(medname)
*
*  returns GEANT medium number for given medium name 'medname'
*  returns 0 on error
*
*  last modified: 9.12.97  by R. Holzmann
******************************************************************************
      implicit none
      character*(*) medname
#include "geamedia.inc"
      integer*4 i, imed, nlen

      getmednum = 0
      nlen = len(medname)
      do i=nlen,1,-1
         if (medname(i:i).ne.' ') goto 10
      enddo
 10   nlen = i
      if(nlen.lt.1) return

      do imed=1,ndefmedia
c       write(6,*) imed,' ',mediumname(imed)(1:nlen),' ',medname(1:nlen),
c     +           ' ',mediumindex(imed) 
         if(mediumname(imed)(1:nlen).eq.medname(1:nlen)) then
             getmednum = mediumindex(imed)
             return
         endif
      enddo

      getmednum = 0    ! error, could not find 'medname' in list
      return
      end