Louis O. Cropp, Sandia Corporation, Albuquerque,

New Mexico

This subroutine converts a double precision (6-digit) unsigned-

integral binary-coded decimal (BCD) number with bit values

of 4,2,2, and 1 to its integral-positive-binary equivalent

in two computer words. It is possible to change the bit

values to any desired values and thereby convert any BCD

number to binary.