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