doublereal *hermit,
integer *iercod)
{
- static integer c__1 = 1;
+ integer c__1 = 1;
/* System generated locals */
integer contr1_dim1, contr1_offset, contr2_dim1, contr2_offset,
i__2, i__3;
/* Local variables */
- static integer nroo2, ncfhe, nd, ii, kk;
- static integer ibb, kkm, kkp;
- static doublereal bid1, bid2, bid3;
+ integer nroo2, ncfhe, nd, ii, kk;
+ integer ibb, kkm, kkp;
+ doublereal bid1, bid2, bid3;
/* **********************************************************************
*/
i__2, i__3;
/* Local variables */
- static integer nd, ii, jj, ibb;
- static doublereal bid;
+ integer nd, ii, jj, ibb;
+ doublereal bid;
/* ***********************************************************************
doublereal d__1;
/* Local variables */
- static integer ideb, ifin, nroo2, ideru, iderv;
- static doublereal renor;
- static integer ii, nd, ibb, iim, nbp, iip;
- static doublereal bid1, bid2;
+ integer ideb, ifin, nroo2, ideru, iderv;
+ doublereal renor;
+ integer ii, nd, ibb, iim, nbp, iip;
+ doublereal bid1, bid2;
/* **********************************************************************
*/
integer crvjac_dim1, crvjac_offset, i__1, i__2;
/* Local variables */
- static integer idim, ncfja, ncfnw, ndses, ii, kk, ibb, ier;
- static integer nbr0;
+ integer idim, ncfja, ncfnw, ndses, ii, kk, ibb, ier;
+ integer nbr0;
/* ***********************************************************************
integer hermit_dim1, hermit_offset;
/* Local variables */
- static integer ibb;
+ integer ibb;
crvjac_dim1, crvjac_offset, cgauss_dim1;
/* Local variables */
- static integer ibb;
+ integer ibb;
/* **********************************************************************
*/
doublereal d__1;
/* Local variables */
- static doublereal rider, riord;
- static integer nd, ibb;
- static doublereal bid;
+ doublereal rider, riord;
+ integer nd, ibb;
+ doublereal bid;
/* **********************************************************************
*/
integer i__1;
/* Local variables */
- static doublereal alinu, blinu, alinv, blinv;
- static integer ii, ibb;
+ doublereal alinu, blinu, alinv, blinv;
+ integer ii, ibb;
/* ***********************************************************************
*/
patjac_dim2, patjac_offset, i__1, i__2, i__3, i__4, i__5;
/* Local variables */
- static logical ldbg;
- static integer ndgu, ndgv;
- static doublereal bidu1, bidu2, bidv1, bidv2;
- static integer ioru1, iorv1, ii, nd, jj, ku, kv;
- static doublereal cnt1, cnt2, cnt3, cnt4;
+ logical ldbg;
+ integer ndgu, ndgv;
+ doublereal bidu1, bidu2, bidv1, bidv2;
+ integer ioru1, iorv1, ii, nd, jj, ku, kv;
+ doublereal cnt1, cnt2, cnt3, cnt4;
/* **********************************************************************
*/
vhermt_dim1, vhermt_offset, i__1, i__2, i__3, i__4;
/* Local variables */
- static logical ldbg;
- static integer ndgv1, ndgv2, ii, jj, nd, kk;
- static doublereal bid1, bid2;
+ logical ldbg;
+ integer ndgv1, ndgv2, ii, jj, nd, kk;
+ doublereal bid1, bid2;
/* **********************************************************************
*/
uhermt_dim1, uhermt_offset, i__1, i__2, i__3, i__4;
/* Local variables */
- static logical ldbg;
- static integer ndgu1, ndgu2, ii, jj, nd, kk;
- static doublereal bid1, bid2;
+ logical ldbg;
+ integer ndgu1, ndgu2, ii, jj, nd, kk;
+ doublereal bid1, bid2;
/* **********************************************************************
*/
patcan_offset, i__1, i__2;
/* Local variables */
- static logical ldbg;
- static integer ilon1, ilon2, ii, nd;
+ logical ldbg;
+ integer ilon1, ilon2, ii, nd;
/* **********************************************************************
*/
doublereal *diditb)
{
- static integer c__1 = 1;
+ integer c__1 = 1;
/* System generated locals */
integer contr1_dim1, contr1_dim2, contr1_offset, contr2_dim1, contr2_dim2,
i__5;
/* Local variables */
- static integer ncfhu, ncfhv, nuroo, nvroo, nd, ii, jj, kk, ll, ibb, kkm,
+ integer ncfhu, ncfhv, nuroo, nvroo, nd, ii, jj, kk, ll, ibb, kkm,
llm, kkp, llp;
- static doublereal bid1, bid2, bid3, bid4;
- static doublereal diu1, diu2, div1, div2, sou1, sou2, sov1, sov2;
+ doublereal bid1, bid2, bid3, bid4;
+ doublereal diu1, diu2, div1, div2, sou1, sou2, sov1, sov2;
/* **********************************************************************
*/
doublereal *diditb)
{
- static integer c__1 = 1;
+ integer c__1 = 1;
/* System generated locals */
integer sotbv1_dim1, sotbv1_dim2, sotbv1_offset, sotbv2_dim1, sotbv2_dim2,
sotbv2_offset, ditbv1_dim1, ditbv1_dim2, ditbv1_offset,
disotb_dim1, disotb_dim2, disotb_offset, i__1, i__2, i__3, i__4;
/* Local variables */
- static integer ncfhv, nuroo, nvroo, ii, nd, jj, kk, ibb, jjm, jjp;
- static doublereal bid1, bid2, bid3, bid4;
+ integer ncfhv, nuroo, nvroo, ii, nd, jj, kk, ibb, jjm, jjp;
+ doublereal bid1, bid2, bid3, bid4;
/* **********************************************************************
*/
doublereal *diditb)
{
- static integer c__1 = 1;
+ integer c__1 = 1;
/* System generated locals */
integer sotbu1_dim1, sotbu1_dim2, sotbu1_offset, sotbu2_dim1, sotbu2_dim2,
disotb_dim1, disotb_dim2, disotb_offset, i__1, i__2, i__3, i__4;
/* Local variables */
- static integer ncfhu, nuroo, nvroo, ii, nd, jj, kk, ibb, kkm, kkp;
- static doublereal bid1, bid2, bid3, bid4;
+ integer ncfhu, nuroo, nvroo, ii, nd, jj, kk, ibb, kkm, kkp;
+ doublereal bid1, bid2, bid3, bid4;
/* **********************************************************************
*/
integer *iercod)
{
- static integer c__8 = 8;
+ integer c__8 = 8;
/* System generated locals */
integer contr1_dim1, contr1_dim2, contr1_offset, contr2_dim1, contr2_dim2,
disotb_offset;
/* Local variables */
- static integer ilong;
- static intptr_t iofwr;
- static doublereal wrkar[1];
- static integer iszwr;
- static integer ibb, ier;
- static integer isz1, isz2, isz3, isz4;
- static intptr_t ipt1, ipt2, ipt3, ipt4;
+ integer ilong;
+ intptr_t iofwr;
+ doublereal* wrkar = 0;
+ integer iszwr;
+ integer ibb, ier;
+ integer isz1, isz2, isz3, isz4;
+ intptr_t ipt1, ipt2, ipt3, ipt4;
--sotbv2;
--ditbv1;
--ditbv2;
+ AdvApp2Var_SysBase anAdvApp2Var_SysBase;
/* Function Body */
ibb = AdvApp2Var_SysBase::mnfndeb_();
isz3 = ((*iordru + 1) << 1) * *nbpntu;
isz4 = ((*iordrv + 1) << 1) * *nbpntv;
iszwr = isz1 + isz2 + isz3 + isz4;
- AdvApp2Var_SysBase::mcrrqst_(&c__8, &iszwr, wrkar, &iofwr, &ier);
+ anAdvApp2Var_SysBase.mcrrqst_(&c__8, &iszwr, wrkar, &iofwr, &ier);
if (ier > 0) {
goto L9013;
}
L9999:
if (iofwr != 0) {
- AdvApp2Var_SysBase::mcrdelt_(&c__8, &iszwr, wrkar, &iofwr, &ier);
+ anAdvApp2Var_SysBase.mcrdelt_(&c__8, &iszwr, wrkar, &iofwr, &ier);
}
if (ier > 0) {
*iercod = 13;
integer *iercod)
{
- static integer c__8 = 8;
+ integer c__8 = 8;
/* System generated locals */
integer sosotb_dim1, sosotb_dim2, sosotb_offset, disotb_dim1, disotb_dim2,
patjac_offset;
/* Local variables */
- static logical ldbg;
- static intptr_t iofwr;
- static doublereal wrkar[1];
- static integer iszwr;
- static integer ier;
- static integer isz1, isz2, isz3, isz4, isz5, isz6, isz7;
- static intptr_t ipt1, ipt2, ipt3, ipt4, ipt5, ipt6, ipt7;
+ logical ldbg;
+ intptr_t iofwr;
+ doublereal* wrkar = 0;
+ integer iszwr;
+ integer ier;
+ integer isz1, isz2, isz3, isz4, isz5, isz6, isz7;
+ intptr_t ipt1, ipt2, ipt3, ipt4, ipt5, ipt6, ipt7;
isz6 = *ndjacv + 1 - ((*iordrv + 1) << 1);
isz7 = *ndimen << 2;
iszwr = isz1 + isz2 + isz3 + isz4 + isz5 + isz6 + isz7;
- AdvApp2Var_SysBase::mcrrqst_(&c__8, &iszwr, wrkar, &iofwr, &ier);
+ AdvApp2Var_SysBase anAdvApp2Var_SysBase;
+ anAdvApp2Var_SysBase.mcrrqst_(&c__8, &iszwr, wrkar, &iofwr, &ier);
if (ier > 0) {
goto L9013;
}
L9999:
if (iofwr != 0) {
- AdvApp2Var_SysBase::mcrdelt_(&c__8, &iszwr, wrkar, &iofwr, &ier);
+ anAdvApp2Var_SysBase.mcrdelt_(&c__8, &iszwr, wrkar, &iofwr, &ier);
}
if (ier > 0) {
*iercod = 13;
patjac_offset, vecerr_dim1, vecerr_offset, i__1, i__2, i__3, i__4;
/* Local variables */
- static logical ldbg;
- static integer idim, igsu, minu, minv, maxu, maxv, igsv;
- static doublereal vaux[3];
- static integer i2rdu, i2rdv, ndses, nd, ii, jj, kk, nu, nv;
- static doublereal zu, zv;
- static integer nu1, nv1;
+ logical ldbg;
+ integer idim, igsu, minu, minv, maxu, maxv, igsv;
+ doublereal vaux[3];
+ integer i2rdu, i2rdv, ndses, nd, ii, jj, kk, nu, nv;
+ doublereal zu, zv;
+ integer nu1, nv1;
/* **********************************************************************
*/
soditb_offset, diditb_dim1, i__1, i__2;
/* Local variables */
- static logical ldbg;
- static integer nptu2, nptv2, ii, jj;
- static doublereal bid0, bid1, bid2;
+ logical ldbg;
+ integer nptu2, nptv2, ii, jj;
+ doublereal bid0, bid1, bid2;
/* **********************************************************************
*/
patjac_offset, i__1, i__2;
/* Local variables */
- static logical ldbg;
- static integer nptv2, ii, jj;
- static doublereal bid1;
+ logical ldbg;
+ integer nptv2, ii, jj;
+ doublereal bid1;
/* **********************************************************************
*/
fpntab_offset, i__1;
/* Local variables */
- static logical ldbg;
- static integer ibid1, ibid2, iuouv, nd;
- static integer isz1, isz2;
+ logical ldbg;
+ integer ibid1, ibid2, iuouv, nd;
+ integer isz1, isz2;
/* **********************************************************************
*/
integer *iercod)
{
- static integer c__0 = 0;
+ integer c__0 = 0;
/* System generated locals */
integer sosotb_dim1, sosotb_dim2, sosotb_offset, disotb_dim1, disotb_dim2,
disotb_offset, soditb_dim1, soditb_dim2, soditb_offset,
fpntab_offset, i__1, i__2, i__3;
/* Local variables */
- static integer jdec;
- static logical ldbg;
- static doublereal alinu, blinu, alinv, blinv, tcons;
- static doublereal dbfn1[2], dbfn2[2];
- static integer nuroo, nvroo, id, iu, iv;
- static doublereal um, up;
+ integer jdec;
+ logical ldbg;
+ doublereal alinu, blinu, alinv, blinv, tcons;
+ doublereal dbfn1[2], dbfn2[2];
+ integer nuroo, nvroo, id, iu, iv;
+ doublereal um, up;
/* **********************************************************************
doublereal d__1;
/* Local variables */
- static logical ldbg;
- static integer minu, minv;
- static doublereal vaux[2];
- static integer ii, nd, jj;
- static doublereal bid0, bid1;
+ logical ldbg;
+ integer minu, minv;
+ doublereal vaux[2];
+ integer ii, nd, jj;
+ doublereal bid0, bid1;
/* **********************************************************************
*/
doublereal d__1;
/* Local variables */
- static logical ldbg;
- static doublereal vaux[2];
- static integer i2rdu, i2rdv;
- static doublereal errnu, errnv;
- static integer ii, nd, jj, nu, nv;
- static doublereal bid0, bid1;
+ logical ldbg;
+ doublereal vaux[2];
+ integer i2rdu, i2rdv;
+ doublereal errnu, errnv;
+ integer ii, nd, jj, nu, nv;
+ doublereal bid0, bid1;
/* **********************************************************************
*/
integer *iercod)
{
- static integer c__8 = 8;
+ integer c__8 = 8;
/* System generated locals */
integer courbe_dim1, courbe_dim2, courbe_offset, somtab_dim1, somtab_dim2,
doublereal d__1;
/* Local variables */
- static integer ideb;
- static doublereal tmil;
- static integer ideb1, ibid1, ibid2, ncfja, ndgre, ilong,
+ integer ideb;
+ doublereal tmil;
+ integer ideb1, ibid1, ibid2, ncfja, ndgre, ilong,
ndwrk;
- static doublereal wrkar[1];
- static integer nupil;
- static intptr_t iofwr;
- static doublereal uvpav[4] /* was [2][2] */;
- static integer nd, ii;
- static integer ibb;
- static integer ier;
- static doublereal uv11[4] /* was [2][2] */;
- static integer ncb1;
- static doublereal eps3;
- static integer isz1, isz2, isz3, isz4, isz5;
- static intptr_t ipt1, ipt2, ipt3, ipt4, ipt5,iptt, jptt;
+ doublereal* wrkar = 0;
+ integer nupil;
+ intptr_t iofwr;
+ doublereal uvpav[4] /* was [2][2] */;
+ integer nd, ii;
+ integer ibb;
+ integer ier;
+ doublereal uv11[4] /* was [2][2] */;
+ integer ncb1;
+ doublereal eps3;
+ integer isz1, isz2, isz3, isz4, isz5;
+ intptr_t ipt1, ipt2, ipt3, ipt4, ipt5,iptt, jptt;
/* **********************************************************************
*/
courbe_dim2 = *ndimen;
courbe_offset = courbe_dim1 * (courbe_dim2 + 1) + 1;
courbe -= courbe_offset;
+ AdvApp2Var_SysBase anAdvApp2Var_SysBase;
/* Function Body */
ibb = AdvApp2Var_SysBase::mnfndeb_();
isz5 = (*ndgjac + 1) * *ndimen;
ndwrk = isz1 + isz2 + isz3 + isz4 + isz5;
- AdvApp2Var_SysBase::mcrrqst_(&c__8, &ndwrk, wrkar, &iofwr, &ier);
+ anAdvApp2Var_SysBase.mcrrqst_(&c__8, &ndwrk, wrkar, &iofwr, &ier);
if (ier > 0) {
goto L9013; }
/* --> For the parameters of discretisation (NBROOT+2 extremities). */
L9900:
if (iofwr != 0) {
- AdvApp2Var_SysBase::mcrdelt_(&c__8, &ndwrk, wrkar, &iofwr, &ier);
+ anAdvApp2Var_SysBase.mcrdelt_(&c__8, &ndwrk, wrkar, &iofwr, &ier);
}
if (ier > 0) {
*iercod = 13;
doublereal d__1, d__2;
/* Local variables */
- static integer idim, ncfu, ncfv, id, ii, nd, jj, ku, kv, ns, ibb;
- static doublereal bid;
- static doublereal tol;
+ integer idim, ncfu, ncfv, id, ii, nd, jj, ku, kv, ns, ibb;
+ doublereal bid;
+ doublereal tol;
/* **********************************************************************
*/
integer i__1;
/* Local variables */
- static logical ldbg;
- static integer numax, ii;
- static doublereal bid;
+ logical ldbg;
+ integer numax, ii;
+ doublereal bid;
/* **********************************************************************
integer patjac_dim1, patjac_dim2, patjac_offset, i__1, i__2, i__3;
/* Local variables */
- static logical ldbg;
- static integer minu, minv, idebu, idebv, ii, nd, jj;
- static doublereal bid0, bid1;
+ logical ldbg;
+ integer minu, minv, idebu, idebv, ii, nd, jj;
+ doublereal bid0, bid1;
/* **********************************************************************
integer i__1;
/* Local variables */
- static integer ii, ibb;
+ integer ii, ibb;
/* **********************************************************************
*/
crvjac_dim1, crvjac_offset, gsstab_dim1, i__1, i__2, i__3;
/* Local variables */
- static integer igss, ikdeb;
- static doublereal bidon;
- static integer nd, ik, ir, nbroot, ibb;
+ integer igss, ikdeb;
+ doublereal bidon;
+ integer nd, ik, ir, nbroot, ibb;
/* **********************************************************************
*/
integer crvjac_dim1, crvjac_offset, i__1, i__2;
/* Local variables */
- static doublereal bidj;
- static integer i__, ia, nd, ncfcut, ibb;
- static doublereal bid;
+ doublereal bidj;
+ integer i__, ia, nd, ncfcut, ibb;
+ doublereal bid;
/* **********************************************************************
*/
integer cgauss_dim1, i__1;
/* Local variables */
- static integer kjac, iptt, ipdb0, infdg, iptdb, mxjac, ilong, ibb;
+ integer kjac, iptt, ipdb0, infdg, iptdb, mxjac, ilong, ibb;
/* **********************************************************************
*/
ptcaux_offset, i__1, i__2, i__3;
/* Local variables */
- static integer kdim, nd, ii, jj, ibb;
+ integer kdim, nd, ii, jj, ibb;
/* ***********************************************************************
*/