Erreur de segentation

**Martin07** · 26/10/2015, 16h00

Bonjour,
j'ai un problème sur un programme en Fortran. Lorsque je compile tout va bien mais après avoir saisies les informations requises le terminale m'affiche l'erreur suivante :
" Backtrace for this error :
#0 6f6117be
#1 6f695deb
#2 004010f8 "

Voici mon programme :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
!-------------------------------------------------------
!
!                   PROJET FORTRAN :
!                   Qualité des conditions de surf
!-------------------------------------------------------
 
 
PROGRAM Surf
 
    USE affichage
 
    IMPLICIT NONE
 
 
        !-----------------------------------
        !   Declaration des types
        !-----------------------------------
 
    TYPE spot
        CHARACTER(LEN=20) :: nomspot    ! nom du spot
        CHARACTER(LEN=20) :: localisationspot   ! localisation du spot
        CHARACTER(LEN=5) :: ventspot    ! vent ideal pour avoir de bonnes conditions sur ce spot (vent offshore)
        INTEGER :: hauteurhouleminspot  ! hauteur de houle minimum pour avoir des vagues sur le spot
        INTEGER :: hauteurhoulemaxspot  ! hauteur de houle maximum au dela de laquelle le spot n est plus surfable (le spot sature)
    END TYPE
 
 
        !-----------------------------------
        !   Declaration des parametres
        !-----------------------------------
 
 
        !-----------------------------------
        !   Declaration des variables
        !-----------------------------------
 
    INTEGER :: mode
    INTEGER :: i, j
    TYPE(spot) :: spot1, spot2, spot3, spot4
    CHARACTER(LEN=20) :: spotchoisit
    INTEGER :: hauteurhoulemin
    INTEGER :: hauteurhoulemax
    CHARACTER(LEN=20), DIMENSION(4) :: tabspot
 
 
        !--------------------------------------------
        !   Declaration des variables constantes
        !--------------------------------------------
 
    CHARACTER(LEN=5) :: OFFSHORE
    CHARACTER(LEN=20) :: Cotedesbasques, Mundaka, Parlementia, Hendaye
    CHARACTER(LEN=10) :: France, Espagne
 
 
        !--------------------------------------------
        !   Informations concernant la houle
        !--------------------------------------------
 
WRITE(*,"(A200)", ADVANCE="NO"), "Saisissez 1 si vous souhaitez connaitre &
 les conditions de surf sur un spot en particulier, si vous desirez connaitre &
 le meilleur spot en fonction des conditions de houle et de vent saisissez 2 : "
READ (*,*) mode
 
    CALL donnees_spot (spot1,spot2,spot3,spot4) ! procedure contenant la base de donnee des spots
 
DO WHILE ((mode/=1) .AND. (mode/=2))
    WRITE(*,"(A200)", ADVANCE="NO"), "Saisissez 1 si vous souhaitez connaitre &
 les conditions de surf sur un spot en particulier, si vous desirez connaitre &
 le meilleur spot en fonction des conditions de houle et de vent saisissez 2 : "
    READ (*,*) mode
END DO
 
