changeset 7:d68036bcad4c

[project @ 1993-08-08 03:53:43 by jwe]
author jwe
date Sun, 08 Aug 1993 03:53:43 +0000
parents 73cca179ce1f
children bd072d0a95f9
files src/colloc.cc src/dassl.cc src/det.cc src/eig.cc src/fft.cc src/fsolve.cc src/fsqp.cc src/hess.cc src/ifft.cc src/inv.cc src/lpsolve.cc src/lsode.cc src/lu.cc src/npsol.cc src/qpsol.cc src/qr.cc src/quad.cc src/rand.cc src/schur.cc src/svd.cc
diffstat 20 files changed, 40 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- 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 *
--- 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;
--- 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 *
--- 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 *
--- 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 *
--- 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;
--- 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;
--- 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 *
--- 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 *
--- 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 *
--- 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 *
--- 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)
--- 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 *
--- 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;
--- 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...
--- 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 *
--- 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;
--- 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 };
--- 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 *
--- 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 *