c c Action routine for PRINTMEDNUM command c c last modified on 28.6.99 by R.Holzmann c subroutine printmednum integer getmednum character*200 getmedname external getmednum, getmedname character*32 chpatl character*200 medname call kupatl(chpatl,narg) ! get number of arguments... call kugetc(medname,nlen) ! ... and read medium name if(nlen.lt.2) return imed = getmednum(medname) if(imed.le.0) then write(6,'(/,'' Medium '',a,'' is not defined!'',/)') + medname(1:nlen) else medname = getmedname(imed) ! countercheck write(6,'(/'' Medium '',a,'' has Geant medium number '',i3,/)') + medname(1:len(medname)),imed endif return end