IF (mode==1) THEN
 
        !-----------------------------------
        !   1er mode
        !-----------------------------------
 
    PRINT*, "mode 1"
    WRITE(*,"(A72)",ADVANCE="NO"),"Choisissez votre spot : Cotedesbasques, Mundaka, Parlementia, Hendaye : "
    READ (*,*) spotchoisit
    PRINT*,
    PRINT*,
    DO WHILE ((spotchoisit.NE.'Cotedesbasques').AND.(spotchoisit.NE.'Mundaka').AND.&
        (spotchoisit.NE.'Parlementia').AND.(spotchoisit.NE.'Hendaye'))
                PRINT*, "Choisir un spot valable : Cotedesbasques, Mundaka, Parlementia, Hendaye"
                READ (*,*) spotchoisit
                PRINT*,
                PRINT*,
    END DO
 
    SELECT CASE (spotchoisit)
        CASE('Cotedesbasques')
            OFFSHORE = spot1%ventspot
            hauteurhoulemin = spot1%hauteurhouleminspot
            hauteurhoulemax = spot1%hauteurhoulemaxspot
        CASE ('Mundaka')
            OFFSHORE = spot2%ventspot
            hauteurhoulemin = spot2%hauteurhouleminspot
            hauteurhoulemax = spot2%hauteurhoulemaxspot
        CASE ('Parlementia')
            OFFSHORE = spot3%ventspot
            hauteurhoulemin = spot3%hauteurhouleminspot
            hauteurhoulemax = spot3%hauteurhoulemaxspot
        CASE('Hendaye')
            OFFSHORE = spot4%ventspot
            hauteurhoulemin = spot4%hauteurhouleminspot
            hauteurhoulemax = spot4%hauteurhoulemaxspot
 
    END SELECT
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
    READ(*,*) hauteurhoule
    DO WHILE ((hauteurhoule<0) .OR. (hauteurhoule>5000))    ! houle maximum de 50m, la plus grosse vague surfee etant de 30m
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
        READ(*,*) hauteurhoule
    END DO
    PRINT*,
    PRINT*,
 
 
        !--------------------------------------------
        !   Informations concernant le vent
        !--------------------------------------------
 
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la force du vent en Beaufort: "
    READ(*,*) vent1%force
    DO WHILE ((vent1%force<0) .OR. (vent1%force>12))
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"  ! l'echelle de Beaufort est comprise entre 0 et 12
        PRINT*,
        WRITE(*,"(A50)"), "La force du vent doit etre comprise entre 0 et 12 Bf"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," => Donnez la force du vent en Beaufort: "
        PRINT*,
        READ(*,*) vent1%force
    END DO
    IF ((vent1%force/=0) .AND. (vent1%force<7)) THEN
        PRINT*,
        PRINT*,
        WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
        READ(*,*)  vent1%direction
        DO WHILE ((vent1%direction.NE.'EST').AND.(vent1%direction.NE.'OUEST').AND.(vent1%direction.NE.'NORD') &
            .AND.(vent1%direction.NE.'SUD'))
            PRINT*,
            WRITE(*,"(A50)"), "***IMPOSSIBLE***"
            PRINT*,
            WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
            READ(*,*) vent1%direction
            PRINT*,
    END DO
    END IF
    PRINT*,
    PRINT*,
 
 
        !----------------------------------------------------------------------
        !   Recapitulatif des informations saisies par l'utilisateur (clavier)
        !----------------------------------------------------------------------
 
    CALL affichagesaisies()
 
    IF (vent1%force<7) THEN  ! Vent n est pas trop fort
                IF (vent1%force<=2) THEN
                    IF (hauteurhoule>hauteurhoulemax) THEN
                        PRINT*, "Surf impossible sur ce spot"  !   Vent<=2 Bf
                        ELSE IF ((hauteurhoule>=hauteurhoulemin) .AND. (hauteurhoule<=hauteurhoulemax))  THEN
                            PRINT*, "Surf pour tous"    !   Vent<=2 Bf
                        ELSE
                            PRINT*, "Vagues trop petites pour surfer sur ce spot"  !    Vent<=2 Bf
                    END IF
                ELSE IF ((vent1%force>2) .AND. (vent1%direction==OFFSHORE)) THEN
                    IF (hauteurhoule>=hauteurhoulemax) THEN
                            PRINT*, "Surf impossible sur ce spot"  !   2<Vent<8 Bf
                        ELSE IF ((hauteurhoule>=hauteurhoulemin) .AND. (hauteurhoule<=hauteurhoulemax))  THEN
                            PRINT*, "Surf pour tous"    !   2<Vent<8 Bf
                        ELSE
                            PRINT*, "Pas de vague sur ce spot"  !   2<Vent<8 Bf
                    END IF
                ELSE
                    PRINT*, "Conditions de surf moyennes, le vent n'est pas favorable"
                END IF
    ELSE
        PRINT*, "Trop de vent"
    END IF
 
 
    ELSE IF (mode==2) THEN
 
        !-----------------------------------
        !   2ème mode
        !-----------------------------------
 
        PRINT*,
        PRINT*,
        PRINT*, "mode 2"
        PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
    READ(*,*) hauteurhoule
    DO WHILE ((hauteurhoule<0) .OR. (hauteurhoule>5000))    ! houle maximum de 50m, la plus grosse vague surfee etant de 30m
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
        READ(*,*) hauteurhoule
    END DO
    PRINT*,
    PRINT*,
 
 
        !--------------------------------------------
        !   Informations concernant le vent
        !--------------------------------------------
 
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la force du vent en Beaufort: "
    READ(*,*) vent1%force
    DO WHILE ((vent1%force<0) .OR. (vent1%force>12))
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"  ! l'echelle de Beaufort est comprise entre 0 et 12
        PRINT*,
        WRITE(*,"(A50)"), "La force du vent doit etre comprise entre 0 et 12 Bf"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," => Donnez la force du vent en Beaufort: "
        PRINT*,
        READ(*,*) vent1%force
    END DO
    IF ((vent1%force/=0) .AND. (vent1%force<7)) THEN
        PRINT*,
        PRINT*,
        WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
        READ(*,*)  vent1%direction
        DO WHILE ((vent1%direction.NE.'EST').AND.(vent1%direction.NE.'OUEST').AND.(vent1%direction.NE.'NORD') &
            .AND.(vent1%direction.NE.'SUD'))
            PRINT*,
            WRITE(*,"(A50)"), "***IMPOSSIBLE***"
            PRINT*,
            WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
            READ(*,*) vent1%direction
            PRINT*,
    END DO
    END IF
    PRINT*,
    PRINT*,
 
 
        !----------------------------------------------------------------------
        !   Recapitulatif des informations saisies par l'utilisateur (clavier)
        !----------------------------------------------------------------------
 
    CALL affichagesaisies()
 
        tabspot(1) = 'Cotedesbasques'
        tabspot(2) = 'Mundaka'
        tabspot(3) = 'Parlementia'
        tabspot(4) = 'Hendaye'
 
 
    OPEN(UNIT=10, FILE='Spots.txt', STATUS='UNKNOWN')
    WRITE(10,*), meilleurspot (i, j, OFFSHORE, hauteurhoulemin, hauteurhoulemax, tabspot)
