      subroutine get_psource_ts_empty
      return
      end
