Discussion :

[pdufranc]

Voila ce que j'ai :

Code C
Fichier .h

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
extern void __stdcall   GETREGIMEC(int* );
extern void __stdcall   GETREGIMEIT(char *,int * );

.c

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
int i=0;
int nregi=0;
char regiT[512];
 
strcpy(regiT,"");
GETREGIMEI(&nregi);
 
for(i = 0; i < nregi; i++)  {
 GETREGIMEIT(regiT,&i);
}

Code .f90

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
	subroutine GETREGIMEI(indice)
		integer, INTENT(INOUT) :: indice
		indice = 20		
	end
 
 
	subroutine GETREGIMEIT(str, indice)
		character*20, INTENT(INOUT) :: str
		integer, INTENT(INOUT) :: indice
		str ="Mon test";
	end

A la compilation, j'ai ceci comme erreur :
-------------------------------------------------------------
Compiling...
maFenetre.c
Linking...
maFenetre.obj : error LNK2001: unresolved external symbol _GETREGIMEIT@8
Debug/Test.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
Creating browse info file...
-------------------------------------------------------------
Si je met "GETREGIMEIT" en commentaire dns le .c , je compile et GETREGIMEI me donne bien la bonne valeur.

Merci d'avance pour votre aide
Cordialement