Structure dynamique modifiée dans subroutine = "Data transfer element at (1) cannot have POINTER components"

Version imprimable

Bonjour,

J'utilise une structure contenant, pour chaque année, une liste de mois (qui est elle-même une structure contenant une liste de noms de fichiers), comme suit :
Code:

1 2 3 4 5 6 7 8 9 TYPE MOIS CHARACTER (len=2) :: Numero_Mois CHARACTER (len=19), DIMENSION(:), POINTER :: Noms_Fichiers ! Liste des fichiers (sessions) du mois END TYPE TYPE ANNEE CHARACTER (len=4) :: Numero_Annee TYPE(MOIS), DIMENSION(:), POINTER :: Mois ! Liste des mois avec des mesures END TYPE
Je ne connais pas à l'avance le nombre de mois qui vont être enregistrés pour une année, tout comme je ne sais pas combien de fichiers peuvent appartenir à un mois (cela varie fortement en fonction des années et des mois). D'où la nécessité de l'allocation dynamique donc...

Dans mon module, j'utilise une première fonction allouant la place nécessaire à l'enregistrement de données dans une variable de type ANNEE. J'aimerais que cette fonction renvoie donc cette variable, afin de l'utiliser en entrée d'une autre fonction, qui va effectuer des calculs dessus.
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 MODULE Mon_module IMPLICIT NONE TYPE MOIS CHARACTER (len=2) :: Numero_Mois CHARACTER (len=19), DIMENSION(:), POINTER :: Noms_Fichiers ! Liste des fichiers (sessions) du mois END TYPE TYPE ANNEE CHARACTER (len=4) :: Numero_Annee TYPE(MOIS), DIMENSION(:), POINTER :: Mois ! Liste des mois avec des mesures END TYPE CONTAINS SUBROUTINE Main IMPLICIT NONE TYPE(ANNEE), DIMENSION(:), ALLOCATABLE :: Data CALL Enregistrement_donnees(Data) PRINT *,Data CALL Traitement_donnees(Data) END SUBROUTINE Main END MODULE
Problème : impossible de récupérer ce que contient la variable de type ANNEE, avec ce message d'erreur :

Citation:

PRINT *,Data
1
Error: Data transfer element at (1) cannot have POINTER components

Je ne comprends pas vraiment ce que cela signifie. J'ai eu beau chercher sur internet, les structures dynamiques existent bien et fonctionnent parfaitement, que ce soit avec une subroutine ou une fonction. Est-ce que quelqu'un verrait ce qui cloche ici svp ?

Merci d'avance pour votre aide.

Je pense qu'il faut préciser les objets pointés. Je montre un exemple didactique avec 1 seule année, 2 mois (2 fichiers pour le premier et 1 seul pour le second) :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
MODULE Mon_module
IMPLICIT NONE
 
TYPE MOIS
    CHARACTER (len=2) :: Numero_Mois
    ! Liste des fichiers (sessions) du mois
    CHARACTER (len=19), DIMENSION(:), POINTER :: Noms_Fichiers => null()
END TYPE
 
TYPE ANNEE
    CHARACTER (len=4) :: Numero_Annee
    ! Liste des mois avec des mesures
    TYPE(MOIS), DIMENSION(:), POINTER :: Mois => null()
END TYPE
 
END MODULE Mon_module
 
 
program main
    use Mon_module
    IMPLICIT NONE
    TYPE(ANNEE), DIMENSION(:), ALLOCATABLE :: Data
 
    ! 1 seule année avec 2 mois
    allocate(Data(1))
 
    Data(1)%Numero_Annee = "2013"
    allocate(Data(1)%Mois(2))
 
    Data(1)%Mois(1)%Numero_Mois = "02"
    allocate(Data(1)%Mois(1)%Noms_Fichiers(2))
    Data(1)%Mois(1)%Noms_Fichiers(1) = "foo1"
    Data(1)%Mois(1)%Noms_Fichiers(2) = "foo2"
 
    Data(1)%Mois(2)%Numero_Mois = "06"
    allocate(Data(1)%Mois(2)%Noms_Fichiers(1))
    Data(1)%Mois(2)%Noms_Fichiers(1) = "bar"
 
    PRINT *, Data(1)%Mois(1)%Numero_Mois
    PRINT *, Data(1)%Mois(1)%Noms_Fichiers(1)
    PRINT *, Data(1)%Mois(1)%Noms_Fichiers(2)
 
    PRINT *, Data(1)%Mois(2)%Numero_Mois
    PRINT *, Data(1)%Mois(2)%Noms_Fichiers(1)
 
    deallocate(Data(1)%Mois(1)%Noms_Fichiers)
    deallocate(Data(1)%Mois(2)%Noms_Fichiers)
 
    deallocate(Data)
 
end program main

J'ai l'impression de tu te compliques la vie en définissant trop de types. Essaie avec un type record ayant les attributs year, month et filename.

06/03/2014, 17h25
InfraRouge77

J'ai ajouté les => null()
mais cela ne change pas le résultat...

La fonction Enregistrement_donnees que j'évoque dans mon exemple se charge d'allouer la mémoire nécessaire, comme tu le montres dans ton exemple, en récupérant l'arborescence de mes dossiers et fichiers, qui est reproduite dans ma variable de type ANNEE. Le problème c'est qu'à la compilation le programme refuse que ma variable soit utilisée hors de cette fonction... Pourtant j'ai bien besoin de cette structure, car les mois et le nombre de fichiers présents sont 'aléatoires' d'une année sur l'autre.
07/03/2014, 03h29
Sylvain Bergeron

Le message « Error: Data transfer element at (1) cannot have POINTER components » apparait à la compilation, n'est-ce-pas ?

Personnellement, j'en déduis que le problème est que tu ne peux pas imprimer la structure « Data » en espérant que le compilateur déroule ta structure, pointeurs inclus. Et le problème est limité au print. Tu devras écrire une routine Affichage_donnees(Data), dans laquelle tu dérouleras la structure par des boucles pour afficher le contenu élément par élément.
07/03/2014, 10h29
InfraRouge77

En effet, c'est tout simplement ça... je vais essayer d'être un peu moins bête la prochaine fois. Encore merci à vous !