Subroutine for calculation of CODEN check characters / - Garvin, David