END IF
 
    CONTAINS
 
SUBROUTINE donnees_spot (spot1, spot2, spot3, spot4)
    IMPLICIT NONE
        !-----------------------------------
        !   Declaration des variables
        !-----------------------------------
 
    TYPE(spot) :: spot1, spot2, spot3, spot4
 
        !--------------------------------------------
        !   Informations concernant les spots
        !--------------------------------------------
 
    !   Spot N°1
    spot1%nomspot = Cotedesbasques
    spot1%localisationspot = France
    spot1%ventspot = 'EST'
    spot1%hauteurhouleminspot = 30
    spot1%hauteurhoulemaxspot = 150
 
    !   Spot N°2
    spot2%nomspot = Mundaka
    spot2%localisationspot = Espagne
    spot2%ventspot = 'SUD'
    spot2%hauteurhouleminspot = 90
    spot2%hauteurhoulemaxspot = 400
 
    !   Spot N°3
    spot3%nomspot = Parlementia
    spot3%localisationspot = France
    spot3%ventspot = 'EST'
    spot3%hauteurhouleminspot = 120
    spot3%hauteurhoulemaxspot = 500
 
    !   Spot N°4
    spot4%nomspot = Hendaye
    spot4%localisationspot = France
    spot4%ventspot = 'SUD'
    spot4%hauteurhouleminspot = 60
    spot4%hauteurhoulemaxspot = 200
 
 
