Exemplo n.º 1
0
        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
        }
Exemplo n.º 2
0
        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
        }
Exemplo n.º 3
0
        public LMQNBC(DDOT ddot, DNRM2 dnrm2, STEP1 step1, CRASH crash, SETPAR setpar, CHKUCP chkucp, SETUCR setucr, ZTIME ztime, MONIT monit, MODLNP modlnp
            , DCOPY dcopy, STPMAX stpmax, LINDER linder, MODZ modz, CNVTST cnvtst, DXPY dxpy, CommonBlock SUBSCR)
        {
            #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
        }