qld.cpp File Reference

#include <math.h>
#include <stdio.h>

Include dependency graph for qld.cpp:

Classes
struct	complex
struct	doublecomplex
struct	cilist
struct	icilist
struct	olist
struct	cllist
struct	alist
struct	inlist
union	Multitype
struct	Vardesc
struct	Namelist
struct	t_cmache_

Macros
#define	F2C_INCLUDE
#define	TRUE_   (1)
#define	FALSE_   (0)
#define	Extern   extern
#define	VOID   void
#define	abs(x)   ((x) >= 0 ? (x) : -(x))
#define	dabs(x)   (doublereal) abs(x)
#define	min(a, b)   ((a) <= (b) ? (a) : (b))
#define	max(a, b)   ((a) >= (b) ? (a) : (b))
#define	dmin(a, b)   (doublereal) min(a, b)
#define	dmax(a, b)   (doublereal) max(a, b)
#define	F2C_proc_par_types   1
#define	cmache_1   cmache_

Typedefs
typedef int	integer
typedef char *	address
typedef short int	shortint
typedef float	real
typedef double	doublereal
typedef long int	logical
typedef short int	shortlogical
typedef long	flag
typedef long	ftnlen
typedef long	ftnint
typedef union Multitype	Multitype
typedef long	Long
typedef struct Vardesc	Vardesc
typedef struct Namelist	Namelist
typedef int(*	U_fp) ()
typedef shortint(*	J_fp) ()
typedef integer(*	I_fp) ()
typedef real(*	R_fp) ()
typedef doublereal(*	D_fp) ()
typedef doublereal(*)(*	E_fp) ()
typedef VOID(*	C_fp) ()
typedef VOID(*	Z_fp) ()
typedef logical(*	L_fp) ()
typedef shortlogical(*	K_fp) ()
typedef VOID(*	H_fp) ()
typedef int(*	S_fp) ()
typedef VOID	C_f
typedef VOID	H_f
typedef VOID	Z_f
typedef doublereal	E_f

Functions
int	ql0002_ ()
int	ql0001_ (m, me, mmax, n, nmax, mnn, c, d, a, b, xl, xu, x, u, iout, ifail, iprint, war, lwar, iwar, liwar, eps1) integer *m
	if (fabs(c[*nmax+ *nmax *c_dim1])==0.e0)
	if (iwar[1]==1)
	for (j=1;j<=i__1;++j)
	if (inw2+lw > *lwar)
	ql0002_ (n, m, me, mmax, &mn, mnn, nmax, &lql, &a[a_offset], &war[inw1], &d[1], &c[c_offset], &xl[1], &xu[1], &x[1], &nact, &iwar[1], &maxit, &qpeps, &info, &diag, &war[inw2], &lw)
	if (info==1)
	if (info< 0)
	if (nact==0)
	for (i=1;i<=i__1;++i)
int	ql0002_ (n, m, meq, mmax, mn, mnn, nmax, lql, a, b, grad, g, xl, xu, x, nact, iact, maxit, vsmall, info, diag, w, lw) integer *n
	for (k=1;k<=i__1;++k)
	if (!(*lql))
	if (k >=2)
	if (w[kdrop] >=zero)
	if (iact[kdrop]<= *meq)
	if (cvmax<= *vsmall)
	if (jfinc==0)
	if (jfinc !=ifinc)
	if (sum<=fdiffa)
	if (temp<=sum)
	if (iterc<= *maxit)
	if (knext > *m)
	if (k1 > *n)
	if (tempa<=temp)
	if (sumb > *vsmall)
	if (knext<= *m)
	printf ("info on inconsistent constraint\n")
	if (kdrop==0)
	if (itref<=0)
	if (itref==1)
	if (i > 1)
	if (lflag==3)
	if (iact[kdrop] > *mn)
	switch ((int) mflag)
	if (nu== *nact)
	if (w[is]==zero)

Variables
t_cmache_	cmache_
int *	me
int *	mmax
int *	n
int *	nmax
int *	mnn
doublereal *	c = c_offset
doublereal *	d
doublereal *	a = a_offset
doublereal *	b
doublereal *	xl
doublereal *	xu
doublereal *	x
doublereal *	u
integer *	iout
integer *	ifail = 0
integer *	iprint
doublereal *	war
integer *	lwar
integer *	iwar
integer *	liwar
doublereal *	eps1
	a_dim1 = *mmax
	a_offset = a_dim1 + 1
	c_dim1 = *nmax
	c_offset = c_dim1 + 1
