mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-15 10:17:20 +00:00
9ba91dd44b
during link phase when using fortran subroutines with non-fortran 'main()'. |
||
---|---|---|
.. | ||
abort_.c | ||
c_abs.c | ||
c_cos.c | ||
c_div.c | ||
c_exp.c | ||
c_log.c | ||
c_sin.c | ||
c_sqrt.c | ||
cabs.c | ||
d_abs.c | ||
d_acos.c | ||
d_asin.c | ||
d_atan.c | ||
d_atn2.c | ||
d_cnjg.c | ||
d_cos.c | ||
d_cosh.c | ||
d_dim.c | ||
d_exp.c | ||
d_imag.c | ||
d_int.c | ||
d_lg10.c | ||
d_log.c | ||
d_mod.c | ||
d_nint.c | ||
d_prod.c | ||
d_sign.c | ||
d_sin.c | ||
d_sinh.c | ||
d_sqrt.c | ||
d_tan.c | ||
d_tanh.c | ||
derf_.c | ||
derfc_.c | ||
ef1asc_.c | ||
ef1cmc_.c | ||
erf_.c | ||
erfc_.c | ||
exit.c | ||
f2ch.add | ||
F77_aloc.c | ||
getarg_.c | ||
getenv_.c | ||
h_abs.c | ||
h_dim.c | ||
h_dnnt.c | ||
h_indx.c | ||
h_len.c | ||
h_mod.c | ||
h_nint.c | ||
h_sign.c | ||
hl_ge.c | ||
hl_gt.c | ||
hl_le.c | ||
hl_lt.c | ||
i_abs.c | ||
i_dim.c | ||
i_dnnt.c | ||
i_indx.c | ||
i_len.c | ||
i_mod.c | ||
i_nint.c | ||
i_sign.c | ||
iargc_.c | ||
l_ge.c | ||
l_gt.c | ||
l_le.c | ||
l_lt.c | ||
lbitbits.c | ||
lbitshft.c | ||
main.c | ||
MAIN.c | ||
Notice | ||
pow_ci.c | ||
pow_dd.c | ||
pow_di.c | ||
pow_hh.c | ||
pow_ii.c | ||
pow_qq.c | ||
pow_ri.c | ||
pow_zi.c | ||
pow_zz.c | ||
r_abs.c | ||
r_acos.c | ||
r_asin.c | ||
r_atan.c | ||
r_atn2.c | ||
r_cnjg.c | ||
r_cos.c | ||
r_cosh.c | ||
r_dim.c | ||
r_exp.c | ||
r_imag.c | ||
r_int.c | ||
r_lg10.c | ||
r_log.c | ||
r_mod.c | ||
r_nint.c | ||
r_sign.c | ||
r_sin.c | ||
r_sinh.c | ||
r_sqrt.c | ||
r_tan.c | ||
r_tanh.c | ||
README | ||
s_cat.c | ||
s_cmp.c | ||
s_copy.c | ||
s_paus.c | ||
s_rnge.c | ||
s_stop.c | ||
sig_die.c | ||
signal1.h | ||
signal_.c | ||
system_.c | ||
Version.c | ||
z_abs.c | ||
z_cos.c | ||
z_div.c | ||
z_exp.c | ||
z_log.c | ||
z_sin.c | ||
z_sqrt.c |
If your compiler does not recognize ANSI C headers, compile with KR_headers defined: either add -DKR_headers to the definition of CFLAGS in the makefile, or insert #define KR_headers at the top of f2c.h , cabs.c , main.c , and sig_die.c . Under MS-DOS, compile s_paus.c with -DMSDOS. If you have a really ancient K&R C compiler that does not understand void, add -Dvoid=int to the definition of CFLAGS in the makefile. If you use a C++ compiler, first create a local f2c.h by appending f2ch.add to the usual f2c.h, e.g., by issuing the command make f2c.h which assumes f2c.h is installed in /usr/include . If your system lacks onexit() and you are not using an ANSI C compiler, then you should compile main.c, s_paus.c, s_stop.c, and sig_die.c with NO_ONEXIT defined. See the comments about onexit in the makefile. If your system has a double drem() function such that drem(a,b) is the IEEE remainder function (with double a, b), then you may wish to compile r_mod.c and d_mod.c with IEEE_drem defined. On some systems, you may also need to compile with -Ddrem=remainder . To check for transmission errors, issue the command make check This assumes you have the xsum program whose source, xsum.c, is distributed as part of "all from f2c/src". If you do not have xsum, you can obtain xsum.c by sending the following E-mail message to netlib@netlib.bell-labs.com send xsum.c from f2c/src The makefile assumes you have installed f2c.h in a standard place (and does not cause recompilation when f2c.h is changed); f2c.h comes with "all from f2c" (the source for f2c) and is available separately ("f2c.h from f2c"). Most of the routines in libF77 are support routines for Fortran intrinsic functions or for operations that f2c chooses not to do "in line". There are a few exceptions, summarized below -- functions and subroutines that appear to your program as ordinary external Fortran routines. 1. CALL ABORT prints a message and causes a core dump. 2. ERF(r) and DERF(d) and the REAL and DOUBLE PRECISION error functions (with x REAL and d DOUBLE PRECISION); DERF must be declared DOUBLE PRECISION in your program. Both ERF and DERF assume your C library provides the underlying erf() function (which not all systems do). 3. ERFC(r) and DERFC(d) are the complementary error functions: ERFC(r) = 1 - ERF(r) and DERFC(d) = 1.d0 - DERFC(d) (except that their results may be more accurate than explicitly evaluating the above formulae would give). Again, ERFC and r are REAL, and DERFC and d are DOUBLE PRECISION (and must be declared as such in your program), and ERFC and DERFC rely on your system's erfc(). 4. CALL GETARG(n,s), where n is an INTEGER and s is a CHARACTER variable, sets s to the n-th command-line argument (or to all blanks if there are fewer than n command-line arguments); CALL GETARG(0,s) sets s to the name of the program (on systems that support this feature). See IARGC below. 5. CALL GETENV(name, value), where name and value are of type CHARACTER, sets value to the environment value, $name, of name (or to blanks if $name has not been set). 6. NARGS = IARGC() sets NARGS to the number of command-line arguments (an INTEGER value). 7. CALL SIGNAL(n,func), where n is an INTEGER and func is an EXTERNAL procedure, arranges for func to be invoked when signal n occurs (on systems where this makes sense). 8. CALL SYSTEM(cmd), where cmd is of type CHARACTER, passes cmd to the system's command processor (on systems where this can be done). The makefile does not attempt to compile pow_qq.c, qbitbits.c, and qbitshft.c, which are meant for use with INTEGER*8. To use INTEGER*8, you must modify f2c.h to declare longint and ulongint appropriately; then add pow_qq.o to the POW = line in the makefile, and add " qbitbits.o qbitshft.o" to the makefile's F90BIT = line. Following Fortran 90, s_cat.c and s_copy.c allow the target of a (character string) assignment to be appear on its right-hand, at the cost of some extra overhead for all run-time concatenations. If you prefer the extra efficiency that comes with the Fortran 77 requirement that the left-hand side of a character assignment not be involved in the right-hand side, compile s_cat.c and s_copy.c with -DNO_OVERWRITE . If your system lacks a ranlib command, you don't need it. Either comment out the makefile's ranlib invocation, or install a harmless "ranlib" command somewhere in your PATH, such as the one-line shell script exit 0 or (on some systems) exec /usr/bin/ar lts $1 >/dev/null