*: 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.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) );
 }