aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Sorting-algorithms-Radix-sort/Fortran/sorting-algorithms-radix-sort.f
View file

@ -29,18 +29,8 @@
LOGICAL ODD ! even or odd bit position
* IF (N < 2) RETURN ! validate
J = 0 ! find bit size of an integer
J = NOT(J)
ILIM = 0
DO I = 1, 32767 ! much bigger than exists
J = ISHFT(J, -1)
IF (.NOT. BTEST(J, 0)) THEN
ILIM = I
GO TO 10
END IF
END DO
10 CONTINUE
*
ILIM = Bit_size(i) !Get the fixed number of bits
*=======================================================================
* Alternate between putting data into IW and into IX
*=======================================================================