/[ascend]/trunk/ascend4/solver/rsqp.h
ViewVC logotype

Annotation of /trunk/ascend4/solver/rsqp.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations) (download) (as text)
Fri Oct 29 20:54:12 2004 UTC (17 years, 8 months ago) by aw0a
File MIME type: text/x-chdr
File size: 3519 byte(s)
Setting up web subdirectory in repository
1 aw0a 1 /* copyright 1998 Carnegie Mellon University.
2     * By Dave Ternet and Ben Allan
3     * Version: $Revision: 1.5 $
4     * Version control file: $RCSfile: rsqp.h,v $
5     * Date last modified: $Date: 1998/04/25 14:05:26 $
6     * Last modified by: $Author: ballan $
7     */
8     #ifndef __RSQP_H_SEEN__
9     #define __RSQP_H_SEEN__
10    
11     /* this header expects ascConfig.h */
12    
13     #if defined(CRAY) || defined(__WIN32__)
14     #define OPT_ASCEND OPT_ASCEND
15     #define SET_OPT_COMMON SET_OPT_COMMON
16     #define GET_OPT_COMMON GET_OPT_COMMON
17     #define INIT_OPT_COMMON INIT_OPT_COMMON
18     #define INIT_OPT_DEFAULTS SET_OPT_DEFAULTS
19     #define GET_OPT_OUTPUT GET_OPT_OUTPUT
20     #define CHECK_MEM CHECK_MEM
21     #endif /* cray, windoze */
22    
23     #if defined (APOLLO) || defined (_HPUX_SOURCE)
24     #define OPT_ASCEND opt_ascend
25     #define SET_OPT_COMMON set_opt_common
26     #define GET_OPT_COMMON get_opt_common
27     #define INIT_OPT_COMMON init_opt_common
28     #define INIT_OPT_DEFAULTS set_opt_defaults
29     #define GET_OPT_OUTPUT get_opt_output
30     #define CHECK_MEM check_mem
31     #endif /* apollo, hpux9 */
32    
33     #ifndef OPT_ASCEND
34     #define OPT_ASCEND opt_ascend_
35     #define SET_OPT_COMMON set_opt_common_
36     #define GET_OPT_COMMON get_opt_common_
37     #define INIT_OPT_COMMON init_opt_common_
38     #define INIT_OPT_DEFAULTS set_opt_defaults_
39     #define GET_OPT_OUTPUT get_opt_output_
40     #define CHECK_MEM check_mem_
41     #endif /* everyone else */
42    
43    
44     /* ALL OPT_ASCEND ints below are expected to be 32 bits (INTEGER*4) */
45     /* ALL OPT_ASCEND doubles below are expected to be 64 bits (REAL*8) */
46     extern void OPT_ASCEND (
47     int32 *, /* n */
48     int32 *, /* m */
49     int32 *, /* md */
50     real64 *, /* x */
51     real64 *, /* f */
52     real64 *, /* g */
53     real64 *, /* c */
54     real64 *, /* a */
55     int32 *, /* nz */
56     int32 *, /* nzd */
57     int32 *, /* avar */
58     int32 *, /* acon */
59     int32 *, /* ibnds */
60     real64 *, /* bnds */
61     int32 *, /* inf */
62     real64 *, /* trust */
63     int32 *, /* liw */
64     int32 *, /* iw */
65     int32 *, /* lrw */
66     real64 * /* rw */
67     );
68    
69    
70     /* initialize rsqp internal common blocks to their default values.
71     * these are not the control parameters.
72     */
73     extern void INIT_OPT_COMMON(void);
74    
75     /* have opt set defaults in its common block control parameters. */
76     extern void INIT_OPT_DEFAULTS(void);
77    
78     #define ICONTROLSIZE 12
79     #define RCONTROLSIZE 1
80     /* get the common block control parameters */
81     extern void GET_OPT_COMMON(
82     real64 *eps,
83     int32 *maxit,
84     int32 *kprint,
85     int32 *idebug,
86     int32 *ioption,
87     int32 *ichoose,
88     int32 *icorr,
89     int32 *i_mult_free,
90     int32 *iiexact,
91     int32 *ipmethod,
92     int32 *ilusolve,
93     int32 *iwarm,
94     int32 *cnr
95     );
96    
97     /* set the common block control parameters */
98     extern void SET_OPT_COMMON(
99     real64 *eps,
100     int32 *maxit,
101     int32 *kprint,
102     int32 *idebug,
103     int32 *ioption,
104     int32 *ichoose,
105     int32 *icorr,
106     int32 *i_mult_free,
107     int32 *iiexact,
108     int32 *ipmethod,
109     int32 *ilusolve,
110     int32 *iwarm,
111     int32 *cnr
112     );
113    
114     /* get common block iteration status information */
115     extern void GET_OPT_OUTPUT(
116     real64 *fout,
117     real64 *e1out,
118     real64 *e2out,
119     real64 *ynout,
120     real64 *znout,
121     real64 *alfaout,
122     int32 *nactout
123     );
124    
125     /* get opt to tell us roughly how much space we need to send it. */
126     extern void CHECK_MEM(
127     int32 *inform,
128     int32 *iguess,
129     int32 *rguess,
130     int32 *n,
131     int32 *m,
132     int32 *nzd,
133     int32 *iwsize, /* out */
134     int32 *rwsize /* out */
135     );
136    
137     #endif /* __RSQP_H_SEEN__ */

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22