integer function print_level_address()
c-----------------------------------------------------------------------
c    Get address of FIDDLE common
c-----------------------------------------------------------------------
      implicit none
#include "Stntuple/fit/ctvmft.inc"
      integer address
c-----------------------------------------------------------------------      
      print_level_address = address(print_level)
      return
      end