/Users/fujiik/rpm/BUILD/cernlib-2006/2006/tmp
diff -uNr src.ORIG/config/MacOSX.cf src/config/MacOSX.cf
--- src.ORIG/config/MacOSX.cf	2022-01-29 21:20:04.000000000 +0900
+++ src/config/MacOSX.cf	2022-01-29 21:20:04.000000000 +0900
@@ -136,6 +136,8 @@
 				-ftree-vectorize
 #define DefaultFCOptions        -fno-second-underscore \
                                 -fno-automatic \
+                                -fallow-argument-mismatch \
+                                -fallow-invalid-boz \
                                 -flat_namespace -undefined warning
 #define CernlibSystem           -DCERNLIB_LINUX -DCERNLIB_UNIX -DCERNLIB_LNX \
       				-DCERNLIB_QMLXIA64 -DCERNLIB_QMGLIBC \
diff -uNr src.ORIG/packlib/kuip/kuip/klink1.h src/packlib/kuip/kuip/klink1.h
--- src.ORIG/packlib/kuip/kuip/klink1.h	1996-04-16 22:26:45.000000000 +0900
+++ src/packlib/kuip/kuip/klink1.h	2022-01-29 21:20:04.000000000 +0900
@@ -1,4 +1,4 @@
-struct {                        /*                                         */ __
+EXTERN struct {                        /*                                         */ __
   /* indirect calls to avoid linking HIGZ                                  */ __
   IntFunc    *graf_info_C;      /* pass display, open and close (ixmotif)  */ __
   SUBROUTINE *graf_size_F;      /* resize window (IGRSIZ)                  */ __
diff -uNr src.ORIG/packlib/kuip/programs/kuipc/klink_q1.h src/packlib/kuip/programs/kuipc/klink_q1.h
--- src.ORIG/packlib/kuip/programs/kuipc/klink_q1.h	1996-04-16 22:42:59.000000000 +0900
+++ src/packlib/kuip/programs/kuipc/klink_q1.h	2022-01-29 21:20:04.000000000 +0900
@@ -20,7 +20,11 @@
  */
 
 
-"struct {                        /*                                         */ \
+"\
+#ifndef EXTERN                  /*                                         */ \
+#define EXTERN extern           /*                                         */ \
+#endif                          /*                                         */ \
+EXTERN struct {                 /*                                         */ \
   /* indirect calls to avoid linking HIGZ                                  */ \
   IntFunc    *graf_info_C;      /* pass display, open and close (ixmotif)  */ \
   SUBROUTINE *graf_size_F;      /* resize window (IGRSIZ)                  */ \
diff -uNr src.ORIG/pawlib/paw/mlpfit/mlp_gen.c src/pawlib/paw/mlpfit/mlp_gen.c
--- src.ORIG/pawlib/paw/mlpfit/mlp_gen.c	2001-07-17 23:47:46.000000000 +0900
+++ src/pawlib/paw/mlpfit/mlp_gen.c	2022-01-30 08:47:48.000000000 +0900
@@ -7,6 +7,10 @@
 #include <cfortran/lapack.h>
 
 #define EXTERNMLP_GEN
+#ifndef EXTERN
+#define EXTERN
+#endif
+
 #include "mlp_gen.h"
 #include "mlp_sigmoide.h"
 
diff -uNr src.ORIG/pawlib/paw/mlpfit/mlp_gen.h src/pawlib/paw/mlpfit/mlp_gen.h
--- src.ORIG/pawlib/paw/mlpfit/mlp_gen.h	2000-02-23 19:26:15.000000000 +0900
+++ src/pawlib/paw/mlpfit/mlp_gen.h	2022-01-29 21:20:04.000000000 +0900
@@ -8,7 +8,7 @@
 typedef float type_pat;
 
 /* definition du reseau */
-struct 
+EXTERN struct 
 {
   int Nlayer, *Nneur, Nweights;
   dbl ***Weights;
@@ -20,7 +20,7 @@
 #define NET net_   
 
 /* apprentissage */
-struct
+EXTERN struct
 {
 	int Nepoch, Meth, Nreset;
 	dbl Tau,Norm,Decay,Lambda,Alambda;
@@ -31,7 +31,7 @@
 } learn_;
 #define LEARN learn_
 
-struct 
+EXTERN struct 
 {
 	int Npat[2],Iponde, Nin, Nout;
 	type_pat ***Rin, ***Rans, **Pond;
@@ -40,7 +40,7 @@
 } pat_;
 #define PAT pat_
 
-struct
+EXTERN struct
 {
 	int Dbin;
 	int Ihess;
@@ -49,7 +49,7 @@
 } divers_;
 #define DIVERS divers_	
 
-struct
+EXTERN struct
 {
 	dbl *mean,*sigma;
 } mlpstatstruct_;
@@ -83,13 +83,13 @@
 extern int NLineSearchFail;
 #endif
 
-dbl ***dir;
-dbl *delta;
-dbl **BFGSH;
-dbl *Gamma;
-dbl **JacobianMatrix;
-int *ExamplesIndex;
-dbl **Hessian;
+EXTERN dbl ***dir;
+EXTERN dbl *delta;
+EXTERN dbl **BFGSH;
+EXTERN dbl *Gamma;
+EXTERN dbl **JacobianMatrix;
+EXTERN int *ExamplesIndex;
+EXTERN dbl **Hessian;
 
 void 	MLP_Out(type_pat *rrin, dbl *rrout);
 void 	MLP_Out2(type_pat *rrin);
diff -uNr src.ORIG/pawlib/paw/mlpfit/mlp_inter.c src/pawlib/paw/mlpfit/mlp_inter.c
--- src.ORIG/pawlib/paw/mlpfit/mlp_inter.c	2001-05-21 18:12:44.000000000 +0900
+++ src/pawlib/paw/mlpfit/mlp_inter.c	2022-01-30 08:44:11.000000000 +0900
@@ -5,6 +5,9 @@
 #include <stdlib.h>
 
 /* #define MLPHEADER */
+#ifndef EXTERN
+#define EXTERN extern
+#endif
 #include "mlp_gen.h"
 
 /*  This file contains routines which can be called for fortran or C code 
diff -uNr src.ORIG/pawlib/paw/mlpfit/mlp_sigmoide.c src/pawlib/paw/mlpfit/mlp_sigmoide.c
--- src.ORIG/pawlib/paw/mlpfit/mlp_sigmoide.c	2000-02-23 19:26:17.000000000 +0900
+++ src/pawlib/paw/mlpfit/mlp_sigmoide.c	2022-01-29 21:20:04.000000000 +0900
@@ -1,4 +1,7 @@
 #include <math.h>
+#ifndef EXTERN
+#define EXTERN extern
+#endif
 #include "mlp_gen.h"
 
 /***********************************************************/
diff -uNr src.ORIG/pawlib/paw/cmotif/utils.c src/pawlib/paw/cmotif/utils.c
--- src.ORIG/pawlib/paw/cmotif/utils.c	2000-01-14 00:43:11.000000000 +0900
+++ src/pawlib/paw/cmotif/utils.c	2022-01-30 17:30:08.000000000 +0900
@@ -69,7 +69,11 @@
 
 
 /* global used by libPW.a */
+#if 0
 int Error;
+#else
+extern int Error;
+#endif
 
 /***********************************************************************
  *                                                                     *
diff -uNr src.ORIG/pawlib/paw/ntuple/c_decl.c src/pawlib/paw/ntuple/c_decl.c
--- src.ORIG/pawlib/paw/ntuple/c_decl.c	1999-06-29 00:08:19.000000000 +0900
+++ src/pawlib/paw/ntuple/c_decl.c	2022-01-30 17:25:59.000000000 +0900
@@ -22,9 +22,11 @@
 
 #include	<cfortran/cfortran.h>
 
+#if 0
 #ifndef __sgi
 #define extern
 #endif
+#endif
 
 #include	"c_hcbits.h"
 #include	"c_hcbook.h"