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 |
Erreur de segentation
Répondre avec citation
Partager