Original: http://people.scs.fsu.edu/~burkardt/f77_src/f77_src.html
Source Codes in
Fortran77
Over the years, I have collected, modified, adapted, adopted
or created a number of software packages in FORTRAN77.
You might be able to use one of these libraries, or a routine or
two from a library.
Available software includes:

args
an executable program which
reports the command line arguments of a FORTRAN77 program;

asa005
a library which
evaluates the lower tail of the noncentral Student's T distribution;
this is Applied Statistics Algorithm 5;

asa006
a library which
computes the Cholesky factor of a positive definite symmetric matrix;
this is Applied Statistics Algorithm 6;

asa007
a library which
computes the inverse of a positive definite symmetric matrix;
this is Applied Statistics Algorithm 7;

asa032
a library which
evaluates the incomplete Gamma function;
this is Applied Statistics Algorithm 32;

asa047
a library which
minimizes a scalar function of several variables using the NelderMead algorithm;
this is Applied Statistics Algorithm 47;

asa058
a library which
carries out clustering of data;
this is Applied Statistics Algorithm 58;

asa063
a library which
evaluates the incomplete Beta function;
this is Applied Statistics Algorithm 63;

asa066
a library which
computes the cumulative density function of the standard normal distribution;
this is Applied Statistics Algorithm 66;

asa076
a library which
evaluates Owen's T function;
this is Applied Statistics Algorithm 76;

asa091,
a library which
computes the percentage points of the Chisquare distribution;
this is Applied Statistics Algorithm 91;

asa103,
a library which
evaluates the digamma or psi function;
this is Applied Statistics Algorithm 103;

asa109
a library which
inverts the incomplete Beta function;
this is Applied Statistics Algorithm 109;

asa111
a library which
evaluates the percentage points of the normal distribution;
this is Applied Statistics Algorithm 111;

asa121,
a library which
evaluates the trigamma function;
this is Applied Statistics Algorithm 121;

asa136
a library which
clusters data using the Hartigan and Wong algorithm;
this is Applied Statistics Algorithm 136;

asa144
a library which
randomly generates tables with given row and column sums;
this is Applied Statistics Algorithm 144;

asa147
a library which
evaluates the incomplete Gamma function;
this is Applied Statistics Algorithm 147;

asa152,
a library which
evaluates point and cumulative probabilities associated with the
hypergeometric distribution;
this is Applied Statistics Algorithm 152;

asa159
a library which
generates a table with given row and column sums;
this is Applied Statistics Algorithm 159;

asa189,
a library which
estimates the parameters of a beta binomial distribution based on a sample
of values generated by the distribution, by D Smith;
this is Applied Statistics Algorithm 189;

asa205
a library which
generates tables with given row and column sums;
this is Applied Statistics Algorithm 205;

asa226
a library which
evaluates the noncentral incomplete Beta function;
this is Applied Statistics Algorithm 226;

asa239
a library which
evaluates the incomplete Gamma function;
this is Applied Statistics Algorithm 239;

asa241,
a library which
computes the inverse of the normal CDF;
this is Applied Statistics Algorithm 241;

asa243
a library which
evaluates the lower tail of the noncentral Student's T distribution;
this is Applied Statistics Algorithm 243;

asa245
a library which
evaluates the logarithm of the Gamma function;
this is Applied Statistics Algorithm 245;

asa266,
a library which
evaluates various properties of the Dirichlet probability density function;
this is Applied Statistics Algorithm 266;

asa299
a library which
computes the lattice points (integer coordinates) in an Mdimensional simplex;
this is Applied Statistics Algorithm 299;

asa310
a library which
evaluates the noncentral incomplete Beta function;
this is Applied Statistics Algorithm 310;

beta_nc,
a library which
evaluates the CDF of the noncentral Beta distribution;

betis
an executable program which
applies the boundary element method to solve Laplace's equation in a 2D region.

blas1
a library which
constitutes the Level 1
Basic Linear Algebra Subprograms, (vector/vector);

blas1_c
a library which
constitutes the Level 1
Basic Linear Algebra Subprograms, (vector/vector)
using single precision complex arithmetic;

blas1_d
a library which
constitutes the Level 1
Basic Linear Algebra Subprograms, (vector/vector)
using double precision real arithmetic;

