This page is for selected links to source code for or descriptions of applications written in Fortran. These might be examples of contemporary “real-world” programs, or educational older codes. There are thousands of currently active examples across the sciences.
http://gcc.gnu.org/wiki/GfortranApps Code that works with gfortran
http://g95.org/g95_status.shtml Code that works with g95
http://www.easterbrook.ca/steve/?p=1558 discusses why a lot of climate models are written in Fortran.
This is 830k LOC
http://www.nemo-ocean.eu NEMO (Nucleus for European Modelling of the Ocean)
http://www.nemo-ocean.eu/content/download/250/1629/file/coding_rules_OPA9.pdf Their Fortran 95 Coding Rules.
http://www.giss.nasa.gov/tools/modelE/ The most recent GISS model.
http://ftp.giss.nasa.gov/pub/modelE/modelE1.tar.gz Source code.
http://igcmg.ipsl.jussieu.fr/Doc/IPSLCM4 IPSL Climate model documentation.
http://tddft.org/programs/octopus The Octopus code.
http://www.cfs.dl.ac.uk/gamess-uk/index.shtml GAMESS UK home page.
http://www.msg.chem.iastate.edu/gamess/ GAMESS US home page.
https://www.cp2k.org/ CP2K is a Fortran2003 program to perform simulations of solid state, liquid, molecular and biological systems.
OFF an Open source Finite volumes Fluid dynamics code.
GENEUS is an open-source Fortran 2008 program for simulating superconductor/ferromagnet nanostructures. It is based on the Usadel quantum diffusion equation, and supports nonequilibrium calculations, self-consistent calculations, and uses convergence acceleration algorithms to remain fast for tricky problems.
http://aa.usno.navy.mil/software/novas/novas_f/novasf_intro.phpNaval Observatory Vector Astrometry Software. Used to prepare the U.S. parts of The Astronomical Almanac.
Several versions of Zork were ported to Fortran:
And of course, Star Trek: