Technical notes. 738. Subroutine for calculation of CODEN check characters; [by] David Garvin.