****************************************************************************** function getmedname(mednum) * * returns GEANT medium name for given medium number mednum * returns empty string ' ' on error * * last modified: 10.12.97 by R. Holzmann ****************************************************************************** implicit none character*(*) getmedname integer mednum #include "geamedia.inc" integer*4 imed, nlen getmedname = ' ' if(mednum.lt.1) return do imed=1,ndefmedia if(mediumindex(imed).eq.mednum) then getmedname = mediumname(imed) return endif enddo getmedname = ' ' ! error, could not find mednum in list return end