public TNBC()
{
#region Initialization Common Blocks
CommonBlock SUBSCR = new CommonBlock(0, 15, 0, 0);
#endregion
#region Dependencies (Initialization)
MCHPR1 mchpr1 = new MCHPR1();
DDOT ddot = new DDOT();
DNRM2 dnrm2 = new DNRM2();
CRASH crash = new CRASH();
ZTIME ztime = new ZTIME();
MONIT monit = new MONIT();
DCOPY dcopy = new DCOPY();
SSBFGS ssbfgs = new SSBFGS();
DAXPY daxpy = new DAXPY();
NEGVEC negvec = new NEGVEC();
STPMAX stpmax = new STPMAX();
GETPTC getptc = new GETPTC();
LSOUT lsout = new LSOUT();
MODZ modz = new MODZ();
CNVTST cnvtst = new CNVTST();
DXPY dxpy = new DXPY();
SETPAR setpar = new SETPAR(SUBSCR);
GTIMS gtims = new GTIMS(SUBSCR);
STEP1 step1 = new STEP1(mchpr1);
CHKUCP chkucp = new CHKUCP(mchpr1, dnrm2);
SETUCR setucr = new SETUCR(ddot);
INITP3 initp3 = new INITP3(ddot, dcopy);
INITPC initpc = new INITPC(initp3, SUBSCR);
MSLV mslv = new MSLV(ddot, ssbfgs);
MSOLVE msolve = new MSOLVE(mslv, SUBSCR);
NDIA3 ndia3 = new NDIA3(ddot);
MODLNP modlnp = new MODLNP(ddot, initpc, ztime, msolve, gtims, ndia3, daxpy, negvec, dcopy);
LINDER linder = new LINDER(ddot, getptc, lsout, dcopy);
LMQNBC lmqnbc = new LMQNBC(ddot, dnrm2, step1, crash, setpar, chkucp, setucr, ztime, monit, modlnp
, dcopy, stpmax, linder, modz, cnvtst, dxpy, SUBSCR);
#endregion
#region Set Dependencies
this._mchpr1 = mchpr1; this._lmqnbc = lmqnbc;
#endregion
}
public MODLNP(DDOT ddot, INITPC initpc, ZTIME ztime, MSOLVE msolve, GTIMS gtims, NDIA3 ndia3, DAXPY daxpy, NEGVEC negvec, DCOPY dcopy)
{
#region Set Dependencies
this._ddot = ddot; this._initpc = initpc; this._ztime = ztime; this._msolve = msolve; this._gtims = gtims;
this._ndia3 = ndia3;this._daxpy = daxpy; this._negvec = negvec; this._dcopy = dcopy;
#endregion
}
public MODLNP()
{
#region Initialization Common Blocks
CommonBlock SUBSCR = new CommonBlock(0, 15, 0, 0);
#endregion
#region Dependencies (Initialization)
DDOT ddot = new DDOT();
DCOPY dcopy = new DCOPY();
ZTIME ztime = new ZTIME();
SSBFGS ssbfgs = new SSBFGS();
DAXPY daxpy = new DAXPY();
NEGVEC negvec = new NEGVEC();
GTIMS gtims = new GTIMS(SUBSCR);
INITP3 initp3 = new INITP3(ddot, dcopy);
INITPC initpc = new INITPC(initp3, SUBSCR);
MSLV mslv = new MSLV(ddot, ssbfgs);
MSOLVE msolve = new MSOLVE(mslv, SUBSCR);
NDIA3 ndia3 = new NDIA3(ddot);
#endregion
#region Set Dependencies
this._ddot = ddot; this._initpc = initpc; this._ztime = ztime; this._msolve = msolve; this._gtims = gtims;
this._ndia3 = ndia3;this._daxpy = daxpy; this._negvec = negvec; this._dcopy = dcopy;
#endregion
}
public LMQNBC()
{
#region Initialization Common Blocks
CommonBlock SUBSCR = new CommonBlock(0, 15, 0, 0);
#endregion
#region Dependencies (Initialization)
DDOT ddot = new DDOT();
DNRM2 dnrm2 = new DNRM2();
MCHPR1 mchpr1 = new MCHPR1();
CRASH crash = new CRASH();
ZTIME ztime = new ZTIME();
MONIT monit = new MONIT();
DCOPY dcopy = new DCOPY();
SSBFGS ssbfgs = new SSBFGS();
DAXPY daxpy = new DAXPY();
NEGVEC negvec = new NEGVEC();
STPMAX stpmax = new STPMAX();
GETPTC getptc = new GETPTC();
LSOUT lsout = new LSOUT();
MODZ modz = new MODZ();
CNVTST cnvtst = new CNVTST();
DXPY dxpy = new DXPY();
SETPAR setpar = new SETPAR(SUBSCR);
GTIMS gtims = new GTIMS(SUBSCR);
STEP1 step1 = new STEP1(mchpr1);
CHKUCP chkucp = new CHKUCP(mchpr1, dnrm2);
SETUCR setucr = new SETUCR(ddot);
INITP3 initp3 = new INITP3(ddot, dcopy);
INITPC initpc = new INITPC(initp3, SUBSCR);
MSLV mslv = new MSLV(ddot, ssbfgs);
MSOLVE msolve = new MSOLVE(mslv, SUBSCR);
NDIA3 ndia3 = new NDIA3(ddot);
MODLNP modlnp = new MODLNP(ddot, initpc, ztime, msolve, gtims, ndia3, daxpy, negvec, dcopy);
LINDER linder = new LINDER(ddot, getptc, lsout, dcopy);
#endregion
#region Set Dependencies
this._ddot = ddot; this._dnrm2 = dnrm2; this._step1 = step1; this._crash = crash; this._setpar = setpar;
this._chkucp = chkucp;this._setucr = setucr; this._ztime = ztime; this._monit = monit; this._modlnp = modlnp;
this._dcopy = dcopy;this._stpmax = stpmax; this._linder = linder; this._modz = modz; this._cnvtst = cnvtst;
this._dxpy = dxpy;
#endregion
#region Common varaible Initialization
#region Common Block: SUBSCR Initialization
this._subscr = SUBSCR;
LGV = SUBSCR.intData[0];
LZ1 = SUBSCR.intData[1];
LZK = SUBSCR.intData[2];
LV = SUBSCR.intData[3];
LSK = SUBSCR.intData[4];
LYK = SUBSCR.intData[5];
LDIAGB = SUBSCR.intData[6];
LSR = SUBSCR.intData[7];
LYR = SUBSCR.intData[8];
LOLDG = SUBSCR.intData[9];
LHG = SUBSCR.intData[10];
LHYK = SUBSCR.intData[11];
LPK = SUBSCR.intData[12];
LEMAT = SUBSCR.intData[13];
LWTEST = SUBSCR.intData[14];
#endregion
#endregion
}