C
C  *** / S R T C O M / ***
C
C  SORT COMMUNICATION COMMON BLOCK
C
      COMMON /SRTCOM/ VARTYP(10),VARPOS(10),NSORTW,
     X                LTUPLE,LTUMAX,LTUMIN,NSORT,NREAD,
     X                NSOVAR,SORTYP(10),FIXLT
      INTEGER VARTYP
      INTEGER VARPOS
      LOGICAL SORTYP
      LOGICAL FIXLT
C
C  VARIABLE DEFINITIONS:
C
C  THE FOLLOWING THREE ARRAYS ARE USE BY THE SORT ROUTINES TO
C  HOLD THE INFORMATION ABOUT THE WORDS THAT ARE SORTED.
C  THE DIMENSION MAY WANT TO BE UPPED ON THE SMALLER MACHINES.
C
C  THE SORT ROUTINES OPERATE ON SORT VARIABLES.A SORT
C  VARIABLE IS A SINGLE PRECISION INTEGER,A SINGLE PRECISION
C  REAL,A DOUBLE PRECISION REAL OR A ONE WORD TEXT .
C
C  SORTYP(N)--ASCENDING OR DESCENDING SORT (TRUE OR FALSE)
C  VARTYP(N)--TYPE OF THE N-TH SORT VARIABLE
C  VARPOS(N)--POSITION IN TUPLE OF N-TH SORT VARIABLE
C             NOTE THAT FOR A DOUBLE PRECISION REAL
C             THIS IS FIRST WORD
C  NSORTW-----THE NUMBER OF WORDS IN THE SORT ARRAYS - CURRENTLY 10
C  FIXLT------.TRUE. IF FIXED LENGTH TUPLES
C             .FALSE. IF VARIABLE LENGTH TUPLES
C  LTUPLE-----IF FIXLT .TRUE. THEN LENGTH (WORDS) OF A TUPLE
C             OTHERWISE LENGTH (WORDS) OF SORT FILE
C  LTUMAX-----MAX LENGTH (WORDS) OF VARIABLE LENGTH TUPLE
C             INCLUDES THE FIRST WORD (LENGTH) OF TUPLE
C             HAS NO MEANING IF FIXLT .TRUE.
C  LTUMIN-----SAME AS LTUMAX EXCEPT MIN LENGTH
C  NSORT------NUMBER OF TUPLES ON THE SORT FILE
C  NREAD------NUMBER OF TUPLES CURRENTLY READ FROM THE SORT FILE
C  NSOVAR-----NUMBER OF SORT VARIABLES (LE 10)
C