Structures dans des modules

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

Code:

---

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!

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:

---

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:

---

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

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

HydroFire.