map_routines.F90

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