setup_tchint_ints Subroutine

    subroutine setup_tchint_ints()
#ifndef USE_TCHINT_
      character(*), parameter :: t_r = "setup_tchint_ints"
#endif

      if(t_use_tchint_lib) then
#ifdef USE_TCHINT_
        call tchint_init()
#else
        call stop_all(t_r, "Did not compile with TCHINT support")
#endif
      end if
    end subroutine setup_tchint_ints