cmache_1	eps = *eps1
if	m
	i__1 = *m
L20	__pad0__
L30	__pad1__
L70	__pad2__
	return
L80	__pad3__
L81	__pad4__
L82	__pad5__
L40	__pad6__
L90	__pad7__
int *	meq
doublereal *	grad
doublereal *	g = g_offset
integer *	iact = knext
doublereal *	vsmall
doublereal *	w = sum / w[ir]
doublereal	d__1
doublereal	d__2 = w[ir] / temp
doublereal	d__3 = (d__1 = w[ir - 1], abs(d__1))
doublereal	d__4 = (d__2 = w[ir], abs(d__2))
	g_dim1 = *nmax
	g_offset = g_dim1 + 1
L45	__pad8__
L70	__pad9__
L90	__pad10__
goto	L170
L140	__pad11__
L150	__pad12__
goto	L70
L165	__pad13__
L170	__pad14__
	i__2 = *n
L230	__pad15__
	else
L250	__pad16__
L280	__pad17__
L340	__pad18__
goto	L930
L350	__pad19__
L380	__pad20__
goto	L740
L390	__pad21__
L410	__pad22__
goto	L910
L420	__pad23__
goto	L440
L430	__pad24__
goto	L800
L440	__pad25__
L450	__pad26__
L481	__pad27__
L510	__pad28__
L530	__pad29__
goto	L710
L531	__pad30__
goto	L549
L541	__pad31__
goto	L550
L545	__pad32__
L549	__pad33__
L550	__pad34__
goto	L860
L560	__pad35__
goto	L570
L5	__pad36__
goto	L640
L567	__pad37__
L570	__pad38__
L571	__pad39__
goto	L775
L574	__pad40__
L580	__pad41__
L590	__pad42__
L601	__pad43__
L610	__pad44__
L630	__pad45__
L640	__pad46__
L650	__pad47__
L660	__pad48__
L680	__pad49__
L690	__pad50__
L700	__pad51__
L710	__pad52__
L730	__pad53__
L740	__pad54__
goto	L770
L750	__pad55__
L761	__pad56__
L770	__pad57__
L775	__pad58__
L791	__pad59__
case	__pad60__
L800	__pad61__
L810	__pad62__
L850	__pad63__
L860	__pad64__
L870	__pad65__
L880	__pad66__
goto	L880
L900	__pad67__
case	__pad68__
L910	__pad69__
L930	__pad70__

Macro Definition Documentation

abs

#define abs

(

x

)

((x) >= 0 ? (x) : -(x))

cmache_1

#define cmache_1   cmache_

dabs

#define dabs

(

x

)

(doublereal) abs(x)

dmax

#define dmax	(		a,
			b
	)		(doublereal) max(a, b)

dmin

#define dmin	(		a,
			b
	)		(doublereal) min(a, b)

Extern

#define Extern   extern

F2C_INCLUDE

#define F2C_INCLUDE

barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed."

• From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition)

F2C_proc_par_types

#define F2C_proc_par_types   1

FALSE_

#define FALSE_   (0)

max

#define max	(		a,
			b
	)		((a) >= (b) ? (a) : (b))

min

#define min	(		a,
			b
	)		((a) <= (b) ? (a) : (b))

TRUE_

#define TRUE_   (1)

VOID

#define VOID   void

Typedef Documentation

address

typedef char* address

C_f

typedef VOID C_f

C_fp

typedef VOID(* C_fp) ()

D_fp

typedef doublereal(* D_fp) ()

doublereal

typedef double doublereal

E_f

typedef doublereal E_f

E_fp

typedef doublereal(*)(* E_fp) ()

flag

typedef long flag

ftnint

typedef long ftnint

ftnlen

typedef long ftnlen

H_f

typedef VOID H_f

H_fp

typedef VOID(* H_fp) ()

I_fp

typedef integer(* I_fp) ()

integer

typedef int integer

J_fp

typedef shortint(* J_fp) ()

K_fp

typedef shortlogical(* K_fp) ()

L_fp

typedef logical(* L_fp) ()

logical

typedef long int logical

Long

typedef long Long