blas1_s
a library which
constitutes the Level 1
Basic Linear Algebra Subprograms, (vector/vector)
using single precision real arithmetic;

blas1_z
a library which
constitutes the Level 1
Basic Linear Algebra Subprograms, (vector/vector)
using double precision complex arithmetic;

blas2
a library which
constitutes the Level 2
Basic Linear Algebra Subprograms, (matrix/vector);

blas3
a library which
constitutes the Level 3
Basic Linear Algebra Subprograms, matrix/matrix);

calcomp
a library which
emulates a few CALCOMP plotting calls;

channel
an executable program which
uses a finite element model of time
independent viscous incompressible flow in a 2D channel;

chrpak
a library which
can be used to analyze and manipulate character strings;

clawpack
a library which
numerically solves hyperbolic differential equations using
a wave propagation approach, by Randy LeVeque;

clebsch_gordan
a library which
evaluates certain ClebschGordan
coefficients involved in angular momentum coupling in
quantum mechanics;

cwg_ode
a library which
contains three ODE solvers by William Gear.

dislin
examples which
illustrate the use of a scientific plotting package;

dqed
a library which
solves bounded and constrained least
squares problems and systems of nonlinear equations;

driv
a library which
solves real or complex systems of ordinary differential equations;

eispack,
a library which
carries out eigenvalue computations;
superseded by LAPACK;

f77
examples which
illustrate features of FORTRAN77;

f77_intrinsics
examples which
illustrate the use of some of the intrinsic functions
included with the F77 standard language;

fem1d
an executable program which
applies the finite element method,
with piecewise linear basis functions, to a linear
two point boundary value problem in 1D;

fem1d_adaptive
an executable program which
uses an adaptive mesh when
applying the finite element method,
with piecewise linear basis functions, to a linear
two point boundary value problem in 1D;

fem1d_nonlinear
an executable program which
applies the finite element method,
with piecewise linear basis functions, to a nonlinear
two point boundary value problem in 1D;

fem1d_pmethod
an executable program which
applies the pmethod version of
the finite element method to a linear
two point boundary value problem in 1D;

fem2d_poisson
an executable program which
implements the finite element
method for Poisson's equation on a triangulated square in 2D;

fftpack5
a library which
contains version 5 of the FFTPACK
Fast Fourier Transform package;

fftw3
examples which
illustrate the use of the FFTW3 Fast Fourier Transform package;

fishpack
a library which
solves the Poisson, Laplace, or Helmholtz
equation in 2D or 3D on a variety of geometries.

g77_intrinsics
examples which
illustrate the use of some of the "extra" intrinsic functions
included with the G77 compiler;

geometry
a library which
carries out a number of 2D/3D geometric calculations;

hb_to_st
an executable program which
reads a sparse matrix in a
HarwellBoeing file and
writes an equivalent
Sparse Triplet file.

hcell
an executable program which
solves the timedependent 2D
incompressible Navier Stokes equations in an Hshaped region.

hcell_steady
an executable program which
solves the timeindependent or "steady" 2D
incompressible Navier Stokes equations in an Hshaped region.

inout
an executable program which
solves the timedependent 2D incompressible Navier Stokes equations
in a rectangular region with inflow and outflow.

kmedian
an executable program which
solves the KMedian problem;

lamp
a library which
solves linear assignment and matching problems.

lammps
an executable program that
performs a classical molecular dynamics simulation.

lapack
a library which
solves linear systems and eigenvalue
problems in complex, double precision, single precision or
double precision complex arithmetic, for a wide variety of
matrix types and storage formats; a more modern library
than LINPACK.

lapack_d
examples which
illustrate the use of LAPACK routines for linear algebra
problems involving double precision real arithmetic.

linpack
a library which
solves linear systems and eigenvalue
problems in complex, double precision, single precision or
double precision complex arithmetic, for a wide variety of
matrix types and storage formats; superseded by LAPACK.

linpack_c
a library which
solves linear systems,
using single precision complex arithmetic;

linpack_d
a library which
solves linear systems, using double precision real arithmetic;

linpack_s
a library which
solves linear systems, using single precision real arithmetic;

