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!