*KEEP, GUMAT
*       track finding matrix common
*
        real tmatp(8,8,npad,nkik),tcentp(8,npad,nkik)
        real evecp(8,8,npad,nkik),evalp(8,npad,nkik)
        real tmate(8,8,npad,nkik),tcente(8,npad,nkik)
        real evece(8,8,npad,nkik),evale(8,npad,nkik)
        real tmats(8,8,npad,nkik),tcents(8,npad,nkik)
        real evecs(8,8,npad,nkik),evals(8,npad,nkik)
        real detp(8,ntref,npad,nkik),dete(8,ntref,npad,nkik)
        integer tmultp(npad,nkik),tmulte(npad,nkik),tmults(npad,nkik)
        real dkik0(nkik)

        COMMON/trmat/tmatp,tcentp,evecp,evalp,tmate,tcente,evece,evale,
     1    tmats,tcents,evecs,evals,detp,dete,tmultp,tmulte,tmults,dkik0
C