*: Delete KR_headers cruft.

	* libF77/*: Delete KR_headers cruft.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54132

libf2c/ChangeLog

+Fri May 31 21:50:01 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* libF77/*: Delete KR_headers cruft.
+	* libI77/*: Likewise.
+	* libU77/*: Likewise.
+
 Thu May 30 23:04:52 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* Makefile.in (WARN_CFLAGS): New.

libf2c/libF77/F77_aloc.c

@@ -6,13 +6,6 @@
 
 static integer memfailure = 3;
 
-#ifdef KR_headers
-extern char *malloc();
-extern void G77_exit_0 ();
-
- char *
-F77_aloc(Len, whence) integer Len; char *whence;
-#else
 #include <stdlib.h>
 #ifdef __cplusplus
 extern "C" {
@@ -24,7 +17,6 @@ extern void G77_exit_0 (integer*);
 
  char *
 F77_aloc(integer Len, char *whence)
-#endif
 {
 	char *rv;
 	unsigned int uLen = (unsigned int) Len;	/* for K&R C */

libf2c/libF77/abort_.c

 #include <stdio.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-extern VOID sig_die();
-
-int G77_abort_0 ()
-#else
 extern void sig_die(char*,int);
 
 int G77_abort_0 (void)
-#endif
 {
 sig_die("Fortran abort routine called", 1);
 return 0;	/* not reached */

libf2c/libF77/c_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double f__cabs();
-
-double c_abs(z) complex *z;
-#else
 extern double f__cabs(double, double);
 
 double c_abs(complex *z)
-#endif
 {
 return( f__cabs( z->r, z->i ) );
 }

libf2c/libF77/c_cos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double sin(), cos(), sinh(), cosh();
-
-VOID c_cos(r, z) complex *r, *z;
-#else
 #undef abs
 #include "math.h"
 
 void c_cos(complex *r, complex *z)
-#endif
 {
 	double zi = z->i, zr = z->r;
 	r->r =   cos(zr) * cosh(zi);

libf2c/libF77/c_div.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern VOID sig_die();
-VOID c_div(c, a, b)
-complex *a, *b, *c;
-#else
 extern void sig_die(char*,int);
 void c_div(complex *c, complex *a, complex *b)
-#endif
 {
 	double ratio, den;
 	double abr, abi, cr;

libf2c/libF77/c_exp.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double exp(), cos(), sin();
-
- VOID c_exp(r, z) complex *r, *z;
-#else
 #undef abs
 #include "math.h"
 
 void c_exp(complex *r, complex *z)
-#endif
 {
 	double expx, zi = z->i;
 

libf2c/libF77/c_log.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double log(), f__cabs(), atan2();
-VOID c_log(r, z) complex *r, *z;
-#else
 #undef abs
 #include "math.h"
 extern double f__cabs(double, double);
 
 void c_log(complex *r, complex *z)
-#endif
 {
 	double zi, zr;
 	r->i = atan2(zi = z->i, zr = z->r);

libf2c/libF77/c_sin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double sin(), cos(), sinh(), cosh();
-
-VOID c_sin(r, z) complex *r, *z;
-#else
 #undef abs
 #include "math.h"
 
 void c_sin(complex *r, complex *z)
-#endif
 {
 	double zi = z->i, zr = z->r;
 	r->r = sin(zr) * cosh(zi);

libf2c/libF77/c_sqrt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double sqrt(), f__cabs();
-
-VOID c_sqrt(r, z) complex *r, *z;
-#else
 #undef abs
 #include "math.h"
 extern double f__cabs(double, double);
 
 void c_sqrt(complex *r, complex *z)
-#endif
 {
 	double mag, t;
 	double zi = z->i, zr = z->r;

libf2c/libF77/cabs.c

-#ifdef KR_headers
-extern double sqrt();
-double f__cabs(real, imag) double real, imag;
-#else
 #undef abs
 #include <math.h>
 double f__cabs(double real, double imag)
-#endif
 {
 double temp;
 

libf2c/libF77/configure

@@ -28,7 +28,6 @@ program_suffix=NONE
 program_transform_name=s,x,x,
 silent=
 site=
-sitefile=
 srcdir=
 target=NONE
 verbose=
@@ -143,7 +142,6 @@ Configuration:
   --help                  print this message
   --no-create             do not create output files
   --quiet, --silent       do not print \`checking...' messages
-  --site-file=FILE        use FILE as the site file
   --version               print the version of autoconf that created configure
 Directory and file names:
   --prefix=PREFIX         install architecture-independent files in PREFIX
@@ -314,11 +312,6 @@ EOF
   -site=* | --site=* | --sit=*)
     site="$ac_optarg" ;;
 
-  -site-file | --site-file | --site-fil | --site-fi | --site-f)
-    ac_prev=sitefile ;;
-  -site-file=* | --site-file=* | --site-fil=* | --site-fi=* | --site-f=*)
-    sitefile="$ac_optarg" ;;
-
   -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
     ac_prev=srcdir ;;
   -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
@@ -484,16 +477,12 @@ fi
 srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
 
 # Prefer explicitly selected file to automatically selected ones.
-if test -z "$sitefile"; then
-  if test -z "$CONFIG_SITE"; then
+if test -z "$CONFIG_SITE"; then
   if test "x$prefix" != xNONE; then
     CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
   else
     CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
   fi
-  fi
-else
-  CONFIG_SITE="$sitefile"
 fi
 for ac_site_file in $CONFIG_SITE; do
   if test -r "$ac_site_file"; then
@@ -541,7 +530,7 @@ fi
 # Extract the first word of "gcc", so it can be a program name with args.
 set dummy gcc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:545: checking for $ac_word" >&5
+echo "configure:534: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -571,7 +560,7 @@ if test -z "$CC"; then
   # Extract the first word of "cc", so it can be a program name with args.
 set dummy cc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:575: checking for $ac_word" >&5
+echo "configure:564: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -622,7 +611,7 @@ fi
       # Extract the first word of "cl", so it can be a program name with args.
 set dummy cl; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:626: checking for $ac_word" >&5
+echo "configure:615: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -655,7 +644,7 @@ fi
 
 
 echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
-echo "configure:659: checking whether we are using GNU C" >&5
+echo "configure:648: checking whether we are using GNU C" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -664,7 +653,7 @@ else
   yes;
 #endif
 EOF
-if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:668: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
+if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:657: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
   ac_cv_prog_gcc=yes
 else
   ac_cv_prog_gcc=no
@@ -683,7 +672,7 @@ ac_test_CFLAGS="${CFLAGS+set}"
 ac_save_CFLAGS="$CFLAGS"
 CFLAGS=
 echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
-echo "configure:687: checking whether ${CC-cc} accepts -g" >&5
+echo "configure:676: checking whether ${CC-cc} accepts -g" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -726,7 +715,7 @@ else
   # Extract the first word of "ranlib", so it can be a program name with args.
 set dummy ranlib; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:730: checking for $ac_word" >&5
+echo "configure:719: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -755,7 +744,7 @@ fi
 
 fi
 echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6
-echo "configure:759: checking whether ${MAKE-make} sets \${MAKE}" >&5
+echo "configure:748: checking whether ${MAKE-make} sets \${MAKE}" >&5
 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -785,7 +774,7 @@ fi
 
 # Sanity check for the cross-compilation case:
 echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
-echo "configure:789: checking how to run the C preprocessor" >&5
+echo "configure:778: checking how to run the C preprocessor" >&5
 # On Suns, sometimes $CPP names a directory.
 if test -n "$CPP" && test -d "$CPP"; then
   CPP=
@@ -800,13 +789,13 @@ else
   # On the NeXT, cc -E runs the code through the compiler's parser,
   # not just through cpp.
   cat > conftest.$ac_ext <<EOF
-#line 804 "configure"
+#line 793 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:810: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:799: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -817,13 +806,13 @@ else
   rm -rf conftest*
   CPP="${CC-cc} -E -traditional-cpp"
   cat > conftest.$ac_ext <<EOF
-#line 821 "configure"
+#line 810 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:827: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:816: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -834,13 +823,13 @@ else
   rm -rf conftest*
   CPP="${CC-cc} -nologo -E"
   cat > conftest.$ac_ext <<EOF
-#line 838 "configure"
+#line 827 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:844: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:833: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -866,17 +855,17 @@ echo "$ac_t""$CPP" 1>&6
 
 ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for stdio.h""... $ac_c" 1>&6
-echo "configure:870: checking for stdio.h" >&5
+echo "configure:859: checking for stdio.h" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 875 "configure"
+#line 864 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:880: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:869: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -904,12 +893,12 @@ fi
 
 
 echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
-echo "configure:908: checking for ANSI C header files" >&5
+echo "configure:897: checking for ANSI C header files" >&5
 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 913 "configure"
+#line 902 "configure"
 #include "confdefs.h"
 #include <stdlib.h>
 #include <stdarg.h>
@@ -917,7 +906,7 @@ else
 #include <float.h>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:921: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:910: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -934,7 +923,7 @@ rm -f conftest*
 if test $ac_cv_header_stdc = yes; then
   # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
 cat > conftest.$ac_ext <<EOF
-#line 938 "configure"
+#line 927 "configure"
 #include "confdefs.h"
 #include <string.h>
 EOF
@@ -952,7 +941,7 @@ fi
 if test $ac_cv_header_stdc = yes; then
   # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
 cat > conftest.$ac_ext <<EOF
-#line 956 "configure"
+#line 945 "configure"
 #include "confdefs.h"
 #include <stdlib.h>
 EOF
@@ -973,7 +962,7 @@ if test "$cross_compiling" = yes; then
   :
 else
   cat > conftest.$ac_ext <<EOF
-#line 977 "configure"
+#line 966 "configure"
 #include "confdefs.h"
 #include <ctype.h>
 #define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
@@ -984,7 +973,7 @@ if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
 exit (0); }
 
 EOF
-if { (eval echo configure:988: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:977: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   :
 else
@@ -1007,14 +996,13 @@ EOF
 
 fi
 
-
 echo $ac_n "checking for posix""... $ac_c" 1>&6
-echo "configure:1013: checking for posix" >&5
+echo "configure:1001: checking for posix" >&5
 if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1018 "configure"
+#line 1006 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <unistd.h>
@@ -1040,12 +1028,12 @@ echo "$ac_t""$g77_cv_header_posix" 1>&6
 # We can rely on the GNU library being posix-ish.  I guess checking the 
 # header isn't actually like checking the functions, though...
 echo $ac_n "checking for GNU library""... $ac_c" 1>&6
-echo "configure:1044: checking for GNU library" >&5
+echo "configure:1032: checking for GNU library" >&5
 if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1049 "configure"
+#line 1037 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 #ifdef __GNU_LIBRARY__
@@ -1068,12 +1056,12 @@ fi
 echo "$ac_t""$g77_cv_lib_gnu" 1>&6
 
 echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6
-echo "configure:1072: checking return type of signal handlers" >&5
+echo "configure:1060: checking return type of signal handlers" >&5
 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1077 "configure"
+#line 1065 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -1090,7 +1078,7 @@ int main() {
 int i;
 ; return 0; }
 EOF
-if { (eval echo configure:1094: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1082: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_type_signal=void
 else
@@ -1111,12 +1099,12 @@ EOF
 # we'll get atexit by default
 if test $ac_cv_header_stdc != yes; then
 echo $ac_n "checking for atexit""... $ac_c" 1>&6
-echo "configure:1115: checking for atexit" >&5
+echo "configure:1103: checking for atexit" >&5
 if eval "test \"`echo '$''{'ac_cv_func_atexit'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1120 "configure"
+#line 1108 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char atexit(); below.  */
@@ -1139,7 +1127,7 @@ atexit();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1143: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1131: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_atexit=yes"
 else
@@ -1164,12 +1152,12 @@ else
 EOF
 
   echo $ac_n "checking for onexit""... $ac_c" 1>&6
-echo "configure:1168: checking for onexit" >&5
+echo "configure:1156: checking for onexit" >&5
 if eval "test \"`echo '$''{'ac_cv_func_onexit'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1173 "configure"
+#line 1161 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char onexit(); below.  */
@@ -1192,7 +1180,7 @@ onexit();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1196: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1184: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_onexit=yes"
 else
@@ -1210,12 +1198,12 @@ if eval "test \"`echo '$ac_cv_func_'onexit`\" = yes"; then
 else
   echo "$ac_t""no" 1>&6
 echo $ac_n "checking for on_exit""... $ac_c" 1>&6
-echo "configure:1214: checking for on_exit" >&5
+echo "configure:1202: checking for on_exit" >&5
 if eval "test \"`echo '$''{'ac_cv_func_on_exit'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1219 "configure"
+#line 1207 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char on_exit(); below.  */
@@ -1238,7 +1226,7 @@ on_exit();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1242: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1230: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_on_exit=yes"
 else
@@ -1268,7 +1256,7 @@ else true
 fi
 
 echo $ac_n "checking for drem in -lm""... $ac_c" 1>&6
-echo "configure:1272: checking for drem in -lm" >&5
+echo "configure:1260: checking for drem in -lm" >&5
 ac_lib_var=`echo m'_'drem | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -1276,7 +1264,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lm  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1280 "configure"
+#line 1268 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -1287,7 +1275,7 @@ int main() {
 drem()
 ; return 0; }
 EOF
-if { (eval echo configure:1291: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1279: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else

libf2c/libF77/configure.in

@@ -56,17 +56,6 @@ the G77 runtime system.  If necessary, install gcc now with \`LANGUAGES=c',
 then the target library, then build with \`LANGUAGES=f77'.])])
 
 AC_HEADER_STDC
-dnl We could do this if we didn't know we were using gcc
-dnl AC_MSG_CHECKING(for prototype-savvy compiler)
-dnl AC_CACHE_VAL(g77_cv_sys_proto,                
-dnl   [AC_TRY_LINK(,                             
-dnl dnl looks screwy because TRY_LINK expects a function body
-dnl    [return 0;} int foo (int * bar) {],       
-dnl    g77_cv_sys_proto=yes,                      
-dnl    [g77_cv_sys_proto=no                       
-dnl     AC_DEFINE(KR_headers)])])                
-dnl AC_MSG_RESULT($g77_cv_sys_proto)              
-
 AC_MSG_CHECKING(for posix)
 AC_CACHE_VAL(g77_cv_header_posix,
   AC_EGREP_CPP(yes,

libf2c/libF77/d_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double d_abs(x) doublereal *x;
-#else
 double d_abs(doublereal *x)
-#endif
 {
 if(*x >= 0)
 	return(*x);

libf2c/libF77/d_acos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double acos();
-double d_acos(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_acos(doublereal *x)
-#endif
 {
 return( acos(*x) );
 }

libf2c/libF77/d_asin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double asin();
-double d_asin(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_asin(doublereal *x)
-#endif
 {
 return( asin(*x) );
 }

libf2c/libF77/d_atan.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double atan();
-double d_atan(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_atan(doublereal *x)
-#endif
 {
 return( atan(*x) );
 }

libf2c/libF77/d_atn2.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double atan2();
-double d_atn2(x,y) doublereal *x, *y;
-#else
 #undef abs
 #include <math.h>
 double d_atn2(doublereal *x, doublereal *y)
-#endif
 {
 return( atan2(*x,*y) );
 }

libf2c/libF77/d_cnjg.c

 #include "f2c.h"
 
  VOID
-#ifdef KR_headers
-d_cnjg(r, z) doublecomplex *r, *z;
-#else
 d_cnjg(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	doublereal zi = z->i;
 	r->r = z->r;

libf2c/libF77/d_cos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double cos();
-double d_cos(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_cos(doublereal *x)
-#endif
 {
 return( cos(*x) );
 }

libf2c/libF77/d_cosh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double cosh();
-double d_cosh(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_cosh(doublereal *x)
-#endif
 {
 return( cosh(*x) );
 }

libf2c/libF77/d_dim.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double d_dim(a,b) doublereal *a, *b;
-#else
 double d_dim(doublereal *a, doublereal *b)
-#endif
 {
 return( *a > *b ? *a - *b : 0);
 }

libf2c/libF77/d_exp.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double exp();
-double d_exp(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_exp(doublereal *x)
-#endif
 {
 return( exp(*x) );
 }

libf2c/libF77/d_imag.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double d_imag(z) doublecomplex *z;
-#else
 double d_imag(doublecomplex *z)
-#endif
 {
 return(z->i);
 }

libf2c/libF77/d_int.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-double d_int(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_int(doublereal *x)
-#endif
 {
 return( (*x>0) ? floor(*x) : -floor(- *x) );
 }

libf2c/libF77/d_lg10.c

@@ -2,14 +2,9 @@
 
 #define log10e 0.43429448190325182765
 
-#ifdef KR_headers
-double log();
-double d_lg10(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_lg10(doublereal *x)
-#endif
 {
 return( log10e * log(*x) );
 }

libf2c/libF77/d_log.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double log();
-double d_log(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_log(doublereal *x)
-#endif
 {
 return( log(*x) );
 }

libf2c/libF77/d_mod.c

 #include "f2c.h"
 
-#ifdef KR_headers
-#ifdef IEEE_drem
-double drem();
-#else
-double floor();
-#endif
-double d_mod(x,y) doublereal *x, *y;
-#else
 #ifdef IEEE_drem
 double drem(double, double);
 #else
@@ -15,7 +7,6 @@ double drem(double, double);
 #include <math.h>
 #endif
 double d_mod(doublereal *x, doublereal *y)
-#endif
 {
 #ifdef IEEE_drem
 	double xa, ya, z;

libf2c/libF77/d_nint.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-double d_nint(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_nint(doublereal *x)
-#endif
 {
 return( (*x)>=0 ?
 	floor(*x + .5) : -floor(.5 - *x) );

libf2c/libF77/d_prod.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double d_prod(x,y) real *x, *y;
-#else
 double d_prod(real *x, real *y)
-#endif
 {
 return( (*x) * (*y) );
 }

libf2c/libF77/d_sign.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double d_sign(a,b) doublereal *a, *b;
-#else
 double d_sign(doublereal *a, doublereal *b)
-#endif
 {
 double x;
 x = (*a >= 0 ? *a : - *a);

libf2c/libF77/d_sin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sin();
-double d_sin(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_sin(doublereal *x)
-#endif
 {
 return( sin(*x) );
 }

libf2c/libF77/d_sinh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sinh();
-double d_sinh(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_sinh(doublereal *x)
-#endif
 {
 return( sinh(*x) );
 }

libf2c/libF77/d_sqrt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sqrt();
-double d_sqrt(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_sqrt(doublereal *x)
-#endif
 {
 return( sqrt(*x) );
 }

libf2c/libF77/d_tan.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double tan();
-double d_tan(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_tan(doublereal *x)
-#endif
 {
 return( tan(*x) );
 }

libf2c/libF77/d_tanh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double tanh();
-double d_tanh(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 double d_tanh(doublereal *x)
-#endif
 {
 return( tanh(*x) );
 }

libf2c/libF77/derf_.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double erf();
-double G77_derf_0 (x) doublereal *x;
-#else
 extern double erf(double);
 double G77_derf_0 (doublereal *x)
-#endif
 {
 return( erf(*x) );
 }

libf2c/libF77/derfc_.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern double erfc();
-
-double G77_derfc_0 (x) doublereal *x;
-#else
 extern double erfc(double);
 
 double G77_derfc_0 (doublereal *x)
-#endif
 {
 return( erfc(*x) );
 }

libf2c/libF77/dtime_.c

@@ -24,11 +24,7 @@
 #endif
 
  double
-#ifdef KR_headers
-dtime_(tarray) float *tarray;
-#else
 dtime_(float *tarray)
-#endif
 {
 #ifdef USE_CLOCK
 #ifndef CLOCKS_PER_SECOND

libf2c/libF77/ef1asc_.c

@@ -6,13 +6,8 @@
 #define M	( (long) (sizeof(long) - 1) )
 #define EVEN(x)	( ( (x)+ M) & (~M) )
 
-#ifdef KR_headers
-extern VOID s_copy();
-G77_ef1asc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
-#else
 extern void s_copy(char*,char*,ftnlen,ftnlen);
 int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
-#endif
 {
 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
 return 0;	/* ignored return value */

libf2c/libF77/ef1cmc_.c

@@ -2,13 +2,8 @@
 
 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-integer G77_ef1cmc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
-#else
 extern integer s_cmp(char*,char*,ftnlen,ftnlen);
 integer G77_ef1cmc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
-#endif
 {
 return( s_cmp( (char *)a, (char *)b, *la, *lb) );
 }

libf2c/libF77/erf_.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double erf();
-double G77_erf_0 (x) real *x;
-#else
 extern double erf(double);
 double G77_erf_0 (real *x)
-#endif
 {
 return( erf(*x) );
 }

libf2c/libF77/erfc_.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double erfc();
-double G77_erfc_0 (x) real *x;
-#else
 extern double erfc(double);
 double G77_erfc_0 (real *x)
-#endif
 {
 return( erfc(*x) );
 }

libf2c/libF77/etime_.c

@@ -24,11 +24,7 @@
 #endif
 
  double
-#ifdef KR_headers
-etime_(tarray) float *tarray;
-#else
 etime_(float *tarray)
-#endif
 {
 #ifdef USE_CLOCK
 #ifndef CLOCKS_PER_SECOND

libf2c/libF77/exit_.c

@@ -12,20 +12,14 @@
 #undef abs
 #undef min
 #undef max
-#ifndef KR_headers
 #include <stdlib.h>
 #ifdef __cplusplus
 extern "C" {
 #endif
 extern void f_exit(void);
-#endif
 
  void
-#ifdef KR_headers
-G77_exit_0 (rc) integer *rc;
-#else
 G77_exit_0 (integer *rc)
-#endif
 {
 #ifdef NO_ONEXIT
 	f_exit();

libf2c/libF77/getarg_.c

@@ -6,11 +6,7 @@
  * variable argument c
 */
 
-#ifdef KR_headers
-VOID G77_getarg_0 (n, s, ls) ftnint *n; register char *s; ftnlen ls;
-#else
 void G77_getarg_0 (ftnint *n, register char *s, ftnlen ls)
-#endif
 {
 extern int f__xargc;
 extern char **f__xargv;

libf2c/libF77/getenv_.c

 #include "f2c.h"
 #undef abs
-#ifdef KR_headers
-extern char *F77_aloc(), *getenv();
-#else
 #include <stdlib.h>
 #include <string.h>
 extern char *F77_aloc(ftnlen, char*);
-#endif
 
 /*
  * getenv - f77 subroutine to return environment variables
@@ -20,13 +16,8 @@ extern char *F77_aloc(ftnlen, char*);
  *		if ENV_NAME is not defined
  */
 
-#ifdef KR_headers
- VOID
-G77_getenv_0 (fname, value, flen, vlen) char *value, *fname; ftnlen vlen, flen;
-#else
  void
 G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen)
-#endif
 {
 	char buf[256], *ep, *fp;
 	integer i;

libf2c/libF77/h_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_abs(x) shortint *x;
-#else
 shortint h_abs(shortint *x)
-#endif
 {
 if(*x >= 0)
 	return(*x);

libf2c/libF77/h_dim.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_dim(a,b) shortint *a, *b;
-#else
 shortint h_dim(shortint *a, shortint *b)
-#endif
 {
 return( *a > *b ? *a - *b : 0);
 }

libf2c/libF77/h_dnnt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-shortint h_dnnt(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 shortint h_dnnt(doublereal *x)
-#endif
 {
 return (shortint)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x));
 }

libf2c/libF77/h_indx.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
 shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 ftnlen i, n;
 char *s, *t, *bend;

libf2c/libF77/h_len.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_len(s, n) char *s; ftnlen n;
-#else
 shortint h_len(char *s, ftnlen n)
-#endif
 {
 return(n);
 }

libf2c/libF77/h_mod.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_mod(a,b) short *a, *b;
-#else
 shortint h_mod(short *a, short *b)
-#endif
 {
 return( *a % *b);
 }

libf2c/libF77/h_nint.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-shortint h_nint(x) real *x;
-#else
 #undef abs
 #include <math.h>
 shortint h_nint(real *x)
-#endif
 {
 return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
 }

libf2c/libF77/h_sign.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint h_sign(a,b) shortint *a, *b;
-#else
 shortint h_sign(shortint *a, shortint *b)
-#endif
 {
 shortint x;
 x = (*a >= 0 ? *a : - *a);

libf2c/libF77/hl_ge.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_ge(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 shortlogical hl_ge(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) >= 0);
 }

libf2c/libF77/hl_gt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 shortlogical hl_gt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) > 0);
 }

libf2c/libF77/hl_le.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_le(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 shortlogical hl_le(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) <= 0);
 }

libf2c/libF77/hl_lt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_lt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 shortlogical hl_lt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) < 0);
 }

libf2c/libF77/i_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_abs(x) integer *x;
-#else
 integer i_abs(integer *x)
-#endif
 {
 if(*x >= 0)
 	return(*x);

libf2c/libF77/i_dim.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_dim(a,b) integer *a, *b;
-#else
 integer i_dim(integer *a, integer *b)
-#endif
 {
 return( *a > *b ? *a - *b : 0);
 }

libf2c/libF77/i_dnnt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-integer i_dnnt(x) doublereal *x;
-#else
 #undef abs
 #include <math.h>
 integer i_dnnt(doublereal *x)
-#endif
 {
 return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x));
 }

libf2c/libF77/i_indx.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
 integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 ftnlen i, n;
 char *s, *t, *bend;

libf2c/libF77/i_len.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_len(s, n) char *s; ftnlen n;
-#else
 integer i_len(char *s, ftnlen n)
-#endif
 {
 return(n);
 }

libf2c/libF77/i_mod.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_mod(a,b) integer *a, *b;
-#else
 integer i_mod(integer *a, integer *b)
-#endif
 {
 return( *a % *b);
 }

libf2c/libF77/i_nint.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-integer i_nint(x) real *x;
-#else
 #undef abs
 #include <math.h>
 integer i_nint(real *x)
-#endif
 {
 return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
 }

libf2c/libF77/i_sign.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_sign(a,b) integer *a, *b;
-#else
 integer i_sign(integer *a, integer *b)
-#endif
 {
 integer x;
 x = (*a >= 0 ? *a : - *a);

libf2c/libF77/iargc_.c

 #include "f2c.h"
 
-#ifdef KR_headers
-ftnint G77_iargc_0 ()
-#else
 ftnint G77_iargc_0 (void)
-#endif
 {
 extern int f__xargc;
 return ( f__xargc - 1 );

libf2c/libF77/l_ge.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_ge(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 logical l_ge(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) >= 0);
 }

libf2c/libF77/l_gt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) > 0);
 }

libf2c/libF77/l_le.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_le(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 logical l_le(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) <= 0);
 }

libf2c/libF77/l_lt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_lt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
 logical l_lt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
 {
 return(s_cmp(a,b,la,lb) < 0);
 }

libf2c/libF77/lbitbits.c

@@ -5,11 +5,7 @@
 #endif
 
  integer
-#ifdef KR_headers
-lbit_bits(a, b, len) integer a, b, len;
-#else
 lbit_bits(integer a, integer b, integer len)
-#endif
 {
 	/* Assume 2's complement arithmetic */
 
@@ -23,11 +19,7 @@ lbit_bits(integer a, integer b, integer len)
 	}
 
  integer
-#ifdef KR_headers
-lbit_cshift(a, b, len) integer a, b, len;
-#else
 lbit_cshift(integer a, integer b, integer len)
-#endif
 {
 	unsigned long x, y, z;
 

libf2c/libF77/lbitshft.c

 #include "f2c.h"
 
  integer
-#ifdef KR_headers
-lbit_shift(a, b) integer a; integer b;
-#else
 lbit_shift(integer a, integer b)
-#endif
 {
 	return b >= 0 ? a << b : (integer)((uinteger)a >> -b);
 	}

libf2c/libF77/main.c

@@ -3,10 +3,8 @@
 #include <stdio.h>
 #include "signal1.h"
 
-#ifndef KR_headers
 #undef VOID
 #include <stdlib.h>
-#endif
 
 #ifndef VOID
 #define VOID void
@@ -16,41 +14,20 @@
 extern "C" {
 #endif
 
-#ifdef NO__STDC
-#define ONEXIT onexit
-extern VOID f_exit();
-#else
-#ifndef KR_headers
 extern void f_exit(void);
 #ifndef NO_ONEXIT
 #define ONEXIT atexit
 extern int atexit(void (*)(void));
 #endif
-#else
-#ifndef NO_ONEXIT
-#define ONEXIT onexit
-extern VOID f_exit();
-#endif
-#endif
-#endif
 
-#ifdef KR_headers
-extern VOID f_init();
-extern int MAIN__();
-#else
 extern void f_init(void);
 extern int MAIN__(void);
-#endif
 
 #ifdef __cplusplus
 	}
 #endif
 
-#ifdef KR_headers
-main(argc, argv) int argc; char **argv;
-#else
 main(int argc, char **argv)
-#endif
 {
 f_setarg(argc, argv);
 f_setsig();

libf2c/libF77/pow_ci.c

 #include "f2c.h"
 
-#ifdef KR_headers
-VOID pow_ci(p, a, b) 	/* p = a**b  */
- complex *p, *a; integer *b;
-#else
 extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
 void pow_ci(complex *p, complex *a, integer *b) 	/* p = a**b  */
-#endif
 {
 doublecomplex p1, a1;
 

libf2c/libF77/pow_dd.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double pow();
-double pow_dd(ap, bp) doublereal *ap, *bp;
-#else
 #undef abs
 #include <math.h>
 double pow_dd(doublereal *ap, doublereal *bp)
-#endif
 {
 return(pow(*ap, *bp) );
 }

libf2c/libF77/pow_di.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double pow_di(ap, bp) doublereal *ap; integer *bp;
-#else
 double pow_di(doublereal *ap, integer *bp)
-#endif
 {
 double pow, x;
 integer n;

libf2c/libF77/pow_hh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-shortint pow_hh(ap, bp) shortint *ap, *bp;
-#else
 shortint pow_hh(shortint *ap, shortint *bp)
-#endif
 {
 	shortint pow, x, n;
 	unsigned u;

libf2c/libF77/pow_ii.c

 #include "f2c.h"
 
-#ifdef KR_headers
-integer pow_ii(ap, bp) integer *ap, *bp;
-#else
 integer pow_ii(integer *ap, integer *bp)
-#endif
 {
 	integer pow, x, n;
 	unsigned long u;

libf2c/libF77/pow_qq.c

 #include "f2c.h"
 
-#ifdef KR_headers
-longint pow_qq(ap, bp) longint *ap, *bp;
-#else
 longint pow_qq(longint *ap, longint *bp)
-#endif
 {
 	longint pow, x, n;
 	unsigned long long u;	/* system-dependent */

libf2c/libF77/pow_ri.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double pow_ri(ap, bp) real *ap; integer *bp;
-#else
 double pow_ri(real *ap, integer *bp)
-#endif
 {
 double pow, x;
 integer n;

libf2c/libF77/pow_zi.c

 #include "f2c.h"
 
-#ifdef KR_headers
-VOID pow_zi(p, a, b) 	/* p = a**b  */
- doublecomplex *p, *a; integer *b;
-#else
 extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*);
 void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) 	/* p = a**b  */
-#endif
 {
 	integer n;
 	unsigned long u;

libf2c/libF77/pow_zz.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double log(), exp(), cos(), sin(), atan2(), f__cabs();
-VOID pow_zz(r,a,b) doublecomplex *r, *a, *b;
-#else
 #undef abs
 #include <math.h>
 extern double f__cabs(double,double);
 void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b)
-#endif
 {
 double logr, logi, x, y;
 

libf2c/libF77/qbitbits.c

@@ -9,11 +9,7 @@
 #endif
 
  integer
-#ifdef KR_headers
-qbit_bits(a, b, len) longint a; integer b, len;
-#else
 qbit_bits(longint a, integer b, integer len)
-#endif
 {
 	/* Assume 2's complement arithmetic */
 
@@ -27,11 +23,7 @@ qbit_bits(longint a, integer b, integer len)
 	}
 
  longint
-#ifdef KR_headers
-qbit_cshift(a, b, len) longint a; integer b, len;
-#else
 qbit_cshift(longint a, integer b, integer len)
-#endif
 {
 	ulongint x, y, z;
 

libf2c/libF77/qbitshft.c

 #include "f2c.h"
 
  longint
-#ifdef KR_headers
-qbit_shift(a, b) longint a; integer b;
-#else
 qbit_shift(longint a, integer b)
-#endif
 {
 	return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
 	}

libf2c/libF77/r_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double r_abs(x) real *x;
-#else
 double r_abs(real *x)
-#endif
 {
 if(*x >= 0)
 	return(*x);

libf2c/libF77/r_acos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double acos();
-double r_acos(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_acos(real *x)
-#endif
 {
 return( acos(*x) );
 }

libf2c/libF77/r_asin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double asin();
-double r_asin(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_asin(real *x)
-#endif
 {
 return( asin(*x) );
 }

libf2c/libF77/r_atan.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double atan();
-double r_atan(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_atan(real *x)
-#endif
 {
 return( atan(*x) );
 }

libf2c/libF77/r_atn2.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double atan2();
-double r_atn2(x,y) real *x, *y;
-#else
 #undef abs
 #include <math.h>
 double r_atn2(real *x, real *y)
-#endif
 {
 return( atan2(*x,*y) );
 }

libf2c/libF77/r_cnjg.c

 #include "f2c.h"
 
-#ifdef KR_headers
-VOID r_cnjg(r, z) complex *r, *z;
-#else
 VOID r_cnjg(complex *r, complex *z)
-#endif
 {
 	real zi = z->i;
 	r->r = z->r;

libf2c/libF77/r_cos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double cos();
-double r_cos(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_cos(real *x)
-#endif
 {
 return( cos(*x) );
 }

libf2c/libF77/r_cosh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double cosh();
-double r_cosh(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_cosh(real *x)
-#endif
 {
 return( cosh(*x) );
 }

libf2c/libF77/r_dim.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double r_dim(a,b) real *a, *b;
-#else
 double r_dim(real *a, real *b)
-#endif
 {
 return( *a > *b ? *a - *b : 0);
 }

libf2c/libF77/r_exp.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double exp();
-double r_exp(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_exp(real *x)
-#endif
 {
 return( exp(*x) );
 }

libf2c/libF77/r_imag.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double r_imag(z) complex *z;
-#else
 double r_imag(complex *z)
-#endif
 {
 return(z->i);
 }

libf2c/libF77/r_int.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-double r_int(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_int(real *x)
-#endif
 {
 return( (*x>0) ? floor(*x) : -floor(- *x) );
 }

libf2c/libF77/r_lg10.c

@@ -2,14 +2,9 @@
 
 #define log10e 0.43429448190325182765
 
-#ifdef KR_headers
-double log();
-double r_lg10(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_lg10(real *x)
-#endif
 {
 return( log10e * log(*x) );
 }

libf2c/libF77/r_log.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double log();
-double r_log(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_log(real *x)
-#endif
 {
 return( log(*x) );
 }

libf2c/libF77/r_mod.c

 #include "f2c.h"
 
-#ifdef KR_headers
-#ifdef IEEE_drem
-double drem();
-#else
-double floor();
-#endif
-double r_mod(x,y) real *x, *y;
-#else
 #ifdef IEEE_drem
 double drem(double, double);
 #else
@@ -15,7 +7,6 @@ double drem(double, double);
 #include <math.h>
 #endif
 double r_mod(real *x, real *y)
-#endif
 {
 #ifdef IEEE_drem
 	double xa, ya, z;

libf2c/libF77/r_nint.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-double r_nint(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_nint(real *x)
-#endif
 {
 return( (*x)>=0 ?
 	floor(*x + .5) : -floor(.5 - *x) );

libf2c/libF77/r_sign.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double r_sign(a,b) real *a, *b;
-#else
 double r_sign(real *a, real *b)
-#endif
 {
 double x;
 x = (*a >= 0 ? *a : - *a);

libf2c/libF77/r_sin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sin();
-double r_sin(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_sin(real *x)
-#endif
 {
 return( sin(*x) );
 }

libf2c/libF77/r_sinh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sinh();
-double r_sinh(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_sinh(real *x)
-#endif
 {
 return( sinh(*x) );
 }

libf2c/libF77/r_sqrt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sqrt();
-double r_sqrt(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_sqrt(real *x)
-#endif
 {
 return( sqrt(*x) );
 }

libf2c/libF77/r_tan.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double tan();
-double r_tan(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_tan(real *x)
-#endif
 {
 return( tan(*x) );
 }

libf2c/libF77/r_tanh.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double tanh();
-double r_tanh(x) real *x;
-#else
 #undef abs
 #include <math.h>
 double r_tanh(real *x)
-#endif
 {
 return( tanh(*x) );
 }

libf2c/libF77/s_cat.c

@@ -7,25 +7,15 @@
 #ifndef NO_OVERWRITE
 #include <stdio.h>
 #undef abs
-#ifdef KR_headers
- extern char *F77_aloc();
- extern void free();
- extern void G77_exit_0 ();
-#else
 #undef min
 #undef max
 #include <stdlib.h>
  extern char *F77_aloc(ftnlen, char*);
-#endif
 #include <string.h>
 #endif /* NO_OVERWRITE */
 
  VOID
-#ifdef KR_headers
-s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnint rnp[], *np; ftnlen ll;
-#else
 s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll)
-#endif
 {
 	ftnlen i, nc;
 	char *rp;

libf2c/libF77/s_cmp.c

@@ -2,11 +2,7 @@
 
 /* compare two strings */
 
-#ifdef KR_headers
-integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb;
-#else
 integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
-#endif
 {
 register unsigned char *a, *aend, *b, *bend;
 a = (unsigned char *)a0;

libf2c/libF77/s_copy.c

@@ -8,11 +8,7 @@
 
 /* assign strings:  a = b */
 
-#ifdef KR_headers
-VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb;
-#else
 void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
-#endif
 {
 	register char *aend, *bend;
 

libf2c/libF77/s_paus.c

@@ -3,10 +3,6 @@
 #define PAUSESIG 15
 
 #include "signal1.h"
-#ifdef KR_headers
-#define Void /* void */
-#define Int /* int */
-#else
 #define Void void
 #define Int int
 #undef abs
@@ -17,7 +13,6 @@
 extern "C" {
 #endif
 extern int getpid(void), isatty(int), pause(void);
-#endif
 
 extern VOID f_exit(Void);
 
@@ -28,11 +23,7 @@ waitpause(Sigarg)
 	}
 
  static VOID
-#ifdef KR_headers
-s_1paus(fin) FILE *fin;
-#else
 s_1paus(FILE *fin)
-#endif
 {
 	fprintf(stderr,
 	"To resume execution, type go.  Other input will terminate the job.\n");
@@ -47,11 +38,7 @@ s_1paus(FILE *fin)
 	}
 
  int
-#ifdef KR_headers
-s_paus(s, n) char *s; ftnlen n;
-#else
 s_paus(char *s, ftnlen n)
-#endif
 {
 	fprintf(stderr, "PAUSE ");
 	if(n > 0)

libf2c/libF77/s_rnge.c

@@ -3,13 +3,8 @@
 
 /* called when a subscript is out of range */
 
-#ifdef KR_headers
-extern VOID sig_die();
-integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
-#else
 extern VOID sig_die(char*,int);
 integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
-#endif
 {
 register int i;
 

libf2c/libF77/s_stop.c

 #include <stdio.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-extern void f_exit();
-VOID s_stop(s, n) char *s; ftnlen n;
-#else
 #undef abs
 #undef min
 #undef max
@@ -15,7 +11,6 @@ extern "C" {
 void f_exit(void);
 
 int s_stop(char *s, ftnlen n)
-#endif
 {
 int i;
 

libf2c/libF77/setarg.c

 /* Set up the global argc/argv info for use by getarg_, iargc_, and
    g77's inlined intrinsic equivalents.  */
 
-#ifndef KR_headers
 #undef VOID
 #include <stdlib.h>
-#endif
 
 #ifndef VOID
 #define VOID void
@@ -18,11 +16,7 @@ char **f__xargv;
 #endif
 
  void
-#ifdef KR_headers
-f_setarg(argc, argv) int argc; char **argv;
-#else
 f_setarg(int argc, char **argv)
-#endif
 {
 f__xargc = argc;
 f__xargv = argv;

libf2c/libF77/setsig.c

@@ -9,10 +9,8 @@
 #endif
 #endif
 
-#ifndef KR_headers
 #undef VOID
 #include <stdlib.h>
-#endif
 
 #ifndef VOID
 #define VOID void
@@ -22,13 +20,8 @@
 extern "C" {
 #endif
 
-#ifdef KR_headers
-extern VOID sig_die();
-#define Int /* int */
-#else
 extern void sig_die(char*, int);
 #define Int int
-#endif
 
 static VOID sigfdie(Sigarg)
 {

libf2c/libF77/sig_die.c

@@ -7,9 +7,6 @@
 #endif
 #endif
 
-#ifdef KR_headers
-void sig_die(s, kill) register char *s; int kill;
-#else
 #include <stdlib.h>
 #ifdef __cplusplus
 extern "C" {
@@ -17,7 +14,6 @@ extern "C" {
  extern void f_exit(void);
 
 void sig_die(register char *s, int kill)
-#endif
 {
 	/* print error message, then clear buffers */
 	fprintf(stderr, "%s\n", s);

libf2c/libF77/signal1.h0

@@ -11,11 +11,7 @@
 #define Sigret_t void
 #endif
 #ifndef Sigarg_t
-#ifdef KR_headers
-#define Sigarg_t
-#else
 #define Sigarg_t int
-#endif
 #endif /*Sigarg_t*/
 
 #ifdef USE_SIG_PF	/* compile with -DUSE_SIG_PF under IRIX */

libf2c/libF77/signal_.c

 #include "f2c.h"
 #include "signal1.h"
 
-#ifdef KR_headers
-void *
-G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
-#else
 void *
 G77_signal_0 (integer *sigp, sig_pf proc)
-#endif
 {
 	int sig;
 	sig = (int)*sigp;

libf2c/libF77/system_.c

@@ -2,12 +2,6 @@
 
 #include "f2c.h"
 
-#ifdef KR_headers
-extern char *F77_aloc();
-
- integer
-G77_system_0 (s, n) register char *s; ftnlen n;
-#else
 #undef abs
 #undef min
 #undef max
@@ -16,7 +10,6 @@ extern char *F77_aloc(ftnlen, char*);
 
  integer
 G77_system_0 (register char *s, ftnlen n)
-#endif
 {
 	char buff0[256], *buff;
 	register char *bp, *blast;

libf2c/libF77/z_abs.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double f__cabs();
-double z_abs(z) doublecomplex *z;
-#else
 double f__cabs(double, double);
 double z_abs(doublecomplex *z)
-#endif
 {
 return( f__cabs( z->r, z->i ) );
 }

libf2c/libF77/z_cos.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sin(), cos(), sinh(), cosh();
-VOID z_cos(r, z) doublecomplex *r, *z;
-#else
 #undef abs
 #include "math.h"
 void z_cos(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	double zi = z->i, zr = z->r;
 	r->r =   cos(zr) * cosh(zi);

libf2c/libF77/z_div.c

 #include "f2c.h"
 
-#ifdef KR_headers
-extern VOID sig_die();
-VOID z_div(c, a, b) doublecomplex *a, *b, *c;
-#else
 extern void sig_die(char*, int);
 void z_div(doublecomplex *c, doublecomplex *a, doublecomplex *b)
-#endif
 {
 	double ratio, den;
 	double abr, abi, cr;

libf2c/libF77/z_exp.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double exp(), cos(), sin();
-VOID z_exp(r, z) doublecomplex *r, *z;
-#else
 #undef abs
 #include "math.h"
 void z_exp(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	double expx, zi = z->i;
 

libf2c/libF77/z_log.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double log(), f__cabs(), atan2();
-VOID z_log(r, z) doublecomplex *r, *z;
-#else
 #undef abs
 #include "math.h"
 extern double f__cabs(double, double);
 void z_log(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	double s, s0, t, t2, u, v;
 	double zi = z->i, zr = z->r;

libf2c/libF77/z_sin.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sin(), cos(), sinh(), cosh();
-VOID z_sin(r, z) doublecomplex *r, *z;
-#else
 #undef abs
 #include "math.h"
 void z_sin(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	double zi = z->i, zr = z->r;
 	r->r = sin(zr) * cosh(zi);

libf2c/libF77/z_sqrt.c

 #include "f2c.h"
 
-#ifdef KR_headers
-double sqrt(), f__cabs();
-VOID z_sqrt(r, z) doublecomplex *r, *z;
-#else
 #undef abs
 #include "math.h"
 extern double f__cabs(double, double);
 void z_sqrt(doublecomplex *r, doublecomplex *z)
-#endif
 {
 	double mag, zi = z->i, zr = z->r;
 

libf2c/libI77/backspace.c

@@ -2,11 +2,7 @@
 #include <sys/types.h>
 #include "f2c.h"
 #include "fio.h"
-#ifdef KR_headers
-integer f_back(a) alist *a;
-#else
 integer f_back(alist *a)
-#endif
 {	unit *b;
 	off_t v, w, x, y, z;
 	uiolen n;

libf2c/libI77/close.c

 #include "config.h"
 #include "f2c.h"
 #include "fio.h"
-#ifdef KR_headers
-integer f_clos(a) cllist *a;
-#else
+
 #undef abs
 #undef min
 #undef max
@@ -25,7 +23,6 @@ extern int unlink(const char*);
 #endif
 
 integer f_clos(cllist *a)
-#endif
 {	unit *b;
 
 	if (f__init & 2)
@@ -66,11 +63,7 @@ integer f_clos(cllist *a)
 	return(0);
 	}
  void
-#ifdef KR_headers
-f_exit()
-#else
 f_exit(void)
-#endif
 {	int i;
 	static cllist xx;
 	if (! (f__init & 1))
@@ -93,11 +86,7 @@ f_exit(void)
 	}
 }
  int
-#ifdef KR_headers
-G77_flush_0 ()
-#else
 G77_flush_0 (void)
-#endif
 {	int i;
 	for(i=0;i<MXUNIT;i++)
 		if(f__units[i].ufd != NULL && f__units[i].uwrt)

libf2c/libI77/configure

@@ -988,14 +988,13 @@ EOF
 
 fi
 
-
 echo $ac_n "checking for posix""... $ac_c" 1>&6
-echo "configure:994: checking for posix" >&5
+echo "configure:993: checking for posix" >&5
 if eval "test \"`echo '$''{'g77_cv_header_posix'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 999 "configure"
+#line 998 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <unistd.h>
@@ -1021,12 +1020,12 @@ echo "$ac_t""$g77_cv_header_posix" 1>&6
 # We can rely on the GNU library being posix-ish.  I guess checking the 
 # header isn't actually like checking the functions, though...
 echo $ac_n "checking for GNU library""... $ac_c" 1>&6
-echo "configure:1025: checking for GNU library" >&5
+echo "configure:1024: checking for GNU library" >&5
 if eval "test \"`echo '$''{'g77_cv_lib_gnu'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1030 "configure"
+#line 1029 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 #ifdef __GNU_LIBRARY__
@@ -1050,12 +1049,12 @@ echo "$ac_t""$g77_cv_lib_gnu" 1>&6
 
 # Apparently cygwin needs to be special-cased.
 echo $ac_n "checking for cyg\`win'32""... $ac_c" 1>&6
-echo "configure:1054: checking for cyg\`win'32" >&5
+echo "configure:1053: checking for cyg\`win'32" >&5
 if eval "test \"`echo '$''{'g77_cv_sys_cygwin32'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1059 "configure"
+#line 1058 "configure"
 #include "confdefs.h"
 #ifdef __CYGWIN32__
   yes
@@ -1078,12 +1077,12 @@ echo "$ac_t""$g77_cv_sys_cygwin32" 1>&6
 
 # ditto for mingw32.
 echo $ac_n "checking for mingw32""... $ac_c" 1>&6
-echo "configure:1082: checking for mingw32" >&5
+echo "configure:1081: checking for mingw32" >&5
 if eval "test \"`echo '$''{'g77_cv_sys_mingw32'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1087 "configure"
+#line 1086 "configure"
 #include "confdefs.h"
 #ifdef __MINGW32__
   yes
@@ -1106,12 +1105,12 @@ echo "$ac_t""$g77_cv_sys_mingw32" 1>&6
 
 
 echo $ac_n "checking for working const""... $ac_c" 1>&6
-echo "configure:1110: checking for working const" >&5
+echo "configure:1109: checking for working const" >&5
 if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1115 "configure"
+#line 1114 "configure"
 #include "confdefs.h"
 
 int main() {
@@ -1160,7 +1159,7 @@ ccp = (char const *const *) p;
 
 ; return 0; }
 EOF
-if { (eval echo configure:1164: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1163: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_c_const=yes
 else
@@ -1181,12 +1180,12 @@ EOF
 fi
 
 echo $ac_n "checking for size_t""... $ac_c" 1>&6
-echo "configure:1185: checking for size_t" >&5
+echo "configure:1184: checking for size_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1190 "configure"
+#line 1189 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -1219,12 +1218,12 @@ fi
 # Apparently positive result on cygwin loses re. NON_UNIX_STDIO
 # (as of cygwin b18). Likewise on mingw.
 echo $ac_n "checking for fstat""... $ac_c" 1>&6
-echo "configure:1223: checking for fstat" >&5
+echo "configure:1222: checking for fstat" >&5
 if eval "test \"`echo '$''{'ac_cv_func_fstat'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1228 "configure"
+#line 1227 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char fstat(); below.  */
@@ -1247,7 +1246,7 @@ fstat();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1251: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1250: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_fstat=yes"
 else
@@ -1267,7 +1266,7 @@ else
 fi
 
 echo $ac_n "checking need for NON_UNIX_STDIO""... $ac_c" 1>&6
-echo "configure:1271: checking need for NON_UNIX_STDIO" >&5
+echo "configure:1270: checking need for NON_UNIX_STDIO" >&5
 if test $g77_cv_sys_cygwin32 = yes \
   || test $g77_cv_sys_mingw32 = yes \
   || test $ac_cv_func_fstat = no; then
@@ -1283,12 +1282,12 @@ fi
 for ac_func in fseeko
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1287: checking for $ac_func" >&5
+echo "configure:1286: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1292 "configure"
+#line 1291 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1311,7 +1310,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1315: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1314: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1338,12 +1337,12 @@ done
 for ac_func in ftello
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1342: checking for $ac_func" >&5
+echo "configure:1341: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1347 "configure"
+#line 1346 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1366,7 +1365,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1370: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1369: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1393,12 +1392,12 @@ done
 for ac_func in ftruncate
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1397: checking for $ac_func" >&5
+echo "configure:1396: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1402 "configure"
+#line 1401 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1421,7 +1420,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1425: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1424: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1448,12 +1447,12 @@ done
 for ac_func in mkstemp
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1452: checking for $ac_func" >&5
+echo "configure:1451: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1457 "configure"
+#line 1456 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1476,7 +1475,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1480: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1479: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1503,12 +1502,12 @@ done
 for ac_func in tempnam
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1507: checking for $ac_func" >&5
+echo "configure:1506: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1512 "configure"
+#line 1511 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1531,7 +1530,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1535: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1534: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1558,12 +1557,12 @@ done
 for ac_func in tmpnam
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1562: checking for $ac_func" >&5
+echo "configure:1561: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1567 "configure"
+#line 1566 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1586,7 +1585,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1590: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1589: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1616,19 +1615,19 @@ done
 # However, on my sunos4/gcc setup unistd.h leads us wrongly to believe
 # we're posix-conformant, so always do the test.
 echo $ac_n "checking for ansi/posix sprintf result""... $ac_c" 1>&6
-echo "configure:1620: checking for ansi/posix sprintf result" >&5
+echo "configure:1619: checking for ansi/posix sprintf result" >&5
 if test "$cross_compiling" = yes; then
   g77_cv_sys_sprintf_ansi=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 1625 "configure"
+#line 1624 "configure"
 #include "confdefs.h"
   #include <stdio.h>
     /* does sprintf return the number of chars transferred? */
     main () {char foo[2]; (sprintf(foo, "1") == 1) ? exit(0) : exit(1);}
 
 EOF
-if { (eval echo configure:1632: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:1631: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   g77_cv_sys_sprintf_ansi=yes
 else
@@ -1659,9 +1658,9 @@ fi
 
 # define NON_ANSI_RW_MODES on unix (can't hurt)
 echo $ac_n "checking NON_ANSI_RW_MODES""... $ac_c" 1>&6
-echo "configure:1663: checking NON_ANSI_RW_MODES" >&5
+echo "configure:1662: checking NON_ANSI_RW_MODES" >&5
 cat > conftest.$ac_ext <<EOF
-#line 1665 "configure"
+#line 1664 "configure"
 #include "confdefs.h"
 #ifdef unix
   yes
@@ -1706,12 +1705,12 @@ EOF
 
 
 echo $ac_n "checking for off_t""... $ac_c" 1>&6
-echo "configure:1710: checking for off_t" >&5
+echo "configure:1709: checking for off_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1715 "configure"
+#line 1714 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS

libf2c/libI77/configure.in

@@ -62,17 +62,6 @@ the G77 runtime system.  If necessary, install gcc now with \`LANGUAGES=c',
 then the target library, then build with \`LANGUAGES=f77'.])])
 
 AC_HEADER_STDC
-dnl We could do this if we didn't know we were using gcc
-dnl AC_MSG_CHECKING(for prototype-savvy compiler)
-dnl AC_CACHE_VAL(g77_cv_sys_proto,                
-dnl   [AC_TRY_LINK(,                             
-dnl dnl looks screwy because TRY_LINK expects a function body
-dnl    [return 0;} int foo (int * bar) {],       
-dnl    g77_cv_sys_proto=yes,                      
-dnl    [g77_cv_sys_proto=no                       
-dnl     AC_DEFINE(KR_headers)])])                
-dnl AC_MSG_RESULT($g77_cv_sys_proto)              
-
 AC_MSG_CHECKING(for posix)
 AC_CACHE_VAL(g77_cv_header_posix,
   AC_EGREP_CPP(yes,

libf2c/libI77/dfe.c

@@ -61,11 +61,7 @@ y_newrec(Void)
 	return(1);
 }
 
-#ifdef KR_headers
-c_dfe(a) cilist *a;
-#else
 c_dfe(cilist *a)
-#endif
 {
 	f__sequential=0;
 	f__formatted=f__external=1;
@@ -86,11 +82,7 @@ c_dfe(cilist *a)
 	f__curunit->uend = 0;
 	return(0);
 }
-#ifdef KR_headers
-integer s_rdfe(a) cilist *a;
-#else
 integer s_rdfe(cilist *a)
-#endif
 {
 	int n;
 	if(f__init != 1) f_init();
@@ -109,11 +101,7 @@ integer s_rdfe(cilist *a)
 	fmt_bg();
 	return(0);
 }
-#ifdef KR_headers
-integer s_wdfe(a) cilist *a;
-#else
 integer s_wdfe(cilist *a)
-#endif
 {
 	int n;
 	if(f__init != 1) f_init();

libf2c/libI77/dolio.c

@@ -4,15 +4,9 @@
 #ifdef __cplusplus
 extern "C" {
 #endif
-#ifdef KR_headers
-extern int (*f__lioproc)();
-
-integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
-#else
 extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
 
 integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
-#endif
 {
 	return((*f__lioproc)(number,ptr,len,*type));
 }

libf2c/libI77/due.c

@@ -2,11 +2,7 @@
 #include "f2c.h"
 #include "fio.h"
 
-#ifdef KR_headers
-c_due(a) cilist *a;
-#else
 c_due(cilist *a)
-#endif
 {
 	if(f__init != 1) f_init();
 	f__init = 3;
@@ -29,11 +25,7 @@ c_due(cilist *a)
 	f__curunit->uend = 0;
 	return(0);
 }
-#ifdef KR_headers
-integer s_rdue(a) cilist *a;
-#else
 integer s_rdue(cilist *a)
-#endif
 {
 	int n;
 	f__reading=1;
@@ -42,11 +34,7 @@ integer s_rdue(cilist *a)
 		err(a->cierr,errno,"read start");
 	return(0);
 }
-#ifdef KR_headers
-integer s_wdue(a) cilist *a;
-#else
 integer s_wdue(cilist *a)
-#endif
 {
 	int n;
 	f__reading=0;

libf2c/libI77/endfile.c

@@ -5,24 +5,15 @@
 #include <sys/types.h>
 #include <unistd.h>
 
-#ifdef KR_headers
-extern char *strcpy();
-extern FILE *tmpfile();
-#else
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
 #include <string.h>
-#endif
 
 extern char *f__r_mode[], *f__w_mode[];
 
-#ifdef KR_headers
-integer f_end(a) alist *a;
-#else
 integer f_end(alist *a)
-#endif
 {
 	unit *b;
 	FILE *tf;
@@ -44,11 +35,7 @@ integer f_end(alist *a)
 
 #ifndef HAVE_FTRUNCATE
  static int
-#ifdef KR_headers
-copy(from, len, to) FILE *from, *to; register long len;
-#else
 copy(FILE *from, register long len, FILE *to)
-#endif
 {
 	int len1;
 	char buf[BUFSIZ];
@@ -64,11 +51,7 @@ copy(FILE *from, register long len, FILE *to)
 #endif /* !defined(HAVE_FTRUNCATE) */
 
  int
-#ifdef KR_headers
-t_runc(a) alist *a;
-#else
 t_runc(alist *a)
-#endif
 {
 	off_t loc, len;
 	unit *b;

libf2c/libI77/err.c

@@ -6,14 +6,10 @@
 #include <sys/stat.h>
 #endif
 #include "f2c.h"
-#ifdef KR_headers
-extern char *malloc();
-#else
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
-#endif
 #include "fio.h"
 #include "fmt.h"	/* for struct syl */
 
@@ -29,17 +25,10 @@ flag f__cplus,f__cblank;
 char *f__fmtbuf;
 int f__fmtlen;
 flag f__external;	/*1 if external io, 0 if internal */
-#ifdef KR_headers
-int (*f__doed)(),(*f__doned)();
-int (*f__doend)(),(*f__donewrec)(),(*f__dorevert)();
-int (*f__getn)();	/* for formatted input */
-void (*f__putn)();	/* for formatted output */
-#else
 int (*f__getn)(void);	/* for formatted input */
 void (*f__putn)(int);	/* for formatted output */
 int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
 int (*f__dorevert)(void),(*f__donewrec)(void),(*f__doend)(void);
-#endif
 flag f__sequential;	/*1 if sequential io, 0 if direct*/
 flag f__formatted;	/*1 if formatted io, 0 if unformatted*/
 FILE *f__cf;	/*current file*/
@@ -87,11 +76,7 @@ char *F_err[] =
 };
 #define MAXERR (sizeof(F_err)/sizeof(char *)+100)
 
-#ifdef KR_headers
-f__canseek(f) FILE *f; /*SYSDEP*/
-#else
 f__canseek(FILE *f) /*SYSDEP*/
-#endif
 {
 #ifdef NON_UNIX_STDIO
 	return !isatty(fileno(f));
@@ -142,11 +127,7 @@ f__canseek(FILE *f) /*SYSDEP*/
 }
 
  void
-#ifdef KR_headers
-f__fatal(n,s) char *s;
-#else
 f__fatal(int n, char *s)
-#endif
 {
 	static int dead = 0;
 
@@ -204,11 +185,7 @@ f_init(Void)
 	p->ufmt=1;
 	p->uwrt=1;
 }
-#ifdef KR_headers
-f__nowreading(x) unit *x;
-#else
 f__nowreading(unit *x)
-#endif
 {
 	off_t loc;
 	int ufmt, urw;
@@ -235,11 +212,7 @@ f__nowreading(unit *x)
 	x->uwrt = 0;
 	return 0;
 }
-#ifdef KR_headers
-f__nowwriting(x) unit *x;
-#else
 f__nowwriting(unit *x)
-#endif
 {
 	off_t loc;
 	int ufmt;
@@ -275,11 +248,7 @@ f__nowwriting(unit *x)
 }
 
  int
-#ifdef KR_headers
-err__fl(f, m, s) int f, m; char *s;
-#else
 err__fl(int f, int m, char *s)
-#endif
 {
 	if (!f)
 		f__fatal(m, s);

libf2c/libI77/fio.h

@@ -59,16 +59,6 @@ extern int f__init;
 extern cilist *f__elist;	/*active external io list*/
 extern flag f__reading,f__external,f__sequential,f__formatted;
 #undef Void
-#ifdef KR_headers
-#define Void /*void*/
-extern int (*f__getn)();	/* for formatted input */
-extern void (*f__putn)();	/* for formatted output */
-extern void x_putc();
-extern long f__inode();
-extern VOID sig_die();
-extern int (*f__donewrec)(), t_putc(), x_wSL();
-extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf();
-#else
 #define Void void
 #ifdef __cplusplus
 extern "C" {
@@ -94,7 +84,6 @@ extern int f__putbuf(int);
 #ifdef __cplusplus
 	}
 #endif
-#endif
 extern int (*f__doend)(Void);
 extern FILE *f__cf;	/*current file*/
 extern unit *f__curunit;	/*current unit*/

libf2c/libI77/fmt.c

@@ -23,11 +23,7 @@ static struct syl f__syl[SYLMX];
 int f__parenlvl,f__pc,f__revloc;
 
  static
-#ifdef KR_headers
-char *ap_end(s) char *s;
-#else
 char *ap_end(char *s)
-#endif
 {	char quote;
 	quote= *s++;
 	for(;*s;s++)
@@ -42,11 +38,7 @@ char *ap_end(char *s)
 	/*NOTREACHED*/ return 0;
 }
  static
-#ifdef KR_headers
-op_gen(a,b,c,d)
-#else
 op_gen(int a, int b, int c, int d)
-#endif
 {	struct syl *p= &f__syl[f__pc];
 	if(f__pc>=SYLMX)
 	{	fprintf(stderr,"format too complicated:\n");
@@ -58,13 +50,8 @@ op_gen(int a, int b, int c, int d)
 	p->p2.i[1]=d;
 	return(f__pc++);
 }
-#ifdef KR_headers
-static char *f_list();
-static char *gt_num(s,n,n1) char *s; int *n, n1;
-#else
 static char *f_list(char*);
 static char *gt_num(char *s, int *n, int n1)
-#endif
 {	int m=0,f__cnt=0;
 	char c;
 	for(c= *s;;c = *s)
@@ -87,11 +74,7 @@ static char *gt_num(char *s, int *n, int n1)
 }
 
  static
-#ifdef KR_headers
-char *f_s(s,curloc) char *s;
-#else
 char *f_s(char *s, int curloc)
-#endif
 {
 	skip(s);
 	if(*s++!='(')
@@ -108,11 +91,7 @@ char *f_s(char *s, int curloc)
 }
 
  static
-#ifdef KR_headers
-ne_d(s,p) char *s,**p;
-#else
 ne_d(char *s, char **p)
-#endif
 {	int n,x,sign=0;
 	struct syl *sp;
 	switch(*s)
@@ -200,11 +179,7 @@ ne_d(char *s, char **p)
 }
 
  static
-#ifdef KR_headers
-e_d(s,p) char *s,**p;
-#else
 e_d(char *s, char **p)
-#endif
 {	int i,im,n,w,d,e,found=0,x=0;
 	char *sv=s;
 	s=gt_num(s,&n,1);
@@ -319,11 +294,7 @@ e_d(char *s, char **p)
 	return(1);
 }
  static
-#ifdef KR_headers
-char *i_tem(s) char *s;
-#else
 char *i_tem(char *s)
-#endif
 {	char *t;
 	int n,curloc;
 	if(*s==')') return(s);
@@ -335,11 +306,7 @@ char *i_tem(char *s)
 }
 
  static
-#ifdef KR_headers
-char *f_list(s) char *s;
-#else
 char *f_list(char *s)
-#endif
 {
 	for(;*s!=0;)
 	{	skip(s);
@@ -359,11 +326,7 @@ char *f_list(char *s)
 	return(NULL);
 }
 
-#ifdef KR_headers
-pars_f(s) char *s;
-#else
 pars_f(char *s)
-#endif
 {
 	char *e;
 
@@ -405,11 +368,7 @@ int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp;
 flag f__workdone, f__nonl;
 
  static
-#ifdef KR_headers
-type_f(n)
-#else
 type_f(int n)
-#endif
 {
 	switch(n)
 	{
@@ -437,11 +396,7 @@ type_f(int n)
 		return(ED);
 	}
 }
-#ifdef KR_headers
-integer do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
-#else
 integer do_fio(ftnint *number, char *ptr, ftnlen len)
-#endif
 {	struct syl *p;
 	int n,i;
 	for(i=0;i<*number;i++,ptr+=len)

libf2c/libI77/fmt.h

@@ -46,21 +46,13 @@ typedef union
 } ufloat;
 typedef union
 {	short is;
-#ifndef KR_headers
 	signed
-#endif
 		char ic;
 	integer il;
 #ifdef Allow_TYQUAD
 	longint ili;
 #endif
 } Uint;
-#ifdef KR_headers
-extern int (*f__doed)(),(*f__doned)();
-extern int (*f__dorevert)();
-extern int rd_ed(),rd_ned();
-extern int w_ed(),w_ned();
-#else
 #ifdef __cplusplus
 extern "C" {
 #endif
@@ -76,7 +68,6 @@ extern int wrt_L(Uint*, int, ftnlen);
 #ifdef __cplusplus
 	}
 #endif
-#endif
 extern flag f__cblank,f__cplus,f__workdone, f__nonl;
 extern char *f__fmtbuf;
 extern int f__fmtlen;
@@ -94,8 +85,4 @@ extern int f__cursor;
 #define TYQUAD 14
 #endif
 
-#ifdef KR_headers
-extern char *f__icvt();
-#else
 extern char *f__icvt(longint, int*, int*, int);
-#endif

libf2c/libI77/fmtlib.c

@@ -10,12 +10,7 @@
 #define ulongint unsigned long
 #endif
 
-#ifdef KR_headers
-char *f__icvt(value,ndigit,sign, base) longint value; int *ndigit,*sign;
- register int base;
-#else
 char *f__icvt(longint value, int *ndigit, int *sign, int base)
-#endif
 {
 	static char buf[MAXINTLENGTH+1];
 	register int i;

libf2c/libI77/ftell_.c

@@ -3,11 +3,7 @@
 #include "fio.h"
 
  static FILE *
-#ifdef KR_headers
-unit_chk(Unit, who) integer Unit; char *who;
-#else
 unit_chk(integer Unit, char *who)
-#endif
 {
 	if (Unit >= MXUNIT || Unit < 0)
 		f__fatal(101, who);
@@ -15,22 +11,14 @@ unit_chk(integer Unit, char *who)
 	}
 
  integer
-#ifdef KR_headers
-G77_ftell_0 (Unit) integer *Unit;
-#else
 G77_ftell_0 (integer *Unit)
-#endif
 {
 	FILE *f;
 	return (f = unit_chk(*Unit, "ftell")) ? (integer) FTELL(f) : -1L;
 	}
 
  integer
-#ifdef KR_headers
-G77_fseek_0 (Unit, offset, xwhence) integer *Unit, *offset, *xwhence;
-#else
 G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence)
-#endif
 {
 	FILE *f;
 	int w = (int)*xwhence;

libf2c/libI77/iio.c

@@ -16,11 +16,7 @@ z_getc(Void)
 }
 
  void
-#ifdef KR_headers
-z_putc(c)
-#else
 z_putc(int c)
-#endif
 {
 	if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
 		*f__icptr++ = c;
@@ -41,11 +37,7 @@ z_endp(Void)
 	return 0;
 	}
 
-#ifdef KR_headers
-c_si(a) icilist *a;
-#else
 c_si(icilist *a)
-#endif
 {
 	if (f__init & 2)
 		f__fatal (131, "I/O recursion");
@@ -78,11 +70,7 @@ iw_rev(Void)
 	return(f__workdone=0);
 	}
 
-#ifdef KR_headers
-integer s_rsfi(a) icilist *a;
-#else
 integer s_rsfi(icilist *a)
-#endif
 {	int n;
 	if(n=c_si(a)) return(n);
 	f__reading=1;
@@ -109,11 +97,7 @@ z_wnew(Void)
 	f__icnum++;
 	return 1;
 }
-#ifdef KR_headers
-integer s_wsfi(a) icilist *a;
-#else
 integer s_wsfi(icilist *a)
-#endif
 {	int n;
 	if(n=c_si(a)) return(n);
 	f__reading=0;

libf2c/libI77/ilnw.c

@@ -6,11 +6,7 @@ extern char *f__icptr;
 extern char *f__icend;
 extern icilist *f__svic;
 extern int f__icnum;
-#ifdef KR_headers
-extern void z_putc();
-#else
 extern void z_putc(int);
-#endif
 
  static int
 z_wSL(Void)
@@ -21,11 +17,7 @@ z_wSL(Void)
 	}
 
  static void
-#ifdef KR_headers
-c_liw(a) icilist *a;
-#else
 c_liw(icilist *a)
-#endif
 {
 	f__reading = 0;
 	f__external = 0;
@@ -44,11 +36,7 @@ c_liw(icilist *a)
 	}
 
  integer
-#ifdef KR_headers
-s_wsni(a) icilist *a;
-#else
 s_wsni(icilist *a)
-#endif
 {
 	cilist ca;
 
@@ -62,11 +50,7 @@ s_wsni(icilist *a)
 	}
 
  integer
-#ifdef KR_headers
-s_wsli(a) icilist *a;
-#else
 s_wsli(icilist *a)
-#endif
 {
 	if(f__init != 1) f_init();
 	f__init = 3;

libf2c/libI77/inquire.c

@@ -2,9 +2,6 @@
 #include "f2c.h"
 #include "fio.h"
 #include <string.h>
-#ifdef KR_headers
-integer f_inqu(a) inlist *a;
-#else
 #if defined (MSDOS) && !defined (GO32)
 #undef abs
 #undef min
@@ -12,7 +9,6 @@ integer f_inqu(a) inlist *a;
 #include "io.h"
 #endif
 integer f_inqu(inlist *a)
-#endif
 {	flag byfile;
 	int i, n;
 	unit *p;

libf2c/libI77/lio.h

@@ -43,9 +43,7 @@
 
 typedef union
 {
-#ifndef KR_headers
 	signed
-#endif
 		char	flchar;
 	short	flshort;
 	ftnint	flint;
@@ -56,10 +54,6 @@ typedef union
 	doublereal	fldouble;
 } flex;
 extern int f__scale;
-#ifdef KR_headers
-extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
-extern int l_read(), l_write();
-#else
 #ifdef __cplusplus
 extern "C" {
 #endif
@@ -73,5 +67,4 @@ extern int z_rnew(void);
 #ifdef __cplusplus
 	}
 #endif
-#endif
 extern ftnint L_len;

libf2c/libI77/lread.c

@@ -16,25 +16,17 @@ static longint f__llx;
 static int quad_read;
 #endif
 
-#ifdef KR_headers
-extern double atof();
-extern char *malloc(), *realloc();
-int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
-#else
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
-#endif
 
 #include "fmt.h"
 #include "lio.h"
 #include "fp.h"
 
-#ifndef KR_headers
 int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
 	(*l_ungetc)(int,FILE*);
-#endif
 
 int l_eof;
 
@@ -64,20 +56,12 @@ char f__ltab[128+1] = {	/* offset one for EOF */
 
 #ifdef ungetc
  static int
-#ifdef KR_headers
-un_getc(x,f__cf) int x; FILE *f__cf;
-#else
 un_getc(int x, FILE *f__cf)
-#endif
 { return ungetc(x,f__cf); }
 #else
 #define un_getc ungetc
-#ifdef KR_headers
- extern int ungetc();
-#else
 extern int ungetc(int, FILE*);	/* for systems with a buggy stdio.h */
 #endif
-#endif
 
 t_getc(Void)
 {	int ch;
@@ -110,11 +94,7 @@ double f__lx,f__ly;
 #define Ungetc(x,y) (*l_ungetc)(x,y)
 
  static int
-#ifdef KR_headers
-l_R(poststar, reqint) int poststar, reqint;
-#else
 l_R(int poststar, int reqint)
-#endif
 {
 	char s[FMAX+EXPMAXDIGS+4];
 	register int ch;
@@ -261,11 +241,7 @@ bad:
 	}
 
  static int
-#ifdef KR_headers
-rd_count(ch) register int ch;
-#else
 rd_count(register int ch)
-#endif
 {
 	if (ch < '0' || ch > '9')
 		return 1;
@@ -342,11 +318,7 @@ l_C(Void)
 
  static char nmLbuf[256], *nmL_next;
  static int (*nmL_getc_save)(Void);
-#ifdef KR_headers
- static int (*nmL_ungetc_save)(/* int, FILE* */);
-#else
  static int (*nmL_ungetc_save)(int, FILE*);
-#endif
 
  static int
 nmL_getc(Void)
@@ -360,22 +332,14 @@ nmL_getc(Void)
 	}
 
  static int
-#ifdef KR_headers
-nmL_ungetc(x, f) int x; FILE *f;
-#else
 nmL_ungetc(int x, FILE *f)
-#endif
 {
 	f = f;	/* banish non-use warning */
 	return *--nmL_next = x;
 	}
 
  static int
-#ifdef KR_headers
-Lfinish(ch, dot, rvp) int ch, dot, *rvp;
-#else
 Lfinish(int ch, int dot, int *rvp)
-#endif
 {
 	char *s, *se;
 	static char what[] = "namelist input";
@@ -619,11 +583,7 @@ l_CHAR(Void)
 		}
 	}
 }
-#ifdef KR_headers
-c_le(a) cilist *a;
-#else
 c_le(cilist *a)
-#endif
 {
 	if(f__init != 1) f_init();
 	f__init = 3;
@@ -640,11 +600,7 @@ c_le(cilist *a)
 	if(!f__curunit->ufmt) err(a->cierr,103,"lio");
 	return(0);
 }
-#ifdef KR_headers
-l_read(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len;
-#else
 l_read(ftnint *number, char *ptr, ftnlen len, ftnint type)
-#endif
 {
 #define Ptr ((flex *)ptr)
 	int i,n,ch;
@@ -771,11 +727,7 @@ l_read(ftnint *number, char *ptr, ftnlen len, ftnint type)
 	return(0);
 #undef Ptr
 }
-#ifdef KR_headers
-integer s_rsle(a) cilist *a;
-#else
 integer s_rsle(cilist *a)
-#endif
 {
 	int n;
 

libf2c/libI77/lwrite.c

@@ -14,11 +14,7 @@ donewrec(Void)
 	}
 
  static VOID
-#ifdef KR_headers
-lwrt_I(n) longint n;
-#else
 lwrt_I(longint n)
-#endif
 {
 	char *p;
 	int ndigit, sign;
@@ -33,22 +29,14 @@ lwrt_I(longint n)
 		PUT(*p++);
 }
  static VOID
-#ifdef KR_headers
-lwrt_L(n, len) ftnint n; ftnlen len;
-#else
 lwrt_L(ftnint n, ftnlen len)
-#endif
 {
 	if(f__recpos+LLOGW>=L_len)
 		donewrec();
 	wrt_L((Uint *)&n,LLOGW, len);
 }
  static VOID
-#ifdef KR_headers
-lwrt_A(p,len) char *p; ftnlen len;
-#else
 lwrt_A(char *p, ftnlen len)
-#endif
 {
 	int a;
 	char *p1, *pe;
@@ -89,11 +77,7 @@ lwrt_A(char *p, ftnlen len)
 }
 
  static int
-#ifdef KR_headers
-l_g(buf, n) char *buf; double n;
-#else
 l_g(char *buf, double n)
-#endif
 {
 #ifdef Old_list_output
 	doublereal absn;
@@ -167,17 +151,9 @@ l_g(char *buf, double n)
 	}
 
  static VOID
-#ifdef KR_headers
-l_put(s) register char *s;
-#else
 l_put(register char *s)
-#endif
 {
-#ifdef KR_headers
-	register void (*pn)() = f__putn;
-#else
 	register void (*pn)(int) = f__putn;
-#endif
 	register int c;
 
 	while(c = *s++)
@@ -185,11 +161,7 @@ l_put(register char *s)
 	}
 
  static VOID
-#ifdef KR_headers
-lwrt_F(n) double n;
-#else
 lwrt_F(double n)
-#endif
 {
 	char buf[LEFBL];
 
@@ -198,11 +170,7 @@ lwrt_F(double n)
 	l_put(buf);
 }
  static VOID
-#ifdef KR_headers
-lwrt_C(a,b) double a,b;
-#else
 lwrt_C(double a, double b)
-#endif
 {
 	char *ba, *bb, bufa[LEFBL], bufb[LEFBL];
 	int al, bl;
@@ -231,11 +199,7 @@ lwrt_C(double a, double b)
 	l_put(bb);
 	PUT(')');
 }
-#ifdef KR_headers
-l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len;
-#else
 l_write(ftnint *number, char *ptr, ftnlen len, ftnint type)
-#endif
 {
 #define Ptr ((flex *)ptr)
 	int i;

libf2c/libI77/open.c

@@ -10,20 +10,12 @@
 #endif
 #endif
 
-#ifdef KR_headers
-extern char *malloc();
-#ifdef NON_ANSI_STDIO
-extern char *mktemp();
-#endif
-extern integer f_clos();
-#else
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
 extern int f__canseek(FILE*);
 extern integer f_clos(cllist*);
-#endif
 
 #ifdef NON_ANSI_RW_MODES
 char *f__r_mode[2] = {"r", "r"};
@@ -37,11 +29,7 @@ char *f__w_mode[4] = {"wb", "w", "r+b", "r+"};
  int f__buflen = (int)sizeof(f__buf0);
 
  static void
-#ifdef KR_headers
-f__bufadj(n, c) int n, c;
-#else
 f__bufadj(int n, int c)
-#endif
 {
 	unsigned int len;
 	char *nbuf, *s, *t, *te;
@@ -64,11 +52,7 @@ f__bufadj(int n, int c)
 	}
 
  int
-#ifdef KR_headers
-f__putbuf(c) int c;
-#else
 f__putbuf(int c)
-#endif
 {
 	char *s, *se;
 	int n;
@@ -94,11 +78,7 @@ f__putbuf(int c)
 	}
 
  void
-#ifdef KR_headers
-x_putc(c)
-#else
 x_putc(int c)
-#endif
 {
 	if (f__recpos >= f__buflen)
 		f__bufadj(f__recpos, f__buflen);
@@ -109,11 +89,7 @@ x_putc(int c)
   do {if(f) {f__init &= ~2; errno= m;} else opn_err(m,s,a); return(m);} while(0)
 
  static void
-#ifdef KR_headers
-opn_err(m, s, a) int m; char *s; olist *a;
-#else
 opn_err(int m, char *s, olist *a)
-#endif
 {
 	if (a->ofnm) {
 		/* supply file name to error message */
@@ -124,11 +100,7 @@ opn_err(int m, char *s, olist *a)
 	f__fatal(m, s);
 	}
 
-#ifdef KR_headers
-integer f_open(a) olist *a;
-#else
 integer f_open(olist *a)
-#endif
 {	unit *b;
 	integer rv;
 	char buf[256], *s, *env;
@@ -284,11 +256,7 @@ integer f_open(olist *a)
 				opnerr(a->oerr,129,"open");
 	return(0);
 }
-#ifdef KR_headers
-fk_open(seq,fmt,n) ftnint n;
-#else
 fk_open(int seq, int fmt, ftnint n)
-#endif
 {	char nbuf[10];
 	olist a;
 	int rtn;

libf2c/libI77/rdfmt.c

@@ -4,24 +4,16 @@
 #include "fio.h"
 
 extern int f__cursor;
-#ifdef KR_headers
-extern double atof();
-#else
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
-#endif
 
 #include "fmt.h"
 #include "fp.h"
 
  static int
-#ifdef KR_headers
-rd_Z(n,w,len) Uint *n; ftnlen len;
-#else
 rd_Z(Uint *n, int w, ftnlen len)
-#endif
 {
 	long x[9];
 	char *s, *s0, *s1, *se, *t;
@@ -95,11 +87,7 @@ rd_Z(Uint *n, int w, ftnlen len)
 	}
 
  static int
-#ifdef KR_headers
-rd_I(n,w,len, base) Uint *n; int w; ftnlen len; register int base;
-#else
 rd_I(Uint *n, int w, ftnlen len, register int base)
-#endif
 {
 	int bad, ch, sign;
 	longint x = 0;
@@ -166,11 +154,7 @@ rd_I(Uint *n, int w, ftnlen len, register int base)
 }
 
  static int
-#ifdef KR_headers
-rd_L(n,w,len) ftnint *n; ftnlen len;
-#else
 rd_L(ftnint *n, int w, ftnlen len)
-#endif
 {	int ch, dot, lv;
 
 	if (w <= 0)
@@ -227,11 +211,7 @@ rd_L(ftnint *n, int w, ftnlen len)
 }
 
  static int
-#ifdef KR_headers
-rd_F(p, w, d, len) ufloat *p; ftnlen len;
-#else
 rd_F(ufloat *p, int w, int d, ftnlen len)
-#endif
 {
 	char s[FMAX+EXPMAXDIGS+4];
 	register int ch;
@@ -394,11 +374,7 @@ zero:
 
 
  static int
-#ifdef KR_headers
-rd_A(p,len) char *p; ftnlen len;
-#else
 rd_A(char *p, ftnlen len)
-#endif
 {	int i,ch;
 	for(i=0;i<len;i++)
 	{	GET(ch);
@@ -407,11 +383,7 @@ rd_A(char *p, ftnlen len)
 	return(0);
 }
  static int
-#ifdef KR_headers
-rd_AW(p,w,len) char *p; ftnlen len;
-#else
 rd_AW(char *p, int w, ftnlen len)
-#endif
 {	int i,ch;
 	if(w>=len)
 	{	for(i=0;i<w-len;i++)
@@ -430,11 +402,7 @@ rd_AW(char *p, int w, ftnlen len)
 	return(0);
 }
  static int
-#ifdef KR_headers
-rd_H(n,s) char *s;
-#else
 rd_H(int n, char *s)
-#endif
 {	int i,ch;
 	for(i=0;i<n;i++)
 		if((ch=(*f__getn)())<0) return(ch);
@@ -442,11 +410,7 @@ rd_H(int n, char *s)
 	return(1);
 }
  static int
-#ifdef KR_headers
-rd_POS(s) char *s;
-#else
 rd_POS(char *s)
-#endif
 {	char quote;
 	int ch;
 	quote= *s++;
@@ -456,11 +420,7 @@ rd_POS(char *s)
 		else *s = ch=='\n'?' ':ch;
 	return(1);
 }
-#ifdef KR_headers
-rd_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len;
-#else
 rd_ed(struct syl *p, char *ptr, ftnlen len)
-#endif
 {	int ch;
 	for(;f__cursor>0;f__cursor--) if((ch=(*f__getn)())<0) return(ch);
 	if(f__cursor<0)
@@ -519,11 +479,7 @@ rd_ed(struct syl *p, char *ptr, ftnlen len)
 		clearerr(f__cf);
 	return(errno);
 }
-#ifdef KR_headers
-rd_ned(p) struct syl *p;
-#else
 rd_ned(struct syl *p)
-#endif
 {
 	switch(p->op)
 	{

libf2c/libI77/rewind.c

 #include "config.h"
 #include "f2c.h"
 #include "fio.h"
-#ifdef KR_headers
-integer f_rew(a) alist *a;
-#else
 integer f_rew(alist *a)
-#endif
 {
 	unit *b;
 	if (f__init & 2)

libf2c/libI77/rsfe.c

@@ -44,11 +44,7 @@ x_rev(Void)
 	(void) xrd_SL();
 	return(0);
 }
-#ifdef KR_headers
-integer s_rsfe(a) cilist *a; /* start */
-#else
 integer s_rsfe(cilist *a) /* start */
-#endif
 {	int n;
 	if(f__init != 1) f_init();
 	f__init = 3;

libf2c/libI77/rsli.c

@@ -24,11 +24,7 @@ static int i_getc(Void)
 	}
 
  static
-#ifdef KR_headers
-int i_ungetc(ch, f) int ch; FILE *f;
-#else
 int i_ungetc(int ch, FILE *f)
-#endif
 {
 	if (--f__recpos == f__svic->icirlen)
 		return '\n';
@@ -39,11 +35,7 @@ int i_ungetc(int ch, FILE *f)
 	}
 
  static void
-#ifdef KR_headers
-c_lir(a) icilist *a;
-#else
 c_lir(icilist *a)
-#endif
 {
 	extern int l_eof;
 	if(f__init != 1) f_init();
@@ -67,11 +59,7 @@ c_lir(icilist *a)
 	}
 
 
-#ifdef KR_headers
-integer s_rsli(a) icilist *a;
-#else
 integer s_rsli(icilist *a)
-#endif
 {
 	f__lioproc = l_read;
 	f__lquit = 0;
@@ -84,13 +72,9 @@ integer s_rsli(icilist *a)
 integer e_rsli(Void)
 { f__init = 1; return 0; }
 
-#ifdef KR_headers
-integer s_rsni(a) icilist *a;
-#else
 extern int x_rsne(cilist*);
 
 integer s_rsni(icilist *a)
-#endif
 {
 	extern int nml_read;
 	integer rv;

libf2c/libI77/rsne.c

@@ -39,19 +39,6 @@
  extern int f__lcount, nml_read;
  extern t_getc(Void);
 
-#ifdef KR_headers
- extern char *malloc(), *memset();
-
-#ifdef ungetc
- static int
-un_getc(x,f__cf) int x; FILE *f__cf;
-{ return ungetc(x,f__cf); }
-#else
-#define un_getc ungetc
- extern int ungetc();
-#endif
-
-#else
 #undef abs
 #undef min
 #undef max
@@ -66,14 +53,9 @@ un_getc(int x, FILE *f__cf)
 #define un_getc ungetc
 extern int ungetc(int, FILE*);	/* for systems with a buggy stdio.h */
 #endif
-#endif
 
  static Vardesc *
-#ifdef KR_headers
-hash(ht, s) hashtab *ht; register char *s;
-#else
 hash(hashtab *ht, register char *s)
-#endif
 {
 	register int c, x;
 	register hashentry *h;
@@ -88,11 +70,7 @@ hash(hashtab *ht, register char *s)
 	}
 
  hashtab *
-#ifdef KR_headers
-mk_hashtab(nl) Namelist *nl;
-#else
 mk_hashtab(Namelist *nl)
-#endif
 {
 	int nht, nv;
 	hashtab *ht;
@@ -164,11 +142,7 @@ nl_init(Void) {
 #define Ungetc(x,y) (*l_ungetc)(x,y)
 
  static int
-#ifdef KR_headers
-getname(s, slen) register char *s; int slen;
-#else
 getname(register char *s, int slen)
-#endif
 {
 	register char *se = s + slen - 1;
 	register int ch;
@@ -190,11 +164,7 @@ getname(register char *s, int slen)
 	}
 
  static int
-#ifdef KR_headers
-getnum(chp, val) int *chp; ftnlen *val;
-#else
 getnum(int *chp, ftnlen *val)
-#endif
 {
 	register int ch, sign;
 	register ftnlen x;
@@ -224,12 +194,7 @@ getnum(int *chp, ftnlen *val)
 	}
 
  static int
-#ifdef KR_headers
-getdimen(chp, d, delta, extent, x1)
- int *chp; dimen *d; ftnlen delta, extent, *x1;
-#else
 getdimen(int *chp, dimen *d, ftnlen delta, ftnlen extent, ftnlen *x1)
-#endif
 {
 	register int k;
 	ftnlen x2, x3;
@@ -263,11 +228,7 @@ getdimen(int *chp, dimen *d, ftnlen delta, ftnlen extent, ftnlen *x1)
 
 #ifndef No_Namelist_Questions
  static Void
-#ifdef KR_headers
-print_ne(a) cilist *a;
-#else
 print_ne(cilist *a)
-#endif
 {
 	flag intext = f__external;
 	int rpsave = f__recpos;
@@ -289,11 +250,7 @@ print_ne(cilist *a)
 
  static char where0[] = "namelist read start ";
 
-#ifdef KR_headers
-x_rsne(a) cilist *a;
-#else
 x_rsne(cilist *a)
-#endif
 {
 	int ch, got1, k, n, nd, quote, readall;
 	Namelist *nl;
@@ -582,11 +539,7 @@ x_rsne(cilist *a)
 	}
 
  integer
-#ifdef KR_headers
-s_rsne(a) cilist *a;
-#else
 s_rsne(cilist *a)
-#endif
 {
 	extern int l_eof;
 	int n;

libf2c/libI77/sfe.c

@@ -12,11 +12,7 @@ integer e_rsfe(Void)
 	f__fmtbuf=NULL;
 	return(n);
 }
-#ifdef KR_headers
-c_sfe(a) cilist *a; /* check */
-#else
 c_sfe(cilist *a) /* check */
-#endif
 {	unit *p;
 	if(a->ciunit >= MXUNIT || a->ciunit<0)
 		err(a->cierr,101,"startio");

libf2c/libI77/sue.c

@@ -4,11 +4,7 @@
 extern uiolen f__reclen;
 off_t f__recloc;
 
-#ifdef KR_headers
-c_sue(a) cilist *a;
-#else
 c_sue(cilist *a)
-#endif
 {
 	f__external=f__sequential=1;
 	f__formatted=0;
@@ -23,11 +19,7 @@ c_sue(cilist *a)
 	if(!f__curunit->useek) err(a->cierr,103,"sue");
 	return(0);
 }
-#ifdef KR_headers
-integer s_rsue(a) cilist *a;
-#else
 integer s_rsue(cilist *a)
-#endif
 {
 	int n;
 	if(f__init != 1) f_init();
@@ -48,11 +40,7 @@ integer s_rsue(cilist *a)
 	}
 	return(0);
 }
-#ifdef KR_headers
-integer s_wsue(a) cilist *a;
-#else
 integer s_wsue(cilist *a)
-#endif
 {
 	int n;
 	if(f__init != 1) f_init();

libf2c/libI77/uio.c

@@ -3,11 +3,7 @@
 #include <sys/types.h>
 uiolen f__reclen;
 
-#ifdef KR_headers
-do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
 do_us(ftnint *number, char *ptr, ftnlen len)
-#endif
 {
 	if(f__reading)
 	{
@@ -25,11 +21,7 @@ do_us(ftnint *number, char *ptr, ftnlen len)
 		return(0);
 	}
 }
-#ifdef KR_headers
-integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
 integer do_ud(ftnint *number, char *ptr, ftnlen len)
-#endif
 {
 	f__recpos += (int)(*number * len);
 	if(f__recpos > f__curunit->url && f__curunit->url!=1)
@@ -37,11 +29,7 @@ integer do_ud(ftnint *number, char *ptr, ftnlen len)
 	if(f__reading)
 	{
 #ifdef Pad_UDread
-#ifdef KR_headers
-	int i;
-#else
 	size_t i;
-#endif
 		if (!(i = fread(ptr,(size_t)len,(size_t)(*number),f__cf))
 		 && !(f__recpos - *number*len))
 			err(f__elist->cierr,EOF,"do_ud");
@@ -57,11 +45,7 @@ integer do_ud(ftnint *number, char *ptr, ftnlen len)
 	(void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);
 	return(0);
 }
-#ifdef KR_headers
-integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
 integer do_uio(ftnint *number, char *ptr, ftnlen len)
-#endif
 {
 	if(f__sequential)
 		return(do_us(number,ptr,len));

libf2c/libI77/util.c

@@ -9,11 +9,7 @@
 #include "fio.h"
 
  VOID
-#ifdef KR_headers
-g_char(a,alen,b) char *a,*b; ftnlen alen;
-#else
 g_char(char *a, ftnlen alen, char *b)
-#endif
 {
 	char *x = a + alen, *y = b + alen;
 
@@ -31,21 +27,13 @@ g_char(char *a, ftnlen alen, char *b)
 	}
 
  VOID
-#ifdef KR_headers
-b_char(a,b,blen) char *a,*b; ftnlen blen;
-#else
 b_char(char *a, char *b, ftnlen blen)
-#endif
 {	int i;
 	for(i=0;i<blen && *a!=0;i++) *b++= *a++;
 	for(;i<blen;i++) *b++=' ';
 }
 #ifndef NON_UNIX_STDIO
-#ifdef KR_headers
-long f__inode(a, dev) char *a; int *dev;
-#else
 long f__inode(char *a, int *dev)
-#endif
 {	struct stat x;
 	if(stat(a,&x)<0) return(-1);
 	*dev = x.st_dev;

libf2c/libI77/wref.c

@@ -4,22 +4,16 @@
 #include <ctype.h>
 #endif
 
-#ifndef KR_headers
 #undef abs
 #undef min
 #undef max
 #include <stdlib.h>
 #include <string.h>
-#endif
 
 #include "fmt.h"
 #include "fp.h"
 
-#ifdef KR_headers
-wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;
-#else
 wrt_E(ufloat *p, int w, int d, int e, ftnlen len)
-#endif
 {
 	char buf[FMAX+EXPMAXDIGS+4], *s, *se;
 	int d1, delta, e1, i, sign, signspace;
@@ -191,11 +185,7 @@ nogood:
 	return 0;
 	}
 
-#ifdef KR_headers
-wrt_F(p,w,d,len) ufloat *p; ftnlen len;
-#else
 wrt_F(ufloat *p, int w, int d, ftnlen len)
-#endif
 {
 	int d1, sign, n;
 	double x;

libf2c/libI77/wrtfmt.c

@@ -66,11 +66,7 @@ mv_cur(Void)	/* shouldn't use fseek because it insists on calling fflush */
 }
 
  static int
-#ifdef KR_headers
-wrt_Z(n,w,minlen,len) Uint *n; int w, minlen; ftnlen len;
-#else
 wrt_Z(Uint *n, int w, int minlen, ftnlen len)
-#endif
 {
 	register char *s, *se;
 	register int i, w1;
@@ -121,11 +117,7 @@ wrt_Z(Uint *n, int w, int minlen, ftnlen len)
 	}
 
  static int
-#ifdef KR_headers
-wrt_I(n,w,len, base) Uint *n; ftnlen len; register int base;
-#else
 wrt_I(Uint *n, int w, ftnlen len, register int base)
-#endif
 {	int ndigit,sign,spare,i;
 	longint x;
 	char *ans;
@@ -149,11 +141,7 @@ wrt_I(Uint *n, int w, ftnlen len, register int base)
 	return(0);
 }
  static int
-#ifdef KR_headers
-wrt_IM(n,w,m,len,base) Uint *n; ftnlen len; int base;
-#else
 wrt_IM(Uint *n, int w, int m, ftnlen len, int base)
-#endif
 {	int ndigit,sign,spare,i,xsign;
 	longint x;
 	char *ans;
@@ -186,11 +174,7 @@ wrt_IM(Uint *n, int w, int m, ftnlen len, int base)
 	return(0);
 }
  static int
-#ifdef KR_headers
-wrt_AP(s) char *s;
-#else
 wrt_AP(char *s)
-#endif
 {	char quote;
 	int i;
 
@@ -205,11 +189,7 @@ wrt_AP(char *s)
 	return(1);
 }
  static int
-#ifdef KR_headers
-wrt_H(a,s) char *s;
-#else
 wrt_H(int a, char *s)
-#endif
 {
 	int i;
 
@@ -218,11 +198,7 @@ wrt_H(int a, char *s)
 	while(a--) (*f__putn)(*s++);
 	return(1);
 }
-#ifdef KR_headers
-wrt_L(n,len, sz) Uint *n; ftnlen sz;
-#else
 wrt_L(Uint *n, int len, ftnlen sz)
-#endif
 {	int i;
 	long x;
 	if(sizeof(long)==sz) x=n->il;
@@ -235,21 +211,13 @@ wrt_L(Uint *n, int len, ftnlen sz)
 	return(0);
 }
  static int
-#ifdef KR_headers
-wrt_A(p,len) char *p; ftnlen len;
-#else
 wrt_A(char *p, ftnlen len)
-#endif
 {
 	while(len-- > 0) (*f__putn)(*p++);
 	return(0);
 }
  static int
-#ifdef KR_headers
-wrt_AW(p,w,len) char * p; ftnlen len;
-#else
 wrt_AW(char * p, int w, ftnlen len)
-#endif
 {
 	while(w>len)
 	{	w--;
@@ -261,11 +229,7 @@ wrt_AW(char * p, int w, ftnlen len)
 }
 
  static int
-#ifdef KR_headers
-wrt_G(p,w,d,e,len) ufloat *p; ftnlen len;
-#else
 wrt_G(ufloat *p, int w, int d, int e, ftnlen len)
-#endif
 {	double up = 1,x;
 	int i=0,oldscale,n,j;
 	x = len==sizeof(real)?p->pf:p->pd;
@@ -290,11 +254,7 @@ wrt_G(ufloat *p, int w, int d, int e, ftnlen len)
 	}
 	return(wrt_E(p,w,d,e,len));
 }
-#ifdef KR_headers
-w_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len;
-#else
 w_ed(struct syl *p, char *ptr, ftnlen len)
-#endif
 {
 	int i;
 
@@ -336,11 +296,7 @@ w_ed(struct syl *p, char *ptr, ftnlen len)
 		return(wrt_Z((Uint *)ptr,p->p1,p->p2.i[0],len));
 	}
 }
-#ifdef KR_headers
-w_ned(p) struct syl *p;
-#else
 w_ned(struct syl *p)
-#endif
 {
 	switch(p->op)
 	{

libf2c/libI77/wsfe.c

@@ -40,11 +40,7 @@ xw_rev(Void)
 	return n;
 }
 
-#ifdef KR_headers
-integer s_wsfe(a) cilist *a;	/*start*/
-#else
 integer s_wsfe(cilist *a)	/*start*/
-#endif
 {	int n;
 	if(f__init != 1) f_init();
 	f__init = 3;

libf2c/libI77/wsle.c

@@ -5,11 +5,7 @@
 #include "lio.h"
 #include "string.h"
 
-#ifdef KR_headers
-integer s_wsle(a) cilist *a;
-#else
 integer s_wsle(cilist *a)
-#endif
 {
 	int n;
 	if(n=c_le(a)) return(n);

libf2c/libI77/wsne.c

@@ -3,11 +3,7 @@
 #include "lio.h"
 
  integer
-#ifdef KR_headers
-s_wsne(a) cilist *a;
-#else
 s_wsne(cilist *a)
-#endif
 {
 	int n;
 

libf2c/libI77/xwsne.c

@@ -13,14 +13,10 @@ nl_donewrec(Void)
 	PUT(' ');
 	}
 
-#ifdef KR_headers
-x_wsne(a) cilist *a;
-#else
 #include <string.h>
 
  VOID
 x_wsne(cilist *a)
-#endif
 {
 	Namelist *nl;
 	char *s;

libf2c/libU77/access_.c

@@ -45,17 +45,9 @@ Boston, MA 02111-1307, USA.  */
 #  define F_OK 0
 #endif
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_access_0 (name, mode, Lname, Lmode)
-     char *name, *mode;
-     ftnlen Lname, Lmode;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
-#endif
 {
   char *buff;
   char *bp, *blast;

libf2c/libU77/alarm_.c

@@ -29,32 +29,18 @@ Boston, MA 02111-1307, USA.  */
 
 #ifndef RETSIGTYPE
 /* we shouldn't rely on this... */
-#ifdef KR_headers
-#define RETSIGTYPE int
-#else
 #define RETSIGTYPE void
 #endif
-#endif
 typedef RETSIGTYPE (*sig_type)();
 
-#ifdef KR_headers
-extern sig_type signal();
-#else
 #include <signal.h>
 typedef int (*sig_proc)(int);
-#endif
 
 #ifndef SIG_ERR
 #define SIG_ERR ((sig_type) -1)
 #endif
 
-#ifdef KR_headers
-integer G77_alarm_0 (seconds, proc)
-     integer *seconds;
-     sig_type proc;
-#else
 integer G77_alarm_0 (integer *seconds, sig_proc proc)
-#endif
 {
   int status;
 #if defined (HAVE_ALARM) && defined (SIGALRM)

libf2c/libU77/chdir_.c

@@ -32,17 +32,9 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_chdir_0 (name, Lname)
-     char *name;
-     ftnlen Lname;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_chdir_0 (const char *name, const ftnlen Lname)
-#endif
 {
   char *buff;
   char *bp, *blast;

libf2c/libU77/chmod_.c

@@ -41,19 +41,10 @@ Boston, MA 02111-1307, USA.  */
 #define CHMOD_PATH "/bin/chmod"
 #endif
 
-#ifdef KR_headers
-extern void s_cat ();
-void g_char ();
-
-integer G77_chmod_0 (name, mode, Lname, Lmode)
-     char *name, *mode;
-     ftnlen Lname, Lmode;
-#else
 extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnlen Lname, const ftnlen Lmode)
-#endif
 {
   char *buff;
   char *bp, *blast;

libf2c/libU77/config.hin

@@ -33,6 +33,12 @@
 /* Define as the path of the `chmod' program. */
 #undef CHMOD_PATH
 
+/* Define if your gettimeofday takes only one argument. */
+#undef GETTIMEOFDAY_ONE_ARGUMENT
+
+/* Define if your gettimeofday takes a time zome argument. */
+#undef HAVE_TIMEZONE
+
 /* Define if you have the alarm function.  */
 #undef HAVE_ALARM
 
@@ -54,6 +60,9 @@
 /* Define if you have the getrusage function.  */
 #undef HAVE_GETRUSAGE
 
+/* Define if you have the gettimeofday function.  */
+#undef HAVE_GETTIMEOFDAY
+
 /* Define if you have the getuid function.  */
 #undef HAVE_GETUID
 

libf2c/libU77/configure

@@ -995,14 +995,13 @@ EOF
 
 fi
 
-
 echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6
-echo "configure:1001: checking whether time.h and sys/time.h may both be included" >&5
+echo "configure:1000: checking whether time.h and sys/time.h may both be included" >&5
 if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1006 "configure"
+#line 1005 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/time.h>
@@ -1011,7 +1010,7 @@ int main() {
 struct tm *tp;
 ; return 0; }
 EOF
-if { (eval echo configure:1015: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1014: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_header_time=yes
 else
@@ -1036,17 +1035,17 @@ for ac_hdr in limits.h unistd.h sys/time.h string.h stdlib.h \
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:1040: checking for $ac_hdr" >&5
+echo "configure:1039: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1045 "configure"
+#line 1044 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1050: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1049: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -1074,12 +1073,12 @@ done
 
 
 echo $ac_n "checking for working const""... $ac_c" 1>&6
-echo "configure:1078: checking for working const" >&5
+echo "configure:1077: checking for working const" >&5
 if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1083 "configure"
+#line 1082 "configure"
 #include "confdefs.h"
 
 int main() {
@@ -1128,7 +1127,7 @@ ccp = (char const *const *) p;
 
 ; return 0; }
 EOF
-if { (eval echo configure:1132: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1131: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_c_const=yes
 else
@@ -1149,12 +1148,12 @@ EOF
 fi
 
 echo $ac_n "checking for size_t""... $ac_c" 1>&6
-echo "configure:1153: checking for size_t" >&5
+echo "configure:1152: checking for size_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1158 "configure"
+#line 1157 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -1182,12 +1181,12 @@ EOF
 fi
 
 echo $ac_n "checking for mode_t""... $ac_c" 1>&6
-echo "configure:1186: checking for mode_t" >&5
+echo "configure:1185: checking for mode_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1191 "configure"
+#line 1190 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -1216,12 +1215,12 @@ fi
 
 
 echo $ac_n "checking for pid_t""... $ac_c" 1>&6
-echo "configure:1220: checking for pid_t" >&5
+echo "configure:1219: checking for pid_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1225 "configure"
+#line 1224 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -1249,12 +1248,12 @@ EOF
 fi
 
 echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6
-echo "configure:1253: checking for st_blksize in struct stat" >&5
+echo "configure:1252: checking for st_blksize in struct stat" >&5
 if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1258 "configure"
+#line 1257 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -1262,7 +1261,7 @@ int main() {
 struct stat s; s.st_blksize;
 ; return 0; }
 EOF
-if { (eval echo configure:1266: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1265: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_struct_st_blksize=yes
 else
@@ -1283,12 +1282,12 @@ EOF
 fi
 
 echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6
-echo "configure:1287: checking for st_blocks in struct stat" >&5
+echo "configure:1286: checking for st_blocks in struct stat" >&5
 if eval "test \"`echo '$''{'ac_cv_struct_st_blocks'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1292 "configure"
+#line 1291 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -1296,7 +1295,7 @@ int main() {
 struct stat s; s.st_blocks;
 ; return 0; }
 EOF
-if { (eval echo configure:1300: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1299: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_struct_st_blocks=yes
 else
@@ -1319,12 +1318,12 @@ else
 fi
 
 echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6
-echo "configure:1323: checking for st_rdev in struct stat" >&5
+echo "configure:1322: checking for st_rdev in struct stat" >&5
 if eval "test \"`echo '$''{'ac_cv_struct_st_rdev'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1328 "configure"
+#line 1327 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -1332,7 +1331,7 @@ int main() {
 struct stat s; s.st_rdev;
 ; return 0; }
 EOF
-if { (eval echo configure:1336: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1335: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_struct_st_rdev=yes
 else
@@ -1353,12 +1352,12 @@ EOF
 fi
 
 echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6
-echo "configure:1357: checking whether struct tm is in sys/time.h or time.h" >&5
+echo "configure:1356: checking whether struct tm is in sys/time.h or time.h" >&5
 if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1362 "configure"
+#line 1361 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <time.h>
@@ -1366,7 +1365,7 @@ int main() {
 struct tm *tp; tp->tm_sec;
 ; return 0; }
 EOF
-if { (eval echo configure:1370: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1369: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_struct_tm=time.h
 else
@@ -1388,7 +1387,7 @@ fi
 
 
 echo $ac_n "checking for gethostname in -lsocket""... $ac_c" 1>&6
-echo "configure:1392: checking for gethostname in -lsocket" >&5
+echo "configure:1391: checking for gethostname in -lsocket" >&5
 ac_lib_var=`echo socket'_'gethostname | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -1396,7 +1395,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lsocket  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1400 "configure"
+#line 1399 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -1407,7 +1406,7 @@ int main() {
 gethostname()
 ; return 0; }
 EOF
-if { (eval echo configure:1411: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1410: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -1433,12 +1432,12 @@ for ac_func in symlink getcwd getwd lstat gethostname strerror clock \
   getrusage times alarm getlogin getgid getuid kill link ttyname
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1437: checking for $ac_func" >&5
+echo "configure:1436: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1442 "configure"
+#line 1441 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1461,7 +1460,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1465: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1464: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1490,12 +1489,12 @@ done
   for ac_func in gettimeofday
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:1494: checking for $ac_func" >&5
+echo "configure:1493: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1499 "configure"
+#line 1498 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1518,7 +1517,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1522: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1521: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -1544,19 +1543,19 @@ done
 
   if test "$ac_cv_func_gettimeofday" = yes; then
     echo $ac_n "checking for struct timezone""... $ac_c" 1>&6
-echo "configure:1548: checking for struct timezone" >&5
+echo "configure:1547: checking for struct timezone" >&5
 if eval "test \"`echo '$''{'g77_cv_struct_timezone'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1553 "configure"
+#line 1552 "configure"
 #include "confdefs.h"
 #include <sys/time.h>
 int main() {
 struct timezone tz;
 ; return 0; }
 EOF
-if { (eval echo configure:1560: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1559: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   g77_cv_struct_timezone=yes
 else
@@ -1577,7 +1576,7 @@ EOF
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 1581 "configure"
+#line 1580 "configure"
 #include "confdefs.h"
 
 #ifdef TIME_WITH_SYS_TIME
@@ -1600,7 +1599,7 @@ main ()
     exit (0);
 }
 EOF
-if { (eval echo configure:1604: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:1603: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   cat >> confdefs.h <<\EOF
 #define HAVE_TIMEZONE 1
@@ -1616,12 +1615,12 @@ fi
     fi
     
     echo $ac_n "checking whether gettimeofday can accept two arguments""... $ac_c" 1>&6
-echo "configure:1620: checking whether gettimeofday can accept two arguments" >&5
+echo "configure:1619: checking whether gettimeofday can accept two arguments" >&5
 if eval "test \"`echo '$''{'emacs_cv_gettimeofday_two_arguments'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1625 "configure"
+#line 1624 "configure"
 #include "confdefs.h"
 
 #ifdef TIME_WITH_SYS_TIME
@@ -1647,7 +1646,7 @@ int main() {
       gettimeofday (&time, DUMMY);
 ; return 0; }
 EOF
-if { (eval echo configure:1651: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1650: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   emacs_cv_gettimeofday_two_arguments=yes
 else

libf2c/libU77/configure.in

@@ -70,17 +70,6 @@ fi
 
 dnl Checks for header files.
 AC_HEADER_STDC
-dnl We could do this if we didn't know we were using gcc
-dnl AC_MSG_CHECKING(for prototype-savvy compiler)
-dnl AC_CACHE_VAL(ac_cv_sys_proto,                
-dnl   [AC_TRY_LINK(,                             
-dnl dnl looks screwy because TRY_LINK expects a function body
-dnl    [return 0;} int foo (int * bar) {],       
-dnl    ac_cv_sys_proto=yes,                      
-dnl    [ac_cv_sys_proto=no                       
-dnl     AC_DEFINE(KR_headers)])])                
-dnl AC_MSG_RESULT($ac_cv_sys_proto)              
-
 AC_HEADER_TIME
 AC_CHECK_HEADERS(limits.h unistd.h sys/time.h string.h stdlib.h \
   sys/param.h sys/times.h)

libf2c/libU77/ctime_.c

@@ -39,14 +39,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* may need sys/time.h & long arg for stime (bsd, svr1-3) */
 
-#ifdef KR_headers
-/* Character */ void G77_ctime_0 (chtime, Lchtime, xstime)
-     char *chtime;
-     longint * xstime;
-     ftnlen Lchtime;
-#else
 /* Character */ void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
-#endif
 {
   int i, l;
   int s_copy ();

libf2c/libU77/datetime_.c

@@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-VOID s_copy ();
-#else
 void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-#endif
 
 int G77_date_and_time_0 (char *date, char *fftime, char *zone,
 			 integer *values, ftnlen date_len,

libf2c/libU77/dtime_.c

@@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA.  */
    different to all others. */
 static long clk_tck = 0;
 
-#ifdef KR_headers
-double G77_dtime_0 (tarray)
-     real tarray[2];
-#else
 double G77_dtime_0 (real tarray[2])
-#endif
 {
 #if defined (_WIN32)
   static int win32_platform = -1;

libf2c/libU77/etime_.c

@@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA.  */
    different to all others. */
 static long clk_tck = 0;
 
-#ifdef KR_headers
-double G77_etime_0 (tarray)
-     real tarray[2];
-#else
 double G77_etime_0 (real tarray[2])
-#endif
 {
 #if defined (_WIN32)
   static int win32_platform = -1;

libf2c/libU77/fgetc_.c

@@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-#ifdef KR_headers
-integer G77_fgetc_0 (lunit, c, Lc)
-     integer *lunit;
-     ftnlen Lc;			/* should be 1 */
-     char *c;
-#else
 integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc)
-#endif
 {
   int err;
   FILE *f = f__units[*lunit].ufd;
@@ -56,13 +49,7 @@ integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc)
     return 0; }
 }
 
-#ifdef KR_headers
-integer G77_fget_0 (c, Lc)
-     ftnlen Lc;			/* should be 1 */
-     char *c;
-#else
 integer G77_fget_0 (char *c, const ftnlen Lc)
-#endif
 {
   integer five = 5;
 

libf2c/libU77/flush1_.c

@@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA.  */
 
 /* This flushes a single unit, c.f. libI77 version. */
 
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-/* Subroutine */ int G77_flush1_0 (lunit)
-     integer *lunit;
-#else
 extern integer G77_fnum_0 (integer *);
 
 /* Subroutine */ int G77_flush1_0 (const integer *lunit)
-#endif
 {
   if (*lunit>=MXUNIT || *lunit<0)
     err(1,101,"flush");

libf2c/libU77/fnum_.c

@@ -22,12 +22,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-#ifdef KR_headers
-integer G77_fnum_0 (lunit)
-     integer *lunit;
-#else
 integer G77_fnum_0 (integer *lunit)
-#endif
 {
   if (*lunit>=MXUNIT || *lunit<0)
     err(1,101,"fnum");

libf2c/libU77/fputc_.c

@@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-#ifdef KR_headers
-integer G77_fputc_0 (lunit, c, Lc)
-     integer *lunit;
-     ftnlen Lc;			/* should be 1 */
-     char *c;
-#else
 integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
-#endif
 {
   int err;
   FILE *f = f__units[*lunit].ufd;
@@ -51,13 +44,7 @@ integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
     return 0;
 }
 
-#ifdef KR_headers
-integer G77_fput_0 (c, Lc)
-     ftnlen Lc;			/* should be 1 */
-     char *c;
-#else
 integer G77_fput_0 (const char *c, const ftnlen Lc)
-#endif
 {
   integer six = 6;
 

libf2c/libU77/fstat_.c

@@ -26,17 +26,9 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/types.h>
 #include <sys/stat.h>
 
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-integer G77_fstat_0 (lunit, statb)
-     integer *lunit;
-     integer statb[13];
-#else
 extern integer G77_fnum_0 (const integer *);
 
 integer G77_fstat_0 (const integer *lunit, integer statb[13])
-#endif
 {
   int err;
   struct stat buf;

libf2c/libU77/gerror_.c

@@ -32,14 +32,8 @@ Boston, MA 02111-1307, USA.  */
      extern char *sys_errlist [];
 #    define strerror(i) (sys_errlist[i])
 #endif
-#ifdef KR_headers
-extern void s_copy ();
-/* Subroutine */ int G77_gerror_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 /* Subroutine */ int G77_gerror_0 (char *str, ftnlen Lstr)
-#endif
 {
   char * s;
 

libf2c/libU77/getcwd_.c

@@ -37,14 +37,8 @@ Boston, MA 02111-1307, USA.  */
   extern char *getcwd ();
 #endif
 
-#ifdef KR_headers
-extern void s_copy ();
-integer G77_getcwd_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
 {
     int i;
     char *ret;
@@ -62,14 +56,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr)
 
 #  include <sys/param.h>
   extern char *getwd ();
-#ifdef KR_headers
-extern VOID s_copy ();
-integer G77_getcwd_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
 {
   char pathname[MAXPATHLEN];
   size_t l;
@@ -84,14 +72,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr)
 
 #else  /* !HAVE_GETWD && !HAVE_GETCWD */
 
-#ifdef KR_headers
-extern VOID s_copy ();
-integer G77_getcwd_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
 {
   return errno = ENOSYS;
 }

libf2c/libU77/getgid_.c

@@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-#ifdef KR_headers
-integer G77_getgid_0 ()
-#else
 integer G77_getgid_0 (void)
-#endif
 {
 #if defined (HAVE_GETGID)
   return getgid ();

libf2c/libU77/getlog_.c

@@ -41,14 +41,8 @@ Boston, MA 02111-1307, USA.  */
 
 /* SGI also has character*(*) function getlog() */
 
-#ifdef KR_headers
-extern VOID s_copy ();
-/* Subroutine */ int G77_getlog_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 /* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr)
-#endif
 {
   size_t i;
   char *p;

libf2c/libU77/getpid_.c

@@ -25,11 +25,7 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/types.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-integer G77_getpid_0 ()
-#else
 integer G77_getpid_0 (void)
-#endif
 {
   return getpid ();
 }

libf2c/libU77/getuid_.c

@@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-#ifdef KR_headers
-integer G77_getuid_0 ()
-#else
 integer G77_getuid_0 (void)
-#endif
 {
 #if defined (HAVE_GETUID)
   return getuid ();

libf2c/libU77/gmtime_.c

@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-/* Subroutine */ int G77_gmtime_0 (xstime, tarray)
-     integer *xstime, tarray[9];
-#else
 /* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
-#endif
 {
   struct tm *lt;
   time_t stime = *xstime;

libf2c/libU77/idate_.c

@@ -37,12 +37,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* libU77 one: */
 
-#ifdef KR_headers
-/* Subroutine */ int G77_idate_0 (iarray)
-     int iarray[3];
-#else
 /* Subroutine */ int G77_idate_0 (int iarray[3])
-#endif
 {
   struct tm *lt;
   time_t tim;

libf2c/libU77/ierrno_.c

@@ -22,11 +22,7 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-integer G77_ierrno_0 ()
-#else
 integer G77_ierrno_0 (void)
-#endif
 {
   return errno;
 }

libf2c/libU77/irand_.c

@@ -31,12 +31,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Note this is per SunOS -- other s may have no arg. */
 
-#ifdef KR_headers
-integer G77_irand_0 (flag)
-  integer *flag;
-#else
 integer G77_irand_0 (integer *flag)
-#endif
 {
   switch (*flag) {
   case 0:

libf2c/libU77/isatty_.c

@@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-logical G77_isatty_0 (lunit)
-     integer *lunit;
-#else
 extern integer G77_fnum_0 (integer *);
 
 logical G77_isatty_0 (integer *lunit)
-#endif
 {
   if (*lunit>=MXUNIT || *lunit<0)
     err(1,101,"isatty");

libf2c/libU77/itime_.c

@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-/* Subroutine */ int G77_itime_0 (tarray)
-     integer tarray[3];
-#else
 /* Subroutine */ int G77_itime_0 (integer tarray[3])
-#endif
 {
   struct tm *lt;
   time_t tim;

libf2c/libU77/kill_.c

@@ -26,12 +26,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* fixme: bsd, svr1-3 use int, not pid_t */
 
-#ifdef KR_headers
-integer G77_kill_0 (pid, signum)
-     integer *pid, *signum;
-#else
 integer G77_kill_0 (const integer *pid, const integer *signum)
-#endif
 {
 #if defined (HAVE_KILL)
   return kill ((pid_t) *pid, *signum) ? errno : 0;

libf2c/libU77/link_.c

@@ -34,16 +34,9 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_link_0 (path1, path2, Lpath1, Lpath2)
-     char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
 {
 #if defined (HAVE_LINK)
   char *buff1, *buff2;

libf2c/libU77/lstat_.c

@@ -30,18 +30,9 @@ Boston, MA 02111-1307, USA.  */
 
 /* lstat isn't posix */
 
-#ifdef KR_headers
-void g_char();
-
-integer G77_lstat_0 (name, statb, Lname)
-     char *name;
-     integer statb[13];
-     ftnlen Lname;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
-#endif
 {
 #if HAVE_LSTAT
   char *buff;

libf2c/libU77/ltime_.c

@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-/* Subroutine */ int G77_ltime_0 (xstime, tarray)
-     integer *xstime, tarray[9];
-#else
 /* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9])
-#endif
 {
   struct tm *lt;
   time_t stime = *xstime;

libf2c/libU77/mclock_.c

@@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */
 
-#ifdef KR_headers
-longint G77_mclock_0 ()
-#else
 longint G77_mclock_0 (void)
-#endif
 {
 #if HAVE_CLOCK
   return clock ();

libf2c/libU77/perror_.c

@@ -28,12 +28,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-/* Subroutine */ int G77_perror_0 (str, Lstr)
-     char *str; ftnlen Lstr;
-#else
 /* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr)
-#endif
 {
   char buff[1000];
   char *bp, *blast;

libf2c/libU77/rand_.c

@@ -34,12 +34,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Note this is per SunOS -- other s may have no arg. */
 
-#ifdef KR_headers
-double G77_rand_0 (flag)
-  integer *flag;
-#else
 double G77_rand_0 (integer *flag)
-#endif
 {
   switch (*flag) {
   case 0:

libf2c/libU77/rename_.c

@@ -29,16 +29,9 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_rename_0 (path1, path2, Lpath1, Lpath2)
-     char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
 {
   char *buff1, *buff2;
   char *bp, *blast;

libf2c/libU77/sleep_.c

@@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 /* Subroutine */
-#ifdef KR_headers
-int G77_sleep_0 (seconds)
-     integer *seconds;
-#else
 int G77_sleep_0 (const integer *seconds)
-#endif
 {
   (void) sleep ((unsigned int) *seconds);
   return 0;

libf2c/libU77/srand_.c

@@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 /* Subroutine */ 
-#ifdef KR_headers
-int G77_srand_0 (seed)
-     integer *seed;
-#else
 int G77_srand_0 (const integer *seed)
-#endif
 {
   srand ((unsigned int) *seed);
   return 0;

libf2c/libU77/stat_.c

@@ -27,18 +27,9 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/stat.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_stat_0 (name, statb, Lname)
-     char *name;
-     integer statb[13];
-     ftnlen Lname;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
-#endif
 {
   char *buff;
   char *bp, *blast;

libf2c/libU77/symlnk_.c

@@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_symlnk_0 (path1, path2, Lpath1, Lpath2)
-     char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
 {
 #if HAVE_SYMLINK
   char *buff1, *buff2;

libf2c/libU77/sys_clock_.c

@@ -43,12 +43,7 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-#ifdef KR_headers
-int G77_system_clock_0 (count, count_rate, count_max)
-     integer *count, *count_rate, *count_max;
-#else
 int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
-#endif
 {
 #if defined (HAVE_TIMES)
   struct tms buffer;

libf2c/libU77/time_.c

@@ -35,11 +35,7 @@ Boston, MA 02111-1307, USA.  */
 /* As well as this external function some compilers have an intrinsic
    subroutine which fills a character argument (which is the VMS way)
    -- caveat emptor. */
-#ifdef KR_headers
-longint G77_time_0 ()
-#else
 longint G77_time_0 (void)
-#endif
 {
   /* There are potential problems with the cast of the time_t here. */
   return time (NULL);

libf2c/libU77/ttynam_.c

@@ -35,16 +35,9 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-#ifdef KR_headers
-extern void s_copy ();
-extern integer G77_fnum_0 ();
-/* Character */ void G77_ttynam_0 (ret_val, ret_val_len, lunit)
-     char *ret_val; ftnlen ret_val_len; integer *lunit
-#else
 extern integer G77_fnum_0 (integer *lunit);
 extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 /* Character */ void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit)
-#endif
 {
 #if defined (HAVE_TTYNAME)
   size_t i;

libf2c/libU77/umask_.c

@@ -23,12 +23,7 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/stat.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-integer G77_umask_0 (mask)
-     integer *mask;
-#else
 integer G77_umask_0 (integer *mask)
-#endif
 {
   return umask ((mode_t) *mask);
 }

libf2c/libU77/unlink_.c

@@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
-
-integer G77_unlink_0 (str, Lstr)
-     char *str; ftnlen  Lstr;
-#else
 void g_char(const char *a, ftnlen alen, char *b);
 
 integer G77_unlink_0 (const char *str, const ftnlen Lstr)
-#endif
 {
   char *buff;
   char *bp, *blast;

libf2c/libU77/vxtidate_.c

@@ -38,12 +38,7 @@ Boston, MA 02111-1307, USA.  */
 /* VMS style: */
 
 /* Subroutine */
-#ifdef KR_headers
-int G77_vxtidate_y2kbug_0 (m, d, y)
-     integer *y, *m, *d;
-#else
 int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
-#endif
 {
   struct tm *lt;
   time_t tim;
@@ -57,12 +52,7 @@ int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
 
 #ifdef PIC
 extern const char *G77_Non_Y2K_Compliance_Message;
-#  ifdef KR_headers
-int G77_vxtidate_y2kbuggy_0 (m, d, y)
-     integer *y, *m, *d;
-#  else
 int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y)
-#  endif
 {
   extern int G77_abort_0();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);

libf2c/libU77/vxttime_.c

@@ -39,13 +39,7 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 /* Subroutine */
-#ifdef KR_headers
-void G77_vxttime_0 (chtime, Lchtime)
-     char chtime[8];
-     ftnlen Lchtime;
-#else
 void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
-#endif
 {
   time_t tim;
   char *ctim;