linpack_z
a library which
solves linear systems using double precision complex arithmetic;

lsodi
a library which
solves a system of implicit differential equations;

machar
a library which
computes the values of various machine characteristic constants;

machine
a library which
returns tabulated values of machine constants;

makefiles
examples which
illustrate the use of MAKEFILES for maintaining a software
project;

mdbnch
an executable program which
is a molecular dynamics benchmark;

mixed
examples which
illustrate the use of mixed language programming in which the main program
is written in FORTRAN77;

mpi
examples which
illustrate the use of the MPI library for the parallel
execution of programs;

mpi_condor
examples which
illustrate the use of CONDOR scripts for submitting MPI jobs
to the FSU SCS cluster.

mpi_eclipse
examples which
illustrate the use of LoadLeveler scripts for submitting MPI jobs
to the ECLIPSE and TERAGOLD
IBM SP systems, formerly available at FSU.

mpi_stubs
a library which
may be used if a parallel program is to be compiled, loaded and run in a
serial machine.

mpi_sysx
examples which
illustrate the use of PBS scripts for submitting MPI jobs to System X.

nag
examples which
illustrate the use of the NAG library;

ncarg
the NCAR graphics library;

netode
an executable program which
models the timedependent behavior
of a twophase fluid in an abstract network of nodes and links.

nintlib
a library which
applies approximate integration (quadrature) in M dimensions;

nl2sol
a library which
implements an adaptive nonlinear least
squares algorithm;

normal
a library which
generates normally distributed pseudorandom numbers.

open_mp
examples which
illustrate the use of the use of the OpenMP interface
for parallel processing on shared memory systems;

open_mp_sgi
examples which
illustrate the use of the OpenMP programs executed on
one of Virginia Tech's SGI systems.

open_mp_stubs
a library which
is a dummy implementation of the OpenMP routines,
and can be used to compile, load, and run a program using OpenMP on a
system which does not have OpenMP installed.

owens
a library which
evaluates Owen's T function;

petsc
examples which
illustrate the use of the Portable Extensible Toolkit for
Scientific Computations;

pltmg_double
a library which
carries out Piecewise Linear Multigrid
finite element calculations (double precision version), by Randy Bank;

pltmg_single
a library which
carries out Piecewise Linear Multigrid
finite element calculations (single precision version), by Randy Bank;

polpak
a library which
evaluates special functions, recursive
polynomials, and so on.

pppack_d
a library which
computes piecewise polynomial
interpolants and approximants, in particular, cubic splines,
using double precision arithmetic;

pppack_s
a library which
computes piecewise polynomial
interpolants and approximants, in particular, cubic splines,
using single precision arithmetic.

praxis,
a library which
implements Richard Brent's method
for minimizing a scalar function of several variables, without
using derivatives;

quadpack
a library which
approximates integrals of various types
over finite, semiinfinite and infinite one dimensional intervals;

ranlib
a library which
produces random samples from
a variety of probabilistic distributions, by Brown and Lovato.

rkf45,
a library which
solves a system of ordinary differential
equations by the RungeKuttaFehlberg method.

scpack
a library which
performs the numerical computation of
SchwarzChristoffel conformal mappings, by Nick Trefethen.

serba
an executable program which
applies the boundary element method to solve the elasticity
equation in a 2D region.

simpack
a library which
estimates an integral over a
region that is the union of multidimensional simplexes.

specfun
a library which
evaluates certain special functions.

starpac
a library which
carries out statistical data analysis.

subpak
a library which
implements a wide variety of operations
on real and integer vectors and matrices;

subset
a library which
can rank, unrank, and generate random
subsets, combinations, permutations, and so on;

tcell
an executable program which
solves the timedependent 2D
incompressible Navier Stokes equations in a Tshaped region.

tcell_mass
an executable program which
creates and saves the mass matrix
associated with a finite element solution of the
time dependent 2D incompressible Navier Stokes equations
in the "TCELL" region.

templates
a library which
forms basic implementations of
iterative methods for solving large sparse linear systems;

test_eigen,
a library which
implements test matrices for eigenvalue analysis.

test_values
a library which
stores a small set of values for
a variety of mathematical functions.

testpack
a library which
contains a set of test integrand functions by Alan Genz.