Multitype

typedef union Multitype Multitype

Namelist

typedef struct Namelist Namelist

R_fp

typedef real(* R_fp) ()

real

typedef float real

S_fp

typedef int(* S_fp) ()

shortint

typedef short int shortint

shortlogical

typedef short int shortlogical

U_fp

typedef int(* U_fp) ()

Vardesc

typedef struct Vardesc Vardesc

Z_f

typedef VOID Z_f

Z_fp

typedef VOID(* Z_fp) ()

Function Documentation

for() [1/3]

for

(

i

= 1; i <= i__1; ++i

)

for() [2/3]

for

(

j

= 1; j <= i__1; ++j

)

for() [3/3]

for

(

k

= 1; k <= i__1; ++k

)

if() [1/29]

if

(

! *

lql

)

if() [2/29]

if

(

cvmax<= *

vsmall

)

if() [3/29]

if

(

fabs(c[ *nmax+*nmax *c_dim1])

= = 0.e0

)

if() [4/29]

if	(	i	,
		1
	)

if() [5/29]

if	(	iact	[kdrop],
		*	mn
	)

if() [6/29]

if

(

iact<= *

meq[kdrop]

)

if() [7/29]

if

(

)

if() [8/29]

if

(

info

= = 1

)

if() [9/29]

if	(	inw2+	lw,
		*	lwar
	)

if() [10/29]

if

(

iterc<= *

maxit

)

if() [11/29]

if

(

itref<=

0

)

if() [12/29]

if

(

itref

= = 1

)

if() [13/29]

if

(

iwar

[1] = = 1

)

if() [14/29]

if

(

jfinc !

= ifinc

)

if() [15/29]

if

(

jfinc

= = 0

)

if() [16/29]

if

(

k >=

2

)

if() [17/29]

if	(	k1	,
		*	n
	)

if() [18/29]

if

(

kdrop

= = 0

)

if() [19/29]

if	(	knext	,
		*	m
	)

if() [20/29]

if

(

knext<= *

m

)

if() [21/29]

if

(

lflag

= = 3

)

if() [22/29]

if

(

nact

= = 0

)

if() [23/29]

if

(

nu

= = *nact

)

if() [24/29]

if

(

sum<=

fdiffa

)

if() [25/29]

if	(	sumb	,
		*	vsmall
	)

if() [26/29]

if

(

temp<=

sum

)

if() [27/29]

if

(

tempa<=

temp

)

if() [28/29]

if

(

w

[is] = = zero

)

if() [29/29]

if

(

w >=

zero[kdrop]

)

printf()

printf

(

"info on inconsistent constraint\n"

)

ql0001_()

int ql0001_	(	m	,
		me	,
		mmax	,
		n	,
		nmax	,
		mnn	,
		c	,
		d	,
		a	,
		b	,
		xl	,
		xu	,
		x	,
		u	,
		iout	,
		ifail	,
		iprint	,
		war	,
		lwar	,
		iwar	,
		liwar	,
		eps1
	)

ql0002_() [1/3]

int ql0002_

(

)

ql0002_() [2/3]

ql0002_	(	n	,
		m	,
		me	,
		mmax	,
		&	mn,
		mnn	,
		nmax	,
		&	lql,
		&	a[a_offset],
		&	war[inw1],
		&	d[1],
		&	c[c_offset],
		&	xl[1],
		&	xu[1],
		&	x[1],
		&	nact,
		&	iwar[1],
		&	maxit,
		&	qpeps,
		&	info,
		&	diag,
		&	war[inw2],
		&	lw
	)

ql0002_() [3/3]

int ql0002_	(	n	,
		m	,
		meq	,
		mmax	,
		mn	,
		mnn	,
		nmax	,
		lql	,
		a	,
		b	,
		grad	,
		g	,
		xl	,
		xu	,
		x	,
		nact	,
		iact	,
		maxit	,
		vsmall	,
		info	,
		diag	,
		w	,
		lw
	)

switch()

switch

(

(int)

mflag

)

Variable Documentation

__pad0__

L20 __pad0__

__pad10__

L90 __pad10__

__pad11__

L140 __pad11__

__pad12__

L150 __pad12__

__pad13__

L165 __pad13__

__pad14__

L170 __pad14__

__pad15__

L230 __pad15__

__pad16__

L250 __pad16__

