integer function fiddle_address()
c-----------------------------------------------------------------------
c    Get address of FIDDLE common
c-----------------------------------------------------------------------
      implicit none
#include <Stntuple/fit/ctvmft.inc>
      integer address
c-----------------------------------------------------------------------      
      fiddle_address = address(excuse)
      return
      end