File fc of Package f2c
#! /bin/sh
# NOTE: you may need to adjust the references to /usr/local/... below
# (or remove them if they're not needed on your system).
# You may need to add something like "-Olimit 2000" to the -O
# processing below or change it to something more suitable for your
# system. See also the comments starting with ### below.
# Note that with some shells, invocations of the form
# CFLAGS='system-specific stuff' fc ...
# may be useful as way to pass system-specific stuff to the C compiler.
# The script below simply appends to the initial CFLAGS value.
PATH=/usr/local/bin:/bin:/usr/bin
# f77-style shell script to compile and load fortran, C, and assembly codes
# usage: f77 [options] files [-l library]
# Options:
# -o objfile Override default executable name a.out.
# -a use automatic variable storage (on the stack)
# by default -- rather than static storage
# -c Do not call linker, leave relocatables in *.o.
# -C Check that subscripts are in bounds.
# -S leave assembler output on file.s
# -L libdir (passed to ld)
# -l library (passed to ld)
# -u complain about undeclared variables
# -w omit all warning messages
# -w66 omit Fortran 66 compatibility warning messages
# files FORTRAN source files ending in .f .
# FORTRAN with cpp preprocessor directives
# ending in .F .
# C source files ending in .c .
# Assembly language files ending in .s .
# efl source files ending in .e .
# RATFOR files ending in .r .
# Object files ending in .o .
# Shared libraries ending in .so .
# f2c prototype files ending in .P ; such
# files only affect subsequent files.
# -D def passed to C compiler (for .c files)
# or to cpp (for .F files)
# -I includepath passed to C compiler (for .c files)
# or to cpp (for .F files), and to f2c
# -m xxx passed to C compiler as -mxxx
# -N tnnn allow nnn entries in table t
# -P emit .P files
# -r8 promote real to double precision and
# complex to double complex
# -s strip executable
# -trapuv Initialize floating-point variables to
# signaling NaNs (on machines with IEEE
# arithmetic) unless they appear in save,
# common, or data statements. Initialize
# other kinds of variables to values that
# may attract attention if used without
# being assigned proper values.
# -U def passed to C compiler (for .c files)
# or to cpp (for .F files) to remove def
# -v show current f2c version
# --version same as -v
s=/tmp/stderr_$$
t=/tmp/f77_$$.o
### On some systems (e.g., IRIX), -common prevents complaints
### about multiple definitions of COMMON blocks.
#CC=${CC_f2c:-'cc -common'}
CC=${CC_f2c:-'cc'}
EFL=${EFL:-efl}
EFLFLAGS=${EFLFLAGS:-'system=portable deltastno=10'}
RATFOR=${RATFOR:-ratfor}
RFLAGS=${RFLAGS:-'-6&'}
F2C=${F2C:-/usr/local/bin/f2c}
show_fc_help=0
case $1 in
--help) show_fc_help=1;;
--version) show_fc_help=2;;
'-?') show_fc_help=1;;
-h) show_fc_help=1;;
-v) show_fc_help=2;;
esac
case $show_fc_help in
1)
echo 'f77 script based on f2c'
echo 'For usage details, see comments at the beginning of' $0 .
echo 'For pointers to f2c documentation, invoke' $F2C --help
exit 0;;
2)
echo $0 'script based on f2c:'; $F2C -v
exit 0;;
esac
F2CFLAGS=${F2CFLAGS:='-ARw8 -Nn802 -Nq300 -Nx400'}
CPP=${CPP:-/lib/cpp}
rc=0
trap "rm -f $s $t; exit \$rc" 0
OUTF=a.out
OUTO=
cOPT=1
set -- `getopt acCD:gI:L:m:N:O:U:o:r:sSt:uw6 "$@"`
case $? in 0);; *) rc=$?; exit;; esac
CPPFLAGS=${CPPFLAGS:-'-I/usr/local/include'}
CFLAGSF2C=${CFLAGSF2C:-'-I/usr/local/include'}
OFILES=
trapuv=
strip=
LIBS="-lf2c -lm"
while
test X"$1" != X--
do
case "$1"
in
-a) F2CFLAGS="$F2CFLAGS -a"
shift;;
-C) F2CFLAGS="$F2CFLAGS -C"
shift;;
-c) cOPT=0
shift
;;
-D) CPPFLAGS="$CPPFLAGS -D$2"
shift 2
;;
-g) CFLAGS="$CFLAGS -g"
F2CFLAGS="$F2CFLAGS -g"
shift;;
-I) CPPFLAGS="$CPPFLAGS -I$2"
F2CFLAGS="$F2CFLAGS -I$2"
shift 2
;;
-m) CC="$CC -m$2"
shift 2
;;
-U) CPPFLAGS="$CPPFLAGS -U$2"
shift 2
;;
-o) OUTF=$2
OUTO=$2
shift 2
;;
-O) case $2 in 1) O=-O1;; 2) O=-O2;; 3) O=-O3;; *) O=-O;; esac
case $O in -O);; *) shift;; esac
CFLAGS="$CFLAGS $O"
# CFLAGS="$CFLAGS $O -Olimit 2000"
shift
;;
-r) case $2 in 8) F2CFLAGS="$F2CFLAGS -r8";;
*) echo "Ignoring -r$2";; esac
shift; shift
;;
-s) strip=1
shift
;;
-u) F2CFLAGS="$F2CFLAGS -u"
shift
;;
-w) F2CFLAGS="$F2CFLAGS -w"
case $2 in -6) F2CFLAGS="$F2CFLAGS"66; shift
case $2 in -6) shift;; esac;; esac
shift
;;
-L) OFILES="$OFILES $1$2"
shift 2
case $cOPT in 1) cOPT=2;; esac
;;
-L*) OFILES="$OFILES $1"
shift
case $cOPT in 1) cOPT=2;; esac
;;
-N) F2CFLAGS="$F2CFLAGS $1""$2"
shift 2
;;
-P) F2CFLAGS="$F2CFLAGS $1"
shift
;;
-S) CFLAGS="$CFLAGS -S"
cOPT=0
shift
;;
-t)
case $2 in
rapuv)
F2CFLAGS="$F2CFLAGS -trapuv"
trapuv=1
# LIBS="$LIBS -lfpe"
shift 2;;
*)
echo "invalid parameter $1" 1>&2
shift;;
esac
;;
'') echo $0: 'unexpected null argument'; exit 1;;
*)
echo "invalid parameter $1" 1>&2
shift
;;
esac
done
shift
case $cOPT in 0) case $OUTO in '');; *) CFLAGS="$CFLAGS -o $OUTO";; esac;; esac
while
test -n "$1"
do
case "$1"
in
*.[fF])
case "$1" in *.f) f=".f";; *.F) f=".F";; esac
case "$1" in
*.f) b=`basename $1 .f`
$F2C $F2CFLAGS $1
rc=$?
;;
*.F) b=`basename $1 .F`
$CPP $CPPFLAGS $1 >$b.i
rc=$?
case $rc in 0)
$F2C $F2CFLAGS <$b.i >$b.c
rc=$?
;;esac
rm $b.i
;;
esac
case $rc in 0);; *) exit;; esac
$CC -c $CFLAGSF2C $CFLAGS $b.c 2>$s
rc=$?
sed '/parameter .* is not referenced/d;/warning: too many parameters/d' $s 1>&2
case $rc in 0);; *) exit;; esac
OFILES="$OFILES $b.o"
rm $b.c
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.e)
b=`basename $1 .e`
$EFL $EFLFLAGS $1 >$b.f
case $? in 0);; *) rc=$?; exit;; esac
$F2C $F2CFLAGS $b.f
case $? in 0);; *) rc=$?; exit;; esac
$CC -c $CFLAGSF2C $CFLAGS $b.c
case $? in 0);; *) rc=$?; exit;; esac
OFILES="$OFILES $b.o"
rm $b.[cf]
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.r)
b=`basename $1 .r`
$RATFOR $RFLAGS $1 >$b.f
case $? in 0);; *) rc=$?; exit;; esac
$F2C $F2CFLAGS $b.f
case $? in 0);; *) rc=$?; exit;; esac
$CC -c $CFLAGSF2C $CFLAGS $b.c
case $? in 0);; *) rc=$?; exit;; esac
OFILES="$OFILES $b.o"
rm $b.[cf]
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.s)
echo $1: 1>&2
OFILE=`basename $1 .s`.o
${AS:-as} -o $OFILE $AFLAGS $1
case $? in 0);; *) rc=$?; exit;; esac
OFILES="$OFILES $OFILE"
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.c)
echo $1: 1>&2
OFILE=`basename $1 .c`.o
$CC -c $CFLAGSF2C $CPPFLAGS $CFLAGS $1
rc=$?; case $rc in 0);; *) rc=$?; exit;; esac
OFILES="$OFILES $OFILE"
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.o)
OFILES="$OFILES $1"
case $cOPT in 1) cOPT=2;; esac
shift
;;
*.so)
OFILES="$OFILES $1"
case $cOPT in 1) cOPT=2;; esac
shift
;;
-[lL])
OFILES="$OFILES $1$2"
shift 2
case $cOPT in 1) cOPT=2;; esac
;;
-[lL]*)
OFILES="$OFILES $1"
shift
case $cOPT in 1) cOPT=2;; esac
;;
-o)
case $cOPT in 0) CFLAGS="$CFLAGS -o $2";; *) OUTF=$2;; esac
shift 2;;
*.P)
F2CFLAGS="$F2CFLAGS $1"
shift
;;
*)
OFILES="$OFILES $1"
shift
case $cOPT in 1) cOPT=2;; esac
;;
esac
done
### On some (IRIX) systems, -Wl,-dont_warn_unused prevents complaints
### about unnecessary -l options.
case $cOPT in 2)
# case $trapuv in 1) OFILES="$OFILES -lfpe";; esac
# $CC -Wl,-dont_warn_unused -o $OUTF -u MAIN__ -L/usr/local/lib $OFILES $LIBS
$CC -o $OUTF -u MAIN__ -L/usr/local/lib $OFILES $LIBS
case $strip in 1) strip $OUTF;; esac
;; esac
rc=$?
exit $rc