__pad17__

L280 __pad17__

__pad18__

L340 __pad18__

__pad19__

L350 __pad19__

__pad1__

L30 __pad1__

__pad20__

L380 __pad20__

__pad21__

L390 __pad21__

__pad22__

L410 __pad22__

__pad23__

L420 __pad23__

__pad24__

L430 __pad24__

__pad25__

L440 __pad25__

__pad26__

L450 __pad26__

__pad27__

L481 __pad27__

__pad28__

L510 __pad28__

__pad29__

L530 __pad29__

__pad2__

L70 __pad2__

__pad30__

L531 __pad30__

__pad31__

L541 __pad31__

__pad32__

L545 __pad32__

__pad33__

L549 __pad33__

__pad34__

L550 __pad34__

__pad35__

L560 __pad35__

__pad36__

L5 __pad36__

__pad37__

L567 __pad37__

__pad38__

L570 __pad38__

__pad39__

L571 __pad39__

__pad3__

L80 __pad3__

__pad40__

L574 __pad40__

__pad41__

L580 __pad41__

__pad42__

L590 __pad42__

__pad43__

L601 __pad43__

__pad44__

L610 __pad44__

__pad45__

L630 __pad45__

__pad46__

L640 __pad46__

__pad47__

L650 __pad47__

__pad48__

L660 __pad48__

__pad49__

L680 __pad49__

__pad4__

L81 __pad4__

__pad50__

L690 __pad50__

__pad51__

L700 __pad51__

__pad52__

L710 __pad52__

__pad53__

L730 __pad53__

__pad54__

L740 __pad54__

__pad55__

L750 __pad55__

__pad56__

L761 __pad56__

__pad57__

L770 __pad57__

__pad58__

L775 __pad58__

__pad59__

L791 __pad59__

__pad5__

L82 __pad5__

__pad60__

case __pad60__

__pad61__

L800 __pad61__

__pad62__

L810 __pad62__

__pad63__

L850 __pad63__

__pad64__

L860 __pad64__

__pad65__

L870 __pad65__

__pad66__

L880 __pad66__

__pad67__

L900 __pad67__

__pad68__

case __pad68__

__pad69__

L910 __pad69__

__pad6__

L40 __pad6__

__pad70__

L930 __pad70__

__pad7__

L90 __pad7__

__pad8__

L45 __pad8__

__pad9__

L70 __pad9__

a

doublereal * a = a_offset

a_dim1

a_dim1 = *mmax

a_offset

a_offset = a_dim1 + 1

b

doublereal * b

c

c = c_offset

c_dim1

c_dim1 = *nmax

c_offset

c_offset = c_dim1 + 1

cmache_

t_cmache_ cmache_

d

d

d__1

d__1

Initial value:

{
  
  integer a_dim1, a_offset, g_dim1, g_offset, i__1, i__2, i__3, i__4

d__2

d__2 = w[ir] / temp

d__3

d__3 = (d__1 = w[ir - 1], abs(d__1))

d__4

d__4 = (d__2 = w[ir], abs(d__2))

else

else

Initial value:

{
    goto L280

eps

cmache_1 eps = *eps1

eps1

doublereal* eps1

g

g = g_offset

g_dim1

g_dim1 = *nmax

g_offset

g_offset = g_dim1 + 1

grad

grad

i__1

i__1 = *m

i__2

i__2 = *n

iact

iact[kdrop - 1] = knext

ifail

* ifail = 0

iout

integer* iout

iprint

integer * iprint

iwar

iwar

L170

goto L170

L440

goto L440

L549

goto L549

L550

goto L550

L570

goto L570

L640

goto L640

L70

goto L70

L710

goto L710

L740

goto L740

L770

goto L770

L775

goto L775

L800

goto L800

L860

goto L860

L880

goto L880

L910

goto L910

L930

goto L930

liwar

if liwar

Initial value:

{
    goto L81

lwar

integer* lwar

m

if m

Initial value:

{
    goto L20

me

int * me

meq

int * meq

mmax

int * mmax

mnn

int * mnn

Initial value:

{
    goto L82

n

int * n

nmax

int * nmax

return

return

u

u

vsmall

doublereal* vsmall

w

w[is - 1] = sum / w[ir]

war

war

x

doublereal * x

xl

doublereal * xl

xu

doublereal * xu