  subroutine gtg_cdf_mod()
    implicit none
    print *, "Stub code for GTG protection but to make UPP public to work"
  end subroutine gtg_cdf_mod