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