/* ---------------------- Legendre polynom of degree NBROOT -------------------
*/
- foncnp.Evaluate (ndimen,
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (ndimen,
&uvfonc[3],
&uvfonc[5],
isofav,
bid1 = (uvfonc[6] - uvfonc[5]) / 2.;
i__1 = *iordre;
for (iderv = 1; iderv <= i__1; ++iderv) {
- foncnp.Evaluate (ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst,
- &nbp, ttable, &ideru, &iderv, &contr1[(iderv + 1) *
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst, &
+ nbp, ttable, &ideru, &iderv, &contr1[(iderv + 1) *
contr1_dim1 + 1], iercod);
if (*iercod > 0) {
goto L9999;
}
i__1 = *iordre;
for (iderv = 1; iderv <= i__1; ++iderv) {
- foncnp.Evaluate (ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst,
- &nbp, &ttable[*nbroot + 1], &ideru, &iderv, &contr2[(
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst, &
+ nbp, &ttable[*nbroot + 1], &ideru, &iderv, &contr2[(
iderv + 1) * contr2_dim1 + 1], iercod);
if (*iercod > 0) {
goto L9999;
bid1 = (uvfonc[4] - uvfonc[3]) / 2.;
i__1 = *iordre;
for (ideru = 1; ideru <= i__1; ++ideru) {
- foncnp.Evaluate (ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst,
- &nbp, ttable, &ideru, &iderv, &contr1[(ideru + 1) *
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst, &
+ nbp, ttable, &ideru, &iderv, &contr1[(ideru + 1) *
contr1_dim1 + 1], iercod);
if (*iercod > 0) {
goto L9999;
}
i__1 = *iordre;
for (ideru = 1; ideru <= i__1; ++ideru) {
- foncnp.Evaluate (ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst,
- &nbp, &ttable[*nbroot + 1], &ideru, &iderv, &contr2[(
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, &uvfonc[3], &uvfonc[5], isofav, tconst, &
+ nbp, &ttable[*nbroot + 1], &ideru, &iderv, &contr2[(
ideru + 1) * contr2_dim1 + 1], iercod);
if (*iercod > 0) {
goto L9999;
i__2 = ndses;
for (kk = 1; kk <= i__2; ++kk) {
AdvApp2Var_SysBase::mvriraz_(&nbr0,
- (char *)&crvjac[ncfnw + (idim + kk - 1) * crvjac_dim1]);
+ &crvjac[ncfnw + (idim + kk - 1) * crvjac_dim1]);
/* L200: */
}
}
pataux[1], &patcan[patcan_offset]);
/* --> Write all in a greater table */
- AdvApp2Var_MathBase::mmfmca8_((integer *)ncoefu,
- (integer *)ncoefv,
- (integer *)ndimen,
- (integer *)ncfmxu,
- (integer *)ncfmxv,
- (integer *)ndimen,
- (doublereal *)&patcan[patcan_offset],
- (doublereal *)&patcan[patcan_offset]);
+ AdvApp2Var_MathBase::mmfmca8_(ncoefu,
+ ncoefv,
+ ndimen,
+ ncfmxu,
+ ncfmxv,
+ ndimen,
+ &patcan[patcan_offset],
+ &patcan[patcan_offset]);
/* --> Complete with zeros the resulting table. */
ilon1 = *ncfmxu - *ncoefu;
i__2 = *ncoefv;
for (ii = 1; ii <= i__2; ++ii) {
AdvApp2Var_SysBase::mvriraz_(&ilon1,
- (char *)&patcan[*ncoefu + 1 + (ii + nd * patcan_dim2) * patcan_dim1]);
+ &patcan[*ncoefu + 1 + (ii + nd * patcan_dim2) * patcan_dim1]);
/* L110: */
}
}
if (ilon2 > 0) {
AdvApp2Var_SysBase::mvriraz_(&ilon2,
- (char *)&patcan[(*ncoefv + 1 + nd * patcan_dim2) * patcan_dim1 + 1]);
+ &patcan[(*ncoefv + 1 + nd * patcan_dim2) * patcan_dim1 + 1]);
}
/* L100: */
}
/* Local variables */
static integer ilong;
- static long int iofwr;
+ static intptr_t iofwr;
static doublereal wrkar[1];
static integer iszwr;
static integer ibb, ier;
static integer isz1, isz2, isz3, isz4;
- static long int ipt1, ipt2, ipt3, ipt4;
+ static intptr_t ipt1, ipt2, ipt3, ipt4;
*/
ilong = (*nbpntu / 2 + 1) * (*nbpntv / 2 + 1) * *ndimen;
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char *)&sosotb[sosotb_offset]);
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char *)&diditb[diditb_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &sosotb[sosotb_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &diditb[diditb_offset]);
ilong = *nbpntu / 2 * (*nbpntv / 2) * *ndimen;
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char *)&soditb[soditb_offset]);
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char *)&disotb[disotb_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &soditb[soditb_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &disotb[disotb_offset]);
if (*iordru == -1 && *iordrv == -1) {
goto L9999;
}
/* Local variables */
static logical ldbg;
- static long int iofwr;
+ static intptr_t iofwr;
static doublereal wrkar[1];
static integer iszwr;
static integer ier;
static integer isz1, isz2, isz3, isz4, isz5, isz6, isz7;
- static long int ipt1, ipt2, ipt3, ipt4, ipt5, ipt6, ipt7;
+ static intptr_t ipt1, ipt2, ipt3, ipt4, ipt5, ipt6, ipt7;
*ndegpu = *ndminu;
*ndegpv = *ndminv;
/* --> For the moment, max errors are null */
- AdvApp2Var_SysBase::mvriraz_(nbsesp, (char *)&errmax[1]);
+ AdvApp2Var_SysBase::mvriraz_(nbsesp, &errmax[1]);
nd = *ndimen << 2;
- AdvApp2Var_SysBase::mvriraz_(&nd, (char *)&vecerr[vecerr_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&nd, &vecerr[vecerr_offset]);
/* --> and the square, too. */
nd = (*ndjacu + 1) * (*ndjacv + 1) * *ndimen;
- AdvApp2Var_SysBase::mvriraz_(&nd, (char *)&patjac[patjac_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&nd, &patjac[patjac_offset]);
i2rdu = (*iordru + 1) << 1;
i2rdv = (*iordrv + 1) << 1;
i__1 = nvroo;
for (iv = 1; iv <= i__1; ++iv) {
tcons = blinv + alinv * vrootb[iv];
- foncnp.Evaluate (ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu,
- &ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu, &
+ ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
if (*iercod > 0) {
goto L9999;
}
if (*nbpntv % 2 != 0) {
tcons = blinv;
- foncnp.Evaluate (ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu,
- &ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu, &
+ ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
if (*iercod > 0) {
goto L9999;
}
i__1 = nvroo;
for (iv = 1; iv <= i__1; ++iv) {
tcons = alinv * vrootb[(*nbpntv + 1) / 2 + iv] + blinv;
- foncnp.Evaluate (ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu,
- &ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
+ (*const_cast <AdvApp2Var_EvaluatorFunc2Var*> (&foncnp)).Evaluate (
+ ndimen, dbfn1, dbfn2, iiuouv, &tcons, nbpntu, &
+ ttable[1], &c__0, &c__0, &fpntab[fpntab_offset], iercod);
if (*iercod > 0) {
goto L9999;
}
ndwrk;
static doublereal wrkar[1];
static integer nupil;
- static long int iofwr;
+ static intptr_t iofwr;
static doublereal uvpav[4] /* was [2][2] */;
static integer nd, ii;
static integer ibb;
static integer ncb1;
static doublereal eps3;
static integer isz1, isz2, isz3, isz4, isz5;
- static long int ipt1, ipt2, ipt3, ipt4, ipt5,iptt, jptt;
+ static intptr_t ipt1, ipt2, ipt3, ipt4, ipt5,iptt, jptt;
/* **********************************************************************
*/
*/
ilong = *ndimen * *ncflim * *nbcrmx;
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char *)&courbe[courbe_offset]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &courbe[courbe_offset]);
/* **********************************************************************
*/
&wrkar[ipt2]);
/*pkv t*/
ilong = *ndimen * *ncflim;
- AdvApp2Var_SysBase::mvriraz_(&ilong, (char*)&wrkar[ipt5]);
+ AdvApp2Var_SysBase::mvriraz_(&ilong, &wrkar[ipt5]);
/* -> Passage to canonic base (-1,1) (result in WRKAR(IPT5)).
*/
ndgre = ncoeff[ncb1] - 1;
ideb = *nbcrbe + 1;
ideb1 = ideb + 1;
ilong = (nupil - *nbcrbe) << 3;
- AdvApp2Var_SysBase::mcrfill_(&ilong, (char *)&tabdec[ideb],(char *)&tabdec[ideb1]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong, &tabdec[ideb],&tabdec[ideb1]);
tabdec[ideb] = tmil;
++nupil;
}
for (kjac = 0; kjac <= i__1; ++kjac) {
iptt = iptdb + kjac * (*nbpnts / 2) + 1;
AdvApp2Var_SysBase::mcrfill_(&ilong,
- (char *)&mmapgss_.gslxjs[iptt - 1],
- (char *)&cgauss[kjac * cgauss_dim1 + 1]);
+ &mmapgss_.gslxjs[iptt - 1],
+ &cgauss[kjac * cgauss_dim1 + 1]);
/* L100: */
}
/* --> Case when the number of points is uneven. */
for (kjac = 0; kjac <= i__1; ++kjac) {
iptt = iptdb + kjac * (*nbpnts / 2) + 1;
AdvApp2Var_SysBase::mcrfill_(&ilong,
- (char *)&mmapgs0_.gslxj0[iptt - 1],
- (char *)&cgauss[kjac * cgauss_dim1 + 1]);
+ &mmapgs0_.gslxj0[iptt - 1],
+ &cgauss[kjac * cgauss_dim1 + 1]);
/* L200: */
}
/* --> Case when the number of points is uneven. */
for (kjac = 0; kjac <= i__1; ++kjac) {
iptt = iptdb + kjac * (*nbpnts / 2) + 1;
AdvApp2Var_SysBase::mcrfill_(&ilong,
- (char *)&mmapgs1_.gslxj1[iptt - 1],
- (char *)&cgauss[kjac * cgauss_dim1 + 1]);
+ &mmapgs1_.gslxj1[iptt - 1],
+ &cgauss[kjac * cgauss_dim1 + 1]);
/* L300: */
}
/* --> Case when the number of points is uneven. */
for (kjac = 0; kjac <= i__1; ++kjac) {
iptt = iptdb + kjac * (*nbpnts / 2) + 1;
AdvApp2Var_SysBase::mcrfill_(&ilong,
- (char *)&mmapgs2_.gslxj2[iptt - 1],
- (char *)&cgauss[kjac * cgauss_dim1 + 1]);
+ &mmapgs2_.gslxj2[iptt - 1],
+ &cgauss[kjac * cgauss_dim1 + 1]);
/* L400: */
}
/* --> Cas of uneven number of points. */
/* Passage into canonical by u. */
kdim = *ndimen * *ncoefv;
- AdvApp2Var_MathBase::mmjaccv_((integer *)ncoefu,
- (integer *)&kdim,
- (integer *)iordru,
- (doublereal *)&ptclgd[ptclgd_offset],
- (doublereal *)&ptcaux[ptcaux_offset],
- (doublereal *)&ptccan[ptccan_offset]);
+ AdvApp2Var_MathBase::mmjaccv_(ncoefu,
+ &kdim,
+ iordru,
+ &ptclgd[ptclgd_offset],
+ &ptcaux[ptcaux_offset],
+ &ptccan[ptccan_offset]);
/* Swapping of u and v. */
/* Passage into canonical by v. */
kdim = *ndimen * *ncoefu;
- AdvApp2Var_MathBase::mmjaccv_((integer *)ncoefv,
- (integer *)&kdim,
- (integer *)iordrv,
- (doublereal *)&ptcaux[((ptcaux_dim3 + 1) * ptcaux_dim2 + 1) * ptcaux_dim1 + 1],
- (doublereal *)&ptccan[ptccan_offset],
- (doublereal *)&ptcaux[(((ptcaux_dim3 << 1) + 1) * ptcaux_dim2 + 1) * ptcaux_dim1 + 1]);
+ AdvApp2Var_MathBase::mmjaccv_(ncoefv,
+ &kdim,
+ iordrv,
+ &ptcaux[((ptcaux_dim3 + 1) * ptcaux_dim2 + 1) * ptcaux_dim1 + 1],
+ &ptccan[ptccan_offset],
+ &ptcaux[(((ptcaux_dim3 << 1) + 1) * ptcaux_dim2 + 1) * ptcaux_dim1 + 1]);
/* Swapping of u and v. */
static integer i__;
static doublereal differ[100];
static integer ier;
- long int iofset, j;
+ intptr_t iofset, j;
/* **********************************************************************
*/
*/
if (*ndimen == *ndimax && *upara0 == 0. && *upara1 == 1.) {
nboct = (*ndimax << 3) * *ncoeff;
- AdvApp2Var_SysBase::mcrfill_((integer *)&nboct,
- (char *)&crvold[crvold_offset],
- (char *)&crvnew[crvnew_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&nboct,
+ &crvold[crvold_offset],
+ &crvnew[crvnew_offset]);
goto L9999;
}
/* **********************************************************************
/* Processing */
/* ***********************************************************************
*/
- AdvApp2Var_SysBase::mvriraz_((integer *)nligne,
- (char *)&vecout[1]);
+ AdvApp2Var_SysBase::mvriraz_(nligne,
+ &vecout[1]);
i__1 = *nligne;
for (i__ = *deblig; i__ <= i__1; ++i__) {
somme = 0.;
goto L200;
}
iptpnt = *ndim * *ideriv;
- AdvApp2Var_SysBase::mvriraz_((integer *)&iptpnt,
- (char *)&tabpnt[tabpnt_dim1 + 1]);
+ AdvApp2Var_SysBase::mvriraz_(&iptpnt,
+ &tabpnt[tabpnt_dim1 + 1]);
L200:
/* ------------------------ Calculation of parameter TPARAM ------------------
//function : AdvApp2Var_MathBase::mmfmca8_
//purpose :
//=======================================================================
-int AdvApp2Var_MathBase::mmfmca8_(integer *ndimen,
- integer *ncoefu,
- integer *ncoefv,
- integer *ndimax,
- integer *ncfumx,
- integer *,//ncfvmx,
+int AdvApp2Var_MathBase::mmfmca8_(const integer *ndimen,
+ const integer *ncoefu,
+ const integer *ncoefv,
+ const integer *ndimax,
+ const integer *ncfumx,
+ const integer *,//ncfvmx,
doublereal *tabini,
doublereal *tabres)
}
ilong = (*ndimen << 3) * *ncoefu;
for (k = *ncoefv; k >= 1; --k) {
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&tabini[(k * tabini_dim2 + 1) * tabini_dim1 + 1],
- (char *)&tabres[(k * tabres_dim2 + 1) * tabres_dim1 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &tabini[(k * tabini_dim2 + 1) * tabini_dim1 + 1],
+ &tabres[(k * tabres_dim2 + 1) * tabres_dim1 + 1]);
/* L500: */
}
goto L9999;
L2000:
ilong = (*ndimen << 3) * *ncoefu * *ncoefv;
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&tabini[tabini_offset],
- (char *)&tabres[tabres_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &tabini[tabini_offset],
+ &tabres[tabres_offset]);
goto L9999;
/* ---------------------------- The end ---------------------------------
ilong = (*ndimen << 3) * *ncoefu;
i__1 = *ncoefv;
for (k = 1; k <= i__1; ++k) {
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&tabini[(k * tabini_dim2 + 1) * tabini_dim1 + 1],
- (char *)&tabres[(k * tabres_dim2 + 1) * tabres_dim1 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &tabini[(k * tabini_dim2 + 1) * tabini_dim1 + 1],
+ &tabres[(k * tabres_dim2 + 1) * tabres_dim1 + 1]);
/* L500: */
}
goto L9999;
L2000:
ilong = (*ndimen << 3) * *ncoefu * *ncoefv;
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&tabini[tabini_offset],
- (char *)&tabres[tabres_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &tabini[tabini_offset],
+ &tabres[tabres_offset]);
goto L9999;
/* ---------------------------- The end ---------------------------------
/* Local variables */
static doublereal tbaux[1];
static integer ksize, numax, kk;
- static long int iofst;
+ static intptr_t iofst;
static integer ibb, ier;
/* ***********************************************************************
if (*upara1 == 0. && *upara2 == 1. && *vpara1 == 0. && *vpara2 == 1.) {
ksize = (*ndimen << 3) * *ncofmx * *ncoefv;
- AdvApp2Var_SysBase::mcrfill_((integer *)&ksize,
- (char *)&patold[patold_offset],
- (char *)&patnew[patnew_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&ksize,
+ &patold[patold_offset],
+ &patnew[patnew_offset]);
goto L9999;
}
if (*ndimen == 1 && *ncf1mx == *ncf2mx) {
nboct = *ncf2mx << 3;
if (*isenmsc == 1) {
- AdvApp2Var_SysBase::mcrfill_((integer *)&nboct,
- (char *)&courb1[courb1_offset],
- (char *)&courb2[courb2_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&nboct,
+ &courb1[courb1_offset],
+ &courb2[courb2_offset]);
}
if (*isenmsc == -1) {
- AdvApp2Var_SysBase::mcrfill_((integer *)&nboct,
- (char *)&courb2[courb2_offset],
- (char *)&courb1[courb1_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&nboct,
+ &courb2[courb2_offset],
+ &courb1[courb1_offset]);
}
*iercod = -3136;
goto L9999;
/* Local variables */
static doublereal work[1];
static integer ilong, isize, ii, jj, ier;
- static long int iofst,iipt, jjpt;
+ static intptr_t iofst,iipt, jjpt;
/************************************************************************
/* L100: */
}
ilong = isize << 3;
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&work[iofst],
- (char *)&table2[table2_offset]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &work[iofst],
+ &table2[table2_offset]);
/* -------------- The number of elements of TABLE2 is returned ------------
*/
--saux1;
/* Function Body */
- AdvApp2Var_SysBase::mvriraz_((integer *)ndimf,
- (char *)&somme[1]);
+ AdvApp2Var_SysBase::mvriraz_(ndimf,
+ &somme[1]);
*iercod = 0;
/* ****** Loading of coefficients U and H ** */
/* Init. matrix identity : */
ncmat = 36;
- AdvApp2Var_SysBase::mvriraz_((integer *)&ncmat,
- (char *)miden);
+ AdvApp2Var_SysBase::mvriraz_(&ncmat,
+ miden);
for (ii = 1; ii <= 6; ++ii) {
miden[ii + ii * 6 - 7] = 1.;
/* Init to 0 of table CMHERM */
- AdvApp2Var_SysBase::mvriraz_((integer *)&c__576, (char *)mmcmher_.cmherm);
+ AdvApp2Var_SysBase::mvriraz_(&c__576, mmcmher_.cmherm);
/* Calculation by solution of linear systems */
/* CONVERSION OF THE COEFFICIENTS OF THE PART OF THE CURVE EXPRESSED */
/* IN HERMIT BASE, INTO THE CANONIC BASE */
- AdvApp2Var_SysBase::mvriraz_((integer *)&ncoeff, (char *)taux1);
+ AdvApp2Var_SysBase::mvriraz_(&ncoeff, taux1);
i__3 = aux2;
for (k = 1; k <= i__3; ++k) {
nlgn = *nbrlgn - inser;
if (nlgn > 0) {
noct = (*ncolmx << 3) * nlgn;
- AdvApp2Var_SysBase::mcrfill_((integer *)&noct,
- (char *)&tabtri[inser * tabtri_dim1 + 1],
- (char *)&tabtri[(inser + 1)* tabtri_dim1 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&noct,
+ &tabtri[inser * tabtri_dim1 + 1],
+ &tabtri[(inser + 1)* tabtri_dim1 + 1]);
}
/* --- Copy line */
noct = *nbrcol << 3;
- AdvApp2Var_SysBase::mcrfill_((integer *)&noct,
- (char *)&ajoute[1],
- (char *)&tabtri[inser * tabtri_dim1 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&noct,
+ &ajoute[1],
+ &tabtri[inser * tabtri_dim1 + 1]);
goto L9999;
//function : AdvApp2Var_MathBase::mmjacan_
//purpose :
//=======================================================================
- int AdvApp2Var_MathBase::mmjacan_(integer *ideriv,
+ int AdvApp2Var_MathBase::mmjacan_(const integer *ideriv,
integer *ndeg,
doublereal *poljac,
doublereal *polcan)
//function : AdvApp2Var_MathBase::mmjaccv_
//purpose :
//=======================================================================
- int AdvApp2Var_MathBase::mmjaccv_(integer *ncoef,
- integer *ndim,
- integer *ider,
- doublereal *crvlgd,
+ int AdvApp2Var_MathBase::mmjaccv_(const integer *ncoef,
+ const integer *ndim,
+ const integer *ider,
+ const doublereal *crvlgd,
doublereal *polaux,
doublereal *crvcan)
/* Computing MAX */
i__1 = iorjac + 1;
nwcof = advapp_max(i__1,1);
- AdvApp2Var_SysBase::mvriraz_((integer *)&nwcof,
- (char *)wpoly);
+ AdvApp2Var_SysBase::mvriraz_(&nwcof,
+ wpoly);
wpoly[0] = 1.;
if (*iordre == 2) {
wpoly[2] = -3.;
/* Function Body */
isize = *ndim << 3;
- AdvApp2Var_SysBase::miraz_((integer *)&isize,
- (char *)&pntcrb[1]);
+ AdvApp2Var_SysBase::miraz_(&isize,
+ &pntcrb[1]);
if (*ncoeff <= 0) {
goto L9999;
static logical ldbg;
static doublereal mcho[100];
static integer jmin, jmax, i__, j, k, l;
- static long int iofv1, iofv2, iofv3, iofv4;
+ static intptr_t iofv1, iofv2, iofv3, iofv4;
static doublereal v1[100], v2[100], v3[100], v4[100];
static integer deblig, dimhch;
static doublereal hchole[100];
- static long int iofmch, iofmam, iofhch;
+ static intptr_t iofmch, iofmam, iofhch;
static doublereal matsym[100];
static integer ier;
static integer aux;
i__1 = *gdimen;
for (i__ = 1; i__ <= i__1; ++i__) {
- AdvApp2Var_SysBase::mvriraz_((integer *)hdimen, (char *)&v1[iofv1]);
- AdvApp2Var_SysBase::mvriraz_((integer *)hdimen, (char *)&v3[iofv3]);
- AdvApp2Var_SysBase::mvriraz_((integer *)gdimen, (char *)&v4[iofv4]);
+ AdvApp2Var_SysBase::mvriraz_(hdimen, &v1[iofv1]);
+ AdvApp2Var_SysBase::mvriraz_(hdimen, &v3[iofv3]);
+ AdvApp2Var_SysBase::mvriraz_(gdimen, &v4[iofv4]);
jmin = gposit[i__ * 3 + 3];
jmax = gposit[i__ * 3 + 1] + gposit[i__ * 3 + 3] - 1;
aux = gposit[i__ * 3 + 2] - gposit[i__ * 3 + 1] - jmin + 1;
/* WITH L=V4 */
- AdvApp2Var_SysBase::mvriraz_((integer *)gdimen, (char *)&v4[iofv4]);
+ AdvApp2Var_SysBase::mvriraz_(gdimen, &v4[iofv4]);
AdvApp2Var_SysBase::macrar8_(mnstoc, &c__100, mcho, &iofmch, &ier);
if (ier > 0) {
goto L9102;
*/
/* = V1 */
- AdvApp2Var_SysBase::mvriraz_((integer *)hdimen, (char *)&v1[iofv1]);
+ AdvApp2Var_SysBase::mvriraz_(hdimen, &v1[iofv1]);
mmtmave_(gdimen, hdimen, &gposit[4], gnstoc, &matsyg[1], &v4[iofv4], &
v1[iofv1], &ier);
if (ier > 0) {
ilong = nsur2 << 3;
ideb = nsur2 * (nsur2 - 1) / 2 + 1;
- AdvApp2Var_SysBase::mcrfill_((integer *)&ilong,
- (char *)&mlgdrtl_.rootab[ideb + nmod2 * 465 - 1],
- (char *)&rtlegd[1]);
+ AdvApp2Var_SysBase::mcrfill_(&ilong,
+ &mlgdrtl_.rootab[ideb + nmod2 * 465 - 1],
+ &rtlegd[1]);
/* ----------------------------- The end --------------------------------
*/
vnorm = AdvApp2Var_MathBase::mzsnorm_(ndimen, &vector[1]);
if (vnorm <= eps0) {
- AdvApp2Var_SysBase::mvriraz_((integer *)ndimen, (char *)&vecnrm[1]);
+ AdvApp2Var_SysBase::mvriraz_(ndimen, &vecnrm[1]);
*iercod = 101;
goto L9999;
}
Standard_EXPORT static int mmeps1_(doublereal *epsilo);
- Standard_EXPORT static int mmfmca8_(integer *ndimen,
- integer *ncoefu,
- integer *ncoefv,
- integer *ndimax,
- integer *ncfumx,
- integer *ncfvmx,
+ Standard_EXPORT static int mmfmca8_(const integer *ndimen,
+ const integer *ncoefu,
+ const integer *ncoefv,
+ const integer *ndimax,
+ const integer *ncfumx,
+ const integer *ncfvmx,
doublereal *tabini,
doublereal *tabres);
doublereal *epseg,
integer *iercod);
- Standard_EXPORT static int mmjaccv_(integer *ncoef,
- integer *ndim,
- integer *ider,
- doublereal *crvlgd,
+ Standard_EXPORT static int mmjaccv_(const integer *ncoef,
+ const integer *ndim,
+ const integer *ider,
+ const doublereal *crvlgd,
doublereal *polaux,
doublereal *crvcan);
doublereal *curveo,
doublereal *curve);
- Standard_EXPORT static int mmjacan_(integer *ideriv,
+ Standard_EXPORT static int mmjacan_(const integer *ideriv,
integer *ndeg,
doublereal *poljac,
doublereal *polcan);
#include <AdvApp2Var_Data_f2c.hxx>
#include <AdvApp2Var_SysBase.hxx>
#include <AdvApp2Var_Data.hxx>
+#include <Standard.hxx>
static
int macrchk_();
static
-int macrclw_(long int *iadfld,
- long int *iadflf,
- integer *nalloc);
-static
-int macrerr_(long int *iad,
+int macrclw_(intptr_t *iadfld,
+ intptr_t *iadflf,
integer *nalloc);
static
-int macrgfl_(long int *iadfld,
- long int *iadflf,
+int macrerr_(intptr_t *iad,
+ intptr_t *nalloc);
+static
+int macrgfl_(intptr_t *iadfld,
+ intptr_t *iadflf,
integer *iphase,
integer *iznuti);
static
ftnlen ct_len);
static
-int macrstw_(integer *iadfld,
- integer *iadflf,
+int macrstw_(intptr_t *iadfld,
+ intptr_t *iadflf,
integer *nalloc);
static
static
int mcrcomm_(integer *kop,
integer *noct,
- long int *iadr,
+ intptr_t *iadr,
integer *ier);
static
int mcrfree_(integer *ibyte,
- uinteger *iadr,
+ void* *iadr,
integer *ier);
static
int mcrgetv_(integer *sz,
- uinteger *iad,
+ void* *iad,
integer *ier);
static
int mcrlist_(integer *ier);
static
-int mcrlocv_(long int t,
- long int *l);
+int mcrlocv_(void* t,
+ intptr_t *l);
/* Structures */
static struct {
- long int icore[12000];
+ intptr_t icore[12000];
integer ncore, lprot;
} mcrgene_;
int AdvApp2Var_SysBase::macrai4_(integer *nbelem,
integer *maxelm,
integer *itablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod)
{
iunit = sizeof(integer);
/* Function Body */
if (*nbelem > *maxelm) {
- AdvApp2Var_SysBase::mcrrqst_(&iunit, nbelem, (doublereal *)&itablo[1], iofset, iercod);
+ AdvApp2Var_SysBase::mcrrqst_(&iunit, nbelem, &itablo[1], iofset, iercod);
} else {
*iercod = 0;
*iofset = 0;
int AdvApp2Var_SysBase::macrar8_(integer *nbelem,
integer *maxelm,
doublereal *xtablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod)
{
/* Local variables */
static integer i__, j;
- static long int ioff;
+ static intptr_t ioff;
static doublereal t[1];
- static integer loc;
+ static intptr_t loc;
/* ***********************************************************************
*/
*/
/* CALCULATE ADDRESS OF T */
- mcrlocv_((long int)t, (long int *)&loc);
-
+ mcrlocv_(t, &loc);
/* CONTROL OF FLAGS IN THE TABLE */
i__1 = mcrgene_.ncore;
for (i__ = 1; i__ <= i__1; ++i__) {
/* MSG : '*** ERREUR : REMOVAL FROM MEMORY OF ADDRESS
E:',ICORE(J,I) */
/* AND OF RANK ICORE(12,I) */
- macrerr_((long int *)&mcrgene_.icore[j + i__ * 12 - 13],
- (integer *)&mcrgene_.icore[i__ * 12 - 1]);
+ macrerr_(&mcrgene_.icore[j + i__ * 12 - 13],
+ &mcrgene_.icore[i__ * 12 - 1]);
/* BACK-PARCING IN PHASE OF PRODUCTION */
maostrb_();
//function : macrclw_
//purpose :
//=======================================================================
-int macrclw_(long int *,//iadfld,
- long int *,//iadflf,
+int macrclw_(intptr_t *,//iadfld,
+ intptr_t *,//iadflf,
integer *)//nalloc)
{
int AdvApp2Var_SysBase::macrdi4_(integer *nbelem,
integer *,//maxelm,
integer *itablo,
- long int *iofset, /* Offset long (pmn) */
+ intptr_t *iofset, /* Offset long (pmn) */
integer *iercod)
{
if (*iofset != 0) {
AdvApp2Var_SysBase::mcrdelt_(&iunit,
nbelem,
- (doublereal *)&itablo[1],
+ &itablo[1],
iofset,
iercod);
} else {
int AdvApp2Var_SysBase::macrdr8_(integer *nbelem,
integer *,//maxelm,
doublereal *xtablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod)
{
//function : macrerr_
//purpose :
//=======================================================================
-int macrerr_(long int *,//iad,
- integer *)//nalloc)
+int macrerr_(intptr_t *,//iad,
+ intptr_t *)//nalloc)
{
//static integer c__1 = 1;
//function : macrgfl_
//purpose :
//=======================================================================
-int macrgfl_(long int *iadfld,
- long int *iadflf,
+int macrgfl_(intptr_t *iadfld,
+ intptr_t *iadflf,
integer *iphase,
integer *iznuti)
static integer ibid, ienr;
static doublereal t[1];
static integer novfl;
- static long int ioff,iadrfl, iadt;
+ static intptr_t ioff,iadrfl, iadt;
/* ***********************************************************************
}
/* CALCULATE THE ADDRESS OF T */
- mcrlocv_((long int)t, (long int *)&iadt);
+ mcrlocv_(t, &iadt);
/* CALCULATE THE OFFSET */
ioff = (*iadfld - iadt) / 8;
//function : macrstw_
//purpose :
//=======================================================================
-int macrstw_(integer *,//iadfld,
- integer *,//iadflf,
+int macrstw_(intptr_t *,//iadfld,
+ intptr_t *,//iadflf,
integer *)//nalloc)
{
if (nbfois >= 1) {
i__1 = nbfois;
for (nufois = 1; nufois <= i__1; ++nufois) {
- AdvApp2Var_SysBase::mcrfill_(&c__504, (char *)buff0, (char *)&xtab[(nufois - 1) * 63 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&c__504, buff0, &xtab[(nufois - 1) * 63 + 1]);
/* L1000: */
}
}
if (nreste >= 1) {
i__1 = nreste << 3;
- AdvApp2Var_SysBase::mcrfill_(&i__1, (char *)buff0, (char *)&xtab[noffst + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&i__1, buff0, &xtab[noffst + 1]);
}
} else {
for (i__ = 1; i__ <= 63; ++i__) {
if (nbfois >= 1) {
i__1 = nbfois;
for (nufois = 1; nufois <= i__1; ++nufois) {
- AdvApp2Var_SysBase::mcrfill_(&c__504, (char *)buffx, (char *)&xtab[(nufois - 1) * 63 + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&c__504, buffx, &xtab[(nufois - 1) * 63 + 1]);
/* L3000: */
}
}
if (nreste >= 1) {
i__1 = nreste << 3;
- AdvApp2Var_SysBase::mcrfill_(&i__1, (char *)buffx, (char *)&xtab[noffst + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&i__1, buffx, &xtab[noffst + 1]);
}
}
/* Exception */
if (*nbentr < 63) {
nrest = *nbentr << 3;
- AdvApp2Var_SysBase::mcrfill_(&nrest, (char *)buff, (char *)&dtable[1]);
+ AdvApp2Var_SysBase::mcrfill_(&nrest, buff, &dtable[1]);
} else {
/* Start & initialization */
ioct = 504;
- AdvApp2Var_SysBase::mcrfill_(&ioct, (char *)buff, (char *)&dtable[1]);
+ AdvApp2Var_SysBase::mcrfill_(&ioct, buff, &dtable[1]);
indic = 63;
/* Loop. The upper limit is the integer value of the logarithm of base 2
;
for (ibid = 1; ibid <= i__1; ++ibid) {
- AdvApp2Var_SysBase::mcrfill_(&ioct, (char *)&dtable[1], (char *)&dtable[indic + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&ioct, &dtable[1], &dtable[indic + 1]);
ioct += ioct;
indic += indic;
nrest = ( *nbentr - indic ) << 3;
if (nrest > 0) {
- AdvApp2Var_SysBase::mcrfill_(&nrest, (char *)&dtable[1], (char *)&dtable[indic + 1]);
+ AdvApp2Var_SysBase::mcrfill_(&nrest, &dtable[1], &dtable[indic + 1]);
}
}
//=======================================================================
int mcrcomm_(integer *kop,
integer *noct,
- long int *iadr,
+ intptr_t *iadr,
integer *ier)
{
integer i__1, i__2;
/* Local variables */
- static integer ideb;
+ static intptr_t ideb;
static doublereal dtab[32000];
- static long int itab[160] /* was [4][40] */;
- static integer ipre, i__, j, k;
+ static intptr_t itab[160] /* was [4][40] */;
+ static intptr_t ipre;
+ static integer i__, j, k;
/************************************************************************
itab[(i__ << 2) - 4] = *noct / 8 + 1;
itab[(i__ << 2) - 3] = ipre;
itab[(i__ << 2) - 2] = *noct;
- mcrlocv_((long int)&dtab[ipre - 1], (long int *)iadr);
+ mcrlocv_(&dtab[ipre - 1], iadr);
itab[(i__ << 2) - 1] = *iadr;
goto L9900;
}
//=======================================================================
int AdvApp2Var_SysBase::mcrdelt_(integer *iunit,
integer *isize,
- doublereal *t,
- long int *iofset,
+ void *t,
+ intptr_t *iofset,
integer *iercod)
{
static doublereal xbid;
static integer noct, iver, ksys, i__, n, nrang,
ibyte, ier;
- static long int iadfd, iadff, iaddr, loc; /* Long adDresses*/
+ static intptr_t iadfd, iadff, iaddr, loc; /* Les adrresses en long*/
static integer kop;
/* ***********************************************************************
/* NBYTE : TOTAL NUMBER OF OCTETS OF ALLOCATIONS */
/* MBYTE : MAX NUMBER OF OCTETS */
- /* Parameter adjustments */
- --t;
-
/* Function Body */
*iercod = 0;
/* SEARCH IN MCRGENE */
n = 0;
- mcrlocv_((long int)&t[1], (long int *)&loc);
+ mcrlocv_(t, &loc);
for (i__ = mcrgene_.ncore; i__ >= 1; --i__) {
if (*iunit == mcrgene_.icore[i__ * 12 - 11] && *isize ==
/* ALLOCATION RECOGNIZED : RETURN OTHER INFOS */
- ksys = mcrgene_.icore[n * 12 - 7];
- ibyte = mcrgene_.icore[n * 12 - 6];
+ ksys = static_cast<integer> (mcrgene_.icore[n * 12 - 7]);
+ ibyte = static_cast<integer> (mcrgene_.icore[n * 12 - 6]);
iaddr = mcrgene_.icore[n * 12 - 5];
iadfd = mcrgene_.icore[n * 12 - 3];
iadff = mcrgene_.icore[n * 12 - 2];
- nrang = mcrgene_.icore[n * 12 - 1];
+ nrang = static_cast<integer> (mcrgene_.icore[n * 12 - 1]);
/* Control of flags */
}
} else {
/* DE-ALLOCATION SYSTEM */
- mcrfree_((integer *)&ibyte, (uinteger *)&iaddr, (integer *)&ier);
+ mcrfree_(&ibyte, reinterpret_cast<void**> (&iaddr), &ier);
if (ier != 0) {
goto L9002;
}
i__ = 2;
}
++mcrstac_.ndelt[i__ - 1];
- mcrstac_.nbyte[i__ - 1] -= mcrgene_.icore[n * 12 - 11] *
- mcrgene_.icore[n * 12 - 10];
+ mcrstac_.nbyte[i__ - 1] -= static_cast<integer> (mcrgene_.icore[n * 12 - 11] *
+ mcrgene_.icore[n * 12 - 10]);
/* REMOVAL OF PARAMETERS IN MCRGENE */
if (n < 1000) {
/* noct = (mcrgene_1.ncore - n) * 48; */
- noct = (mcrgene_.ncore - n) * 12 * sizeof(long int);
- AdvApp2Var_SysBase::mcrfill_((integer *)&noct,
- (char *)&mcrgene_.icore[(n + 1) * 12 - 12],
- (char *)&mcrgene_.icore[n * 12 - 12]);
+ noct = (mcrgene_.ncore - n) * 12 * sizeof(mcrgene_.icore[0]);
+ AdvApp2Var_SysBase::mcrfill_(&noct,
+ &mcrgene_.icore[(n + 1) * 12 - 12],
+ &mcrgene_.icore[n * 12 - 12]);
}
--mcrgene_.ncore;
/* *** Set to overflow of IOFSET */
- *iofset = 2147483647;
+ {
+ /* nested scope needed to avoid gcc compilation error crossing
+ initialization with goto*/
+ /* assign max positive integer to *iofset */
+ const size_t shift = sizeof (*iofset) * 8 - 1;
+ *iofset = (uintptr_t(1) << shift) - 1 /*2147483647 for 32bit*/;
+ }
goto L9900;
/* ----------------------------------------------------------------------*
//purpose :
//=======================================================================
int AdvApp2Var_SysBase::mcrfill_(integer *size,
- char *tin,
- char *tout)
+ void *tin,
+ void *tout)
{
-
- if (mcrfill_ABS(tout-tin) >= *size)
+ register char *jmin=static_cast<char*> (tin);
+ register char *jmout=static_cast<char*> (tout);
+ if (mcrfill_ABS(jmout-jmin) >= *size)
memcpy( tout, tin, *size);
else if (tin > tout)
{
register integer n = *size;
- register char *jmin=tin;
- register char *jmout=tout;
while (n-- > 0) *jmout++ = *jmin++;
}
else
{
register integer n = *size;
- register char *jmin=tin+n;
- register char *jmout=tout+n;
+ jmin+=n;
+ jmout+=n;
while (n-- > 0) *--jmout = *--jmin;
}
return 0;
//purpose :
//=======================================================================
int mcrfree_(integer *,//ibyte,
- uinteger *iadr,
+ void* *iadr,
integer *ier)
{
*ier=0;
- free((void*)*iadr);
- if ( !*iadr ) *ier = 1;
+ Standard::Free(*iadr);
+ //Standard::Free always nullifies address, so check becomes incorrect
+ //if ( !*iadr ) *ier = 1;
return 0;
}
//purpose :
//=======================================================================
int mcrgetv_(integer *sz,
- uinteger *iad,
+ void* *iad,
integer *ier)
{
*ier = 0;
- *iad = (uinteger)malloc(*sz);
+ *iad = Standard::Allocate(*sz);
if ( !*iad ) *ier = 1;
return 0;
}
i__1 = mcrgene_.ncore;
for (i__ = 1; i__ <= i__1; ++i__) {
nufmt = 2;
- ifmt = mcrgene_.icore[i__ * 12 - 11] * mcrgene_.icore[i__ * 12 - 10]
+ ifmt = static_cast<integer> (mcrgene_.icore[i__ * 12 - 11] * mcrgene_.icore[i__ * 12 - 10])
;
macrmsg_(subrou, &nufmt, &ifmt, &dfmt, cfmt, 7L, 1L);
ntotal += ifmt;
//function : mcrlocv_
//purpose :
//=======================================================================
-int mcrlocv_(long int t,
- long int *l)
+int mcrlocv_(void* t,
+ intptr_t *l)
{
- *l = t;
+ *l = reinterpret_cast<intptr_t> (t);
return 0 ;
}
//=======================================================================
int AdvApp2Var_SysBase::mcrrqst_(integer *iunit,
integer *isize,
- doublereal *t,
- long int *iofset,
+ void *t,
+ intptr_t *iofset,
integer *iercod)
{
static integer ifmt, iver;
static char subr[7];
static integer ksys , ibyte, irest, isyst, ier;
- static long int iadfd, iadff, iaddr,lofset, loc;
+ static intptr_t iadfd, iadff, iaddr,lofset, loc;
static integer izu;
/* ----------------------------------------------------------------------*
*/
- /* Parameter adjustments */
- --t;
-
/* Function Body */
*iercod = 0;
/* . add delta for alinement with the base */
/* . round to multiple of 8 above */
- mcrlocv_((long int)&t[1], (long int *)&loc);
+ mcrlocv_(t, &loc);
izu = ibyte + loc % *iunit;
irest = izu % 8;
if (irest != 0) {
/* ELSE */
/* ALLOCATION SYSTEME */
ksys = 2;
- mcrgetv_((integer *)&ibyte, (uinteger *)&iaddr, (integer *)&ier);
+ mcrgetv_(&ibyte, reinterpret_cast<void**> (&iaddr), &ier);
if (ier != 0) {
goto L9003;
}
/* CALL ALLOWING AUTOIMPLEMENTATION OF THE SET WATCH BY THE DEBUGGER */
- macrstw_((integer *)&iadfd, (integer *)&iadff, (integer *)&mcrgene_.ncore);
+ macrstw_(&iadfd, &iadff, &mcrgene_.ncore);
/* STATISTICS */
++mcrstac_.nrqst[ksys - 1];
- mcrstac_.nbyte[ksys - 1] += mcrgene_.icore[mcrgene_.ncore * 12 - 11] *
- mcrgene_.icore[mcrgene_.ncore * 12 - 10];
+ mcrstac_.nbyte[ksys - 1] += static_cast<integer> (mcrgene_.icore[mcrgene_.ncore * 12 - 11] *
+ mcrgene_.icore[mcrgene_.ncore * 12 - 10]);
/* Computing MAX */
i__1 = mcrstac_.mbyte[ksys - 1], i__2 = mcrstac_.nbyte[ksys - 1];
mcrstac_.mbyte[ksys - 1] = advapp_max(i__1,i__2);
//purpose :
//=======================================================================
void AdvApp2Var_SysBase::miraz_(integer *taille,
- char *adt)
+ void *adt)
{
integer offset;
/* Function Body */
nocte = *nbintg * sizeof(integer);
- AdvApp2Var_SysBase::mcrfill_((integer *)&nocte, (char *)&ivecin[1], (char *)&ivecou[1]);
+ AdvApp2Var_SysBase::mcrfill_(&nocte, &ivecin[1], &ivecou[1]);
return 0 ;
} /* msifill_ */
--vecent;
/* Function Body */
- nocte = *nbreel << 3;
- AdvApp2Var_SysBase::mcrfill_((integer *)&nocte, (char *)&vecent[1], (char *)&vecsor[1]);
+ nocte = *nbreel * sizeof (doublereal);
+ AdvApp2Var_SysBase::mcrfill_(&nocte, &vecent[1], &vecsor[1]);
return 0 ;
} /* msrfill_ */
//purpose :
//=======================================================================
void AdvApp2Var_SysBase::mvriraz_(integer *taille,
- char *adt)
+ void *adt)
{
integer offset;
#include <Standard_Macro.hxx>
#include <AdvApp2Var_Data_f2c.hxx>
+#if _MSC_VER
+#include <stddef.h>
+#else
+#include <stdint.h>
+#endif
class AdvApp2Var_SysBase {
public:
//
Standard_EXPORT static int mcrdelt_(integer *iunit,
integer *isize,
- doublereal *t,
- long int *iofset,
+ void *t,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static int mcrfill_(integer *size,
- char *tin,
- char *tout);
+ void *tin,
+ void *tout);
Standard_EXPORT static int mcrrqst_(integer *iunit,
integer *isize,
- doublereal *t,
- long int *iofset,
+ void *t,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static integer mnfndeb_();
Standard_EXPORT static int macrai4_(integer *nbelem,
integer *maxelm,
integer *itablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static int macrar8_(integer *nbelem,
integer *maxelm,
doublereal *xtablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static int macrdi4_(integer *nbelem,
integer *maxelm,
integer *itablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static int macrdr8_(integer *nbelem,
integer *maxelm,
doublereal *xtablo,
- long int *iofset,
+ intptr_t *iofset,
integer *iercod);
Standard_EXPORT static int maermsg_(const char *cnompg,
integer *icoder,
Standard_EXPORT static int mgsomsg_(const char *nomprg,
ftnlen nomprg_len);
Standard_EXPORT static void miraz_(integer *taille,
- char *adt);
+ void *adt);
Standard_EXPORT static int msifill_(integer *nbintg,
integer *ivecin,
integer *ivecou);
Standard_EXPORT static int mswrdbg_(const char *ctexte,
ftnlen ctexte_len);
Standard_EXPORT static void mvriraz_(integer *taille,
- char *adt);
+ void*adt);
};
projects / occt-copy.git / commitdiff