LUHN is a FORTRAN90 library which demonstrates the calculation and use of the Luhn check digit for error detection.
The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.
LUHN 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.
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.