1
; libctl: flexible Guile-based control files for scientific software
2
; Copyright (C) 1998, 1999, 2000, 2001, 2002, Steven G. Johnson
4
; This library is free software; you can redistribute it and/or
5
; modify it under the terms of the GNU Lesser General Public
6
; License as published by the Free Software Foundation; either
7
; version 2 of the License, or (at your option) any later version.
9
; This library is distributed in the hope that it will be useful,
10
; but WITHOUT ANY WARRANTY; without even the implied warranty of
11
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12
; Lesser General Public License for more details.
14
; You should have received a copy of the GNU Lesser General Public
15
; License along with this library; if not, write to the
16
; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17
; Boston, MA 02111-1307, USA.
19
; Steven G. Johnson can be contacted at stevenj@alum.mit.edu.
21
; ****************************************************************
23
; Include other files that we need. Note that the include.scm
24
; file must already have been loaded, since we need the include
25
; function it defines!
28
(include "vector3.scm")
29
(include "matrix3x3.scm")
31
(include "io-vars.scm")
32
(include "extern-funcs.scm")
34
(include "simplex.scm")
35
(include "math-utils.scm")
36
(include "interaction.scm")
38
(define-param interactive? #t)
40
; ****************************************************************