integer function trkprm_address()
c-----------------------------------------------------------------------
c    Get address of TRKPRM common
c-----------------------------------------------------------------------
      implicit none
#include <Stntuple/fit/ctvmft.inc>
      integer address
c-----------------------------------------------------------------------
      trkprm_address = address(trhelix(1,1))
      return
      end