END SUBROUTINE
 
FUNCTION meilleurspot (i, j, OFFSHORE, hauteurhoulemin, hauteurhoulemax, tabspot)
    IMPLICIT NONE
 
    !---------------------------------------
    !   Déclaration des arguments
    !---------------------------------------
 
 
    INTEGER, INTENT(OUT) :: i,j
    CHARACTER(LEN=5), INTENT(OUT) :: OFFSHORE
    INTEGER, INTENT(OUT):: hauteurhoulemin
    INTEGER, INTENT(OUT):: hauteurhoulemax
    CHARACTER(LEN=20), DIMENSION(4), INTENT(IN) :: tabspot
 
 
    !---------------------------------------
    !   Déclaration du type de la fonction
    !---------------------------------------
 
    CHARACTER(LEN=20), DIMENSION(:), ALLOCATABLE :: meilleurspot
    j=1
    meilleurspot = "NO SURF"
    DO i=1,4
    SELECT CASE (i)
        CASE(1)
            OFFSHORE = 'EST'
            hauteurhoulemin = 30
            hauteurhoulemax = 150
        CASE(2)
            OFFSHORE = 'SUD'
            hauteurhoulemin = 90
            hauteurhoulemax = 400
        CASE (3)
            OFFSHORE = 'EST'
            hauteurhoulemin = 120
            hauteurhoulemax = 500
        CASE (4)
            OFFSHORE = 'SUD'
            hauteurhoulemin = 60
            hauteurhoulemax = 200
    END SELECT
 
    IF (((vent1%direction == OFFSHORE) .AND. (hauteurhoule>=hauteurhoulemin)&
        .AND. (hauteurhoule<=hauteurhoulemax)) .OR. &
        ((vent1%force == 0) .AND. (hauteurhoule>=hauteurhoulemin)&
        .AND. (hauteurhoule<=hauteurhoulemax)))THEN
        meilleurspot(j) = tabspot(i)
        j=j+1
    END IF
END DO
END FUNCTION
 
END PROGRAM Surf

L'erreur s'est produite lorsque j'ai voulu mettre "meilleurspot" en tant que tableau pour pouvoir retourner plusieurs spots.

Merci d'avance pour votre aide.

**xflr6** · 27/10/2015, 04h58

Bonjour,

En attribuant une valeur à votre tableau de caractères allocatable avant de l'avoir alloué, ça doit poser problème :

Code :

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

1
2
3
FUNCTION meilleurspot (i, j, OFFSHORE, hauteurhoulemin, hauteurhoulemax, tabspot)
    CHARACTER(LEN=20), DIMENSION(:), ALLOCATABLE :: meilleurspot
    meilleurspot = "NO SURF"

J'émets cependant des réserves assez fortes quant à l'utilisation d'allocatable (et donc d'un allocate -certes absent chez vous mais nécessaire- de la fonction dans la fonction) sur une fonction.
En fortran, je me serais dirigé, en indiquant la taille de la fonction en argument de cette dernière, vers qque chose du style :

Code :

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

1
2
3
4
function meilleurspot (nspots, ...)
    integer, intent(in) :: nspots
    character(len=20), dimension(nspots) :: meilleurspot
    meilleurspot(1) = "NO SURF"

Cordialement,
xflr6

**Martin07** · 27/10/2015, 11h56

