Browse Prior Art Database

Fast Data Ranking

IP.com Disclosure Number: IPCOM000087590D
Original Publication Date: 1977-Feb-01
Included in the Prior Art Database: 2005-Mar-03
Document File: 1 page(s) / 12K

Publishing Venue

IBM

Related People

Hession, JJ: AUTHOR [+2]

Abstract

A Fortran IV program is disclosed for accomplishing a fast data ranking of an array of data.

This text was extracted from a PDF file.
This is the abbreviated version, containing approximately 99% of the total text.

Page 1 of 1

Fast Data Ranking

A Fortran IV program is disclosed for accomplishing a fast data ranking of an array of data.

The method comprises the steps of dimensioning an n element linear integer array NTAG (IDATA) in a computer memory and setting each array position equal to zero. The next step reads in DATA to be ranked, and converts it to integer values IDATA. The next step increments an element NTAG(I) of the linear integer array by unity from each piece of data read in, corresponding to that array position. After all data has been so ranked, all positions in the linear integer array, having positive numbers stored therein, are written out.

The Fortran IV program for accomplishing the fast data ranking operation is as follows: NFIN = 0 DO 20 1 = 1, ITOT [total data to be read] READ (8, 19) DATA 19 FORMAT (F 10.3) IDATA = DATA *10** NEX [exponent conversion] NTAG (IDATA) = NTAG (IDATA) + 1 [integer array] 20 CONTINUE DO 30 J = 1, ISIZE [array size] IF (NTAG(J)) 28, 28, 27 27 NSTR = NFIN + 1 NFIN = NFIN + NTAG(J) DO 28 K = NSTR, NFIN REJ = J RDATA = REJ/10. ** NEX [real array ranked] WRITE (5.29) RDATA 29 FORMAT (F 10.3) 28 CONTINUE 30 CONTINUE.

The conversion of decimal fractions from DATA to integers for IDATA employs the exponent conversion value NEX, which has an integer value equal to the number of places the decimal must be displaced.

The program provides a significant savings in dimensioned storage for the processing of large data sets having a moderate number of...