BANK is a FORTRAN90 library which can compute the check digit associated with a US Bank Routing Number check digit, or it can report whether a 9-digit code is actually valid.
The computer code and data files made available on this web page are distributed under the GNU LGPL license.
BANK is available in a C version and a C++ version and a FORTRAN90 version and a MATLAB version and a Python version.
ISBN, a FORTRAN90 library which can determine the check digit for an International Standard Book Number or report whether a given ISBN is valid.
LUHN, a FORTRAN90 program which computes the Luhn check digit for a string, and can validate a string.
UPC, a FORTRAN90 library which can determine the check digit for a Uniform Product Code (UPC) or report whether a given UPC is valid.
You can go up one level to the FORTRAN90 source codes.