subroutine gettrk(jtrk,mass,radius,beam,vrtx,helix,em,ierr)
c-----------------------------------------------------------------------
c    Routine to get track parameters stored in common.
c-----------------------------------------------------------------------
      implicit none
#include <Stntuple/fit/ctvmft.inc>
c
      integer jtrk,beam,vrtx,ierr
      real mass,radius,helix(5),em(5,5)
c-----------------------------------------------------------------------
      integer j,k,jt
c-----------------------------------------------------------------------
      ierr=0
      do jt=1,ntrack
        if(jtrk.eq.list(jt)) then
          ierr=0
          do j=1,5
            helix(j)=trhelix(j,jt)
            do k=1,5
              em(j,k)=trem(j,k,jt)
            enddo
          enddo
ccc   write(*,'('' Helix: '',5(1x,e15.6))') helix
ccc   write(*,'(5(6x,5(1x,e15.5),/))') em
          return
        endif
      enddo
      ierr=1
c
      return
      end