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