timer
examples which
illustrate how executing code may be timed.

timestamp
a library which
prints out the YMDHMS date
as a timestamp.

toms179
a library which
calculates the incomplete Beta ratio;
this is a FORTRAN77 version of ACM TOMS algorithm 179.

toms291
a library which
approximates the logarithm of the Gamma function;
this is a FORTRAN77 version of ACM TOMS algorithm 291.

toms322
a library which
evaluates the normal, Student's T, F and chisquare cumulative density functions;
this is a FORTRAN77 version of ACM TOMS algorithm 322.

toms332
a library which
evaluates Jacobi polynomials;
this is a FORTRAN77 version of ACM TOMS algorithm 332.

toms343
a library which
computes the eigenvalues and
eigenvectors of a general real matrix;
this is a FORTRAN77 version of ACM TOMS algorithm 343.

toms344,
a library which
calculates the Student T distribution;
this is a FORTRAN77 version of ACM TOMS algorithm 344.

toms347
a library which
sorts an integer vector;
this is a FORTRAN77 version of ACM TOMS algorithm 347.

toms351
a library which
estimates an integral using Romberg
integration;
this is a FORTRAN77 version of ACM TOMS algorithm 351.

toms352
a library which
computes the characteristic values
and associated solutions of Mattieu's differential equation;
this is a FORTRAN77 version of ACM TOMS algorithm 352.

toms353
a library which
estimates an integral involving a cosine
or sine factor using Filon quadrature;
this is a FORTRAN77 version of ACM TOMS algorithm 353.

toms358
a library which
computes the singular value decomposition
of a complex matrix;
this is a FORTRAN77 version of ACM TOMS algorithm 358.

toms359
a library which
computes the factorial analysis of variance;
this is a FORTRAN77 version of ACM TOMS algorithm 359.

toms365
a library which
finds a root of an analytic complex function
by the downhill method;
this is a FORTRAN77 version of ACM TOMS algorithm 365.

toms370
a library which
produces random numbers sampled
from an arbitrary PDF;
this is a FORTRAN77 version of ACM TOMS algorithm 370.

toms379
a library which
approximates the integral of a function;
this is a FORTRAN77 version of ACM TOMS algorithm 379.

toms384
a library which
computes the eigenvalues and eigenvectors
of a symmetric matrix;
this is a FORTRAN77 version of ACM TOMS algorithm 384.

toms385
a library which
evaluates the exponential integral function;
this is a FORTRAN77 version of ACM TOMS algorithm 385.

toms392
a library which
approximates the time evolution of a hyperbolic PDE;
this is a FORTRAN77 version of ACM TOMS algorithm 392.

toms418
a library which
implements Filon quadrature of
integrals involve a factor of COS(W*X) or SIN(W*X);
this is ACM TOMS algorithm 418.

toms423
a library which
implements Gaussian elimination,
revised versions of DECOMP and SOLVE;
this is ACM TOMS algorithm 423.

toms424
a library which
implements ClenshawCurtis integration;
this is ACM TOMS algorithm 424.

toms425
a library which
generates a sequence of vectors
from a multivariate normal distribution with given covariance;
this is ACM TOMS algorithm 425.

toms427
a library which
estimates a Fourier cosine integral;
this is ACM TOMS algorithm 427.

toms429
a library which
reports information about the estimated location
of roots of a polynomial;
this is ACM TOMS algorithm 429.

toms431
a library which
solves quadratic and linear programming problems;
this is ACM TOMS algorithm 431.

toms434
a library which
computes the probability of a given
RxC contingency table;
this is ACM TOMS algorithm 434.

toms435
a library which
computes the modified incomplete gamma function;
this is ACM TOMS algorithm 435.

toms436
a library which
carries out producttype trapezoidal integration;
this is ACM TOMS algorithm 436.

toms437
a library which
carries out producttype Simpson's integration;
this is ACM TOMS algorithm 437.

toms438
a library which
carries out producttype two point GaussLegendreSimpson
integration;
this is ACM TOMS algorithm 438.

toms439
a library which
carries out producttype three point GaussLegendreSimpson
integration;
this is ACM TOMS algorithm 439.

