TOMS347 is a FORTRAN77 library which implements ACM TOMS algorithm 347, for sorting an integer array.
The text of many ACM TOMS algorithms is available online through ACM: http://www.acm.org/pubs/calgo or NETLIB: http://www.netlib.org/toms/index.html.
TOMS347 is available in a FORTRAN77 version.
COMBO, a FORTRAN90 library which includes a number of sorting routines.
SUBPAK, a FORTRAN77 library which includes a number of sorting routines for various data types.
SUBSET, a FORTRAN77 library which includes a number of sorting routines.
You can go up one level to the FORTRAN77 source codes.