Merci pour votre réponse mais malgré l'utilisation de "nspots" l'erreur est toujours présente.
Voici mon code modifié :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
!-------------------------------------------------------
!
!                   PROJET FORTRAN :
!                   Qualité des conditions de surf
!-------------------------------------------------------
 
 
PROGRAM Surf
 
    USE affichage
 
    IMPLICIT NONE
 
 
        !-----------------------------------
        !   Declaration des types
        !-----------------------------------
 
    TYPE spot
        CHARACTER(LEN=20) :: nomspot    ! nom du spot
        CHARACTER(LEN=20) :: localisationspot   ! localisation du spot
        CHARACTER(LEN=5) :: ventspot    ! vent ideal pour avoir de bonnes conditions sur ce spot (vent offshore)
        INTEGER :: hauteurhouleminspot  ! hauteur de houle minimum pour avoir des vagues sur le spot
        INTEGER :: hauteurhoulemaxspot  ! hauteur de houle maximum au dela de laquelle le spot n est plus surfable (le spot sature)
    END TYPE
 
 
        !-----------------------------------
        !   Declaration des parametres
        !-----------------------------------
 
 
        !-----------------------------------
        !   Declaration des variables
        !-----------------------------------
 
    INTEGER :: mode
    INTEGER :: i
    INTEGER :: nspots
    TYPE(spot) :: spot1, spot2, spot3, spot4
    CHARACTER(LEN=20) :: spotchoisit
    INTEGER :: hauteurhoulemin
    INTEGER :: hauteurhoulemax
    CHARACTER(LEN=20), DIMENSION(4) :: tabspot
 
 
        !--------------------------------------------
        !   Declaration des variables constantes
        !--------------------------------------------
 
    CHARACTER(LEN=5) :: OFFSHORE
    CHARACTER(LEN=20) :: Cotedesbasques, Mundaka, Parlementia, Hendaye
    CHARACTER(LEN=10) :: France, Espagne
 
 
        !--------------------------------------------
        !   Informations concernant la houle
        !--------------------------------------------
 
WRITE(*,"(A200)", ADVANCE="NO"), "Saisissez 1 si vous souhaitez connaitre &
 les conditions de surf sur un spot en particulier, si vous desirez connaitre &
 le meilleur spot en fonction des conditions de houle et de vent saisissez 2 : "
READ (*,*) mode
 
    CALL donnees_spot (spot1,spot2,spot3,spot4) ! procedure contenant la base de donnee des spots
 
DO WHILE ((mode/=1) .AND. (mode/=2))
    WRITE(*,"(A200)", ADVANCE="NO"), "Saisissez 1 si vous souhaitez connaitre &
 les conditions de surf sur un spot en particulier, si vous desirez connaitre &
 le meilleur spot en fonction des conditions de houle et de vent saisissez 2 : "
    READ (*,*) mode
END DO
 
