Mercurial > hg > octave-nkf

comparison src/fsqp.cc @ 453:393e95f46b51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-06-06 00:05:20 by jwe]
author jwe
date Mon, 06 Jun 1994 00:14:55 +0000
parents 7ec58832918f
children 88614b380d6e
comparison
equal deleted inserted replaced
452:565206294f5a 453:393e95f46b51
1 // f-fsqp.cc -*- C++ -*- 1 // f-fsqp.cc -*- C++ -*-
2 /* 2 /*
3 3
4 Copyright (C) 1993 John W. Eaton 4 Copyright (C) 1993, 1994 John W. Eaton
5 5
6 This file is part of Octave. 6 This file is part of Octave.
7 7
8 Octave is free software; you can redistribute it and/or modify it 8 Octave is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the 9 under the terms of the GNU General Public License as published by the
32 #include "tree-const.h" 32 #include "tree-const.h"
33 #include "error.h" 33 #include "error.h"
34 #include "f-fsqp.h" 34 #include "f-fsqp.h"
35 35
36 // Global pointers for user defined functions required by fsqp. 36 // Global pointers for user defined functions required by fsqp.
37 static tree *fsqp_objective; 37 // static tree *fsqp_objective;
38 static tree *fsqp_constraints; 38 // static tree *fsqp_constraints;
39 39
40 #ifdef WITH_DLD 40 #ifdef WITH_DLD
41 tree_constant * 41 tree_constant *
42 builtin_fsqp_2 (const tree_constant *args, int nargin, int nargout) 42 builtin_fsqp_2 (const tree_constant *args, int nargin, int nargout)
43 { 43 {