FED-STD 1016
function random ( )
implicit none
integer random
integer MIDTAP, MAXTAP
parameter
MAXTAP=5)
integer y(MAXTAP), j, k, temp
save y, j, k
-8478, 30892, -10216,
data
k/MAXTAP/
temp=iand(y(k)+y(j), 65535)
if (temp
32767) temp=temp-65536
y(k)=temp
if (k le. O) k=MAXTAP
if (j le. O) j=MAXTAP
return
end
The first and last 200 elements generated by the above FORTRAN program are shown below. The
left-most and highest elements are lowest numbered (e.g., the element in the first row and third
column is numbered 2).
o,
1,
0,
0,
0,
1,
0,
0,
0, 0,
0,
0,
-1,
0,
-1,
0,
1,
0,
0,
0,
0,
0,
-1, 0,
-1, 0, -1, 0, -1, 0, 0, 0, 0, 0, 0, 0,
0,
0,
0,
-1,
0,
0,
0,
0,
1,
0,
0,
0,
0,
1, 0,
1, 0, -1, 1, 0, 0, 0, 0, 0, -1, 0, 0,
0,
0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0,
0,
0,
0,
0, -1,
-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0,
0,
1,
-1,
0,
0,
-1,
-1,
0,
0,
0,
0,
0,
o,
0,
0,
-1,
0,
-1,
-1,
0,
0,
0, -1,
0,
0,
0,
-1,
0,
0,
0,
0,
0,
0,
0,
1,
0, 0, 0, 0, 0, 0, 1, -1, 0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
1,
0,
0,
1,
0,
0,
-1,
0,
0,
1,
0,
0,
-1,
0,
0,
-1,
0,
0,
0,
0,
0.
0,
1,
0,
0,
0,
0,
o,
0,
0,
0,
1,
-1,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
-1,
0,
-1,
0,
0,
0,
0,
0,
1,
-1,
0,
0,
0,
0,
0,
0,
1,
0,
0,
0,
0,
The 512 fixed codes of 60 elements each are
3.3.2 Creation of
Codes.
assembled from the
The
left-most code elements are first-most in time.