IF (mode==1) THEN
 
        !-----------------------------------
        !   1er mode
        !-----------------------------------
 
    PRINT*, "mode 1"
    WRITE(*,"(A72)",ADVANCE="NO"),"Choisissez votre spot : Cotedesbasques, Mundaka, Parlementia, Hendaye : "
    READ (*,*) spotchoisit
    PRINT*,
    PRINT*,
    DO WHILE ((spotchoisit.NE.'Cotedesbasques').AND.(spotchoisit.NE.'Mundaka').AND.&
        (spotchoisit.NE.'Parlementia').AND.(spotchoisit.NE.'Hendaye'))
                PRINT*, "Choisir un spot valable : Cotedesbasques, Mundaka, Parlementia, Hendaye"
                READ (*,*) spotchoisit
                PRINT*,
                PRINT*,
    END DO
 
    SELECT CASE (spotchoisit)
        CASE('Cotedesbasques')
            OFFSHORE = spot1%ventspot
            hauteurhoulemin = spot1%hauteurhouleminspot
            hauteurhoulemax = spot1%hauteurhoulemaxspot
        CASE ('Mundaka')
            OFFSHORE = spot2%ventspot
            hauteurhoulemin = spot2%hauteurhouleminspot
            hauteurhoulemax = spot2%hauteurhoulemaxspot
        CASE ('Parlementia')
            OFFSHORE = spot3%ventspot
            hauteurhoulemin = spot3%hauteurhouleminspot
            hauteurhoulemax = spot3%hauteurhoulemaxspot
        CASE('Hendaye')
            OFFSHORE = spot4%ventspot
            hauteurhoulemin = spot4%hauteurhouleminspot
            hauteurhoulemax = spot4%hauteurhoulemaxspot
 
    END SELECT
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
    READ(*,*) hauteurhoule
    DO WHILE ((hauteurhoule<0) .OR. (hauteurhoule>5000))    ! houle maximum de 50m, la plus grosse vague surfee etant de 30m
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
        READ(*,*) hauteurhoule
    END DO
    PRINT*,
    PRINT*,
 
 
        !--------------------------------------------
        !   Informations concernant le vent
        !--------------------------------------------
 
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la force du vent en Beaufort: "
    READ(*,*) vent1%force
    DO WHILE ((vent1%force<0) .OR. (vent1%force>12))
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"  ! l'echelle de Beaufort est comprise entre 0 et 12
        PRINT*,
        WRITE(*,"(A50)"), "La force du vent doit etre comprise entre 0 et 12 Bf"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," => Donnez la force du vent en Beaufort: "
        PRINT*,
        READ(*,*) vent1%force
    END DO
    IF ((vent1%force/=0) .AND. (vent1%force<7)) THEN
        PRINT*,
        PRINT*,
        WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
        READ(*,*)  vent1%direction
        DO WHILE ((vent1%direction.NE.'EST').AND.(vent1%direction.NE.'OUEST').AND.(vent1%direction.NE.'NORD') &
            .AND.(vent1%direction.NE.'SUD'))
            PRINT*,
            WRITE(*,"(A50)"), "***IMPOSSIBLE***"
            PRINT*,
            WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
            READ(*,*) vent1%direction
            PRINT*,
    END DO
    END IF
    PRINT*,
    PRINT*,
 
 
        !----------------------------------------------------------------------
        !   Recapitulatif des informations saisies par l'utilisateur (clavier)
        !----------------------------------------------------------------------
 
    CALL affichagesaisies()
 
    IF (vent1%force<7) THEN  ! Vent n est pas trop fort
                IF (vent1%force<=2) THEN
                    IF (hauteurhoule>hauteurhoulemax) THEN
                        PRINT*, "Surf impossible sur ce spot"  !   Vent<=2 Bf
                        ELSE IF ((hauteurhoule>=hauteurhoulemin) .AND. (hauteurhoule<=hauteurhoulemax))  THEN
                            PRINT*, "Surf pour tous"    !   Vent<=2 Bf
                        ELSE
                            PRINT*, "Vagues trop petites pour surfer sur ce spot"  !    Vent<=2 Bf
                    END IF
                ELSE IF ((vent1%force>2) .AND. (vent1%direction==OFFSHORE)) THEN
                    IF (hauteurhoule>=hauteurhoulemax) THEN
                            PRINT*, "Surf impossible sur ce spot"  !   2<Vent<8 Bf
                        ELSE IF ((hauteurhoule>=hauteurhoulemin) .AND. (hauteurhoule<=hauteurhoulemax))  THEN
                            PRINT*, "Surf pour tous"    !   2<Vent<8 Bf
                        ELSE
                            PRINT*, "Pas de vague sur ce spot"  !   2<Vent<8 Bf
                    END IF
                ELSE
                    PRINT*, "Conditions de surf moyennes, le vent n'est pas favorable"
                END IF
    ELSE
        PRINT*, "Trop de vent"
    END IF
 
 
    ELSE IF (mode==2) THEN
 
        !-----------------------------------
        !   2ème mode
        !-----------------------------------
 
        PRINT*,
        PRINT*,
        PRINT*, "mode 2"
        PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
    READ(*,*) hauteurhoule
    DO WHILE ((hauteurhoule<0) .OR. (hauteurhoule>5000))    ! houle maximum de 50m, la plus grosse vague surfee etant de 30m
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," Donnez la hauteur de la houle en cm : "
        READ(*,*) hauteurhoule
    END DO
    PRINT*,
    PRINT*,
 
 
        !--------------------------------------------
        !   Informations concernant le vent
        !--------------------------------------------
 
 
    PRINT*,
    PRINT*,
    WRITE(*,"(A40)",ADVANCE="NO")," Donnez la force du vent en Beaufort: "
    READ(*,*) vent1%force
    DO WHILE ((vent1%force<0) .OR. (vent1%force>12))
        PRINT*,
        WRITE(*,"(A50)"), "***IMPOSSIBLE***"  ! l'echelle de Beaufort est comprise entre 0 et 12
        PRINT*,
        WRITE(*,"(A50)"), "La force du vent doit etre comprise entre 0 et 12 Bf"
        PRINT*,
        WRITE(*,"(A40)",ADVANCE="NO")," => Donnez la force du vent en Beaufort: "
        PRINT*,
        READ(*,*) vent1%force
    END DO
    IF ((vent1%force/=0) .AND. (vent1%force<7)) THEN
        PRINT*,
        PRINT*,
        WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
        READ(*,*)  vent1%direction
        DO WHILE ((vent1%direction.NE.'EST').AND.(vent1%direction.NE.'OUEST').AND.(vent1%direction.NE.'NORD') &
            .AND.(vent1%direction.NE.'SUD'))
            PRINT*,
            WRITE(*,"(A50)"), "***IMPOSSIBLE***"
            PRINT*,
            WRITE(*,"(A90)",ADVANCE="NO"),"Donnez la direction du vent (NORD, SUD, EST ou OUEST) : "
            READ(*,*) vent1%direction
            PRINT*,
    END DO
    END IF
    PRINT*,
    PRINT*,
 
 
        !----------------------------------------------------------------------
        !   Recapitulatif des informations saisies par l'utilisateur (clavier)
        !----------------------------------------------------------------------
 
    CALL affichagesaisies()
 
        tabspot(1) = 'Cotedesbasques'
        tabspot(2) = 'Mundaka'
        tabspot(3) = 'Parlementia'
        tabspot(4) = 'Hendaye'
 
 
    OPEN(UNIT=10, FILE='Spots.xlsx', STATUS='UNKNOWN')
    WRITE(10,*), meilleurspot (i, nspots, OFFSHORE, hauteurhoulemin, hauteurhoulemax, tabspot)
