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