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