toms441
a library which
samples the dipole distribution;
this is ACM TOMS algorithm 441.

toms443
a library which
evaluates Lambert's W function;
this is ACM TOMS algorithm 443.

toms446
a library which
manipulates Chebyshev series;
this is ACM TOMS algorithm 446.

toms448
a library which
counts the number of partitions of an integer into a given set
of integers;
this is ACM TOMS algorithm 448.

toms450
a library which
minimizes a scalar function of N variables using the method
of Rosenbrock;
this is ACM TOMS algorithm 450.

toms451
a library which
determines quantiles of the ChiSquare distribution;
this is ACM TOMS algorithm 451.

toms452
a library which
generates a sequence of combinations of M
things out of N;
this is ACM TOMS algorithm 452.

toms453
a library which
determines the abscissas and weights for a
Gaussian quadrature formula for Bromwich's integral;
this is ACM TOMS algorithm 453.

toms454
a library which
implements the complex method of constrained optimization;
this is ACM TOMS algorithm 454.

toms456
a library which
implements the routing algorithm;
this is ACM TOMS algorithm 456.

toms460
a library which
determines the optimal parameters for
an alternating direction implicit iteration;
this is ACM TOMS algorithm 460.

toms461
a library which
applies cubic spline solutions to a class of
functional differential equations;
this is ACM TOMS algorithm 461.

toms462
a library which
evaluates the bivariate normal distribution;
this is ACM TOMS algorithm 462.

toms463
a library which
chooses "nice" ranges for a graph
of computergenerated data;
this is ACM TOMS algorithm 463.

toms467
a library which
transposes a matrix in place;
this is ACM TOMS algorithm 467.

toms468
a library which
carries out automatic numerical integration;
this is ACM TOMS algorithm 468.

toms470
a library which
solves an "almost tridiagonal" system of
linear equations;
this is ACM TOMS algorithm 470.

toms493
a library which
seeks the roots of a real polynomial;
this is ACM TOMS algorithm 493.

toms526
a library which
interpolates scattered bivariate data, by Hiroshi Akima
this is ACM TOMS algorithm 526.

toms550
a library which
evaluates certain measures of a solid
polyhedron, including surface area, centroid, volume, weight,
moments and products of inertia;
this is ACM TOMS algorithm 550.

toms552
a library which
solves an overdetermined constrained linear system;
this is ACM TOMS algorithm 552.

toms571
a library which
evaluates or inverts the von Mises
and Fisher distributions of directions on a circle or sphere;
this is ACM TOMS algorithm 571.

toms611
a library which
performs unconstrained optimization of a scalar function;
this is ACM TOMS algorithm 611.

toms612
a library which
approximates the integral of a function over a a triangle; the primary
routine is known as TRIEX;
this is ACM TOMS algorithm 612.

toms626
a library which
creates a contour plot of data
associated with a triangulated set of points;
this is ACM TOMS algorithm 626.

toms647
a library which
evaluates the Faure, Halton, and Sobol quasirandom sequences,
this is ACM TOMS algorithm 647;

toms648_nsd
a library which
defines nonstiff test problems for ODE
solvers, using double precision arithmetic;
this is one part of ACM TOMS algorithm 648.

toms648_nss
a library which
defines nonstiff test problems for ODE solvers, using single precision arithmetic;
this is one part of ACM TOMS algorithm 648.

toms659
a library which
computes elements of the Sobol quasirandom sequence;
this is ACM TOMS algorithm 659.

toms706
a library which
estimates the integral of a function
over a triangulated region;
this is ACM TOMS algorithm 706.

toms708
a library which
evaluates the incomplete beta function;
this is ACM TOMS algorithm 708.

toms738
a library which
evaluates Niederreiter's quasirandom sequence;
this is ACM TOMS algorithm 738;

toms772
a library which
carries out computational geometry on the unit sphere;
this is ACM TOMS algorithm 772.

uncmin
a library which
seeks the unconstrained minimization of a scalar function of several variables.

uniform
a library which
generates uniform random numbers.

xerror
a library which
constitutes the SLATEC error message package.

y12m
a library which
implements a direct solver for sparse linear systems.
You can go up one level to
the main web page.
Last revised on 31 January 2008.