home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d143 / rim.lha / Rim / RimSrcAmi.Arc / SRTCOM.BLK < prev    next >
Text File  |  1988-01-05  |  2KB  |  42 lines
  1. C
  2. C  *** / S R T C O M / ***
  3. C
  4. C  SORT COMMUNICATION COMMON BLOCK
  5. C
  6.       COMMON /SRTCOM/ VARTYP(10),VARPOS(10),NSORTW,
  7.      X                LTUPLE,LTUMAX,LTUMIN,NSORT,NREAD,
  8.      X                NSOVAR,SORTYP(10),FIXLT
  9.       INTEGER VARTYP
  10.       INTEGER VARPOS
  11.       LOGICAL SORTYP
  12.       LOGICAL FIXLT
  13. C
  14. C  VARIABLE DEFINITIONS:
  15. C
  16. C  THE FOLLOWING THREE ARRAYS ARE USE BY THE SORT ROUTINES TO
  17. C  HOLD THE INFORMATION ABOUT THE WORDS THAT ARE SORTED.
  18. C  THE DIMENSION MAY WANT TO BE UPPED ON THE SMALLER MACHINES.
  19. C
  20. C  THE SORT ROUTINES OPERATE ON SORT VARIABLES.A SORT
  21. C  VARIABLE IS A SINGLE PRECISION INTEGER,A SINGLE PRECISION
  22. C  REAL,A DOUBLE PRECISION REAL OR A ONE WORD TEXT .
  23. C
  24. C  SORTYP(N)--ASCENDING OR DESCENDING SORT (TRUE OR FALSE)
  25. C  VARTYP(N)--TYPE OF THE N-TH SORT VARIABLE
  26. C  VARPOS(N)--POSITION IN TUPLE OF N-TH SORT VARIABLE
  27. C             NOTE THAT FOR A DOUBLE PRECISION REAL
  28. C             THIS IS FIRST WORD
  29. C  NSORTW-----THE NUMBER OF WORDS IN THE SORT ARRAYS - CURRENTLY 10
  30. C  FIXLT------.TRUE. IF FIXED LENGTH TUPLES
  31. C             .FALSE. IF VARIABLE LENGTH TUPLES
  32. C  LTUPLE-----IF FIXLT .TRUE. THEN LENGTH (WORDS) OF A TUPLE
  33. C             OTHERWISE LENGTH (WORDS) OF SORT FILE
  34. C  LTUMAX-----MAX LENGTH (WORDS) OF VARIABLE LENGTH TUPLE
  35. C             INCLUDES THE FIRST WORD (LENGTH) OF TUPLE
  36. C             HAS NO MEANING IF FIXLT .TRUE.
  37. C  LTUMIN-----SAME AS LTUMAX EXCEPT MIN LENGTH
  38. C  NSORT------NUMBER OF TUPLES ON THE SORT FILE
  39. C  NREAD------NUMBER OF TUPLES CURRENTLY READ FROM THE SORT FILE
  40. C  NSOVAR-----NUMBER OF SORT VARIABLES (LE 10)
  41. C
  42.