subroutine get_psource_empty
      return
      end