# HG changeset patch # User jwe # Date 744782023 0 # Node ID d68036bcad4c6a30e81fff6cd5f4d85554b45121 # Parent 73cca179ce1f258f86fdc79205e643bb6cafa71b [project @ 1993-08-08 03:53:43 by jwe] diff -r 73cca179ce1f -r d68036bcad4c src/colloc.cc --- a/src/colloc.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/colloc.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-colloc.cc -*- C++ -*- +// f-colloc.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -30,6 +30,7 @@ #include "tree-const.h" #include "error.h" #include "utils.h" +#include "f-colloc.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/dassl.cc --- a/src/dassl.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/dassl.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-dassl.cc -*- C++ -*- +// f-dassl.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -32,6 +32,7 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-dassl.h" // Global pointer for user defined function required by dassl. static tree *dassl_fcn; diff -r 73cca179ce1f -r d68036bcad4c src/det.cc --- a/src/det.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/det.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-det.cc -*- C++ -*- +// f-det.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-det.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/eig.cc --- a/src/eig.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/eig.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-eig.cc -*- C++ -*- +// f-eig.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-eig.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/fft.cc --- a/src/fft.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/fft.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-fft.cc -*- C++ -*- +// f-fft.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-fft.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/fsolve.cc --- a/src/fsolve.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/fsolve.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-fsolve.cc -*- C++ -*- +// f-fsolve.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -32,6 +32,7 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-fsolve.h" // Global pointer for user defined function required by hybrd1. static tree *fsolve_fcn; diff -r 73cca179ce1f -r d68036bcad4c src/fsqp.cc --- a/src/fsqp.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/fsqp.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-fsqp.cc -*- C++ -*- +// f-fsqp.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "tree-const.h" #include "error.h" +#include "f-fsqp.h" // Global pointers for user defined functions required by fsqp. static tree *fsqp_objective; diff -r 73cca179ce1f -r d68036bcad4c src/hess.cc --- a/src/hess.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/hess.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-hess.cc -*- C++ -*- +// f-hess.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "error.h" #include "gripes.h" +#include "f-hess.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/ifft.cc --- a/src/ifft.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/ifft.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-ifft.cc -*- C++ -*- +// f-ifft.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-ifft.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/inv.cc --- a/src/inv.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/inv.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-inv.cc -*- C++ -*- +// f-inv.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-inv.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/lpsolve.cc --- a/src/lpsolve.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/lpsolve.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-lpsolve.cc -*- C++ -*- +// f-lpsolve.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -29,6 +29,7 @@ #include "tree-const.h" #include "error.h" +#include "f-lpsolve.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/lsode.cc --- a/src/lsode.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/lsode.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-lsode.cc -*- C++ -*- +// f-lsode.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -32,11 +32,11 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-lsode.h" // Global pointer for user defined function required by lsode. static tree *lsode_fcn; - #ifdef WITH_DLD tree_constant * builtin_lsode_2 (tree_constant *args, int nargin, int nargout) diff -r 73cca179ce1f -r d68036bcad4c src/lu.cc --- a/src/lu.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/lu.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-lu.cc -*- C++ -*- +// f-lu.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -30,6 +30,7 @@ #include "tree-const.h" #include "user-prefs.h" #include "gripes.h" +#include "f-lu.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/npsol.cc --- a/src/npsol.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/npsol.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-npsol.cc -*- C++ -*- +// f-npsol.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -34,6 +34,7 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-npsol.h" // Global pointers for user defined functions required by npsol. static tree *npsol_objective; diff -r 73cca179ce1f -r d68036bcad4c src/qpsol.cc --- a/src/qpsol.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/qpsol.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-qpsol.cc -*- C++ -*- +// f-qpsol.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -34,6 +34,7 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-qpsol.h" // This should probably be defined in some shared file and declared in // a header file... diff -r 73cca179ce1f -r d68036bcad4c src/qr.cc --- a/src/qr.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/qr.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-qr.cc -*- C++ -*- +// f-qr.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -30,6 +30,7 @@ #include "tree-const.h" #include "user-prefs.h" #include "gripes.h" +#include "f-qr.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/quad.cc --- a/src/quad.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/quad.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-quad.cc -*- C++ -*- +// f-quad.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -33,6 +33,7 @@ #include "gripes.h" #include "error.h" #include "utils.h" +#include "f-quad.h" // Global pointer for user defined function required by quadrature functions. static tree *quad_fcn; diff -r 73cca179ce1f -r d68036bcad4c src/rand.cc --- a/src/rand.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/rand.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-rand.cc -*- C++ -*- +// f-rand.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -29,6 +29,7 @@ #include "f77-uscore.h" #include "error.h" #include "utils.h" +#include "f-rand.h" // Possible distributions of random numbers. enum rand_dist { uniform, normal }; diff -r 73cca179ce1f -r d68036bcad4c src/schur.cc --- a/src/schur.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/schur.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-schur.cc -*- C++ -*- +// f-schur.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "error.h" #include "gripes.h" +#include "f-schur.h" #ifdef WITH_DLD tree_constant * diff -r 73cca179ce1f -r d68036bcad4c src/svd.cc --- a/src/svd.cc Sun Aug 08 02:12:07 1993 +0000 +++ b/src/svd.cc Sun Aug 08 03:53:43 1993 +0000 @@ -1,4 +1,4 @@ -// tc-svd.cc -*- C++ -*- +// f-svd.cc -*- C++ -*- /* Copyright (C) 1993 John W. Eaton @@ -31,6 +31,7 @@ #include "user-prefs.h" #include "gripes.h" #include "error.h" +#include "f-svd.h" #ifdef WITH_DLD tree_constant *