Discussion :

[HydroFire]

Bonjour, j'ai un problème avec fortran.
Je souhaite utiliser une structure dans plusieurs modules.
voila ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
MODULE blabla
IMPLICIT NONE
 
CONTAINS
 
SUBROUTINE sub1(A)
TYPE(matCSR), INTENT(IN) :: A
...
END SUBROUTINE sub1
 
SUBROUTINE sub2(A)
TYPE(matCSR), INTENT(INOUT)
...
END SUBROUTINE sub2
END MODULE blabla
 
PROGRAM projet
USE blabla
 
IMPLICIT NONE
TYPE matCSR
integer...
...
END TYPE matCSR
 
TYPE(matCSR) :: A
 
....
CALL sub1(A)
...
END PROGRAM projet

Voila seulement lorsque je compile, l'erreur suivante s'affiche:
"Derived type 'matCSR' is being used before it is defined"

Quelqu'un pourrait m'aider à corriger mon ou mes erreurs s'il vous plaît ?

Merci!

[Marlan]

Salut,

Pourquoi ne pas avoir déclaré ton type dérivé dans le module ?

Là, sauf erreur de ma part, tu as un problème d'ordre de compilation : le module blabla est compilé avant le programme. Or le module blabla ne connait pas le type dérivé
matCSR, d'où l'erreur je pense.

Si tu déclarais ton type dérivé juste après la déclaration du module avec une syntaxe du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
MODULE BLABLA
IMPLICIT NONE
TYPE matCSR
[...]
END TYPE matCSR
 
CONTAINS
[...]
END MODULE BLABLA
 
PROGRAM
USE BLABLA
TYPE(matCSR), ... :: VAR1
[...]
END PROGRAM

cela devrait résoudre le problème.

EDIT : je te rajoutes un petit code exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
module MON_MOD
implicit none
 
	TYPE BLABLA
		integer :: ITEST
	end TYPE BLABLA
 
	contains
	subroutine TESTALPHA(I)
	implicit none
		TYPE(BLABLA),intent(in) :: I
		print*,I%ITEST
	end subroutine TESTALPHA
 
end module MON_MOD
 
program TEST
use MON_MOD
implicit none
	type(BLABLA) :: A
 
	A%ITEST=1
 
	print*,A%ITEST
 
	call TESTALPHA(A)
 
end program TEST

En espérant avoir répondu à ta question,

Marlan

[HydroFire]

Bonjour,
Désolé pour ma réponse tardive mais merci pour la réponse qui a réglé mon souci

HydroFire.