/usr/share/doc/cfortran/examples/fand/fand_f.f is in cfortran 4.4-14.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 | C /* fand_f.f */ /* anonymous ftp@zebra.desy.de */
C /* An example from cfortran.h package. Requires fand.c or .C */
C /* Burkhard Burow burow@desy.de 1990 - 1996. */
logical function fand(a,b)
implicit none
logical cand,a,b
fand = cand(a,b)
return
end
|