C
C  DECLARATIVES FOR SORT - SEE SWCON
C
      DATA LPRU /128/
      DATA DPRU /-1/