@z --- demo2.web ---

This file is part of FWEB.  It and its woven output demo1.tex are
included into the user manual fwebman.tex.

Author: J. A. Krommes
Version: 1.23
Date:   April 1, 1992

@x-----------------------------------------------------------------------------

\def\FWEB{\.{FWEB}} % A tex macro definition in the limbo section.

@n/ @% Set the global language to Fortran--77, and allow short comments.
@* MIXING LANGUAGES. In \FWEB, languages can be mixed with a minimum of
effort.   
@a
	program main /* In Fortran, a \&{program} statement should always
be used.  */
	call CRTN // We'll actually do the work in a C~routine.
	end

@c @% Temporarily change the language of the unnamed module to C.
@<C code@>; // Link into the web a named module in~C.

@ This is the start of the next section. At this point, the language has
reverted to the global language of Fortran. However, after the equals sign on
the next line the language is~C until the next section is encountered.
@<C code@>=
void CRTN(void)
{
/* The code parts of the following named modules will be understood to be
in~C, since that is the current language when those names are first
referenced. */
@<Compute@>;
@<Graph@>;
}

@* INDEX.
