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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download) (as text)
Fri Oct 29 20:54:12 2004 UTC (17 years, 6 months ago) by aw0a
File MIME type: text/x-chdr
File size: 3519 byte(s)
Setting up web subdirectory in repository
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