END IF
 
    CONTAINS
 
SUBROUTINE donnees_spot (spot1, spot2, spot3, spot4)
    IMPLICIT NONE
        !-----------------------------------
        !   Declaration des variables
        !-----------------------------------
 
    TYPE(spot) :: spot1, spot2, spot3, spot4
 
        !--------------------------------------------
        !   Informations concernant les spots
        !--------------------------------------------
 
    !   Spot N°1
    spot1%nomspot = Cotedesbasques
    spot1%localisationspot = France
    spot1%ventspot = 'EST'
    spot1%hauteurhouleminspot = 30
    spot1%hauteurhoulemaxspot = 150
 
    !   Spot N°2
    spot2%nomspot = Mundaka
    spot2%localisationspot = Espagne
    spot2%ventspot = 'SUD'
    spot2%hauteurhouleminspot = 90
    spot2%hauteurhoulemaxspot = 400
 
    !   Spot N°3
    spot3%nomspot = Parlementia
    spot3%localisationspot = France
    spot3%ventspot = 'EST'
    spot3%hauteurhouleminspot = 120
    spot3%hauteurhoulemaxspot = 500
 
    !   Spot N°4
    spot4%nomspot = Hendaye
    spot4%localisationspot = France
    spot4%ventspot = 'SUD'
    spot4%hauteurhouleminspot = 60
    spot4%hauteurhoulemaxspot = 200
 
 
END SUBROUTINE
 
