ForkMaster/smesh
1
0
Fork 0
mirror of https://git.salome-platform.org/gitpub/modules/smesh.git synced 2024-11-15 10:08:34 +05:00
Code Issues Packages Projects Releases Wiki Activity

Use the f2c flag when trte.f is compiled with f2c

Browse Source
This commit is contained in:
adam 2009-09-14 14:13:38 +00:00
parent 6e510e8582
commit 7a2dff55c5
2 changed files with 63 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/MEFISTO2/aptrte.cxx
View File

@ -36,7 +36,10 @@ extern "C"
MEFISTO2D_EXPORT MEFISTO2D_EXPORT
R R
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
areteideale()//( R3 xyz, R3 direction ) areteideale()//( R3 xyz, R3 direction )
{ {
@ -52,8 +55,11 @@ static double cpunew, cpuold=0;
void void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif #endif
#endif
tempscpu_( double & tempsec ) tempscpu_( double & tempsec )
//Retourne le temps CPU utilise en secondes //Retourne le temps CPU utilise en secondes
{ {
@ -64,8 +70,11 @@ tempscpu_( double & tempsec )
void void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif #endif
#endif
deltacpu_( R & dtcpu ) deltacpu_( R & dtcpu )
//Retourne le temps CPU utilise en secondes depuis le precedent appel //Retourne le temps CPU utilise en secondes depuis le precedent appel
{ {
@ -744,7 +753,10 @@ void aptrte( Z nutysu, R aretmx,
} }
void void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
qualitetrte( R3 *mnpxyd, qualitetrte( R3 *mnpxyd,
Z & mosoar, Z & mxsoar, Z *mnsoar, Z & mosoar, Z & mxsoar, Z *mnsoar,

51
src/MEFISTO2/aptrte.h
View File

@ -156,7 +156,10 @@ MEFISTO2D_EXPORT
extern "C" { void extern "C" { void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
qualitetrte( R3 *mnpxyd, qualitetrte( R3 *mnpxyd,
Z & mosoar, Z & mxsoar, Z *mnsoar, Z & mosoar, Z & mxsoar, Z *mnsoar,
@ -193,7 +196,10 @@ extern "C" { void
extern "C" { void extern "C" { void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
tempscpu( double & tempsec ); tempscpu( double & tempsec );
} }
@ -202,7 +208,10 @@ extern "C" { void
extern "C" { void extern "C" { void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
deltacpu( R & dtcpu ); deltacpu( R & dtcpu );
} }
@ -212,7 +221,10 @@ extern "C" { void
//initialiser le tableau mnsoar pour le hachage des aretes //initialiser le tableau mnsoar pour le hachage des aretes
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
insoar( Z & mxsomm, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar ); insoar( Z & mxsomm, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar );
} }
@ -220,14 +232,20 @@ extern "C" {void
//mettre a zero les nb entiers de tab //mettre a zero les nb entiers de tab
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
azeroi( Z & nb, Z * tab ); azeroi( Z & nb, Z * tab );
} }
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
fasoar( Z & ns1, Z & ns2, Z & nt1, Z & nt2, Z & nolign, fasoar( Z & ns1, Z & ns2, Z & nt1, Z & nt2, Z & nolign,
Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z * mnarst, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z * mnarst,
@ -279,7 +297,10 @@ extern "C" {void
//initialisation du tableau letree et ajout dans letree des sommets 1 a nbsomm //initialisation du tableau letree et ajout dans letree des sommets 1 a nbsomm
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
teajte( Z & mxsomm, Z & nbsomm, R3 * mnpxyd, R3 * comxmi, teajte( Z & mxsomm, Z & nbsomm, R3 * mnpxyd, R3 * comxmi,
R & aretmx, Z & mxtree, Z * letree, R & aretmx, Z & mxtree, Z * letree,
@ -288,7 +309,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
tehote( Z & nutysu, Z & nbarpi, Z & mxsomm, Z & nbsomm, R3 * mnpxyd, tehote( Z & nutysu, Z & nbarpi, Z & mxsomm, Z & nbsomm, R3 * mnpxyd,
R3 * comxmi, R & aretmx, R3 * comxmi, R & aretmx,
@ -300,7 +324,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
tetrte( R3 * comxmi, R & aretmx, Z & nbarpi, Z & mxsomm, R3 * mnpxyd, tetrte( R3 * comxmi, R & aretmx, Z & nbarpi, Z & mxsomm, R3 * mnpxyd,
Z & mxqueu, Z * mnqueu, Z * mntree, Z & mxqueu, Z * mnqueu, Z * mntree,
@ -313,7 +340,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
aisoar( Z & mosoar, Z & mxsoar, Z * mnsoar, Z & na ); aisoar( Z & mosoar, Z & mxsoar, Z * mnsoar, Z & na );
} }
@ -321,7 +351,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
tedela( R3 * mnpxyd, Z * mnarst, tedela( R3 * mnpxyd, Z * mnarst,
Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z & na, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z & na,
@ -332,7 +365,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
terefr( Z & nbarpi, R3 * mnpxyd, terefr( Z & nbarpi, R3 * mnpxyd,
Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar,
@ -346,7 +382,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
tesuex( Z & nblf, Z * nulftr, tesuex( Z & nblf, Z * nulftr,
Z & ndtri0, Z & nbsomm, R3 * mnpxyd, Z * mnslig, Z & ndtri0, Z & nbsomm, R3 * mnpxyd, Z * mnslig,
@ -358,7 +397,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
teamqt( Z & nutysu, R & aretmx, R & airemx, teamqt( Z & nutysu, R & aretmx, R & airemx,
Z * mnarst, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar, Z * mnarst, Z & mosoar, Z & mxsoar, Z & n1soar, Z * mnsoar,
@ -377,7 +419,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
nusotr( Z & nt, Z & mosoar, Z * mnsoar, Z & moartr, Z * mnartr,Z * nosotr ); nusotr( Z & nt, Z & mosoar, Z * mnsoar, Z & moartr, Z * mnartr,Z * nosotr );
} }
@ -385,7 +430,10 @@ extern "C" {void
extern "C" {void extern "C" {void
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
qutr2d( R3 & p1, R3 & p2, R3 & p3, R & qualite ); qutr2d( R3 & p1, R3 & p2, R3 & p3, R & qualite );
} }
@ -393,7 +441,10 @@ extern "C" {void
extern "C" { R extern "C" { R
#ifdef WIN32 #ifdef WIN32
#ifdef F2C_BUILD
#else
__stdcall __stdcall
#endif
#endif #endif
surtd2( R3 & p1, R3 & p2, R3 & p3 ); surtd2( R3 & p1, R3 & p2, R3 & p3 );
} }