% JLdL 19Jun01.
% AGOF 25Out00.
%	Copyright (C) 2000-2001 by Jorge L. deLyra.
% Mail: <delyra@latt.if.usp.br>. Web: "http://latt.if.usp.br".
% Este documento pode ser copiado e/ou distribuído livremente.
% Ver os termos e condições nos arquivos do sub-diretório web/.
% This document may be copied and/or distributed freely. See the
% _ terms and conditions in the files in the web/ subdirectory.

\vspace{2ex}\noindent\hrulefill\nopagebreak\vspace{-2ex}
\begin{verbatim}
#!/bin/tcsh -f
#
# Script para compilar um programa em Fortran.
#
# Define algumas variaveis de shell.
set progfiles = ( Decompmat checkmats getseed \
                  ranr writemat writemats     )
set files = ( $progfiles cb_gen fp_def )
#
# Verifica a existencia dos arquivos necessarios.
#
# Loop sobre os arquivos.
foreach file ( $files )
    if ( ! -f "$file.f" ) then
        echo "Erro: arquivo $file.f não encontrado"
        exit 1
    endif
end
#
# Gera os objetos binarios e cria uma lista deles.
#
# Inicializa uma variável vetorial.
set ofiles
#
# Loop sobre os arquivos.
foreach progfile ( $progfiles )
    #
    # Gera o objeto binario.
    echo -n "Compilando $progfile.f... "
    g77 -O -c -o $progfile.o $progfile.f
    #
    # Acrescenta o objeto a lista.
    set ofiles = ( $ofiles $progfile.o )
    echo " feito."
end
#
# Cria o executável efetuando a linkagem dos objetos.
echo -n "Gerando executável... "
g77 -o decmat $ofiles
echo " feito."
\end{verbatim}\nopagebreak %$
\vspace{-3ex}\hrulefill\vspace{3ex}