FUNCTION meilleurspot (i, nspots, OFFSHORE, hauteurhoulemin, hauteurhoulemax, tabspot)
    IMPLICIT NONE
 
    !---------------------------------------
    !   Déclaration des arguments
    !---------------------------------------
 
 
    INTEGER, INTENT(INOUT) :: i
    INTEGER, INTENT(INOUT) :: nspots
    CHARACTER(LEN=5), INTENT(OUT) :: OFFSHORE
    INTEGER, INTENT(OUT):: hauteurhoulemin
    INTEGER, INTENT(OUT):: hauteurhoulemax
    CHARACTER(LEN=20), DIMENSION(4), INTENT(IN) :: tabspot
 
 
    !---------------------------------------
    !   Déclaration du type de la fonction
    !---------------------------------------
 
    CHARACTER(LEN=20), DIMENSION(nspots) :: meilleurspot
    nspots=1
    meilleurspot(1) = "NO SURF"
    DO i=1,4
    SELECT CASE (i)
        CASE(1)
            OFFSHORE = 'EST'
            hauteurhoulemin = 30
            hauteurhoulemax = 150
        CASE(2)
            OFFSHORE = 'SUD'
            hauteurhoulemin = 90
            hauteurhoulemax = 400
        CASE (3)
            OFFSHORE = 'EST'
            hauteurhoulemin = 120
            hauteurhoulemax = 500
        CASE (4)
            OFFSHORE = 'SUD'
            hauteurhoulemin = 60
            hauteurhoulemax = 200
    END SELECT
 
    IF (((vent1%direction == OFFSHORE) .AND. (hauteurhoule>=hauteurhoulemin)&
        .AND. (hauteurhoule<=hauteurhoulemax)) .OR. &
        ((vent1%force == 0) .AND. (hauteurhoule>=hauteurhoulemin)&
        .AND. (hauteurhoule<=hauteurhoulemax)))THEN
        meilleurspot(nspots) = tabspot(i)
        nspots=nspots+1
    END IF
END DO
END FUNCTION
 
END PROGRAM Surf

**xflr6** · 27/10/2015, 21h10

Bonsoir,

Il est vrai que je ne sais pas si ces modifications font marcher le programme, mais à mon sens, vous ne les avez pas correctement implémentées :
1) le nspots a un intent(in)
2) il n'est donc par conséquent plus utilisé comme lvalue (valeur qu'on peut écraser/modifier), mais uniquement comme rvalue (valeur qu'on utilise sans jamais la modifier) comme il se doit. Il eût fallu prendre une variable muette pour passer dans des boucles, c'est plus propre et plus safe.

Là, ce soir, je ne sais pas, il y a ptet un problème sur la fonction. D'instinct, j'aurais fait le taf en passant par une subroutine et non une fonction (non scalaire, c'est ça qui m'aurait dérangé, à tort ou à raison), mais bon.

un "-g" dans l'option de compuilation pour activer les diag de debug, la backtrace devant alors être plus bavarde.

Cordialement,
xflr6

**Martin07** · 28/10/2015, 10h00

Bonjour,

J'ai mis un INTENT (INOUT) parce que mon nspots varie dans le programme avec nspots= nspots+1. Si je mets INTENT(IN) ça ne compile plus (erreur DUMMY argument)

En fait il m'est demandé de faire une fonction. Par contre je ne suis pas obligé de retourner un tableau (et ça fonctionne si je ne retourne pas un tableau). Le problème c'est que dans certains cas plusieurs spots marchent et que je voudrais retourner TOUS les spots qui marchent. Est-ce possible de faire ça sans tableau ?
Est-ce qu'on peut faire l'équivalent d'un A = A + tabspot(i) en ayant des chaines de caractère au lieu des nombres ?

Sinon est-ce qu'il ne serait pas plus judicieux d'utiliser le tableau tabspot comme fonction en lui appliquant un tri pour faire remonter le spots qui marchent et en supprimant les dernières cases (correspondant aux spots non surfables)?

Erreur de segentation

Fortran

Discussions similaires

Partager

Partager