A , CAVERIVIERE
TRAITEMEWT I/'~FORMATIQUE DES DOb!l'!EES RECUEILLIES
LORS DES CAMFAWES EXPERIMERTALES DE CHALUTACE
ARCHIVE
C E N T R E D E R E C H E R C H E S O C É A N O G R A P H I Q U E S D E D A K A R - T I A R O Y E
+ I N S T I T U T S É N É G A L A I S Of R E C H E R C H E S A G R I C O L E S *
JUILLET 1986

---

TRAITEMENT INFORMATIQUE DES DONNEES RECUEILLIES
LORS DES CAMPAGNES EXPERIMENTALES DE CHALUTAGE
Alain CAVERIVIERE*
Le traitement informatique des données recueillies lors des campagnes
de chalutage, qui comprennent généralement un nombre élevé de traits de
chalut et qui peuvent avoir lieu plusieurs fois dans l’année, présente de
tels avantages en ce qui concerne la précision et la rapidité de publication
des résultats , qu’une chaîne de traitement en langage FORTRAN 77 a été mise
au point au Centre de Recherches Océanographiques de Dakar-Thiaroye.
1 . S A I S I E
D E S
D O N N E E S
Trois bordereaux différents de 80 colonnes ont été conçus pour la sai-
sie des données (annexes 1 à III). Ils concernent respectivement les carac-
téristiques des traits de chalut, les espèces récoltées, les mensurations
effectuées.
1.1. LES BORDEREAUX “STATIONS”
- Le type de l’enregistrement est indiqué dans 1 a première colonne
(chiffre 1 pour les bordereaux station).
- Le numéro de code de la mission vient ensuite sur deux colonnes,puis
le numéro de la station (colonnes 4 à 6).
- Selon la méthode d’échantillonnage, le numéro de la radiale ou le
carré statistique apparaissent en colonnes 7-8 ou 9-l 2(l) l
- Les codes à deux chiffres pour l’an, le mois et le jour prennent
pl.ace en colonnes 13- 18.
(*) Océanographe de 1’ORSTOM en poste au Centre de Recherches Océanogra-
phiques de Dakar-Thiaroye, B.P. 2241, Dakar (Sénégal).
(1) Suivant le type de campagne, le code de la strate de profondeur est
inclu dans l’une ou l’autre des colonnes, les programmes de traitement
explicités par la suite auront donc une position de lecture de la strate de
profondeur variable.

---

2
- L’heure de début du trait (blocage du câble) et celle de fin (mise en
action du treuil) sont codées en sixième d’heure (ex. 12 h 13’ devient 121).
La durée exacte du trait est ensuite codée en minutes.
- Les colonnes 23 à 32 représentent le type de l’engin (ex. : 1 pour un
chalut à crevette unique,
2 pour un chalut à poissons), le vide de maille
mo.yen au niveau du cul du chalut en millimètres, la longueur de la corde de
dos en mètres.
- Les colonnes 33 et 34 sont réservées à la zone.
- Les positions en début et fin de trait sont codées sur quatre groupes
de cinq colonnes : deux pour les degrés, deux pour les minutes et une pour
les dixièmes de minute.
- Deux groupes de quatre colonnes (55 à 62) indiquent les profondeurs
en mètres de début et de fin du trait de chalut.
- Les caractéristiques physico-chimiques de l’eau au niveau du fond ap-
paraissent ensuite si elles ont été relevées : la température est alors
codée en dixième de degré, la salinité au dix-millième, l’oxygène dissous en
millilitres.
- La colonne 74 (croche) donne des indications sur l’état de réalisa-
tion du trait (0 : bon ; 1 : dégâts mineurs sur le chalut et trait utilisa-
ble pour les calculs ultérieurs ; 2 : trait inutilisable).
- La prise totale est notée en kg sur cinq colonnes (75 à 79).
- Le nombre d’enregistrement de 80 colonnes correspondant aux cartes(l)
espèces est indiqué en dernier lieu.
1.2. LES BORDEREAUX “ESPECES”
- Le type de l’enregistrement est indiqué dans la première colonne
(code 2 pour ces bordereaux).
- Le numéro de la mission et celui de la station sont repris en colonnes
2-3 et 4-6.
- Six groupes de 12 colonnes apparaissent ensuite, chacun correspondant
à une des espèces rencontrées. Les quatre premières colonnes d’un groupe sont
réservées au code de l’espèce dont nous parlerons plus tard. Les trois colon-
nes suivantes correspondent aux chiffres caractéristiques du poids de
l’espèce qui peuvent être convertis en grammes par l’exposant de la puissance
de 10 donné dans la colonne qui suit (ainsi 455 suivi de 2 représente
455 102g, soit 45,5 kg). De la même manière les quatre dernières colonnes
d’un groupe correspondent aux 3 chiffres caractéristiques du nombre d’indivi-
dus pêchés et à l’exposant de la puissance de 10. L’utilisation de puissances
de 10 a l’avantage de permettre de coder sur quatre colonnes n’importe qu’elle
valeur en poids ou nombre qui puisse être rencontrée, et cela avec une perte
de précision n’excédant pas 0,5/1000 en tenant compte de l’arrondi.
- La colonne 80 indique le nombre de cartes espèces correspondant à un
trait donné qui suivent la carte considérée. Dix cartes espèces pour une
opération de chalutage peuvent donc se suivre et la dernière de ces cartes
portera 0 dans la dernière colonne.
(1) Un enregistrement de 80 colonnes correspond à une carte perforée,
aussi utiliserons-nous souvent le mot bien que le support réel de l’informa-
tion ne soit pas une vraie carte.

---

3
1.3. BORDEREAUX “MENSURATIONS”
- Ces bordereaux portent le code 3 en première colonne et les numéros
de mission et de station sont repris en colonnes 2-3 et 4-6.
- Le code espèce à 4 chiffres vient ensuite. Il est suivi du sexe en
colonne Il (1 = mâles ; 2 = femelles ; 5 = tous sexes) et de l’incrément de
la mensuration en colonne 12 (1 = mm ; 2 = 0,5 cm ; 3 = cm), ce dernier indi-
que si les mesures ont été faites au mm, au 1/2 cm ou au cm inférieur.
- Le poids de l’échantillon est indiqué en kg sur les colonnes 13 à 16.
Un point décimal est demandé, le poids peut donc aller de 1 g à 999 kg
(.OOl et 999.).
- La première classe de la mensuration qui correspond à (aux) l’indivi-
du(s) le(s) plus petit(s) est notée en cm dans les colonnes 17 à 20. Un
point décimal est là aussi demandé.
- Le nombre de classes est ensuite indiqué sur deux colonnes (21-22),
suivi du nombre total des individus mesurés sur trois colonnes (23-25).
- Les frequences à partir de la première classe sont notées sur 27
groupes de deux colonnes (26 à 79). Une classe ne peut donc contenir que 99
individus au maximum. Si une mensuration comprend plus de 27 classes, les
autres classes peuvent être codées sur les cartes suivantes, la reprise des
codes des colonnes 1-12 est alors obligatoire.
- La colonne 80 indique si la mensuration comprend ou non des cartes
sui. tes : nombre de cartes suites suivant la carte considérée dans le premier
cas (avec 0 pour la dernière carte de la mensuration), code 9 dans le second
cas.
2 . LE
C O D E
D E S
E S P E C E S
Un fichier pour le codage des espèces existe déjà au Centre Océanogra-
phique(1). Ce fichier suit la clé de détermination de BLACHE et ai.(z) dans
-
-
l’ordre de la systématique pour les poissons. Un code à 4 chiffres est donné
à une espèce : 2 chiffres pour la famille suivis de 2 chiffres pour le genre-
espèce. Malheureusement ce fichier est incomplet et ne comprend pas certaines
familles de poissons assez rares ou (et) profondes, de plus il ne comprend
que quelques espèces pour les céphalopodes et crustacés. Pour des raisons
d'uniformisation et de mémorisation nous avons conservé les codes à 4 chiffres
des espèces déjà incluses dans le fichier. Des codes similaires ont été
donnés aux autres espèces, mais ils ne suivent l'ordre de la systématique
que lorsque cela a été possible. Aussi avons-nous créé un fichier contenant
en plus, pour chaque espèce, un numéro d’ordre à 4 + 1 chiffres qui suit
l’ordre systématique, le dernier chiffre étant 0, la modification de celui-
ci permet d’intercaler jusqu’à 9 espèces entre deux numéros d’ordre dont les
4 premiers chiffres sont contigüs. Chaque enregistrement du nouveau fichier
contient le numéro d'ordre (colonnes l-5), le nom de la famille (colonnes 8
(1) ANONYME, 1979.- Traitement informatique standard des statistiques
de pêche au CRODT. Première étape : Fichier station - Fichier MENSUCOM - Code
Spécicode 1. Archive scient. CRODT, juillet 79, 17 p.
(2) BLACHE (J.), CADENAT (J.) et STAUCH (A.), 1970.- Clés de détermina-
tion des poissons de mer signalés dans l'Atlantique oriental (entre le 20'
parallèle N. et le 15O parallèle S.). Faune Tropicale, Vol. XVIII, ORSTOM,
Paris, 479 p.

---

4
à 28), le nom du genre-espèce (colonnes 29 à 61) avec la possibilité de
cartes suites en colonne 63 (valeur différente de 0 qui indique le nombre
de cartes suites quand le code correspond à un regroupement de plusieurs
espèces), le numéro de code de l'espèce est indiqué en colonnes 70-73. Le
fichier trié par numéro d'ordre est nommé ESPCHAl DATA, ce fichier peut
être trié dans l'ordre alphabétique des genres-espèces pour le repérage
rapide du numéro de code ou d'ordre d'une espèce donnée, il s'appellera
alors ESPCHA2 DATA.
Les numéros d'ordre vont de 10 à 1369 pour les sélaciens, 1370 à
9999 pour les téléostéens, 10000 à 10499 pour les céphalopodes, 10500 à
11499 pour les crustacés, 11500 à 11999 pour les mollusques, 12000 et plus
pour les mammifères marins.
3 .
L E S
T R A I T E M E N T S
L'organigramme de la chaîne des traitements peut être suivi sur la
figure 1.
3.1. CREATION D'UN FICHIER DISQUE ET VERIFICATION DES DONNEES
3.1.1. Création d'un fichier disque par campagne.
Les données d'une campagne de chalutage, codées sur les 3 types de bor-
derau précédemment vus, sont saisies sur disquette. Dans un premier temps le
contenu de la disquette est transféré (procédure utilitaire DITTO) sur un
seul fichier disque nommé X (nom de la campagne) FICH. Ce fichier est ensuite
trié par TRICHAEX dans l'ordre ascendant des codes missions, codes stations,
codes bordereaux, puis dans l'ordre descendant des codes suites
(A0202A0403A0101D8001)(1). Le fichier résultant X (nom de la campagne) DATA
se compose donc d'une carte station, suivie des cartes espèces de cette sta-
tion, elles-mêmes suivies des cartes mensurations, etc.... On notera que les
mensurations par sexe pour une espèce peuvent être séparées par celles d'une
autre espèce lors du tri, ceci sera sans conséquences dans la suite des trai-
tements.
3.1.2. Vérification des données (programme VCHALEX)
Les données sont vérifiées par le programme VCHALEX (annexe IV) appelé
par 1'EXEC XVCHALEX(2). Ce programme teste que :
(1) Le tri n'est correct,pour les enregistrements des mensurations d'une
station,que quand il n'y a qu'une carte suite pour l'ensemble des espèces
mesurées pour cette station, dans le cas contraire (rare) il y a lieu de dé-
pl.acer au clavier les enregistrements.
(2) Par convention nous appelerons toujours 1'EXEC d'un programme par
le nom
de ce programme précédé de la lettre X.

---

5
I TRICWLEX
RITc‘.X1/ \\
Figure 1.- Organigramme de la chaine des traitements.

---

6
- chaque trait de chalut est bien référencé au niveau du type de l’enre-
gistrement, du code de la mission et du numéro de station, de plus aucun des
codes allant de la colonne 9 à 62 des bordereaux de station ne doit être
nul ;- la prise totale des bordereaux de station n’est pas nulle si le code
suite indique des cartes espèces ;
- le code du mois ne dépasse pas 12 et celui du jour 31 ;
- la durée du trait en minutes ne diffère pas de plus de 5 minutes de
l’intervalle entre l’heure de fin et l’heure de début ;
- les numéros de mission et de station des cartes espèces et des cartes
mensurations correspondent bien au numéro de la carte station qui les précéde;
- le poids calculé à partir de la somme des poids des cartes espèces ne
diffère pas de plus de 1 % de la prise totale indiquée sur la carte station;
- le code espèce d’une carte suite d’une mensuration correspond bien à
celui de la première carte de la mensuration ;
- le poids de chaque mensuration, la première classe et le nombre de
classes, sont différents de 0 ;
- la somme des fréquences inscrites dans les différentes classes d’une
mensuration est bien égale à la somme indiquée comme total.
3.2. RESULTATS PAR TRAIT DE CHALUT ET ESPECES RENCONTREES
3.2.1. Résultats par trait de chalut (programme CHALEXA)
Le programme CHALEXA (annexe V) crée un tableau pour chaque trait de
chalut d’une campagne (table 1). Il utilise le fichier de la campagne et le
fichier ESPCHAl DATA des espèces. Dans le haut du tableau sont portés les
renseignements inscrits dans la carte station. Ces données apparaissent tel-
les qu’elles sont codées et comme indiqué précédemment au paragraphe 1.1. Les
valeurs notées 0 indiquent, sauf pour la rubrique ‘croche”, que le renseigne-
ment n’existe pas. La première ligne du tableau (nom du bateau, période de
la campagne) provient de 1’EXEC (FORMAT (A70)) .
La partie centrale du tableau contient les noms des espèces rencontrées
lors du coup de chalut, avec le nom de la famille ; elles sont classées dans
l’ordre de la systématique. En face de chaque espèce apparaissent la prise
réellement effectuée, le nombre d’individus quand il a été noté, et enfin le
rendement en kg/heure calculé à partir de la durée effective du trait.
La dernière partie du tableau donne les totaux par grands groupes systé-
matiques présents et le total général. La dernière ligne indique le nombre
total d’espèces rencontrées pendant le trait de chalut.
3.2.2. Espèces rencontrées (programme ESPRENC et ESPREN2)
Le programme ESPRENC (Annexe VI) utilise également le fichier de la cam-
pagne et le fichier ESPCHAZ DATA des espèces. Il indique les différentes
“espèces” rencontrées durant toute une campagne. Les tableaux résultants
(table II) donnent, dans l’ordre de la systématique à l’intérieur des grands
groupes, les noms des espèces, celui de la famille et celui du grand groupe
auxquelles elles appartienne. L’intitulé de tête des tableaux est fourni par
l’EXEC, la pagination est effectuée par le programme. La dernière ligne du
dernier tableau indique le nombre des différentes espèces rencontrées.
Un programme dérivé, ESPREN2, indique les espèces rencontrées pour une
zone et une profondeur données dans 1’EXEC.

---

: , , * 0 Q <: (i : ; r: .: ‘I .: y :. : . . ‘: . .
~ 1 .& :> ; :‘a 3;. f,. ). .:: _,: .y .:: .‘. ,. ‘l.,. :I:::::1:‘~-::).~“i:**>.Q*:;~~;:*-~*~~~
;L
4
4
VILLA *rUA
FEVRIER-MARi
1984 CODE
HISSIOV= 4
9
b
T Y P E CHPLUT:
1
MAILLE
CULTMMI:
47 CORDE
OOSIYI: 70
4
b
DATE: 1 3 8 4
HEURE
JEUUT: 70 HEURE FIN: 80
OUREEIMIN.):

b0
4
0
N- STATIJN:
6 6
RADIALE: 0 CARRE
STATISTIQUE:
222 ZONE: 2
9
4
P R O F . OEBUT:
2 0 0
PROF. FIN:
3ùD
CROCHE: 0
4
4
L A T . D E B U T :
1 4 1 2 0
LAT.
FIN: 14148
LONG. DEBUT: 17315 LONG. FIN: 17319
4
4
TEHPERATURE
F O N D :
0 SALINITE FOND: 0
OXYGENE
FONO: 0
0
Q***b*****tb**********b***b***b***********b*b*******************b*************************
*
4
4
4
4
4
F A M I L L E
ESPECE
4 PRISE 4
NOMBRE9
KG/H
Q
*************************************************************4****************************
0
*
8
*
4
*TORPEOINIDAE
TORPEDO TORPEDO
4
23.50
+
4
2 3 . 5 0 rt
~TORPEOINIOAE
TORPEDO MARHORATA
4
3 5 . 7 0 4
0
3 5 . 7 0 L
sPTEROTHRISSIOAE
PTEROTHRISSUS
BELLOC.1
4
a.40 *
*
8 . 4 0 0
oCHLOROPHTHALHIDAE
,
C H L O R O P H T H A L H U S A T L A N T I C U S
4
3 9 1 . 0 0 4
t
3 9 1 . 0 0 4
~CHLOROPHTHALHIDAE
CHCOROPHTHALMUS F R A S E R - B U E N N E R I
4
67.20 0
4
6 7 . 2 0 a
eHYCTOPHIOAE
MYCTOPHI OAE
4
11.30 9
4
1 1 . 3 0 4
~HACROURIOAE
’
H A L A C O C E P H A L U S L A E V I S
4
8 . 8 2 4
4
8 . 8 2 4
eHERLUCIIOAE
MERLUCCIUS S E N E G A L E N S I S
4
2 . 7 8 4
4
2 . 7 8 4
~NERLUCIIOAE
HERLUCCIUS CADENATI=M. P O L L I
4
8 . 0 0 *
9
8 . 0 0 0
*ZEIOAE
4
ZEYOPSI S C O N C H I F E R
0 . 4 2 6:
0
0 . 4 2 *
oAPOGONIDAE
SYNAGROPS YICROLEPIS
*
1 8 . 9 0 4
4
1 8 . 9 0 4
9CALLIONYMIOA.E
CALLIONYHUS PHAETON
4
1 4 . 3 0 *
0
1 4 . 3 0 9
oElROTULIOAE
B R O T U L A BARBATA
4
3 2 . 8 0 0
0
3 2 . 8 0 4
9SCORPAENIOAE
PONT INUS KUHL 1
4
7 . 1 4 *
4
7 . 1 4 *
+SCClRPAENIOAE
S C O R P A E N A NORHAYI
4
0 . 8 4 4
4
0 . 8 4 0
oTRIGLIOAE
PERISTEOIDN C A T A P H R A C T U M
4
3.36 9
9:
3 . 3 6 rQ
sTRIGLIOAE
LEPIOOTRIGLA
CADHANI
4
5 . 0 4 *
4
5 . 0 4 4
+BOTHIOAE
CHASCANOPSETTA LUGUBRIS
4
56.70 0
4
5 6 . 7 0 4
9BOTHIOAE
*
ARYOGLOSSUS E N T O M O R H Y N C H U S
1 . 6 8 *
4
1 . 6 8 *
0 SOLE IOAE
M I C R O C H I R U S WITTEI
4
2 . 1 0 *
*
2 . 1 0 4
*SEPI IOAE
S E P I A O R B I G N I A N A
0
1 . 6 8 *
4
1 . 6 8 *
*SEPI IOAE
S E P I A E L E G A N S
4
7.56 *
4
7 . 5 6 0
~OHNASTREPHIDAE
TOOARORSIS E R L A N E
4
2 0 . 2 0 *
9
2 0 . 2 0 0
*PANOALIOAE
PLESIONIKA EDWARSII
4
1 0 . 5 0 4
a
1 0 . 5 0 0
+PANOALIOAE
P A R A P A N O A L U S BREVIPES
4
0 . 4 2 4
4
0 . 4 2 4
*SOLENOCERIOAE
S O L E N O C E R A A F R I C A N A
4
0 . 4 2 4
0
0 . 4 2 4
+PENAEI~AE
PARAPEYAEUS LONGIROSTRIS
4
1 3 . 4 0 *
*
1 3 . 4 0 4
* WUNI QAE
MUNIOAE SP.
4
1 7 2 . 0 0 4
4
1 7 2 . 0 0 4
*PORTUNIDAE
PORTUNIDAE SP.
4
6 . 3 0 4
4
6 . 3 0 4
8*****************************************************************************************
0
*
4
4
4
b
P O I D S
TOTAL
S E L A C I E N S
9
5 9 . 2 0 4
4
5 9 . 2 0 4
4
P O I D S
TOTAL
TELEOSTEENS
0
640.78 ir
4
640.78 4
*
P O I D S
TOTAL
CEPHALOPODES
4
2 9 . 4 4 4
4
2 9 . 4 4 4
0
P O I D S
TOTAL
C R U S T A C E S
4
2 3 3 . 0 4 4
8
2 0 3 . 0 4 4
4
P O I D S
TOTAL
GENERAL
4
932.46 8
4
932.46 0
444$4tb$bbb$btbbt4btb4444444bbb4444b44bbbb44~4b4444444444444*4444b4444~44444~4bbb444444$4$
2 9 ESPECES
Table I.- Saxtie,pour un trait de chalut,effectuéepar le
programme CHALE-?,

---

rELEOSrEENS
CH4UNAC
1 D4F
C H A U N A C I D A E OI V E R S
TELEOSTEENS
CHAUN4C
IDIE
C H A U N A X PICrUS
fELEOS rEENS
OGCOCEPHILIO4E
DIBRANCHUS ArLANlICUS
1ECEOS
TEENS
CAULOPHRYNI DAE
CAULOPWRCNE
JOROANI
TELEOS 1EENS
MEL4NOCET
1 DAE
W E L A N O C E T U S S P .
rELEOSrEENS
HIHANTOLOPH 1 DAE
HIYANrOLOPHUS S P .
I’ELEOSIEENS
P O I S S O N S OI V E R S
P O I S S O N S I N D E T E R M I N E S
CEPHALOPODES
CEPH4LOPOOE
S
CEPHALOPODES DIVERS
CEPHALOPODES
SEPI IDAE
S E P I A OFFICINALIS D I V E R S
CEPHALOPODES
SEPI IDAE
S E P I A ORBIGNIANA
CEPHALOPODES
SEPI 1 DAE
SEPI A ELEGANS
CEPHALOPODES
OHHASTREPHIDAE
ILLEX ILLECEBROSUSrI. COINDEl 1
CEPHALOPODES
OHM4SrREPHI DAE
T O D A R O D E S SAGl TTATUS
CEPH4LOPODES
OMM4SrREPHI DAE
OHMASTREPHIOAE D I V E R S
CEPHILOPODES
OCrOPODIDAE
OClOPUS V U L G A R I S
CEPHALOPODES
OCrOPODIDAE
ELEDONE HOSCHAlA
CEPHALOPDDES
OCrOPODIDhF
OClOPUS SPP.
CEPHALOPODES
SEPIOLIcl4E
ROSSI* MACROSOHA
CRUSr4CES
OPLOPHOR 1 D4E
ACANTEPHYR4 PURPURE A
CRUSrACES
NEHArOCARCINIDAE
NEMATOCARCINUS AFRCCANUS
CRUSr4CES
PASIPHAÇID4E
G L Y P H I U S MARSUPIALIS
cRusr4cEs
PAND4LIDAE
HElEROCARPUS ENSIFER
cRusrAcEs
P A N D A L I D A E
H E T E R O C A R P U S G R I M A L D I 1
cuusracxs
PANDALI D4E
PLESIONIK4 HETEROCARPUS
cRusr4cEs
PAND4LIDAE
PLEStONIK4 EDYARSI 1
CRUSr4CES
PAND4L 1 D4E
PLESIONIK4
ACANlHONOrUS
CRUSr4CES
PAF’DAL 104E -
PLESIONIKA
ENSIS
CRUSlACES
P4:?~4LIDAE
P L E S I O N I K A #ILLIAMSI
CRUSr4CES
PAND4LID4E
PLESIONIKI
CARINAlA
CQUST4CES
P A N D A L I D A E
P L E S I O N I K A S P .
CQUSr4CES
PAND4LID4E
P4RAPAND4LUS BREVIPES
CQUSr*CES
CRANGONI
DAC
PONlOPHI
L U S S P .
CQ’JSl4CES
SOLENOCER 1 OAE
HYMENOPENAEUS
CHACE 1
CRUSI4CES
SOLENOCER 1 DAE
S O L E N O C E R A A F R I C A N A
cRusr4cEs
4RISrEIO4E
4RISrEOMORPHA FOLI4CE4
CRUST4CES
4RISrEID4E
4RISTEUS
VARIDENS
CRUSr4CES
ARISrEIDAE
P L E S I O P E N A E U S EOwARSIANUS
CRUSr4CES
oEN4E 1 D4E
PARAPEN4EUS LONGIROSTRIS
CRUSrACçS
CREVETTES
CREVETTES PROFONDES
CQUSr4CES
PALINURIDIE
P4LINURUS
HAURIrANICUS
C R U S T A C E S
PAL4EMONIO4E
BRACHYCARPUS
BIUNGUICULIlUS
CRUSTACES
HUNID4E
MUNI01 I R I S
CRUSTPCFS
MUNI D4E
CUNIDIE S P .
CRUSr4CES
ERIUNIOAE
ERIONIDIE
CRUSTICES
HOHOL ID4E
P4RAMOL4 C U V I E R 1
CRUSI 4CES
PORrUNIDAE
8AlHYNEClES
SUPERBUS
cwsr4cEs
C4L4PPID4L
C4L4PP4 GR4NULhr4
CRuSrACES
C A L A P P I D A E
C*LAPPA S P .
CQUSC4CES
GERvONIO4E
G E R Y O N Y4RI r4E
CQUSr4CES
CR48ES
C R A B E S D I V E R S ~ENTIERS~
C R U S T A C E S
S TOMA TOPODE S
SPUILLA
M4Nr 1 S

---

9
3.3. RENDEMENTS HORAIRES PAR STRATE
3.3.1. Création d’un fichier des rendements horaires par station
(Programme CHALEXB)
Le programme CBALEXB (Annexe VII) est proche de CHALEXA et prépare
l’exécution des programmes ultérieurs. Il place dans un fichier formatté,
RDT X (X = nom de la campagne), les rendements horaires par station utilisa-
ble (exclusion des traits portant le code 2 dans la rubrique croche) dans
l’ordre systématique des espèces. Le rendement total toutes espèces et les
rendements par grand groupe systématique sont inclus dans la première “carte”
en sortie de la station avec les caractéristiques principales de celle-ci.
Pour une station le fichier à la structure suivante :
- la première “carte” porte dans l’ordre, le code de la mission, le nu-
méro de la station, le code de l’engin de pêche, le maillage du cul, la
longueur de la corde de dos, la zone, la strate de profondeur, le nombre de
rendements qui seront enregistrés, le rendement total, puisles rendements en
sélaciens, téléostéens, céphalopodes, crustacés, FORMAT
(3X, 12, 1X, 13, IX, Il, 3 [1X, 12), 1X, Il, IX, 12, 1X, 5 (F8.3, 1X) ;
- les “cartes”suivantes portent les codes des espèces rencontrées et
leurs rendements (5 espèces par “carte”) ; FORMAT (1X, 5 (14, 1X, F8.3, 1X)).
3.3.2. Rendements horaires par strate pour des espèces ou des groupes
d’espèces choisis (programmes RDTEXP, EXPRDT)
Le programme RDTEXP (Annexe VIII) utilise les fichiers RDT X et calcule
pour des espèces ou des groupes d’espèces choisis les rendements horaires
moyens par strate avec leurs écart-types. Le nombre d’espèces (ou de groupes)
peut atteindre 10 pour une seule soumission de Z’EXEC du programme, de même
que le nombre d’espèces d’un groupe. Le code des espèces choisies doit être
indiqué dans 1’EXEC
; pour les regroupements “toutes espèces”, sélaciens,
téléostéens, céphalopodes, crustacés, le code “espèce” utilisé prendra les
valeurs 1 à 5. Pour une espèce les combinaisons zone-profondeur sont limitées
à 65 dans 1’EXEC. L’engin de pêche peut être sélectionné ou non.
La structure des cartes paramètres dans 1’EXEC (Annexe IX) est la sui-
vante :
(1) - une”carte” portant le code de l’engin de pêche sélectionné (9 si
pas de sélection, FORMAT (12)) ;
(2) - une “carte avec le code de l’espèce (ou groupe
d’espèces) choisie
et son nom en alphabétique, FORMAT (2X, 10 (14, 1X), A28) ;
(3) - plusieurs “cartes” (jusqu’à 65) pour les strates zone-profondeur
avec une “carte” par strate comprenant
les codes zone de début et zone de
fin (le traitement prendra en compte les stations.Iappartenant aux zones
allant du premier code au deuxième code, ex. : les codes successifs 01 et
03 indiquent que les stations appartenant aux zones 1,2 et 3 seront prises
en considération), les codes profondeur de début et de fin (idem codes
zones), l’intitulé de la strate zone-profondeur en alphabétique, FORMAT
(2X, 212, 2X, 212, A40) ;
(4) - une “carte” de fin de traitement pour une espèce ou un groupe
d’espèce’code 9 en deuxième colonne ;
(5) - une “carte” de fin de traitement pour le programme, code 99 sur
les deux premières colonnes.
Les étapes (2) à (4) peuvent être répétées pour 10 espèces (ou groupes)
différents.

---

1 0
Les résultats en sortie (table III.) donnent pour chaque espèce et
pour chaque strate zone-profondeur :
- les caractéristiques de la strate avec le nombre de stations lui
appartenant ;
- le rendement horaire de l’espèce considérée.pour chacune des sta-
tions de la strate ;
- le rendement horaire moyen,l’écart-type de la distribution des ren-
dements et l’écart-type de la moyenne.
Le programme EXPRDT est similaire au programme RDTEXP, la seule diffé-
rence étant que le programme place les résultats dans un fichier disque
nommé EXPRDT X. La structure de ce fichier se compose d’un enregistrement
par strate comprenant : le code de la campagne, le code de l’engin de pêche,
le code de l’espèce, lecode de l’espèce, le nom de l’espèce en alphabétique,
les caractéristiques de la strate en alphabétique, les codes de la zone de
début et de la zone de fin, les codes de la profondeur de début et de la pro-
fondeur de fin, le nombre de stations de la strate, le rendement moyen,sa
variance,l’écart-type
de la moyenne;
FORMAT (IX, 12, IX, Il, 1X, 14, IX, A28, IX, A30, 1X, 212, IX, 213, 1X, 13,
3 (ix, FlO.3)).
Les fichiers EXPRDT X pourront être utilisés pour calculer les moyennes
et variantes générales par espèce et groupe d’espèces dans le cas d’un échan-
tillonnage stratifié (prise en compte de la surface des strates).
3.4. TRAITEMENT DES MENSURATIONS
3.4.1. Résultats numériques (programmes MSUEXPl, MSUEXP2 , MSUEXP5)
Le programme MSUEXPl ne peut traiter qu’une seule espèce à la fois alors
que MSUEXP2 peut traiter les mensurations de plusieurs espèces (20 au maximum)
pour une seule soumission. C’est ce programme (annexe X) que nous allons
décrire.
Pour chaque espèce et pour chaque strate zone-profondeur indiquées en
“cartes” paramètres, le programme améne la ou les (si les deux sexes sont
mesurés séparcment ) mensurations d’une station à la prise horaire (facteur
de pondération Rl), puis à la prise totale pour la strate (facteur de pondé-
ration R2).
La structure des “cartes” paramètres de 1’EXEC est la suivante :
(1) - nombre d’espèces à traiter, FORMAT (12) ;
(2) - code de l’espèce et incrément des mesures (mm, 1/2 cm, cm), FORMAT
(14, 1X, Il) ;
(3) - codes des zones à traiter (3 zones possibles et toutes zones, avec
pas de traitement quand la valeur = 0)’ FORMAT (4 (12, 1X)) ;
(4) - code des profondeurs à traiter (9 profondeurs possibles et toutes
profondeurs, avec pas de traitement quand la valeur = 0) , FORMAT (1012, 1X).
Les “cartes” (2) à (4) sont répétées autant de fois qu’il y a d’espèces
à traiter. Le nom dea espèces en début du programme (tableau DATA ESP) doit
correspondre dans l’ordre au code des espèces des ‘cartes” paramètres de
L’EXEC.Les opérations du programme peuvent être décomposées en plusieurs
phases :
(1) - Traitements station par station
- Dans un premier temps la lecture de la carte station d’un trait de
chalut du fichier X (nom campagne) DATA est effectuée et il y a saut de tous
les enregistrements correspondant au trait si la zone ou la profondeur n’ont
pas été désirées en “cartes” paramètres. Dans le cas contraire, la lecture

---

CODt
C"AL"‘=
4
MERLUCCIUS SENEG.
NLIRD
1‘50-500 M
ZONE DE”“, ET FlN: ,

,
PRDFDNDEVR
oekmr ET
FIN: 1
4
NOMBRE D E sr4rfoN5:
2 3
NU~CROS
D E S sr4rlows ET R E N D E M E N T S :
2=
1 0 . 2 8 6 %NI
3=
9 . 4 0 0
*bd-
4=
0.000
9N-
5= 33.877
*hl-
7=
9.138

ON-
FI= 3.000
ON-
9= 0.000
*N-
10=
2 5 0 . 0 0 0
9
17=
0 . 0 0 0 *PJ- 13=
1 6 5 . 0 0 0
O N -
,4=
2 1 5 . 0 0 0 B N -
15~
177.000 OY-
18~ 28.000 %N-
,9= 6.000
*N-
201
*o.soo *rd-
210
*.*eo
4
N-
23~
4 2 . 0 0 0 ON- Lt+=
6 2 . 0 0 0
ON-
25=
3 6 . 0 0 0 %N- 93= 9 5 . 2 0 0
Y-4.
95= 3.300
O N -
95= 2.800
+N-
90= 2 2 . 0 5 0
4H-
NOLIBRE
sr~rIDNs= 2 3
MOVENNE=
5 2 . 9 1 5
E C A R T - TYPE- 74 -926
E C A R T - T Y P E YOYENhE- I S . 6 2 3
UORO
500-800
4
ZONE oeour
Er FIN:
1
L
P R O F O N D E U R DEât,t E r F I N : 5
7
WOUtiRE DE SrAllONS:
9
NUWEROS
D E S Sr~rIoNs E T RENDEMENTS:
N-
,=
0 . 0 9 0 %N-
6=
1 . 2 0 0
tN-
*i=
0 . 0 0 0 SN- ,6= 0 . 0 0 0
sh(-
171 0.000
%N-
.?2= 0.000
SN-
9L= 0.00”
O N -
92=
o.oon
*
N- 97=
0 . 6 0 0 x . 4 -
NOclURE
sr&r*oNs=
9
HOfENNE=
0 . 2 0 0
EchRr-rvPE=
0 . 4 2 4
Ec*Rr-rwE

*ovt~h~=
0.*41
CENT7E
1 5 0 - 5 0 0
u
LOYE DES”r Er
FIN: 2 2
PROFONDEUH
DEBUT .5r FIN: L
4
N O M B R E D E SrarIONS:
3 9
N U M E R O S DES sr4rIoNs Er RmdoEwr4rs:
LJ-
26=
131.330
%N-
27=
4 6 . 714 %N-
251
0.000
tN- 311 3.330
*+4-
321 2 0 4 . 0 0 0
O N 3X=
-
2 8 0 . 0 0 0
8N-
34= 2 3 5 . 0 0 0
9N-
35=
1 4 . 4 2 3
(i
N- 39= 103.i)OO 9N- 40= 7
5
0
.
0
0
0

%N- 4,~ 2 0 . 0 0 0 %N- 42=
0 . 0 0 0 tN- 45=
2 0 . 0 0 0 O N - 46= 114.4629N-
48= 4
7
.
8
0
0

*N- 49= 1 3 . 1 0 0
*
N- S O =
254.500
W-: 5:=
$.‘OO
9N-
52=
LO.200 %N-
‘Se=
5 . 5 3 8 %Y- 55=
0 . 3 0 0 SN- 56=
0 . 0 0 0 *rd- 57=
7 . 5 0 0 éN- 58=
9 . 5 9 3 t
N- 60=
5 1 . 1 0 0 %N-
6,=
8.BOO
*w-
c>2=
3 0 . 4 0 0 *r-t- 63s 0 . 0 0 0
%Pi- 64= 0.000
%N-
II- 24.000
8N-
72= 0.300
O N -
73=
0 . 4 3 6
%
Y-
74:
3.800
*N-
75=
6 . 6 0 0
4N-
76=
9.000
77=
SN-

O.&OU
=Y-
BO= 345.300 tN-
87= 38.500
SN-
99= 4 9 . 5 0 0
QN-
NOW3Rt
SrAr13NS=
39
4”IENNE=
72.RI7
ec*Rr-rvPtz= 1 4 2 . 3 0 7
ECARr-TYPE
HOvEF(hE=
2 2 . 7 9 ,
CENrRE
500-300
M
ZONE
DF”,Ir
ET
2
FIN: 2
P R O F O N D E U R 0Ewr ET F I N : 5
7
N O M B R E D E S747IONS:
19
NUVEROS
DE~ sr4rIoNs < r R E N D E M E N T S :
Y - 29=
0 . 0 0 0 +N- 33:
0 . 0 0 0
O N - 36=
0 . 0 0 0 fN- 37= 0 . 0 0 0
*Y- 43=
0.000
SN- 44= 0.000
O N -
53= 0.000
%N-
59=
0 . 0 0 0
9
N
-
79=
0 . 0 0 0 +N- k,O=
0 . 0 0 0
tN-
**=
0 . 0 0 0 TN- 821 0 . 0 0 0
‘-N- 83=
0.000
%N- 84= 0.000
*lu-
es= 0.000
9N-
88=
0 . 0 0 0
*
N-
99=
0.000
ON-
Yo=
1 . 0 0 0
k-N-
381
0 . 0 0 0 T N -
YOHURE
SrArlQNS= 1
9
YOVFNNE =
0 . 0 3 3
EcARr-r*w=
0 . 2 2 9
Ec*Rr-r*PE
MOVEY~E=
0 . 0 5 3
Table III.- Exemple de sortie du programme RDTEXP.

---

1 2
aes “cartes”espèces est faite et, si l’espèce concernée par le traitement
existe, sa prise horaire est enregistrée
’
, puis sommée dans un tableau
correspondant à la strate.
- Dans un second temps, lorsque l’espèce a fait l’objet de mesures
après le trait de chalut, la distribution de fréquence est ramenée à la
prise horaire par multiplication de chacun de ses éléments par un facteur
R1 qui est différent de 1.0 s’il s’agit d’un échantillon ou si la durée
du trait est différente d’une heure. Dans le cas de mensurations par sexe,
le poids de chacun des deux échantillons est sommé avant de calculer Rl.
Auparavant le programme aura vérifié que l’incrément de la (ou des 2) men-
suration(s) est le même que celui porté en “carte” paramètre. Le programme
effectue ensuite un regroupement des 2 mensurations par sexe en une distri-
bution unique si les deux sexes étaient présents et ont été séparés. La (ou
les) distribution de l’espèce considérée pour le trait de chalut est enfin
placée dans un tableau à 3 dimensions (zone, profondeur, sexe) correspondant
à la strate zone-profondeur du trait avec sommation des fréquences, du nombre
d’individus réellement mesurés, du nombre d’échantillons, et recherche du
plus grand individu rencontré.
(L) Pondération par le facteur R2
Dans une deuxième phase les structures de taille sont multipliées par
un facteur R2 qui est le quotient entre le total des prises horaires de
l’espèce pour toutes les stations de la strate considérée et le total des
prises horaires pour les stations où il y a eu des individus mesurés. Cette
pondération permet de tenir compte des stations où il n’y aurait pas eu de
mensuration bien que l’espèce soit présente, et ce dans l’optique d’un re-
groupement futur des strates afin d’obtenir des structures de taille repré-
sentatives de populations plus larges.
(3) Traitements toutes zones par profondeur, toutes profondeurs par
zone, toutes zones et toutes profondeurs
Il s’agit de simples sommations des résultats obtenus par strate zone-
profondeur lors de la phase précédente, ainsi que de la recherche des plus
grands individus de chaque ensemble. Deux points importants sont cependant
à noter pour ces regroupements :
- si une zone ou une profondeur n’a pas été déclarée en “carte’ para-
mètre bien que des mensurations de l’espèce y aient eu lieu, ces mensurations
ne seront pas prises en compte dans le regroupement ;
- la surface de chaque strate zone-profondeur de base n’est pas prise
en considération, aussi les regroupements ne seront pas à même de représenter
la structure démographique de la population si la proportion entre le nombre
de stations et la surface des strates n’est pas identique pour toutes les
strates.
(4) Calcul des fréquences relatives, de la taille moyenne et de son
écart- type
Ces calculs sont effectués systématiquement par sexe et tous sexes
réunis pour toutes les strates zone-profondeur et tous les regroupements à
condition que les tableaux à trois dimensions (zone, profondeur, sexe) ne
soient pas vides.
(5) Ecriture des résultats
Un exemple des résultats en sortie est donné à la table IV.
En tête des tableaux l’espèce, la zone, la profondeur et le sexe sont
indiqués en alphabétique ; puis suivent Ie nombre d’échantillons pris dans
la strate et le nombre total d’individus réellement mesurés, vient enfin la
taille moyenne et son écart-type. On notera que pour les regroupements ‘tous
sexes”, les mâ$es et les femelles mesurés lors d’une station comptent chacun
pour un échantillon.

---

'J 3
::;k:

.;..

i
,.:
.:,
,<:
.I...
:
.
.
.
t
.::
h
*
* ESPcCc:
ARISTEUS VAX13iYS
?
(r 6SPéC;:
4RISTtÿS
VAKIDEYS
r;
i LONt:
1OUTiS LOYES
t
i: 2mli:
T~UTES 23h1ES
3
t PKOFONDEUK:
TwTtS PQflFtt~nkuRS
0
4
PROFONDEUK:
TWTES
PKOFUNDEURS 4
1 SEXE:
FEMELLES
f
4
StxE: T
O
U
S SEXES
4
* NOMSRi E:HPNTILL3NS: 4
1
*
* NGHBRE
E;qAYTILLONS:
82
0
(I NOMBRE INI)IVIOUS
M E S U R E S :
3093 *
0 NOHdRt
IVOIVIOUS M E S U R E S : 4 3 2 5 0
0 T A I L L E W Y . :
3.30
S= 0.69 4
4 TAILLE
tm~.:
3.08
s= 0.71
4
Q*0194b*4ttS4~4404*44~~4~~~*4*4~~~4
3***********4*4***4*4*******4******
Q C L A S S E S t FRECIUENCES 4
r
0
9 C L A S S E S b F R E O U E N C E S t z
4
4*0*94***90*4~*t4***4~4~***~***4~~*
4*4*****44444***4*444****444**4***4
0
1.5
+
3
4
0 . 0
Q
*
1.5 4
3 (i
0.0
*
4
1.b
(r
41
*
0 . 4
*
*
1.6 4
41 Y
0.3
Q
4
1.7 4
14
4
0 . 1
Q
4
1.7
*
14 *
0.1
4
*
1.e l
79
4
0 . 8
9
0
1.8
4
103 *
0.6
0
*
1.9 4
43
4
a.5
0
4
1.9
0
58
*
0.5
*
*
2.0 4
1 7 0
4
1.8
it
+
2.0
0
323
*
2.5
4
4
2.1
*
2 8 b
8
3.0
0
0
2.1
9
485
*
3.8
0
4
2.2
4
175
*
1.9
4
*
2.2
4
451
4
3.6
4
d
2.3 4
267
4
2.6
9
4
2.3
4
720 0
5.6
0
0
2.4 4
268
*
2.8
4
4
2.4
4
643
4
5.0
4
6
2.5
4
237
4
2.5
4
4
2.5
4
708
4
5.5
9
c
2.6
4
228
9
2 . 4
0
4
2.6 4
843
Q
6.6
*
8
2.1
4
291
4
3.1
9
*
2.7
4
731
4
5.7
8
I
2.8
4
342
*
3 . 6
4
4
2.8
4
622 4
4.6
0
4
2.9
4
349
4
3.7
4
4
2.9
4
439
+
3.4
*
*
3.0
4
326
4
3.5
4
4
3.0
4
345
*
2.7
4
*
3-L
0
5 4 8
*
5.8
Q
9
3.1
4
553
4
4.3
*
4
3.2
4
590
*
6 . 3
4
9
3.2
4
590
4
4.6
*
4
3.3
4
535
4
5 . 7
*
4
3.3
4
537 Q
4.2
*
4
3.4
4
444
4
4 . 7
4
4
3.4
4
444
a
3.5
4
0
3.5
4
522
4
5.5
4
4
3.5
4
525
*
4.1
*
*
3.6
4
450
4
4 . 8
0
t
3.6
4
450 4
3.5
*
4
3.7
4
447
4
4.7
8
d
3.7
*
447
9
3.5
4
9
3.0
4
425
4
4.5
Q
9
3.8
4
425
4
3.3
*
e
3.9 4
465
4
4.9
4
4
3.9
4
465
4
3.6
9
4
4.0
4
527
<I
5 . 6
il
4
4.0 4
527
0
4.1
8
4
4.1 4
3 7 4
0
4.0
*
0:
4.1
4
374 9
2.9
*
4
4.2
4
298
*
3.2
4
0
4.2
4
298
4
2.3
*
*
4.3
4
210
4
2.2
*
4
4.3
4
210 *
1.6
4
t
4.4 4
158
4
l.?
8
4
4.4
4
158
*
1.2
+
*
4.5 4
152
*
1.6
9
4
4.5
4
152 *
1.2
4
0
4.6
4
7 6
4
0.8
*
Q
4.6 4
75 4
0.6
4
0
4.7
4
2 8
4
0.3
9
4
4.7
4
28
4
0.2
*
4
4.8 4
7
0
0.1
0
8
4.8
4
7 8
0.1
0
4
4.9 4
2 4
4
0.3
4
4
4.9 4
24 *
0.2
4
0
5.0
P
2
4
0 . 0
4
6
5.0
4
2 Q
0.0
4
4
5.1
4
2
*
0 . 0
9
4
5.1 4
2 *
0.0
Q
4
5.2
0
0
4
0 . 0
4
9
5.2
4
0 0
0.0
*
0
5.3 4
2
4
i l . 0
4
4
5.3
4
2 4
0.0
0
0
5.4 4
9
4
0.1
0
4
5.4
4
9
4
0.1
4
0
5.5 4
3
4
0.0
*
+
5.5
4
3
4
0.0
*
4
5.6 4
0
4
0 . 0
4
9
5.6 4
0
Q
0.0
*
0
5.1 4
1
4
0 . 0
Q
*
5.1
4
1 Q
3.0
*
44**4*4*444444**4*4*4*4*4**4*Q44**4
4*******4444444*4****44***4*4*44***
0
T O T A L :
9 4 1 8 4
1 0 0 . 0 4
0
T O T A L t
1 2 1 1 4 4 Q
1 0 0 . 0 4
- . - . . --_-^^*-----_Y--**__-*-~---
-*--~**‘-*--*‘-‘*‘********~4~*44*4~
Table IV.- Exemple de sortie du programme
MSUEXP2.

---

La deuxième partie des tableaux comprend la limite inférieure de chaque
classe en cm. Il n'y a pas eu d'individus mesurés en deçà de la première
classe indiquée dans le tableau et au delà de la dernière. En face de chaque
classe de taille se trouve la fréquence obtenue pour la strate après les
pondérations par les facteurs RI et R2 et son pourcentage par rapport au
total.Le programme MSUEXP5 est similaire à MSUEXP2, la différence provient
de ce que 3 tableaux au lieu d'un seul peuvent être écrits en sortie sur
une même feuille d'imprimante, d'ou un gain important de papier. Cependant,
à cause des difficultés d'écriture, les tableaux d'une même feuille commen-
cent et se terminent par le plus petit et le plus grand des individus rencon-
trés parmi les différentes strates indiquées sur la feuille d'imprimante ;
de ce fait certains tableaux peuvent commencer ou finir avec des fréquences
de valeurs zéro.
3.4.2. Résultats graphiques (programmes MSUEXP3 et MSUEXP4)
Ces programmes sont des adaptations des programmes MSUEXPl et MSUEXP2
qui permettent de tracer des graphiques des distributions de fréquence avec
la machine à dessiner BENSON. Le programme MSUEXF'4 qui, comme MSUEXP2, peut
traiter plusieurs espèces en une seule soumission, est donné en annexe XI.
Son EXEC est presque identique à celui de MSUEXP2, il faut seulement ajouter
une "carte" paramètre après la "carte" contenant le code de l'espèce et son
incrément. Cette "carte", FORMAT (13, 2X, I3), indique la première et la
dernière valeur qui seront portées sur l'axe des abscisses pour toutes les
distributions de fréquence de l'espèce. Ainsi les graphiques pour les diffé-
rentes strates pourront être facilement superposés pour comparaison. Les
résultats du programme consistent en une sortie sur imprimante indiquant les
différentes espèces et strates traitées et en une sortie des différents élé-
ments caractérisant les distributions de fréquence sur la bande
de travail
qui alimentera la machine à dessiner BENSON.
La figure 2 montre un exemple des graphiques obtenus. La distribution
par classes de taille est donnée en pourcentage par rapport au total et
l'khelle des ordonnées est calculée automatiquement par le programme. Les
valeurs en abscisse sont en cm. Les indications portées sous chaque graphique
sont les mêmes que celles portées en tête des sorties numériques, hormis la
taille moyenne et sa variante.

---

1 5
iSPt2.t 1 MtRuiCCIUS CADENATI
iONE 1
TDUTES ZONES
PROFONDEUH 1 iO(I-.YODrl
SEXK t
TOUS SEXES
NOMBRE ~~'ECHANT~LLOYS 1 6
NOMBRt P'iNDIViDUS %SURES1
8I)3
zc z
20
:
46 i
i6 _/
+
9
P
9
P
\\o
w
30
do
SC
;C
:.’
tSf'td I I4tikrJCCidS CADtNh? 1
ZONE 1 :!IU'ES ZONES
WIFONOELJK I 800 .gOOY
xxt :
TOUS XXfS
NOMBRE D'ECHAN~ILLONS I 5
NDMBRt D'INDIVIDUS Y~SURESI
i3c
Figure 2.- Résultats graphiques du programme MSUEXP4.

---

a
A N N E X E 1
m
C.R.O.D.T.
CAMPAGNE:
FICHIER STATIONS CHALUTAGES EXPERIMENTAUX

---

u
INVWd
NOISSIN
NOllVlS
a0031
;u
0'
Fi
2 Fi
0 0
P
t z
Y 8
0
a. 0 ----------------------- 0
a
------------------l----,--


---------------------+--

------------------------

-------------------

Xl
------a

fg
~~,-r-------------------u 0
f-------------,,,,,,,-,,j 3
I
-- -
NIN


NICJ l---i--------------ii-
1--------------------kJ
-
r


-

N

-----------
-

N

-

NIFI
-

-

N

-

(Y

-

FI

-
N


-
ei


-
c-4


-J-,----,-I
i
(Y
-


cy
-


N
-


I
cy
-

-
<y


4
<y
-

-
---
t-4


<Y/F(/
-

-a
1z

---

H
H
H

---

A N N E X E I V
‘1 5
$$$$$$;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$4$$$$$$$$$$$$$$$
VCHOOOlO
*
PROGRAWME VCHkEX
V C H 0 0 0 2 0
*
VCHOOO 30
*
VERtFICrIONS
OES D O N N E E S D E S C4WPAGNES D E ~~~LU~&GES APRES Q U E
VCHOOOQO
*
L E S rRO1S rYPES D E B O R D E R E A U X 41ENr ErE RilJhlS E N U N S E U L F I C H I E R VCHOOOSO
t
rR1E
V C H 0 0 0 6 0
*
V C H 0 0 0 7 0
$$$$*$*8$$$*0$OQ9~**~$$~*~$~~**~~~*~~~~~~*~~~~~**~~~~~~~~*~~*~~~~~~*~~~
vcHoooe.o
V C H 0 0 0 9 0
CHIR4CrER
*BO 4
VCHOO 100
OIUENSION
1r~27l~19~350l,1C1190l,RCl401,1P010~60l,XIAl26l
VcH00110
3 0 0 0 0 100 I=I,27
VcHOO 120
1 0 0 IAli l=0
VCH00130
7 0 0 ocl 1 0 1 1=1,35O
VCHOO140
1 0 1 1ElI l - 0
VCHOO 150
00 102 1=1,00
VCHOO 160
1 0 2 IPOIOl1l=O
VCHOO170
IFI[NDEX.EQ.ll
G O TO 2 0
VCH00180
c$,$$*$$**$$$$$$$$$$$$$$$4$$$$$*$$$$$$$$$$$$*$$$$$$$*$$*$$$$$$$*$$$$$$$$vcHoo19o
C
LEcruRE c4RrE sr*rtoN Er YESSAGCS
E R R E U R S S U R CErrE c*RrE
V C H 0 0 2 0 0
c$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$4$$$$$$$$$$$$$$VCHOOZ1O
R~*o~s,1,1osr4r=ImRllI~lIl,I=1,27l
VcH00220
w(1FRa.Lr.01
G O ro 9 9 9
V C H 0 0 2 3 0
, F0aM*rl11,12,13,12,14,312,313,11,312,415,214,213,12,3x,11,15,11l
VcH00240
2 0 I N D E X - O
V C H 0 0 2 5 0
IFfI4l1l.GT.O.AND.I4l2~.Gr.O.*ND.1*13).Gr.O~
G O T O 2
VCHOO260
uR1rE~6>3114l11,1~121,1~13l
V C H 0 0 2 7 0
3 fORHAr[’
CCErrC ST4TION N E S T P4S RFFCRENCEE 4 ” NtVEW’,/,
o u cooVcHOO2BO
LE:‘,IZ,
O U WISSION:‘,13,’
o u sr*r1oN:‘,I4,//)
VCHOO290
2 0
0

4 l-s,21
VcHOO300
IFIIAlIl.NE.0~
G O rU 4
VCH00310
vRIrEl6,5l1*~2~,l4~3~
V C H 0 0 3 2 0
5 FORY&rl’
U N Ot5 ENREGlSTRtMENTS
114111,1=5,211
E S 1 N U L ’ , / , ’
Y1551VCH00330
%ON:‘, 1 3 , ’
sr4rIoN:‘,I4,/0
VCH003r0
4 C O N T I N U E
V C H 0 0 3 5 0
lF(I4126l.NE.O.AND.I4l27l.NE.Ol
G O TO 6
V C H 0 0 3 6 0
IFlI4l261.EQ.O.4ND.~Al27l.EQ.OI
G O T O 6
V C H 0 0 3 7 0
rRrr~l6,7~Irlzl,I~l3l
VCHOOSBO
7 FOW46rI’ U N S E U L D E S D E U X E L E M E N T S : P R I S E TOTALE O U CARTE SUITE ,VCH00390
4 Esr NUL’,/,’
M I S S I O N : ‘ , t3,’
sr*rI0N:‘,14,//1
V C H 0 0 4 0 0
6 IF~I~~~~.LE.~~.ANO.~~~B~.LE.~~.~ND.I*~~~.LE.~~~.~ND.IA~IOI.LE.~~O~VCH~~~IO
6 GO ro 8
V C H 0 0 4 2 0
WRIrE16,9l14I2l,I*I3l
VCHOOQ 30
9 FORY4rf’
M O I S O U J O U R OU H E U R E *4L C O D E ’ , / , ’
MISSION:‘,I3,’
sr9rvcH00440
6ION:‘>I4,/ll
VcH00150
B Y1N*:10*ll!4110l/1O~$6+MoD~I4l1ol,lo1I
VCHOO460
WlNEl=1O$llt4l9t/1Ol$6+‘dODlI&lYl,1Ol1
VCHOO4 70
MOURrYINI-UINB
vctioo4Bo
YINULX=YOUR+S
VcH00490
YINHIN=YDUR-5
VCH00500
tFII4l1ll.GE.Y1NMIN.4ND.1A~l1l.LE.~1NM4XI
CC r0 15
V C H 0 0 5 1 0
~nIr~~6,lolIrl2l,I*l3l,~~uR
vcH00520
10 FoRY4rlg
OUREE NON EGALE * HEURE uctwr M
O
I
N
S
HEURE FIN’,/,
~1SS1VCH00530
SON:‘,I’I,’
SrArlON:‘,I*,’
D U R E E C A L C U L E E E N MINUTES:‘,I4,//1
V C H 0 0 5 4 0
C$$$$$$$*$$$*$$$$*$$$$b$$$$$$$$*$$$$$%$$$$$$$$~$$$$$$$$$$$*$$$$$$$$*$$$$vctioo55o
C
L E C T U R E C A R T E S E S P E C E S Er NtSSAGES E R R E U R S
VCHOOS60
C*$$$$$t$$$$$$$$$C$$$$$$*$$4$$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$vC~OOs7O
15 Y=:
VCHOOsaO
Lf3S
VcHOO590
0 0 1 6 J=l,lO
VCH00600
REA0ls,19,I0sr4r=IERRl~
VCHOOb10
IFlIERR.Lr.OI

G
O

TO 909
V C H 0 0 6 2 0
18 FORM4rl4BOl
vCH00630
REIOIUNIr=4,FNr=11t~I6lIl,1=K,Ll
VCHOOb40
Il F0RN~rl11,12,13,6l14,13,11,13,1:1,l1,11l
VCH00650
tFlIBIKl.EQ.Zt
G O r0 1 9
vCH006bO
REAOIlJYIr=4,FN~=1llI4lIl,I=I,27l
VCHOOb70
I N D E X - 1
VCHOOb80
G O ro 7 0 0
VCHOOb90
19 1Fltf3lY*2I.EP.t4~3ll
G O TO 1 3
V C H 0 0 7 0 0
YRIrEl6>14114l21,1AI3l
VCH00710
11 FORMArI’
L
E

Y.OE Sr*rION
‘JE COQRCSPONO P
A
S
4 L
A
C4RTE ~&IrREssE’,vc”OO72O
s/, ’
~lSSION:“,I3,’
Sr4rIflN:‘t14,//)
VCHOO 730
1 3 lF~I3~Cl.EQ.ol
G O TO 1 2
V C H 0 0 7 4 0
K-K+35
VCH00750
1 6 L-Lt’15
VcH00160
1 2 r-5
vCH00770

---

A N N E X E
1 V (suite)
0 0 3 0 J-1160
vcnoo 760
ZFl13l tI.E3.01
GO r0 3
1
vctioo 790
K-tel
VCHOOBOO
IPOIO(JI=IBll~~l0~~tI~lK~l
VcHOOL)lO
NOtV=Y3Ol J,63
VCH00820
lFtNOlV.NE.01
G O 10 3 0
VCH00830
t=rrs
VCH00fJ40
J O I=I+5
VCH00850
31 t r o r = o
VCHOO860
0 0 3 2 J=1,60
VCHOOB 70
3 2 tror=tror+tPototJl
VcHOOaeO
xror=Z ror
VCtiOO890
~ror=xror~looo.
VcH00900
xMINIXvrorO99~/lo0~
VCH00910
xuAxt=vror*lol.~t00.
V C H 0 0 9 2 0
XtAt26t=lAt26~
VCH00930
tFZx[AZ26l.LE.XMAxt.AND.XI4t26t.GE.xMINlt
CC r0 3
3
V C H 0 0 9 4 0
*fftr~Z6,35lrror,x14t26)11*o
V C H 0 0 9 5 0
3 5 FORY4rZ’ L E P O I D S CALCULE:‘,FB.Z,’
ESf D I F F E R E N T O U P O I D S CODE:‘VCHOOY60
S,FB.Z,/,
WfSSZON:‘,t3,’
SrArION:“Z4’//l
VCHOOY70
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VCH00980
C
LEcrURE DES c4RrEs WNSURArZONS Er YESSAGES ERREURSI 4 C A R T E S s u t V C H O 0 9 9 0
C
res POSSIOLES I
V C H O l O O O
C$$*QI~~~Ot*00*9~0,4~~~~~~~~~~~~~~~~~$~~~~~~~*~~~~*~~*~~~$~~~*~~~~~~~~~
VCHOlOlO
33 0 0 1 0 3 I=l,190
VCHOl020
1 0 3 IclI~=o
VCH01030
0
0
104 t-1,40
vcnolo40
1 0 4 Qcftl=o
VcHOl050
t rFw=o
VCHOlO60
tNDl=l
VCHOIO70
tND2=6
VCH01080
lNO3=7
VCH01090
tNOl=t)
VCHOI 100
-
-
lNO5-9
VCHOlllO
ZN06=1 1
VCH01120
INDI-31
vcn01130
ZNO8=38
VCH01140
0 0 3 4 J=l,5
VCHOltSO
RE4Dls,l9,ZOSr4r=tERRl4
VCHOt 160
lFZZ?RR.Lr.Ot
G O r0 9 9 9
VCH01170
QE4DtUNlr=A,FHr=6OttlCtlt~~=lN~l,INO2t,Rctl~D3~,RCttN~4~,ttCtl~,l=VCHOtt8O
LZNDS,ZNOBI
VCHOl 190
6 0 FORW47Ztl,Z2,t3,t4,.?Zl,2F4.O,tZ,t3,27Z2,lll
VcH01200
IFIZCtlt.EQ.3l
G O 10 3 6
VCH01210
REAOZUNZr=4,FH~=IIIl4Ztl,Z=I,27l
V C H O I 2 2 0
INDEX= 1
V C H 0 1 2 3 0
G O r3 7 0 0
V C H O I 2 4 0
3 6 0 0 S O t=tNO6,INO7
v c t i o 1250
S O ZrFR=trFQ+ICI
Il
VCHOl260
ZFZICltNDlrll.EQ.l4l2l.AND.ZC~tNOl~2l.EO.t4l3tt
G O r0 3 7
VCHOl270
YRlrEl6,36tt4l2~,14l~t,tcl4~
VcH01-280
3 8 FORMAT( U N D E S C O D E S M I S S I O N O U STATION D E S C4RrES MENSUR4rtONS N V C H O l 2 9 0
(LE C O R R E S P O N D P4S 4 L 4 C4QrE sr4rtflw’,/,’
YtSSZON:‘,t3,’
sr4rtoN:vwol300
6’,Z4,’
ESpECE:‘,lS,//t
VCH01310
3 7 ZFItClZNOl~3t.EU.tCZ4tl
G O r0 3 9
VCH01320
YRfrEI6,4O~tCI2),lCl3t,tCt4l
V C H O I 3 3 0
4 0 FOQH4rI’
L E CODE E S P E C E D U N E CARrE SUIrE N E C O R R E S P O N D P A S 4 L4 PVCHOt340
6REMZERE C4RrE ‘4ENSUR4rlON’,/,’
HISStON:‘,I3,’
Sr4rION:‘,t4,’
ESVCHOl350
SpECE:‘,Is,//l
VCHOl360
3 9 tFltCItNO8l.EO.9.OR.tCllNOfll.E~.OI
G O r0 41
V C H O I 3 7 0
tNDl=IVOt
l JB
VCH01380
ZNOZ=tND2*36
V C H O I 3 9 0
tND3rtNO3*38
V C H O 1 4 0 0
tND4rIND4~38
VCH01410
tNDS=tYD5*38
VCHO 1420
tNDb=CND6+38
VCHO1430
tND7rtNO7*36
VCHOl440
3 4 ZHD8=ZN08t38
VCHOl450
41 ZfZ,ICZ7).Gr.O.4ND.RCt8l.Gt.O.AND.lC
9l.Gr.01
G O TO 4 2
VCHOt46U
uRIrEZ6,43)tCl2l,lCl3l,lCi4~
VCHOl470
4 3 FORM4rt’
P O I O S YEhSU CKJ P R E M I E R E C L 4 SSE o
u

NOMORE CL4SSE EG4L
A

zEVCHot480
xRO’,/,’
YZSStON:‘,l3,’
sr4rZoN:‘,
I 41’
ESPECE:‘,lS,//l
VCH01490
4 2 tFlZrFR.EP.tCZlOt~
G O TO 3 3
VCH01500
URZrE(6,44lIrFR,tCfIOt,tCt2~,tCt3l,
t
5 1 0
44 FORU47 t ’
L 4 SOMME CILCULEE
D E S FREPUENCES
:
’ ,t4, ’
ES7 DIFFERENrEVCHO
5 2 0
6 D E L. SOC(rlE C O D E E : ‘,14,1,’
Mts5tflN:‘>13>’
Sr4rlON:‘,l4,’
E S P V C H O 5 3 0
CECE:‘,tS,//)
VCHO
540
GO ro 33
VCHO
5 5 0
9 9 9 ~RtrEl6,451
VCHO
5 6 0
45 FORU4 r Z ’
c Esr FINI’1
VCHO
5 7 0
srop
VCHO
5 8 0
EN0
VCHO
5 9 0

---

A N N E X E V
C4*$$*44$$$$$$$$$4$4$$$$$$$$$$$$4$44$$$4$$$4$$$$$4$$$$$$$$$$44$$$4$$$44$CHAoOOlO
C
PROGQAYHE C H A L E X A
C H A 0 0 0 2 0
c
C H 4 0 0 0 3 0
C
PQISES E T RENDEWNrS P A R TRAlTS P O U R C H A L U T A G E S E X P E R I M E N T A U X
C H A 0 0 0 4 0
C
cHA00050
C
ENTRE9 E N ALPHARErI?UE D A N S L E X E C L E N O M D U BArEAU,LA P E R I O D E ET
C H A 0 0 0 6 0
C
L E 4Or ‘ C O D E MISSION=‘,FORWArlA7Ol
CHAOOO 70
C
CHAOOOt30
‘**$$$$$$$$$$$4$$$$$$$$$$$$$$444$$$$$444$444$4$$4$$$$$$4$$$$4$$$$$4$$4$$C~AooO9o
cnhoo~oo
CH4RACrEQ
4 7 0
P A R A
CH*001 10
CH4RACTER
454
118~1300l
CHAOO 120
CHARACrEQ

080 A
CH*00130
DIUENSION
lAl27~~I01350~~l~SP~bO),IPOIDlbO),YPOIDIbO~~XPOIDl6Ol~YPOID~6O),
CH400140
ERD~~601,NO48PE~b0l>lORE(13001,1SU(TE~~3OOl,lCODEll3OOt,~Cl3E~
CHAOOlSO
C444014Q~Z44t$40414+4~444444444444444444~444444444444444444~44~44~~44~4~~~~00[60
c
L E C T U R E F I C H I E R E S P E C E TRIE P A R N a 0 O R D R E fESPCHA,VSAM FORY4rrE)
C H 4 0 0 1 7 0
‘*$4*$$$t$$4$$44$4$444444444$4$444$4$444$444$4$$444444$4$4$44$$4444$4$$4CHAoOl~o
D
O
1 t=l,lll8
CHAOOl90
1 READ1l2,2,END=1OIlORDR~l~l,L~~~l~,lSU(TElll,IcODEll~
C H A 0 0 2 0 0
2 FORHAr~15,2X,454,12,6X,l4l
C H 4 0 0 2 1 0
I=lllt)
CI+AO0220
e
1=0
C l + 4 0 0 2 3 0
t
1 READl5,2,END=lO~lORDQ~llrCln(l),ISU1~E~Il,ICOOE11~
C H A 0 0 2 4 0
T
2 FOR~A~~lS,2U>4S4,12>6X,o
cnA00250
t
lilrl
C H 4 0 0 2 6 0
t
GO TO 1
CHA002 70
‘4$4$*$$$$$4$$$444$444$44444444$44444$$444444444444$$4$4$444$44$44$44$$4c~Aoo2Oo
c
L E C T U R E C A R T E P4RAWElQE
C H A 0 0 2 9 0
t4$$4$$*$$44$*44$$$44$$4*4$$44$44$4$$444$*$44$44$444$44$$444$4$4$**4$$$$c~Aoo3Oo
1 0 REAOf5,56lPARA
C H 1 0 0 3 1 0
5 6 FORM4rf A70)
C U 4 0 0 3 2 0
C~~4~444~~444~~4~44~?444~~4~444?444~4444444444~444444444444444~~~4444~
CHA00330
C
M I S E S A Z E R O
CHAOO340
‘$$*$$$4$C*4$$$4O$$$$$44$$4$$44*4$444$$$44*4$$$4$$*4*4$4$4$$444$4$$$$$
CHA0035O
IFlCH=l
C H 1 0 0 3 6 0
INDEX=0
CHAOO 3fO
0 0 1 0 0 I=l,27
CHAOO3RO
1 0 0 I*II)=0
CHA00.390
7 0 0 00 LOl t-1,350
C H 4 0 0 4 0 0
101 lBtIl=o
C H I 0 0 4 1 0
0 0 1 0 2 I=l,60
C H I 0 0 4 2 0
IESPlll=0
CHAOO430
IPOIO~ I )=0
CHAO0440
KPOlO(ll=O
cn400450
IPOIUI 1 l=0
CH*00460
sorlI~=o
CH1004 70
1 0 2 NOWEiREtIl=O
CHI00480
00 1 0 3 I=l,38
C H A 0 0 4 9 0
1 0 3 Ic~ll-0
CHAOOSOO
NBRESPsO
CHAOOSIO
~$44$$$$$44$$$4$4$$$4$$444$444$4444444$44$$$4444$444444$4$4444444444444
C H A 0 0 5 2 0
T
LECrURE CARTE STArlON E T I M P R E S S I O N S
C H 4 0 0 5 3 0
,$$4$$$$$$4$$$$4$$$4$$$$4$$44$$$$444$$$$$$$$$$$$$4$$$$$$$$$$$$$$$4$$44$
CHAOOSQO
lFllYOEX.EP.lI
Gn _~~e~ZO
cn4on550
READ~~,~,~~S~A~=~EQ~I,~A~~~,I=~,Z~~
CHAOO56O
IFIIEQR.Lr.Ol
G O rCl 9 9 9
C H 1 0 0 5 7 0
3 F0RMAr~11,I2,I3,I2,14,312,313,11,312,415,214,213,12,3X,11,15,111
C H A 0 0 5 8 0
2 0 I N D E X - O
CI+AO0590
*RlrE16,12~
C H 4 0 0 6 0 0
12 FORY4r(‘l’,//,
4444t444444444444444444444~44444~44~~444~444~44444~~~~~~~0
&**44$444$444*$$4$$44$4$$4*44$44444444444’,/,’
4~,88X,~4’l
C H A 0 0 6 2 0
URl~El6,4IPARA,IAl2l
CHA00630
4 FOPU4rl’
*‘,2X,A?0,12,14X,‘*‘l
C U 4 0 0 6 4 0
~RIlFl6,SllAI12l,lAll3~,IA~l4~
CHAOO6SO
5 FORMAT(’ *
T Y P E CHALUr:‘,I2,bK,‘U4lLLE
CUL~Wl:‘,l3,6X>‘COROE
OOSCHAOOb60
~IMI:‘,l3,26X,‘*‘l
C H 4 0 0 6 7 0
URIrE16,6llA~6l,l4~7),lrlbl>o,IAlYl,IAfl0),lA1lll
CHAOOb.30
6 FORYITI’
4
OArE:‘,313,6X,‘HEURE
DEBUr:‘814~6X~‘HEURE
FIN:‘,14,6Y1CH400690
b’OUREEIMlN.):‘,l4,BXI’O’)
cn400700
~QtrE(6,~4lIA~3i,l4~Al,IA~Sl,IA~lSl
C H 4 0 0 7 1 0
1 4 FoRuArt’
0 No !jr4~lON:‘,f4,6X,‘RADlAL~:’
,13,6X,‘CARRE
S~ArIS~lOUECHA00720
&:‘,IS,6X,‘ZONE:‘rt3,llK,‘*‘~
cn100730
WUlrE16,7l1A~2OlrlAI2l~,IAI2S)
CHAOO 740
7 FORMAlt’ 4 P R O F .
DE8Ur:‘,l5,6Y,‘F’QOF.
Fi~:‘,l5,10X,’
cRoc1+E:~,~2,~~~007s0
628X>‘*’ l
C H 4 0 0 7 6 0
.RIrE(6,~1IA~l6l,IAI11111*1181,I4fl~~,tA~l9~
CI+AO 0 7 70
8 FORHArf’
*
LAT.
DEBUr:‘,16,SX,‘L4T.
FIN:‘,K6,5X,‘LONG.
DERUr:‘,16CH400760
L,SX,‘LOffi.
FlN:‘,I6,SX,‘4’1
C H I 0 0 7 9 0
URIlCl6>9~lA122~,1Al23),1*120~
CI+AO0800
9 FORHhf1’ 4
rEtdPfR4ruaE
Fo~o:’
>14,BK>‘SALIYITE
FONO:’
>14,BY,‘OXIGECHAOO8<O
6NE FOND:‘,I3,lSX,‘*‘,/,’
Q’,Bt)K,‘O
,~,“~444444444444’4444444$44444CHA00@20
6***4*4*44**u444*4**4***4*4444444**44**44*4444*4**444444**4**4444’lc~4oo~3o
YRIrE/6,Ill
CH*00640
11 FORYITI’
*‘,S8K,‘*‘,lOX,‘*‘,7X,‘*‘,lOX,‘*’,/,’
4’,6X,‘FAMlLLE’,l8XCH40D850
C,‘ESPECE’,2lK>‘4’,’
PPlSE’,3K>‘*‘,’
N O M B R E ’ >‘4’,3K,‘KG/H’,3Y,‘4’,C~AOO860
h/,’ 4’,58X,‘4’,10*,‘*‘,7x,‘4’,1,’
r*$b**$$fQ$9$t$*$$$$4$4$$c~AooM7o
~;$2440$$$4$$$444$*$$$$$$$4444$44$44~4444$$$$$4$4$4$$$44$$444$44$4$CHAoO~~o
L’,/,’
$‘,s8*,‘4’,10X,‘4’,7x,‘$‘,10x,‘4’~
CH*00890

---

A N N E X E V
(suite)
CHAOO900
C
C+$$$**$$$$$$$$$*$$$$$$$$$*~*$$$$$$$$$$$$*$$$$$4$$$$$$$$$$$$$$$$**$$$$$$cHAooQl~
C
L E C T U R E
CARr?5
E S P E C E S
C H 4 0 0 9 2 0
C$$$**$*$$$$$$$$$$$$$$*$*$$$**$$*$$$$$$$*$$*$$$$$$$$$$$**$$$$$$$*$$*$$$$cnAoo93o
u n 1
C H 4 0 0 9 4 0
L-35
C H 1 0 0 9 5 0
D O 2 4 J=l,lO
C H 4 0 0 9 6 0
REho( i ,2i ,rOsrAr=iERRbA
C H A 0 0 9 7 0
IF(IERR.Lr.0)
G O rO 9 9 9
C H 4 0 0 9 9 0
21 FORMAr~AeOI
CnA00990
REAoluNlr.A,FMr=22ll
IBILI ,I=K,Ll
CH*01000
2 2 F0RM4r(11,12,13,6~~4,13111113,111111>11)
CH*01010
tFtIBlKI.EQ.Zt
G O r0 2 3
cH401020
REAoIUNIr=A,FUr=3~l1A~fl,i=l,z7l
cn*01030
INDEX= 1
CHAOxO4O
G O r o 700
C H 4 0 1 0 5 0
2 3 lFIiOIL~.EO.OI
G O r0 2 5
CHA01060
KrKr 35
CHA01070
2 4 L=L+35
CHAOlOBO
2 5 I-4
C H 4 0 1 0 9 0
0 0 2 6 J=l ,60
cnAollo0
IFIIBIIl.EP.OI
G O r0 2 7
cnAoll~0
*=I*l
cH*01120
L=I*z
C H 4 0 1 130
Y-t+3
C H 4 0 1 1 4 0
N=I*4
cnAolis0
IESl’lJ)=tBI[)
CHAOI 1 6 0
IP013~J~=1BtK~$l0$$llBlL~~
CHAOll70
xPOI3( Jb=IpOtO(
Jl
cnAollB0
fPOlD( JI=xpOIO~
Jl/lOOO
CH*01190
ROrlJl=YPOIOIJl$60/IAllll
cnAol200
NOMBRElJl=IBlH~$lO$$i~BlN~~
cnhoi210
NOtV~MOO(
J,61
C H 4 0 1 2 2 0
IF[NDIV.NE.~)
G O r o 2 6
cnA0 t 230
I=I*5
cn40t240
2 6 I-1+5
cnA01250
27 NBRESP= J- 1
CHI01 260
c**éb*t*+*44C***********************************************************CHA~~~7~
C
iwREss.IoNs
0~~s c ORDRE s*sriwAr~wE
0~s E S P E C E S
WA01 2 8 0
C*44444***4S*********4*************************************$*******$***$CHA~~~Q~
N=O
CHI01 3 0 0
00 3
0

I=l,lFICH
cH401310
0 0 3 1 J=l,NBRESP
CHAOIJZO
IFIICOOE~I1.NE.tESP~Jll

G
O

r0 31
cnAoi330
IF~ICODE~II.EO.ICOOEIl-lll

G
O

r0 37
cnAol340
IOROREIJ)=IORORE~I~
cn*01350
IFlNOWBRE(J~.EP.Ol
G O r0 3 2
CHI01 3 6 0
‘~RlrEl6,34~LtBlIl,vPO~OlJl,NONflRElJl,~Or~Jl
CHAOI 3 7 0
3
4
FORY*r(’
$‘)AS4)‘
$‘,FY.Z,’
$‘,Ib,’
$‘,FP.Z,’
4’1
CHAOL3BO
G O r o 3 9
CHAO t 390
3 2 ~RlrC~6,33~LIB~I~,YPOtD~Jl,RDrlJ~
CHAOl4OO
3 3 FoaM*r(
* $1 ,AS4,’
$‘,F9.2,’
*‘,6X,’ $‘,F9.2,’
4’)
cnAol410
3 9 N=N+l
C H 4 0 1 4 2 0
GO r o 3 1
CHA0l430
37 YRIrEL6,3BILld~Il
cnA01440
3 8 FOR.MArI’ $‘>AS4,’
$‘,lox,‘4’,7x,‘$‘,Iox,‘*‘l
cnAol4so
GO ro 3s
CH*01460
31 CONT 1 NUE
cH*01470
3s IF(N.E~.NBQESPI
G O r o 3 6
cnAol4Bo
J O CONrlNUE
cHA0l490
C4b090040$~01$446044~4*4~444~44444~444~444~4~$$$44~~$44$4$$~$$$$$$$$$$$~~~q~~~~~
C
ror4ux
P~R G R O U P E S Er ror4L GENEQAL
cHAOLslO
C4b0*~b*4**9S***S*3**~****~*~*********~**********~**~*******************~nq~*~~~
3 6 vror*=0
CH401.530
vrorB=0
cH401540
vrorceo
CH*01550
YrorO:0
cHAO1SoO
vrorE=o
C H 4 0 1 5 7 0
vrOrF=o
CH401SeO
vrorao
CH*01590
D O 4 0 J=l,NBRESP
Cn401600
lFIIORDRElJ~.Gr.l369l

G
O

r0 41
C H 4 0 1 6 1 0
vrorA=vrOrA+vpOiot
JI
CH*01620
G O ro 4 0
CnA0l630
41 IFIlORDREIJI.Gr.9999I
GO
TO 4
2
CHAOl6PO
vrorB=vrorB*vpoID~
Ji
CHI01 6 5 0

---

A N N E X E V
(suite)
GO ro 40
CH&01660
6-2 IFl10~DRE~J~.Gr.104991
G O T O 4 3
Cl-IA01670
rrorc-rrorctvpoto1JI
C H 4 0 1 6 8 0
G O TO 40
CH40 1690
43 IF11ORORElJ1.Gr.114991
G O r0 4 4
CH*01700
vrof3=vroro*vpolo1
J1
CH*01 7 1 0
GO ro 40
CH&OL 7 2 0
,C 1F110R0RElJi.Gr.11991
G O r0 4 5
C H 4 0 1 7 3 0
vror5=vrorE+vpoio1~1
CHI01 7 4 0
G O T O 50
C H 4 0 1 7 5 0
*5 vrOrFrvPOlDl
Jl
CHAO 1 760
60 CONI 1 NUE
C H 4 0 1 7 7 0
URIlEl6,461
CHAOl780
4
6
FOAMLrl’ ~‘,SSX,‘4’,lOX,‘~‘>7X,‘~’
,10X“Q’,/,‘r9t9*Q~t~~*~~~~4~~~~c~401790
6tL*~4t~0**009*09*49~~~~~~~~$~~~~~4~~~*~~~~~~~~*~~~~~~~*~~~~~~~~~~~cH~o~goo
2****‘,1,’
~‘,5Rx,‘~‘,lOx,‘*‘,7x,‘~‘,lOX,‘~’1
CHAOlBlO
IFfrrorA.m.0)
G O ro 4 7
CHAOl820
Ror*=vror*t60~1~1111
CH40 1830
wRIr~l6,~3t*ror*,Ror4
CH*0 1 8 4 0
48 FoRuIrI’ *‘,13x,‘PoIDs
ror4L
SEL4CIE~Sg,22X,‘O’,F9.Z,’
O’,IX,‘~‘CkiAOl850
L,FP.E,’
*’ l
CH401 860
4 7 rF1rrort3.ma.01
Go ro 4 9
cH401R70
ROrl3=VrOrB~60/lAill~
CH4018RO
YRITEI6,50~VTOTB,ROrR
CH4Oll390
50 FORMAT(’ +‘IIJX,‘POIOS
ror*L
rELEOSrEENS’,ZOY,‘o’,F9.2,’
~‘,7X,‘C~401900
I:‘,FP.Z,’
4’1
C H ~ 0 1 9 1 0
49 IFIrrorc.E9.01
G O ro S i
Cl-IA01 920
Rorc=vrorc*60~1*111~
CHAOI 9 3 0
wRIrE15,521vrurc,Qorc
C H 4 0 1 9 4 0
5
2
FORM4rl ‘ 9’,13X,‘PflIOS
ror4L
CEp~4LOPOOES’,l9Y,‘6’,F9.2,’
P’,IX,CH40lYSO
&‘*‘,=9.2,’
C’I
C+IAO1960
51 tFtrroro.m.01
G O ro 5 3
C H 4 0 1 9 7 0
Roro=vror0*60/I*I
il i
CHAOl9RO
uRIrE(6,541vroro,Roro
CHAOI 990
5
4
FOQHATI’ @‘,13X,‘POlDS
ror*L
CRUSr4CES’,ZZX,‘~‘,FP.Z,,
~‘,/X,‘O’CH#.O2000
SrF9.2,’
C’l
C M 4 0 2 0 1 0
5 3 vrorG=rror4+vror~~vrorc+vrorrJ+vrorrz+vrnrF
C H 1 0 2 0 2 0
RDrG=vrOrG*60/1Allll
CHA02030
~RIrEi6,551vrOrG,RDrG
C H 4 0 2 0 4 0
55 FoRw*rl’
*~,13*,*~0c0~
ror4L
GENEHAL’,24X,‘g’,F9.2,’
Q’,~X,‘~*,FC,,~O~OSO
8 9 . 2 , ’
4’,/,’ 4’,5sx,‘Q’,lox)‘~‘,7I,‘c~,lox,~~
‘,/,‘1~90~tt009Q9990$C~~O2060
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Io**ccIc*’ 1
CHAO2OBO
YRIrE16,57~NEIf?ESP
C H 4 0 2 0 9 0
5 7 FoQM*r t 14, @
E S P E C E S ’ 1
CHA02100
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C
LEC 1URE
OES
CARTES
HENSUHArIONS
CHA02120
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
0 0 7 0 J=L,ZO
CHA02140
00 QE4D1l,2l,IOSrAr=lEARl&
CH*02150
IFlISRR.Lr.Ol
G O r0 9 9 9
CHI02 160
QEIO~UYI~=~,FY~=~~~~IC~~~,~:I,~~~
CHI021 7 0
6 1 F0RM1r~11>12,13,1~,211,2F4.~,12,13,2712,11l
C H I 0 2 1 3 0
IFIIC1ll.E9.3l
G O rll 7 0
C H 4 0 2 1 9 0
REIolu~1r=4,F~r23111~111,~=1,271
C H 4 0 2 2 0 0
IHDEK=l
cti*02210
G O ro 7 0 0
C H 4 0 2 2 2 0
7 0 C O N T I N U E
C H 1 0 2 2 3 0
9 9 9 S T O P
C H 4 0 2 2 4 0
END
C H A 0 2 2 5 0

---

L! il
A N N E X E V I
C
ESPOO040
c
E S P E C E S RENCONrREES
E r C O D E E S pEND4Nr L E S CAYP4GNES
OE P E C H E S
E S P 0 0 0 5 0
c
EXPEQlMENr*LES
ESPOO060
t
ESPOO070
C
L E NON O U BATEAU E r L A P E R I O D E DDlVENr ETRE ENTRES E N 4LpH4BErIGUEESPDOOEO
C
0~~s L ExEc,Foau*r(rrol
ESP00090
C
ESPOO 100
C***********************************************************************EsPOO~lO
ESPOO 120
CH4R4CrER*70 P4R4
E S P O O , 3 0
CH4R4crEA*54 LIEltl300~
ESPOO 140
CH*RnClER*aO A
ESPOO 150
D I M E N S I O N IORDQEl130OJ
ESPOO 160
INTEGEQOZ
tSU1TE113001,1C00E113001,19l3000,6)
ESPOO I70
C
ESPOO IRO
C--,-,----------
IN~r~*LIS*rIONS------------_-_-__________
ESPOO 190
C
ESPOO200
JE0
ESPOO210
IPLGE-1
ESPOO220
NzO
ESPOO230
NLIO-0
ESPOO240
C
ESPOO250
C _ _----LECTURE
F I C H I E R E S P E C E rQIE P4R N- D ORDRE~~~~~~~~~~~~~~~
ESpOOZbO
C
ESPOO270
0
0
1 1=1,1300
ESPOO280
READll,2,tOS~Ar=IERR)IOADRE/I),LIHII),(SUIrElIl,~COD~lt]
ESPOO290
2 FORM4lllS,2%,4S4,C2,6X,l4~
ESPOOJOL)
IFIIERQ.LT.Ol GO r o 3
ESPOO310
1 NLIB-NLIRII
ESPOO320
c
ESPOO330
C p4R4wrQE_ _ _ _ _ _ _ _ LEcruuE cARrE
----------------_--_-
ESPOO340
C
ESPOO350
3 QEADl5,29~PARA
ESPOO360
2 9 FORM4TIA7OI
ESPOO370
C
ESPOO380
C - - - - - - - - - - - - - - - - - -
L E C T U R E S
C A R T E S E S P E C E S _________________-__
ESPOO390
C
ESPOO400
41
UEAOI2,4,ENO=l~O14
ESPOO4 10
4 FonwArlAsol
ESPOO420
READlUNlrrA,FNrr5)IrYPE
ESPOO4 30
5 FonMnrt Il,79XI
ESPOO440
tFttrYPE.NE.2)
G O r0 1 0 -
ESPOO450
J=Jrl
ESPOO160
QEADlUNlr’A,FMr=6l(IBI
J,KI ,K=l ,bl
ESPOO4 70
6 FOQM4Tl6X,14,5lBx,f4l~~Ox~
ESP004R0
10 GO r0 41
ESPOO490
C
ESPOO500
C,-.---,----
IMPRESSION 0~ rErE 0~s. r4f~LE4ux____________________
ESPOO510
C
ESPOO520
100 WIlrEI6,SO) IPAGE,P4RA
ESPOO530
5 0 F0R~4r~‘1’,/////l/,’
************************************4********ESPOO54o
6*****t***“*~‘*************+
~t~***~-**********~.
ESPOOS50
61,’ $~,79X, ‘PAGE: 1 ,12,2x,‘*‘,/,’
*‘,9X,‘LISrE D E S E S P E C E S QENCONTRESP005.60
6EES ET C O D E E S PEND4Nr L A CAMp4GNE D U :‘,lbX,‘*‘>/,’ *‘,8X,470,
ESPOO570
610X,‘*‘,/,
ESPOO580
6’ ******************************************************~*********EsPoo59o
A4444444$444$444444*4444444’,~,’
*‘,aE?X,‘*‘,/, *‘,6X,‘GROUPE’,2OX,ESPOO6OO
b’FAUlLLE’,2SX,‘ESPECE’,22X,‘*‘,/,’ *‘,38X,‘*‘,/,
E S P O O 6 1 0
6’ *****$********$*************************************************ESPOD62O
6**************t**Of*******‘,/,’
*‘,aax,‘*‘)
E S P O O . 5 3 0
C
ESP0.6640

---

A N N E X E V I
(suite)
C ~~~~~~IYPRESSIONS
OES E S P E C E S RENCflNrHEES
, ORORF DE L4 SYSlEM4lIUUE--ESP0065u
C
ESPOO660
0 0 2 0 I=I,NLI6
ESPOO670
0
0
30 L=l,J
ESPOO660
0
0
45 H=I,6
ESPOO690
IFIfCOOE~Il.NE.I6lL,Yll
G O 1 0 4 0
E S P 0 0 7 0 0
IF~ICODE~I~.EQ.ICOOEo1
G O 1 0 I I
ESPOO710
IF~IORORElI~.Gl.l36Yl
G O 1 0 1 2
ESPOO720
WRIrEl6,131L1BlIJ
ESPOO730
13 FOAM411’ ~‘,4Y>‘StLACIENS’,lRU,AS4,3X,‘~‘I
ESPOO 740
C O ro 6 0
ESPOO750
12
IFltORORElt~.Gl.999PI
G O lfl 1 4
ESPOO760
URI lEL6,15lLItll
I
ESPOO710
15
FORMAlI’ 0),4X,
lELEOSlEENS’,16X,45413Y,‘é’)
ESPOO780
G O 1 0 6 0
ESPOO790
14
IFlIORORElII.Cr
104991 GO ro 16
ESP00800
WRIlEL6,17ILlDl
l
ESPOO810
17
FORlAll’ *‘,4X,
CEPHALOPODES’,15X,A54,3x,‘~‘l
ESP00%20
G O r o 6 0
ESPOO830
16 (FI IOROREL I
114991 G
O
ro 18
ESPOO840
WRIlEi6,191
l
ESPOO650
1 9 FORMAlt’
C’
C R U S T A C E S ’ , l%X,A54, 3Y,‘49)
ESPOO860
G O 1 0 6 0
ESP00870
LB IFI IOROREI 1
119991 G O 1 0 2 1
ESPOO880
YRIlE~6,221
)
ESPOO890
2 2 FORYhlI’
(L’
YOLLUSOUES’,l7X,454,3X,‘9’)
ESPOO900
G O ro 6 0
ESP00910
-
I
2 1 YRIlE16,231LIBt I I
ESPOO920
2
3
FORM4lf’ O’,4X,‘MAYHIFERFS’,I7~,454,3X,‘~’l
ESPOO930
G O 1 0 6 0
ESPOO940
Il WRllF(6,24ILf0l

I
l
ESPOO950
2
4
FDRMAl(’ *‘,31X,454,3X,‘*‘)
ESPOO960
G O 1 0 6 1
ESPOO970
6 0 N=N+L
ESPOO980
61
IFil.EQ.NLl5.AYO.L.EO.J.*ND.r.TU.61
G O
1 0 2 8
ESPOO990
NOIV=MOo~N,60I
ESPOl
IF~NOIV.NE.01
G O 10 2 0
ESPOlO
WRIlFI6,ZSI
ESP01020
2
5
FORMArC’ e’B98X,‘9’,/,’ t6~0~0~090ttt40404~p4$~$~~~~4~~~4~~$~~~~$~~S~O~O30
6~1~94$42t~*1C$~~64+*~~~~~~4~k~~~~~~4~~~~*~~~~~~~1,
ESPOlO
tP4tE=lP4GE~l
ESP01050
WRIlEl6,SOlIPAGE,PARA
E S P O I 0 6 0
G O 1 0 2 0
E S P O I 0 7 0
4 0 CON1 1 NUE
ESPOlOElO
30 CON1 I NUE
ESPOIOPO
2 0 C O N T I N U E
ESPOL 100
2 3 dRIlCl?,,r=:
ESPOlllu
wRlrCl6,26lN
E S P O I 1 2 0
2 6 FORMAT( lOX,‘NOMDRE E S P E C E 5 R E N C O N T R E E S E l COCEES:~,~~,
E S P O I 130
srw
ESPOL 1 4 0
EN0
E S P O I 1 5 0

---

A N N E X E
V I I
*$$$*$4*$*$$$$444$4$4*$$444~~4444$444$$$4$4$4$44$444$$44444$4*444444$$4cHAooo~O
PPOGR*YWE CHLLEXB
C H 4 0 0 0 2 0
ch100030
RizNoErENrs PAR rR4Irs POUR ch*LuracEs EXPERIWNTAUK OANS L

O
R
D
R
E
C H 1 0 0 0 4 0
SVSTEHATIOUE
OES E S P E C E S E T PL4CEHENl 04NS U N F I C H I E R FORUArlE
Cn*00050
4VEC SUPPRESSIOY
D E S S T A T I O N S N O N UTtLISAl3LES
CH*00060
CH*00070
4$$64$4$t$$*4$$$$4*$$$$$4*$$44$4*$4$$$$$4$$4$$$$$$444$$*4$$$4$4444$$4$4c~AooOBo
CHAOOOPO
CHARACTER ii-51
LIB(1300)
C H A O O 1 O O
cHAR4CrEQ $ 8 0 A
Cn400110
OLYENSION
IA~27~,~8~3501>IESP~6O~,~~O(OI6O~,~~OIO~bO~,
CHA00120
ARDll60l,10AORE~l300),ISVITCo,ICDDE~l3OO~,~Cl33~
cH400130
$$$$$$t$4$4$$4$$$t4*444$$$$444$$4$$4~$$4$4$$$$$$$$4$*$4$4$4$$4$$4$444$*c~Aool4o
: LECTURE F I C H I E R E S P E C E TRIE P A R N’ 0 URORE iESPCHA,VSAM
FORMArrE)
C H 4 0 0 1 5 0
.$$$$$$4$4$444$4$4$44$444$$$44$4$4$444444$4444$$444$$$$4$$444$$$4$$$4$44CH4OOl6O
r-0
CHAOOI 7 0
1 REAO~l,Z,ENO=lOII09OREo,(SVlrE~~l,lCOOEl~l
C H A 0 0 1 8 0
2 FORM4rfI5,2X,A54,12,6X,l41
cn*oo 1 9 0
I=l*1
cn400200
GO ro
1
CnA002LO
:44$44$$$$4$444*444$444$$44444*4$4444444444444*444$$4444$44*44$$4444$$
C H 4 0 0 2 2 0
M I S E S A Z E R O
CHA00230
:$4$$4$4444$44$$44$44444$4$$44$44444$$4444$4$4$4$4444$44444444$$4$4444
C H 4 0 0 2 4 0
1
0
IFICH=I
cn*o0250
INDEX=0
C H A 0 0 2 6 0
0 0 1 0 0 I=l,27
C h A O 0 2 7 0
1 0 0 I4(0=0
C H 4 0 0 2 8 0
7 0 0 ROTAEO.
cHAOo2PO
f?ort3=0.
CH*00300
R O T C = O .
W A 0 0 3 1 0
ADTD-0.
CM00320
QDTG-0.
C h 1 0 0 3 3 0
D
O
LOI I=I,350
CHAOO340
101
<BtI\\=O
C H 4 0 0 3 5 0
0 0 1 0 2 I:I,60
CnA00360
lESP(I1=0
CH*00370
IPOIOI 1 t=o
CH*003eO
xPOIO~II=O.
ChA00390
VPOIO( 1 J=O.
CHAOOQOO
1 0 2 9ort 1 lEO+
CHA004lO
0 0 1 0 3 I=l,39
cH*00420
103 Icfll=o
C H 4 0 0 4 3 0
NBRESP-
0
C H 4 0 0 4 4 0
NENR=O
C H 4 0 0 4 5 0
:$$4$4$$4$$4$444444$$444$$4$$4$4$$$44444$4444$44$44$$4$$44$444444444$44
CHAO0460
LECWRE CARTE ST4lION
C H 4 0 0 4 7 0
:*$$$*$4$$$$44$$$4$4*4$44444$4444444$4$4$44444$444$4$4$$4$4***44444$444
cHA004B0
IFt1N0Ex.EP.11
G O
10 2 0
C H 1 0 0 4 9 0
READ~2,3,IOSTAl=IERR~l~AlIl,l=l,27l
c~A00500
IFIIEHQ.Ll.OI
G O 1 0 9 9 9
Cn*00510
3 F0R~A1fi1,12,~3,I2,3x,~1,312,3l1,11,312,4L5,214,213,12,3x,11,~5,11CHA00~20
Al
C H 1 0 0 5 3 0
2 0 I N D E X - 0
CH*00540
C H 4 0 0 5 5 0
:$$$$4$0~44$$4$$$44444$4$$$$4444444$44$4#444444$4$$4$4~~~$4$44$4~$444$$4cH4OO~~O
LwruRE
CIRTES
E S P E C E S
CHAOOS70
:$C40L$4$*4$f*4$$44*$4$4$$$$$4$4$$$$$4$4$$44$444$4$4$$$$$$$$44$$$$44$444c~4OO5~O
YIl
C H 4 0 0 5 9 0
035
CI+AO0600
0 0 2 4 J-I,10
CHA00610
RE4D~2,2l,IOSTAT=IERRIL
C H 4 0 0 6 2 0
IFtIERR.Lr.OI G O 1 0 9 9 9
CH*00630
2 1 FORHkl( 4301
CH400640
READtUYlT=A,FMl=2~II18(11,I=K,LI
CH400650
2 2 FORH*l~Il,12,13,6~14,~3,ll,l~,~ll,!l,Ill
CHAOObbO
IFII!‘llKI.ECt.2l
G O T O 2 3
C H 4 0 0 6 7 0
RE~oIUNlr=4,FYr=3ltIA~ll,I=l,27l
CHA006eO
INDEX;1
W A 0 0 6 9 0
G O r o 7 0 0
CH*00100
2 3 IFIIBlLI.E3.0)
G O 1 0 25
C M 4 0 0 7 1 0
KrKr35
Cl-IA0 0 7 20
2 4 L=L+SS
C H A 0 0 7 3 0
2
5
1r4
CH*00740
0 0 2 6 121160
CHA00750
IFIIRIII.EP.o~
G O ro 2 7
CHA00760
YSI,
C h 4 0 0 7 7 0
L=lrZ
CHI00
760
NSC r3
C H 4 0 0 7 9 0
N=I+4
CHAOOBOO
IESPfJ)=IUIIl
Lli400Y10
~POl0IJ~=ID~K~$l044il~~Ll~
CHA00820
XPOIOI J)=IPOID~
J)
CtiAOOB30
VP~I~~J~=XP~~DIJ~/IOOO
cHA00840
ROl~J,=VPO!O~J~$6O~I4111)
CHAOOt(50

---

A N N E X E
V I I
2 7
(suite)
NDtV=MODIJ,61
C H 4 0 0 8 6 0
IFINDIV.NE.01
GO r0 26
CHA00870
I=l*5
C H 4 0 0 9 9 0
2 6 I=I*5
C H 4 0 0 9 9 0
2 7 NBRESP=J-1
C H 4 0 0 9 0 0
NENRr Jt4
C H A 0 0 9 1 0
WA00920
:V*VVtVV*VVVVVVVVVVVVVVVVVVVVVVV*VVVVVVVV*VVVVVVV$VVVVVVVV*VVVVVVVVVVV$Vcn4OO93O
N* D ’ O R D R E P O U R L E CL45SEMENT
P*R G R O U P E
C H 4 0 0 9 4 0
:**4#0*44**9V***VV*VVVVV*VVVVVVVV*VVVVVVVVVVVV*VVV*VVVVVVVVVV*VVVV*VVVVVcH400950
N=O
C H 4 0 0 9 6 0
D D 3 0 I=l , I F I C H
C H 4 0 0 9 7 0
D O 31 J - l ,NURESp
C H 4 0 0 9 0 0
IFI SCODEI
I~.NE.IESP[Jtt
G O T O 31
CH4009QO
IDRDREI J) =IORDREIIl
C H 4 0 1 0 0 0
N=N*l
C H 4 0 1 0 1 0
31
CONrINUE
CH&01020
JO
IFIN.EP.NBRESPt
G O 10 3 6
CH401 0 3 0
C H 4 0 1 0 4 0
VVVVVVVVVVVVVVVVVVVVVVVVVVVV4VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV4V4VVVVVcH4O,OsO
rorwx P~H G R O U P E S Er ror4L G E N E R A L
C H 4 0 1 0 6 0
vvVvvv*VVvvvVvVVVVVVVv**VvVVVVVVVVVVVVVV*VVVVVVVVVVVVVVVVVVVVVVVV$VVVVVc~4O[O7O
3 6
rror*=o.
CH*01090
YTorD=O.
C H 4 0 1 0 9 0
vrorC=o.
C H 4 0 1 1 0 0
Y,lJII,=O.
CH40111u
rrOrE=O.
C H 4 0 1 1 2 0
vrorF=o.
CH*01130
vrorc=o.
C H 4 0 1 1 4 0
D O 4 0 J=I,NSRESP
C H 4 0 1 1 5 0
lF[l~lRDRE[JI.Gr.l369t
GO r0 91
CH401 160
*rDr4=vrar4t~paIalJt
Cn401170
G O r3 4 0
CHI01 180
41
IFl109DREIJl.Gr.9999l
GO r0 4
2
C H 4 0 1 1 9 0
vroru=~rore+*PoIoI
Jl
C H 4 0 1 2 0 0
G O r o 40
cH401210
4 2
IFI[%iDREIJt.Gr~lO4YQl

G
O

r0 43
CHAOl220
vrorc=vrorc+YpoIDI
Jt
C H 4 0 1 2 3 0
G O ro 4 0
C M 4 0 1 2 4 0
4 3
[FII3R0REIJt.Gr.ll499l
GO r0 44
cH401250
YrOrO=YrOTD*YPOlD[
JI
C H 4 0 1 2 6 0
G O r a 4 0
C H 4 0 1 2 7 0
44
IFlIORDREIJl.Gr~ll99I
G O r0 4 5
C H 4 0 1 2 9 0
*ror~=YrorE~YpoID[
Jt
CHA01290
G O r3 4 0
C H 4 0 1 3 0 0
4 5 IlOTF=VPOID[
11
CHLOI 310
4 0 C O N T I N U E
C H 4 0 1 3 2 0
IFIvrDr4.EQ.Ot
CD r a 4 7
C H 4 0 1 3 3 0
QDT4=YrOr4V6O/l4lllt
C H 4 0 1 3 4 0
4 7
[Flrrore.Ea.ot
G O r o 49
CH401 3 5 0
Qore=rrorrV6of[4[[[[
CH40 1 3 6 0
4 9 IF[Yrorc.Eo.ol
G O ro SI
C H 4 0 1 3 7 0
RDrc~rrorcv60fl4I
I I 1
C H 4 0 1 3 8 0
51
[F[VrOrD.EQ.Ot
G O TO 5 3
C H 4 0 1 3 9 0
ROTD=YTOrDV60/[4I
I l t
Cn401600
5 3
YrorG~Yror~~YrorSbYrorc~~rar~+~rar~~YrorF
CHAOl410
PDrG=rrOrG*60f1*Illt
C H 4 0 1 4 2 0
CHA01430
CVVVvVvvVvvfvVVV*Vv4VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV*Vcn4a[44n
_.._
C
ECRI ruRE5
C H 4 0 1 4 5 0
C$VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV4VVV4V4VVVVVVV4V4VVVVVVVVC~401460
tF114l25t.EP.21
G O r0 S O
CHI0 14 70
WRIrEl3r46tI412t,I413t,I4il2t,I~~l3t,I4[l~t,I4[lSt,[4~5t,NENR,
C h 4 0 1 490
bRDrG,ROr4,RDrB,ROrC,QDrD
C H 4 0
4 9 0
46 FaR~*rl3x~I2,lx,I3,1x,I[,[x,[2,[x,r2,[x>[2,[x>[[,[x,I2,[x,
CH40
5 0 0
65lF9.3,[X1>3X,‘X’t
C H 4 0
5 1 0
J - l
CHAO
5 2 0
D O 31 I=I,12
cn40 1- 5 3 0
L=J*I
C H 4 0
5 4 0
YRIrEI3,62t[t1EsPIKt,RDrIK~l,K=J,LI
CH40
5 5 0
62 FORH4rllX,5II4,IX,F9.3,lXt,3~,‘4’l
C H 4 0
560
J=L+[
CH40
5 7 0
33
IF~L.EO.NBRESP.DR.C.Gr.NBRESP)

G
O

rD 80
cii4015S0
CvvvVvvvvv*VvvvVVvVVv*VVVVVVVVVVVVVVv*VVVVVvVVVVVVV4VVVVVVvVVVVVVVVVVVVVC~4O[59O
C
L E C T U R E
D E S
C4QTES
HENSUR4rIONS
C H 4 0 1 6 0 0
CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV*VVVVVVVVVVV*VVVVVVVVVVVVVVVVVVVVV$VVVC~~O[b[O
BO
0 0 7 0 J-1,20
CHAOl620
6 0
READI2,2l,IOSrAr=lERRt4
CHAOl630
IFIIERQ.Ll.Ot
G O TCI 9 9 9
C H 4 0 1 6 4 0
==*O~WYIr=4,FMr=61t[ICfII,1:l,3Sl
C H 4 0 1 6 5 0
61
F0RYIrl11,12,13,19,2[1,2F4.0,[2,13,2712,~[t
C H 4 0 1 6 6 0
IFlICIIt.EQ.31
G O r0 7 0
C H 4 0 1 6 7 0
RE4DfUNIr=A,FMr=3tll4lIl,I=[,27t
CHA016SO
INDEX= 1
C H 4 0 1 6 9 0
co ro 7 0 0
C H 4 0 1 7 0 0
70 CDNT 1 NUE
C H 4 0 1 7 1 0
9 9 9
s r o p
cn*o[ 720
END
C H 4 0 1 7 3 0

---

A N N E X E
V I I I
:***C*+C+*0*t***CPO**************~******t**********t*************t***~*~R~~~~~~~
t
PROGRAMME ROTEXP
ROr00020
t
Ror00030
:
C A L C U L D E S RENDEUENrS
HORAli<ES
M O Y E N S P4R S T R A T E S 4VEC ECARTS-rvPES
ROrOOOA,,
r
P O U R D I V E R S E S E S P E C E S O U G R O U P E S D ’ E S P E C E S
R O T 0 0 0 5 0
:
ROT00060
:
E S P E C E S Er STRATES SONT INDIOUEES O I N S L E X E C
ROT000 70
c
UrlLfsArfON D ’ U N F I C H I E R FORwArrE I S S U D U PROGRAWE
CHALEXR
RorOOOBO
c
Ror00090
:
L E N O M B R E D’ESPECESLOU
D E GRoUPFS)NE
DOIT P A S ETRE S U P E R I E U R A 10
ROT00 100
:
P A R PASSAGE,OE MEME P O U R L E NOMURE D ’ E S P E C E S C ’ U N G R O U P E
ROr00110
c
L E S cO’+3INAlSONS Z O N E - P R O F O N O E U Q SUNr LIHITEES
A 6 5
RDr00120
z
L’ENGIN D E P E C H E PEUT ETRE SELECrIONNE
O U N O N ICOOC 9 D A N S JCLI
Ror00130
C
L E S PEGROUPEUENr5:TOTAL,S~LACI~NS,r~LEOSr~ENS,CEP~ALflPOOES,CRUS~ACESRDr~O~4o
c
SERONr D E C L A R E S C O M M E CODE E S P E C E S 1,2,3,4,5
RDr00150
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ROT00 170
wARAcrER $28 EsPi 11 l
RDrOOlBo
CnhRACrER
$40 SrRArElIO,6bl
RorooI90
CHARACIEQ
$ 2 0 rIrI
ROr00200
OIUENSION
IESPAlII,IOl,ICOOCIIO,l6l,IZONl~lO,b6l,1ZON21l0,66l,
ROT00210
6IPRJFl(lO,66I,IPROF2ll0,66l,NCflHBI~lOlrNUSrAT~20Ol,IENG2l200l,
Ror00220
~(ZON[200l,IPR0F0I200),NENRf203~,RO~~200,60l,1ESPflt200,60l,
RDr00230
LRENDlZOOl,REND2~2OO~,NUMSrA~200l
RDr00240
RDr002so
C*t*****4tt*t*tt$*b*tttt*4tttt**ttttt~t**t*tt4*4*ttt*tt****ttttttt**tt**aoroo26o
ç
INIrIALISArIONS
ROr00270
c$****4*6*******$4**************************************************4***Roroo2Bc
0
0
4 1=1,11
Ror00290
0
0
5 J-l,10
QDrOOJOO
5 lESPAlI,JI=O
RDr00310
, CONrlNUE
R O T 0 0 3 2 0
D O 6 I=l,11
Ror00330
D O 7 K=l,b6
R O T 0 0 3 4 0
ICOOCt I,Kl=O
ROr003so
lLONllt,Kl=O
ROr003bO
IZONZI 1 ,Kl=O
Roroo370
tPROFl(I,K)=O
RDTOO 380
7 IPROFZ( l,Kl=O
Ror00390
6 CONTlNUE
RDr00400
0 0 9 L-1,200
Roroo4to
~E5PR(L,lI=l
RCr00420
IESPsIL,Zl=2
ROr00430
tESP91L,31=3
ROrOObbO
IESPBIL,Al=*
RDrooa50
9 fESPOlL>5l=5
R O r 0 0 4 6 0
0 0 2 2 L=1,200
norooA70
0 0 2 3 Y=6,60
RorOO4eO
RorlL,UI=O.
Ror00990
2 3 IESPSIL,“l=O
RDrOOSOO
2 2 C O N T I N U E
Roroo5io
R O T 0 0 5 2 0
c*$***4*************************4**********4****4********************4**RO~OO53O
C
LECTUQE C A R T E S PAQ4MErRES
R O T 0 0 5 4 0
C********a**b******4***********************************4****~***********R~roo5so
REAO(S,Bl CENG
ROr00560
6 FoRMArI lX,lll
ROr00570
0
0
2 1=1,1i
ROT00590
READ~S,lIICOO,~LESPAII,J),Jl,J=l,lOl,ESPl~l
R O T 0 0 5 9 0
1 FORMA~l12,l0~~4,lXlr428l
RDrOooOO
IF(lCOO.E9,99l
G O TO 1 0
Ror00610
0 0 3 KS1,66
ROT00620
QE40~5,241tC~OE~I,WI,IZONl~~,Kl,IZON7~~,KI,IPROFI~I,KI,~PROF2~l,KlROrOO63O
b,STRArE(I,Kl
ROT006A0
2. FORMAr(312,2X,212,4QOl
ROr006s0
IF(tCODElt,Kl.EQ.91
G O rn 2
RDrtiO660
3 COrJrrNlJE
ROT00670
2 NCOMSlIIl=K-1
R0T006B0
1 0 NESP- I - I
R O r 0 0 6 9 0
ROT00 700
c*t***4*************************************************~***************Roroo7~o
C
L E C T U R E OES C A R T E S STAriONS Er R E N D E M E N T S
R O T 0 0 7 2 0
cLt******+***************************4**********************************RDroo7lo
0 0 2 0 LIl,200
ROT00740
REAO~l,lI,ENO=100lNUSrAr~L~,t~NG2lL~,IZONlLl,IP~~FOlLl,NENRlLl,
ROl00750
afmrIL,Hi,r=i,si
ROT00760
II FOQ~Arl6X,13,1X,11,7X,t2,lX,ll,lX,I2,lX,SlF9.3,lXll
ROr00770
IFIHENRILl.Lr.6IGO
r0 2
0
RDTOO760
NI=6
ROr00790
0 0 3 0 YI=6,NENRiLl
,5
RDrOOBOO
‘4F=MI l 4
RDTOOBIO
QE4O~L,L2,ENO=100l1~~~SP~~L,~i,HO~~L>UII,~=CI,~FI
Rorooa20
1 2 FURM4r~lX,S~l~,lX,F9.3,lXlI
ROrooB30
JO CON r I NUE
RDrOOB40
20 CONT I NUE
RorOOB50
100 NrsrA-L
RorooB60
RorOOH7o

---

A N N E X E
V I I I
( s u i t e )
c4444444444444444444444444444444444444444444444444444444~444444444444$44RDr00~~0
C
reArrEwNr5
RDTOOQ90
C44444*44044*4t44444444*444444444444444444444444444444444~44444444444444RDro~yOO
00 40 f=I,NESP
Ror009lO
URIrEl6,13ItENG
ROrOOYZO
1 3 FDRMAr~‘lCODE
CHALUr=‘,IJ,//l
RDr00930
*RIrE(6,14lESPIII
ROr00940
le FORt4ATt 1X,428,//)
R O I ’ 0 0 9 5 0
D O 5 0 K=I,NCOMEIlI~
R O T 0 0 9 6 0
C - - - - - - P O U S U N G R O U P E D ’ E S P E C E S E l U N E COHRINAISOh ZOhE-PROFONOEUR
R o r 0 0 9 7 0
00 9 0
N=I,200
RDrOO9BO
WENDtNl=O.
ROT00990
UENDZIN~=O.
ROT01 0 0 0
90 NUMSrAlNl=O
RDrOIOlO
N=O
ROT01020
D O 6 0 L=i,Nrsrr.
ROT01 0 3 0
lFtIENC.E9.91
G O 1 0 43
RDr01040
IF(lENGZ~L~.NE.IENG~
G O TO 6 0
Rur01050
4 3 IFltZONlLl.Ll.~Z~N1lI,K).DR.IZ~N~Ll.Gr.IZONZlI,Kl~
G O r0 6 0
ROT01 0 6 0
(F(I~ROFO~C).Lr.IPRaFl~l,Kl.O~.~P~OFO~Ll.G~.~PROF2ll,Kll
G O T O 6 0 ROrOlO70
N-N@1
RoroIot30
NUMSrA(N)=NUStAr(LI
R D r 0 1 0 9 0
00 7
0

W=l,NENRIL)
ROT01 1 0 0
Do-80 ~-1,lo
RDTOlIlO
tFIlES”41
1,Jj.EP.O)
G O T O 7 0
ROT01 1 2 0
IF{ ISSPB(L,N1
.NE.IESPAf
1, Jl 1 G
O

r0 80
RDrO 1 1 30
~ENDlNI=RENDIN~~RUriL,~t
ROT01 140
8 0 C O N T I N U E
ROT01 1 5 0
70 CONTINUE
ROT01 1 6 0
6 0 C O N T I N U E
ROT01 170
c-----ECQIruRE
D E S PARAMErQES DE L A SrQAI’E E r D E S RENOEYENrS
P A R STArIONRDrOllBO
NA=N
RDrOll90
NDEO- 1
ROrOl2OO
NFIN=ci
RDr01210
URIrEl6,15~S~RATEI1,K~,tZO~ltl,K~,lZaNZtI,Kl,IPROFlfI,Kl,
RorOl220
%IPROFZt I ,Kl , N
ROT01230
1 5 FDRM4r(/,lX,44O,‘ZONE
OERUr Fr F I N : ’ ,212,4X,‘PROFONDElJR
DEBUT E
r

FROT01240
61N:‘,213,4XI’NOM9RE
D E SrATIONS:‘,IJl
ROT01 2 5 0
IFIN4.Iû.01
GO T O S O
ROT01 2 6 0
#RlTEI6,16)
ROT01 2 7 0
Lb FORMArI’ N U M E R O S OES SrArIoNS
F r WFNDEUENrS:‘)
QDroI 280
~LI;~P=INrlIFLOArlNI+7.l/~,~-l
RDrOlZ90
IFINLIGNP.EO.0)
GO r0 1 1 1
ROT01 300
0 0 1 1 0 IL=l,NLIGNP
RDrOl310
URIrEI6,17~IINU~SrA~N~,~ENDIN~~,N=ND~~,NFI~~
ROT01 3 2 0
II FORY4rtlX,SI’N~‘,I3,‘=‘,F~,3,’
4’1)
ROrOl330
NDEM=N!JEt3ttl
ROT01 3 4 0
1 1 0 NFIN-NFINIR
ROT01 3 5 0
I l l NRESrnYA-(NLtGNPOBI
ROT0 1360
NFINT=NDEO+NREST-1
RDrOl370
~R~7E~6,4l~~lNUMSrA~NlrRENDo),N-NOCO,N:NO~~,NFIN~l
RDrOI 380
41 FOR~4rllX,SI’N~‘,I3,‘=‘,~~.3,~
é’lI-
ROI0 1390
C - - - - - - C A L C U L ET ECRIrURE D E 1.4 HOYEYNC,VARIANCE,ECARr-rVPE-MOYENNE
RDrolQoo
SRENI)=0.
90r01410
SRENDZ=O.
RDrOl420
vIR14=0.
ROrOl430
ECARr=O.
ROTOl440
D O 1 2 0 N=l,N4
RDr01450
RENJZI’+l=RENO~Nl442
R O T 0 1 4 6 0
SREND.?=SREND2*QEND2
IN 1
RDrOl470
Ii?0 SREND-SREND~QENOIN)
RDrOl480
4UOY=SREND/FLOAr(NAl
Roroi490
AuoY2:4NaV442
c)orolsoo
IFINA.Gr.lI

G
O

r0 42
RDrOlSIO
EC*Rrl=O
RDr01520
EC4Rr2=0
ADrOI
G O r o 19
ROrOlS40
42 VARI4:fSRENO2-IFLOArlN~~44~O~2~~~~FLOAr~N4~-l.J
RDrolS50
IFIV4RIA.GE.01
6 0 r0 I d
RDrOI560
YRl7El6,25~VARIA
RDrO1570
2
5
FOQM4rf
J4RIANCE YEGArIVE=‘,F9.31
ROr0ls90
GO 10 19
R O T 0 1 5 9 0
18 EC4Rrl=SORr(VAQ14)
ROT01 6 0 0
EcARr2=ECA4rl/SORrIFLOAr~NA~~
R O T 0 1 6 1 0
1 9 *R~r~~5,21~N~,4MOI,ECARrl
,ECARrZ
RDTOI 6 2 0
2 1 FORY4rl*
N O M B R E SrArIONS=‘,I3,QX,‘~UrENNE=’
,F8.3,4Y,@Ec4Rr-rrPE=‘,RorOl630
AF9.3,4X,*ECARr-TYPE
WOIENNE=‘,F7.3)
RD101 bQ0
c---------------------------------------------------------------------
RDrOl650
5 0 C O N T I N U E
4 0 CONrCNVE
RDrO1660
9 9 srop
ROT01 6 7 0
EU0
RDrO1680
QOr01690

---

A N N E X E I X
ExEc BU PROG~~~~~.ME RDTE~P (EXEMPLE)
FI , DISK Ror 4N41 B
FI 6 D I S K wsuLr LrsrtNc 4
LBEGS r4CK
9
2 3 0 1
MERLUCCIUS
SENEG.
0101 1
4
NO90
1 5 0 - 5 0 0
M
0101 5
r
NORD
soo-a00
M
0202 1
4
CENTRi
1 5 0 - 5 0 0
N
OZOi!
5
I
CENrRE
5DO-BO0 H
9
2 3 0 2
N E R L U C C I U S
POLLI
0101 1
l
NO90
1 5 0 - 5 0 0
N
OlOk 5
?
NORU
500-800 Y
0202
1 b
CEYrRE
LSO-500
N
0202 5 7
CENTRE
500-a00 u
9
6 9 0 4 6 9 0 5 6903
6 9 0 7 6910 6910 6915-6916 6918
6 9 1 9
SCCRP4ENID4E
0101
1
4
YOQ3
150-500 N
OIOI 5 7
NORC
500-MO0 H
0202
1
4
CCNrRE
150-500 M
0202
5
7
CENTRE
500-HO0 N
9
0 7 0 1 0 7 0 2 0703
ctiLcmoprt~*Lws S P .
0 1 0 1
1
4
NOQO
1 5 0 - 5 0 0 H
0 1 0 1
5
7
NORD
500-800 Y
0 2 0 2
1
0
cENrw
150-500 w
0 2 0 2
5
7
C E N T R E
soo-a00 N
9
0 0 0 4
OIQI
1
4
NORD
ISO-SO0 M
0101
5
7
NOQD
500-a00 Y
0 2 0 2
1
0
CENrRE
1 5 0 - 5 0 0 Y
0 2 0 2
s
7
CENTRE
soo-dOO N
. 9
9404
P*R*PEN*EUS L O N G .
0 1 0 1
1
b
NORD
ISO-SO0 u
0 1 0 1
s
7
NORD
500-BO0 N
0 2 0 2
1
4
CENrRE
150-500 N
0 2 0 2
5
7
CENTRE
500-000 H
9
8414
4RISrEUS V4RIOENS
0 1 0 1
1
b
NO70
ISO-50ù H
0101
5
7
NORD
soo-800 M
0 2 0 2
1
4
CEYrQE
ISO-500 N
0 2 0 2
5
7
CENT RE
soo-Y00 M
9
3448
G F R Y O N qARI rAE
0 1 0 1
1
6
NURL)
1 5 0 - 5 0 0 M
0101
5
7
WR0
500-900 M
0 2 0 2
1
b
CENTRE
1 5 0 - 5 0 0 Y
0 2 0 2
5
r
CENTRE
soo-a00 u
9
3405 0460 94bl
3462 8 4 6 3 d b 6 4 0465 3477
PLESlONIK4 SPP.
0101
1
4
NORCI
150-500 M
0101
5
7
NORD
500-BO0 LI
0202
1
4
C&NrRE
150-SO0 u
0202 5
1
cwruE
500-900 LI
9
3435 8 4 7 2
tJUNIO4E
0101 1
4
NO90
1 5 0 - 5 0 0 N
0101
4
7
NOQU
500-Y00 N
0202
1
<r
CENTRE
1 5 0 - 5 0 0 N
0 2 0 2
5 7
CENrQE
soo-àoo H
9
9 9
LENO
LOTO uorExp (sr4rr
LEXlT

---

A N N E X E X
CQ*QQ*O*ISStS~*S~~*~:~~~~~~~~~~~~$$~~~~~*~~4*~~~~~~~~~~~~~~~~~~~~~~*~~~~~suo~olo
C
P.I”C94YW
MSlJEXPZ
H S U 0 0 0 2 0
c
MSu00030
c
x ESPECES Oo,,r LE NO’I<JRE EST INUI’)UE 114~5 LA PQEMIERE C4Qr.E D E L EXEMSUOOOQO
C
c ,fmYkrll2I,LIYtrCEs
4 20
Nsu00050
C
YSUOO 060
c
rqo(s c&qrES p~~~%ErQtS
PUUR Cl14r)UF FSPECI;:
MSUOOOTO
C
-CODE E S P E C E t:r INCQE~tNr,F0RH9rII4,l~,tI~
HSUOtlORO
c
- rRo,S Z,NEs ET ZONE ror*LE,4vEc
p4s 0ti rq4trfrENr
RU4ND VALEUH

= 0
,

MSUOO09O
C
FlJ9u4rl4112,4xI
MSUOO 10 0
C
0, i LON~ NORD
O~=ZONE ccr(rw
“3=C&S&“.NCE
04= rfllrrés LON~~
~5UOO 110
C
-N~U~ pQ0~OquEUqs Er rourFs PwFoN0Fu45,4Vtc
PASDE TRAlrtYENr
OU4NO
rSUOnl2o
c
V4LtUQ = O,FL)RY4rI 1OiIZ~~x) 1
~SU00 130
c
~lrioo-230u O~.~~O-~O~U-----------~~:JOO-!~OO~
10: rouws ~[IF.
usuoo 14l.l
c
rsuo’) 150
C
LES uivsura4r,ws
swr PnNtJCdEcs
C>l\\2 LA 1>1<t5t rnH*IRt
H5u001h0
CQe*31eSt$$03tOtt90~~$~~$$~~~~~~~~*$~~~~~~””
*-“OtQ~3Q~00~~~*gh6~~~~*~~~~~~*~S~JOO,70
MSuOOi90
c,,a4crERe24
E5pl201
LISlJOO 190
Ctird*creQ*i3
ZmEl4I
M S U 0 0 2 0 0
Cti4ti4CrE**l?
PQJFI 101
MSuOa210
CH*R4CrEQ*1 l SEXI 31
L(suoo220
Cti4n*CrEQ390
4
NSU”O230
*1su00240
0474 -SP/,
rFRL”CCILJ5
SrULGALENSIS’,’
~~t.HCUCCLUS CAOfN4TI
1,’ PUSUOOL50
I&~~P’N~EUS
~!IhSlQ35.
’ , ’
4dtsrfus V4UIOFN5
1,’ GFUYON H*91rANsUOO2oO
<E
’ 1’
’ I ’
‘,HSUO0270
6’
‘II
‘1’
uSUOO2Ro
(L
‘1’
’ 1’
YSUOO290
6 1,’
‘1’
’ 8 ’
rsU00300
*
‘I’
‘t’
HSu00310
4
’ 1’
’ 8 ’
‘t’
vSUOO320
6
VI
Nsu00330
DIlA ZO%E/’ ‘,“QU
0’
ccvrnt
‘B’
CAS4VANCF

’
,
YSUOO340
d, rwrEs zwcs,/
NSUOO 350
nAr4 PQW/’
I30-200M
1,’
:ctn- jJOM
0
MSUO0360
i’ 300-QOOM
1)’ 400-5oou
’ ,’ soo-hOOH’,
~suoo37o
I ’ -JOO-700H
‘1’
7o!J-3004
‘1
-
USUûO3AO
%’ soo-900H
‘,’ 900-1000~
I,, rwrfs PR~~FO~~OE~RS,IUS~OOJY~
O*r4 SEX,’ 144LES
1,’ F E M E L L E S 0,’ rnu<i SEXES’/
Ysu
MSUOOQ 10
IlWvSION
IZONILOr4l,I~HIFI20,l01,VCL5l4,l0,3,20O~,FRPI4,lO,3>2OOI~SU00420
4,(~Sp~(601,1C~IFU(6O~,ltXPl6Ol,lrVPAIlOl,IS~l~4ll0l,IPflI~St4,lOl,
HSU00430
~IFRJIll35l,tFRO2II15t,F~tJIl135l,F~O~ll~51,CL~A4l4,10,3~,
“ 1 5 1 1 0 0 4 4 0
r~ECnl~,10,3~,NM~SUl4,10,3l,lF~~~4,lO,3,200l,FRORl4,10,3,200l,
Nsuoo45o
~ISPOIOIQ,IOl,NCL4~l4,lO,3i,~FQ~~4,lO,3l~lrFQQl4,lO,3~~
USUOO 460
bCc~4~ll3,0,3~,CLY4Y2l3,~,31,rfQ.~Ql4,l0,31,1ESP~l20l,~NCRf20l,
NSUOO& 70
6rCLF9l4,10,3l,r~0VI4,10,3~,FQCL2l4,10,~,200l,rF~CL2l4,10,3l,
HSu00490
aV4Q1414,10,3~,FC~~rl4,1O,3~,cLFal4,10,3,~00~
‘4SLJOO490
~su00500
C(tCtCS~:CtO*ttLQOS1~~~~~~~~~~~~~~~~~~~~~~~*,~~
t4*bt~Ot*Ï630t**~03t~*~~~Nsu005,0
C
LEcruQEs D E S c49rEs Pbeh*FrRLi
~SU00520
C?63S~t*f3P~SLQ*S~S3*~~~*~~~~~~~*~*~~~~~~~~
C~~t**~t~tOt*00*Q~O*~~~~~~~~~~Suoo53o
QE4OlS,SOllNESP
~SU00540
S O I FoQnArlI2l
M5U00550
DO 503 lE=l,NrlSP
~Su005h0
RE~0l5,llIESPElIE~,~NCQlIEI
MSUOOS 70
L FoR~4rl14,1x,111
~SU005R0
Q~~Ol5,21~tZONllE,JEI,JE:L,4l
~suoosoo
2 FoRY*rl4lt?,l*ll
‘4SUOO600
~~40~5,3llIpQ0FllE,J’),JFrl,Jf:l,lOl
\\IS’JOOb 10
3 FURM4rl lO( rr, 1x1 l
~SUOOb20
500 CONI I N U E
~suooo 30
MSU00640
CIOOOOOOOJS~*f01,OéO**~~~~~~~*~~*~~~~~~~~**~~~~~~~~~~~~~~~~~~*~~*~~~*~~~~SU~O6~0
C
BOUCLE P4R E S P E C E
H S U O O G 6 0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
D O 1 0 0 0 IE=l,NESP
MSUOO6RO
MSUOO690
CnOQt4*40300tS~0949Q~~*~~~~~~~~~~~~~~*~~~~~~~~~~~*~~~~**~**~~~~~~*~~~~~$M~~~~~~~
C
INlrl*LIS*rIONS
H S U 0 0 7 1 0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MSUOO730
C - - - - - - - - fNrrt*LzsArioNs
POU~ L ENSEHOLF OES sr*rtoNs _ _ _ _ _ _ _ _ _ _ _ _
N S U 0 0 7 4 0
IFlINCAl~t-.I.EP.JI
4UGM=l.
MSUOO7SO
IF(INCQl
IE! .Ed.ZI
4UGH=0.5
MSU00760
lFl1YCPl1EI.EO.11
4UGM=O.l
usu00770
EPS-1 . E - 3
usuoo 780

---

A N N E X E X
(suite)
DO 230 IzJNE:l,4
~suoo7oo
A”GU4 r 4”GY
HSuuOa00
D O 2û l l~QOFI>=\\ , 10
YsuooBlo
A”GYz3S AVGY
YSUOO820
D O 202 *SEx=l,l
YSUOOB30
AUG#MY = AUCH
MSuOOB~O
0i.l 2 3 3 K=l,200
Msuooe5o
VCLSI IZOVE, IPHOFO,~SFx,~~=4UGHY
usu00860
AUGM~3=AUG~Y+AuGN
*suootl?o
C L F H 4 IZONE, IPRflFO,‘4SFX,~l=O
*151100850
FQCL2lIZONE,IPROFü,~SEX,Kl=O
Ysu
FQ~IILONE,IPQOFO,HSEx,Kl=~
MsuooYoo
1FRJI lLOYE,lPRflFO,‘~SEX,~~=O
usu00910
2 0 3 FRW-71 IZONE, IPROFO,‘~SFX,Kl=O
~51100920
2 0 7 cLlr4r INIJE
rsuoo’, 30
2 0 1 C O N T I N U E
MSUOO940
290 covrIwC
~suoo95v
0
0
204 IZuNE=l,Q
ï S t J 0 0 9 6 0
DU 2 0 5 IPROFfl=l,lO
~SUOOY70
ISPOIDI IZONE,IPHflFOl=O
Msuoo9eo
2 0 5 IPOt~SIILu~E~l~Q~FOl=O
usuooQ~>o
2 0 4 C O N T I N U E
HSlJ01000
lNnEx=O
uslJ01010
0
0
207 IZUNE=l,<l
MSUOl02lJ
0
0
LOtl lPROFll=l,IO
Ysu
00 233 MsEx=l,3
*su0 1040
rCLFR1IZONE,lPRCIFO,HSEx)sg
~su01050
TMO~~ILONE,l~QOFO,~SEXI=O
YSUOlOhO
rFRCL21 IZOYE, IPRflFO,WSFxI=0
~su01070
VARIA1IZONE,lPROFO,HSExI=O
usu01080
FC4RTlIZONE,IFQOFO,HSEXI-O
YSUOIO90
NCLAS( IZONC, IPRUFO,YSExl=O
“SU01 1 0 0
CL~AXI~Z~YC,IPROFO>‘~SEX~=O.
~suolllo
rFQJ(IZJVE,IDROFO,~SExl=O.
*su01 1 2 0
lrFR~(IZONE,IPROFO,MSExI=O
~su01130
%CH( IZOYE, IPRflFO,USFXl=0
~su01140
N~ESU(IZONF,IPRUFU,HSExl=U
MSUOI 150
203 rFRa9( ILr>~rE,IP~uF3,HSExL=O.
~SU01 100
208 C3NrINuE
USUOI 170
207 COvrINuE
MSUOI 196
MSUOI 1 9 0
C _ _ _ _ _ _ _ _ ‘II,ES A ZTRfl A CHA&Jt N[lUVELL.’ *rhrICI.d _ _ _ _ _ _ _ _ _ _ _ _
MSIJO 1200
1 0 0 0 0 2Ob I=l,135
~su01210
IFPal I I I - O
rsu01220
lfR32111-0
~SU01230
FRPl(I1=0
MsuolL40
2 0 0 FR921 t I - O
~suo12so
H2Stx:n
rlSUOl260
POIoC=O
uSUOl270
D O 2 1 1 1=1,10
usuel-280
1r*pAII1=0
MS’JOI 2 9 0
2 1 1 rsu[ral Il--o
MSWOl 300
30 212 I=l,60
*1su01310
IESPAI 11=0
~SU01 320
ICHIFRI 11=0
MSUOl330
2 1 2 IEXPI 11-o
HSUOI 3 4 0
HSUO 1350
CC*?*l?JS~QlttS+~LS~~~~~~~~~~~~~b~~~~~~
5fS~O*5SffQ3Cf3QL3*0~~~~*~~*~~~~*~~s,,ol360
C
LccrURi CARri S~*~ION AVE~ s4ur C)E~ WNUEC~ SI L
A
2o~F ou LA
Ysuol37o
C
PRûF3ND;uA N t SONT P
A
S

DESIRLES
us110 *3*0
CO*S*QSOSéS”fOtVr03(~~~~~~~~~~~~~~~~~~~~~~~~~’:
f~SCfLQQf~**O~CCS~*“~~*~*~Nsuo,
330
IFIIUDEx.EQ.Il
GO TO 101
~SUOl4r)O
4~A01l,4,lnsrAr=l~R~cItr5r*r,I~QIIF~3,I0uQ,I~o~~
Ysu
IFII~~R.Lr.01
G O rfl 9 9 9
~su01420
4 FORrArl3x,13,5x,Il,I2X,I3,Sx,l~l
~SU01430
101 I N D E X - 0
Msu01460
0
0
10 t-1,3
MSUOl450
1 0 IFIIZOYE.EI~.~.AND.IZ!~~~~IE,~~.E~~.I~
G O r(l 1 0 2
r(SUQ1400
1 0 3 0 0 2 0 :=1,30
usuc ,4 70
RE401 1 ,5, IOSTAT-IERWIA
MSUOl4eo
IF(IfdR.LT.01
GU ro 990
usu01490
5 F3Qu4rl4931
HSU01500
RE4ù(UYlT=A,F’,r=6l
ITIP
~suolslo
6 FUP~ArlIl,77Xl
YSUOI 5 2 0
IFIIr,‘P.NE.lI

G
o

10 70
MSU01530
QE4u(L)NIr=4,FHr=41h1sr4r,IPROFil,IoUR,IZONE
HSuOl540
INDEX=1
MsuolS5o
G O r3 1 0 0
MSUOl560
20 CONTI N U E
MSU01570
1 0 2 D O 3 0 JE=(,3
MsuOIS30
IFII~AOFO.E~.JE.A~D.~PQ~FIIL,J~~~~~.O~
CD rC 103
UbUOI5YO
JO 1FIl%iflF~.E~.JE.ANO.IPRUFIIE,J~I.E’~.JCI
GO rn 30,
WSU01600

---

Y 3
A N N E X E X
(suite)
YSUO1610
~g4~~fOS*444SOtbSG$~hOOCfUSQS, -*$*/**3r3v*bocQ4*4 *b3~S0~408f44tbbfQ44Q3QOHSUOlbZO
C
LECTURES c*(Ir:s ESPECFS
MSUOlb30
~44414440414t4444414444444~444444~4444~~4~444444444444444444444444444444~SU~~t~4O
3 0 1 c=’
HSUOl650
L - 6
qSü0 1 bGO
0 0 90 J=l ,lO
‘C,UO1670
9ç.401 f ,5,losrAr= iERr<lA
“1SU0163ll
lF(IFRQ.CrrOl G
O

Il1 ‘?,>Y
~5UU1610
UEAL>IuYIr=4,FLIr.7lIr~I’AlJl,llrS~’4III,ICI1IF~lll,lCXPllj,I=K,~I,
MSUOI 700
IlSUI r4l II
“SU01 710
? Fo9~4rl11,5X,6l14,11,11,4X~,lX,lll
usuo 1720
IFllrYPAlJl.E~..?l r.0 rfl R
MSUOI 730
~~k~Iu~lr=4,Fur:4l~srAr,lpRlJF~~,lou~,l~r~~r
*Isuu 1140
INDEX- 1
usuo 1750
GV ro 1 0 0
MSUOI 760
R !lO 5
0

l=K,L
YSUQL 710
‘Jo IFIIESP4lIl.E~.lESPftlEIl G
O

ro 9
~SU01 790
IFllSJlr4lJl.t~.Ol GO r0 Il
HSUO 1790
KrK.5
*ISUOI t1oll
00 L-L.5
~suoIYlLl
-sua le520
C~Q461bStbSQabCt3604~~~~4~~~4*b*~44~444
33SOCSbtb4Q~ttb~t0b4~~4~~b~4b~4~b”~,,~,~~”
C
pLAc:tiENr UE ~4 cwru9E
w9*ia~ n4~5 LA 20~~ Er L
A
PROFUNOEIJR
r(SUO184U
C
CORR’SDONU~NTE
~SUUI 650
Cb4O4Q43~~C4O44443tbb4~4:~b44~~~4b4~~-- r~40Sf344~:*C*44StQt4~b~44*444b4~*~~S~o,~~~
7 IPOIJ4=ICHIFQlllblOt31EXPlO
%VO 1 a 70
fP~lo~=l~rllF~~~4rllpnln*I~F~n4rIl~~~~~~~ho.~~~.4~
~SUOI3riO
IPOIOSIICO~E,IPROFO~=I~~OIUSllL7NF,Iç>QOFUl~IPflIOH
~SU01390
~su01900
CQSbQtbtbbQObbSC4~0b~~~~~~~b~~*~~444~4~~~:*4~~~~~444~~~~~4~~~444~44444~~~SUO~Y~~
C
LECrURC DES CARTES ESPECFS 5UIvAMrcb I 5 I L Y E N A 1 ~PRES Q U E
Ysuo192o
C
L EsPtct MFCYERCHEE Air rrk- r%oovtF
YSUO1930
CObQb4b444h4L444S4444~4~b4444~~~~~4~4~4b~~~4~444~~~44444444~44~4~44~4~4~~~~~[~~~
IFlISUtrAlJI~EQ~OI
GfI rU Il
“5UO 1450
0 0 4 1 J=l,lO
MSUOI 96‘,
R~4011rS,losrAr=lEs~i4
~SU01970
l~ll:~u.~r.oi 50 rn :>‘.a>
rsu01940
Q~4û(~J~[r=~,F*~=4~llrlP41J1,1SVIT41
Jl
MSUOI Y90
42 F!JRH4rlrl,7dX,III
~suu2oou
[F([r~P4lJl.F~.Z.AUO.lS~Jll4lJl.~~~:.0l
Uri rT; <II
~suu2oI 0
GO r) 11
MSUO202G
rrl
C3UllNUt
~SU02030
~su02040
MSUO2OHO
L
c .________ Lciruw P~.SIERE WE IwRhrlw
nt L ~SPECE _ _ _ _ _ _ _ _ _ _ _ _
~SUO20>0
II 00 b0 J=l,20
~suo2loo
ctt*vI f ,s,fvsrnr=fcRsi*
MSUO2110
IFII~~1.L~.Ol Y0 ro 927
~SU02120
9~Avfu~lr=A,~~r=l2ilr~~l,~4sr4rl,~~sr~1,~~~X1,1~~~l,~~l~1,P~~Asl,
~SUJZl30
wxAsl,frfR~l,llF~~lfl~,l=l,z7i,lsulrl
MSUO2140
12 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
HSUOZ 150
IFIIr*Pl.Eci.3~ G O T O 13
HSUOZ 160
RE~OlUr(l~~*,FHl=bINST9~,IP90FO,IOJ4,ICONF
vsuo2 170
INDEX= 1
NsuOZlBO
G
O
r3 109
~su07190
13 IFl~~SPl.E’~.I~SPEIIill
tir! r0 1
4
HSU02200
00 cour f NUE
vsuo22 10
14 lFlls~lrl.~:l.9~ c>o r
o

15
HSU02L70
L’2b
MSU022 30
USSb
HSUO2240
30 7 0
J=l~15Ulrl
HSU022SO
READIl,IG~IlFRùIlII,l=L,~~
MSUO2260
16 FOQY4rl2SX,2712,lYI
HSU02270
L=L+27
MSUO2290
70 “=Wr27
MSUO2293

---

A N N E X E X
(suite)
~SUO?3OO
MSUO23‘0
MSUD2320
1s tFlMSLXI.L~.Sl
G O r u 17
HSlJO2 330
0
0
61 J=I,ZO
~SUOZJ40
QE4UIl,S,IOS~AT=lEQRIA
~SLJUC35U
‘Fl‘CR=!.Lr.OI

G
O

r0 399
MSUOZ 360
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
usuo237o
aYCL~S2,‘lFRQ2,ItFH!~~lll,‘=l,?7~,‘SU‘T2
MSU023RO
IFIIrvPz.io.31
G O r u 19
rSU02390
u2sEx:ci
HSu07400
‘NOtX-1
HSUO24LO
co r7 17
L1suo2421)
13
IFI~isP2.i~.ItSF’FII~ll
GO
rd
13
HSU0203O
OI cwrIrdE
MSU02440
I9 U2sixsHâExZ
MSUO2450
IFftsuIrz.c~.ol
G o r o 1 7
M5UU2460
LS2-J
YSU
NZ54
MSU02480
0
0
60 J=I,IwIr2
~%JO2490
RE40lI,lbll‘FR02l‘l,‘=L>~l
U5U0?500
L-Lt27
MSUO2JIO
8 0 urH121
MSUO252O
MSUO2530
C _ _ _ _ _ _ _ _ rOJS StXES CONFr)NDUS Ou U V SiUL $fX: PRFSkhT_ -_
_
_
_
YSUO2650
QI=I=Lo4rII~c~I~~~il~~I~oI3it:Iuo3.i
Us”o.T!boo
0
0
90 i-1,135
MSU0267O
90 F~O~I‘I=FL~~~T~IF~~~I~~I~LQI
MSUd104L
TFRql =FLOArI ‘lFU31 l+Ql
N S 1 1 0 2 6 9 0
GO
r7 24
MSUO2 700
YSUO2711)
C _ _ _ _ _ _ _ _ I-VX. bF XtES CCti4kTILLTlNVCS
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
USCI 770
2 3 ‘FI“~L~L.‘P,‘~CRI.4ND.INCR2.~~.‘NCl~~‘tll
G O IO 2 5
MSUO27Ju
~RIriI6,26INsr4r2,UEs~2
YSUOZ 740
26 FuQu4rI)

L

INcQtwwr
0’ L 4 I~JXIEW ~E~suR*rro~
mr OIFFEHFNT
o
t

LMSUO~~SO
JELUI a: L 4 PQEYIFQE O U UE C E L U I E N R E G I S T R E E N P4QAMETRr’,/#’
h‘ SrMWU27O.J
L4r‘uV:‘,‘5,6X,‘tSPFc~:‘,‘Sl
HSUO? 7 70
2 5 POIü3=POIo1
~PU‘02
~SUOZIRO
aI=I=L~4rII~0I~~li~i~oIo3~iOoo.l
MSUO 2 790
0
0
Il’3 ‘-1,135
HSU02HOO
=WOlI‘I’FL04~l‘FR~IlIlI4Rl
MSU02~lO
‘10 FRoZ(Il’FLn4rlIF~U7l1Il~Ql
MSU02H20
rFQùlrFL3ATI‘IFHllltQl
MSUOZY30
rFRuZ=FL04r(
1 TFROZlCRl
HSU0284O
MSUO2650
~4*4444*44~Sf444444*4~4444444*
O~3Stt3^33b;ti0é0teS*~~~~4~~~4~4~4~*~~~~~4uSUOZ~60
C
PL4C:SENT !,E c4 MEYSURIr‘UN
T)ANS Lt’S ZONFS,PROFONOEUAS,SFXES,
MSUOZYIO
C
C”PRFSDUN04NIS
I SflMMArl~N I>FS FRfUUFNCES,NOYORE
R E E L M E S U R E S ,
HSU02ttRO
C
~o”dQ- tCrI4NrlLLClNS,PLUS
GQ4ND ‘NL)‘~lOU HENCflNrRE,PLUS
GR4NCE
MSUO 2890
C
CL45SC 1
~SUO?900
~*tl4*44:5:~:3V444SS$On$$$$6
‘4S44”44?S4io4~O444*444**444**44444*4444444*Nsuu~~,u
usuu292u
C------
r>ilLN‘;H
S<XE O U ‘AENSUR4rIflNF
r U U S S E X E S _____________c_________
‘4SUO2930
2
9
‘FIWSEXl.ES.5)
MSEXI=J
MSUO?J40
0
0
123 K-1,400
*SU~2950
oELr4:vCLSl
IZOw.,IPUflFfl~~SFXI
,Kl-I’CL4SI
USUU2YOU
oELr4=4usi3CLr4i
*Isu329 70
120 IFlUiCl4.Lr.EPSl
G’1 Id 27
MSUO794O
2 7 00 1 3 3 I=l,NCL4SI
HSUU2Y9O
FR3[‘tONC,‘PQUFO,USL~l,~l=~~r~ll~0~~,‘~’QIlFll,~StXl,Kl~FROl~ll
MSlJJ300U
LJO Y=%*,
Msu0-3010
CLM4~I(IZUNL,IPROFO~~>~XIl~4UG”L~L04rI~CL4S1-ll~PCL4SI~CPS
MSUO 3 0 2 0
‘FICL,A4Xl(
‘ZONF, ‘PQOFO,~SEXll.Gr.CLH~Xl
‘LUNE, ‘PROFCJ,MSEXl
l I
usuo 30 3,)
~CL”.~I,ZONF,IPRL~FO,~SE~~~=CL~~XI~IL~~~E,IPROFO,~SEX~~
NSU03040
~CL4SIIZ~~~C~IP9~FO~~S~XlI~!NrI~L~4XIIZON~~IFRCFO~HSEXll/4UG~~~PSl
MSUO’IOSi)
NECr(“:3NE,‘~R~FO,~<JEXIl=N~CI-(I‘ZflNt-,IPRUFO,~SEXlItl
LISUO 3060
~U~SUI‘ZONE,lPQflF0~MSEII)-N*ESU(IIONE,IPfiDF~,MSEXll~llFROl
~SUU3070
~FQ0lIZOYE,‘P~IIF0,Y5EXIl=IFc(Oll:flrl!
, IPRUFU,WSEXll+rFR~l
Msu03000
~SU03090

---

A N N E X E X
(suite)
c------------- D5uxlt-e
SEXE I SI txlsrf l______________________________ ~su03100
tFlM:S;X.E~,Ol
GB TU 03
~SUO31,~
0
0
140 K=1,480
HSU03120
DELl4sVCLSIIZO’1E,I~R~1Ffl,~~~~7,r<l-PCLAS2
MSUû3130
OELrA=4ES~3ELr4l
HSU03140
IuO IFIDSLTA.LE.EPSI
GO 70 LOI
HSUO3lSu
221 0
0

150 I=i~NCLLSZ
HSU01160
FHOI IZ:~NE,IPROFU,MSEXC,~~=FN~~~Z~~N~
,IPRflFO,~~t~Z,KI~FRQ2lll
MSu03170
LSO I(=l<**
NSUOlIHU
CL~A~21IzJtrE,l~HOF~,WSFX2l=4UG~~~FLOATINCL4S2-ll~PCLAS;lrEPS
USUO31 >c)
IFfCLHAX2l1Z~NE,IPROFO,MS~X2l.G~.CLM4XlIZONE,lpROFD,~SEX2ll
~SU03200
%CLWAx( ILON<, IP9OFO,MSEXZl=CLMAX2I
IZOUE, IPROFn,uSEXZl
~suu32lO
NCL4â(IzON~,lpRUFO,HSCXZl=IN~~CLMAX~IZONC,IPR~F~,~SEX2l/AUGM~~pSl
YS”Olc20
4tCn~I7OuE,IPR~~FO,“SEX2l~NECH~IzflVE,IP90FO,MSEY2lrl
MSU31130
NHE~.J(IzON~,IPHCJFO,~SEX2l=VHESIJ~lZ~NE,IpRoFC,MSEX2l~IrFHQL
NSUU3240
fF3Jl I?ONF, I?ROFO,USEXZI=rFUOI
IZLIIIE, IPRUFO,YSEXTlrTFR02
MSUO 1250
: - - - - - - - - - - R E U N I O N
DOS SEXE3 1 S I DEUX SEXE3 l________ - _ _ _ _ _ _ _ _ _ _ _ _ _ _
wsuo32ou
43 IFlrStXl.E3.31 G
O

rd 21
NSUO 3110
MrScl[E3
MSU032NO
~FQ,1I:J~~C,IpUDFO,“IS~Xl=rFR?~Iz~~~,I~’ROFO,Llt~FROIIZU~it,I~R~~Ffl,?tHSUO3z9~)
WCkil ~?OYE, IPH~~Fo,~TS~XI=NFCHI IZONE, IPRIIFOI 1 I tNECh( ILOTE. IP~OFfl~2lM~u03300
N~c~J(IzUNC,IPROFO,WTSEX)-NYESUIIzON~,
IPROFC,Il~NMESU~IzONE,IPROFOMSUO33lO
6,2l
MSU03320
CLUAX(IzoNE,IPRCJFO,M~S~Xl=AMAXliCLUAX[IZON~,IPRoFo,Il,CLMAX~IZOt~F,MSUO~33O
%IPRO~O,2l i
NSUO3 340
NCL4S,IzONE,IpRUFO,~rSEYI-U4X(YCC4511LON~,IPROFO,ll,NCLAS~IZON~,Ip~SUO335U
hQOFJ,ZI l
MSUO3360
D O 152 r<=l ,NCLASl IZONEI I%oFo#MrsEXl
N S U 0 3 3 7 0
FRQ(IzONE,IP~0FO,Y7SFX,Kl=FR3~IZO’~E,IP~~FU,I,KltFRO~IZONC,IPRUFU,2NSUO3390
&,K)
MSUO3390
152 CONTIYUC
HSuC3400
YSUO3410
:~*QSC11*Ï6F~O*)~rS9~~~~~~~~~~ t;ttt*lC”~~7St6Q*9*~~*~~~~~~~4~~~~~4~$~~~~Nsu03420
c
LE:rUar D E S qEYSU94rIJNS SUIVAh(rES .iuANO L E TRAITCMENI A ETE F A I T HSU03430
:~*~~~*~*~*S03t”3**0*~~~~*~~~~~~~~~~~~~~~~~:~*~*~~~~~*~~~~~~*~~~~~~~~~~~~usuu34~u
2 9 IF(INDEX.EO~O~ G o r o 231
NSUOl450
R~AD~J~~II.A,FHT=4lN5lA7,IpROFO,lOUR,lZONE
MSU034hO
G O ro 100
HSUO34 70
2 8 1 0 0 1 5 0 J=l,ZO
N S U 0 3 4 9 0
QEADIl,S,I~SrAr=IERRl4
YSUO 3470
IFft~RR.Lr.OI
GO rcI 039
HSUO 3500
READIUNI
r=A,FMT=hl
1 TYP
MSUO3510
I.=cIrfp.Eu.ii x r3 29
MSUU3520
,850 CUNiI~U
usuo3530
2 9 nEA~(uN~r=4,FUf.4lUbr4r,IP~oF~,I~u~,IzoN~
WSUO 3540
IND:Xrl
YSUO 3550
G
O
73 la0
r5u035e.o
YSUO35 70
:*0tSt9SpJt:Q3fQ::0~5
S+CÎo~*33Cbfle33CQ?~~~~~~~~~*~~$~~~~~**~~~~4*~~~~~~~Nsuo35Hu
PoUD<aArIoNS P A R LFS P R I S E S GLOlJ4LES ( P A R ZONE,PRoFOND’UR,SEYE 1
YSUO 3590
:00~~3b$tthb0193S$01?*~~~~~~~~*~~~$i$~~~~*~l~~~~~*~~~~~~$~~~**$ $*t*******HSu0360”
9 9 9 D O 170 IZONE=1,3
USUO3blO
D
O
130 IPRflFO=I,9
MSU03620
lFIlSPOIDIIZO~F,IP90FO).N~.Ol
G O r0 2 2 1
HSU03630
R2=0.
MSUO9640
G O ro 222
HSU03650
22, R2~FL~AT~I~OIOS~IzONE,IPaOFOI)/FLOnr((SP~IDlIZONF,IPROFOlI
MSUO356U
2 2 2 o u 190 HSLx= I)l
MSUO 36 70
DU 2 2 0 K=l,zoo
YSUO 36f30
,FR~(IZo~E,IpR3FO,~SEX,Kl=I~~~iFY?iIzllNC,I~~OFO,~StX,Kl~H2~O.4l
MSUO lL>9U
2 2 0 1 TFR>i IZ3NT) IPRUFO,USEXl=ITFR~iI7~~~,IPROFfl,~SEXl~IFRU~IZ~lN~,IpRI~FMSUO37O~
so,vsfX,rl
MSU03710
130 C O N T I N U E
NSU03720
180 CJNflNUE
MSUO 3 7 30
170 CONIIN’JE
rsu03740
NSUOl75U
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LeS*Q*t*d~*fP030QSt~~~~*~~~~~~~~5uo376”
TR*I r<wENrS TourEs ZONES, rourE5 pRflF7~0EkJaS
,PAR S E X E Er sEXts
MSU03770
R E U N I S
USUO37HO
:*0~~9*Sbf:QC~SS113f~~~~~~~~~$~~~$:~~~~~~
‘LQ¢‘Q03*JStQ~*~e3fQ~~~**~~~~*~~~Nsuo379~
Nsu01800
.-- ___-- - - - rourrs
Z O N E S ~42 ~9c1Fu~~fuR _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
~sJo3Ylo
I rzoqE=4
NSUO 3870
DO 230 IpROFfl=I ,9
HSUO 3830
0
0
.?9J vSEx=, ,1
NSUO 3840
0
0
259 IZONE=1,3
*1SUO3Y50

---

A N N E X E X
(suite)
I rw21 I ~ZO~E, IPHO.=O,MS~X~= I rFR:*(
Irzu~~,IPRnfo,~s~xt+IrFR~[Izo~~,
usuo 3860
6IPRO~O,USExI
MSUO3870
NECHI I~~ONE,IPRDFU,YSEX~=N~CH(IT
ZONt,IPROFO,HSEXt~NEC~[
lZONk,
HSU03tJRO
LIPROFO,WSEXt
MSUO 3570
N~EsJ(IrZONE,IPROFfl,~SEXt=~~~~U(
1~7flNE,IPHflFO,H5EXt+NMESUlIZOhE,
HSU039OC
.3lPR(lFO,HSEX
t
HSUO3910
CL~4Xl1rLONE,IPROFO,M5fXl=~M4XI(
CLMAXl 1 TZONE, IPROFO,MSEXl
,CLHAX
MSUO 3920
1lIZUYE,IPROFfl,HSEX~I
MSU03930
NCL4s(1LONE,IPROFO>YSEXl=IMr(CL~
4x1 IZONE, IPROFO,~SEXl/~UGH+EPSl
MSU03940
YCL~5[1rZONE,IPROFfl,~SEXl=~4Xl~CLASlI~ZONE,IPR~fO,~5EXt,NCL~SlIzO~MSuO3Y5~
6E,IPQOFO,YSEXl
I
MSUO 3Y60
D O 260 K=I,NCL4SllrLONE,IPRIlFO,~SCXl
MSUO 39 70
IFR~[ITzONt,IPROFO~~S~X~KI~IFH7lIrLOVE~IPROFO~YSEX~Kt~fFRl~[IZONE,
HSu03Y80
~IPR0~O,YSfX,Kl
HSUO 3970
2 6 0 CclNrINUE
nsu00000
250 COYT 1 N U E
~suobo1o
2 4 0 CONrlNUE
~SUOkO20
2 3 0 COVTIN!JE
MSU04030
HSU0404O
MSU04050
:-----rcwr? 5 PQJcUNDEuQS
P*Q ZI-M= ____-_____________-_________
HSu040h0
JI l rPR3F= 1 0
MSu04070
D
O
320 tLL)NE=I,3
MSu04oRO
D O 3 3 0 MSEx=I,3
HSU04090
00 300 IPROFO=l
,9
NSUOk 100
IrF~1IIzONC,IIPUOF,HS~Xt~IrF~‘~llz~~~,I~PROF,~SEKl~I~F~~(Iz~lN~,IPRUMSUO~lIO
.%FO,tiSEXI
usu04120
N~c~(IzONE,ir~RUF,~SEXt=N~ct~(
IZLJNi~Ir~UUF,~S~Xt~NECHfI7IIUE,IPROFO,YSUOYI30
bUSE x t
HSUOI 14 0
N~~:~U[I~~~NF,~~PR~~F,MSLX~=N’~~SU~~~:~NE,I~PROF,MSEX~~NUESU~IZ~~NE,IPROMSUO~~~O
<FO,USEXl
M5UO4 160
cLY4X(1zoNE,IrPWOF,~S~xl=~~4Xl(C~M~X(
IzONE>1rPROF,HS~XI,CLM4X(IZONMSUO~I7O
6E,IP7UFO,HSEYtl
MSU04180
NcL4S[1zflN~,IPROFO,~SCXl=l~~lCL~4~lI7ONE,IPROFO,~SEXII4UGN~EP~t
HSUOk 100
NCLAS[Iz~NZ,IrPROF,USCXl=~AXlNCL~SlIZfl~L,I~PROF,~S~Xt,NCLAS(IZON~,MSUO~2OO
d[PQU=J,HSExl
t
HSU042 L 0
DU 3 5 0 K=I,NCL4SII7UNC,I~PRUF,~Sf.Xl
NSU0~220
IFR~tIIzûNE,IrPROF,HSfX,kt=IF~~ll7~JU~,I~~ROF,~S~X,Kl~IF~OlIZ~NE,lPRKSUO~23~
&OFO,uSEX,Kl
~SU04240
350 CUNr 1 N U E
nsuLJk250
3 4 0 CONrINUt
HSU04260
330 coq r 1 N U E
~SU042 70
329 CONrINUt
MSU04 2HO
USUO4290
YSUO4 300
C _ _ _ _ _ _ _ _ _ _ TourEs LON~~ Fr mure3
~~IJF’)wDLu~~---
---____--___-___-_-_____
HSU04310
3 2 I rzovE =a
HSU04320
IrP~IF=lo
H5U04330
0 0 4 1 0 HSEX-1) 3
YSUO4 340
00 4’0 IzOYë:I,3
MSUO4350
Ir~~~(IrZo~~,Ir~RU~,~s~Xt=[r~~~~~iIr~u~~,Ir~Rc~,~sfxt~[rF~~(Izohf,
HSU1)4 350
%1 T”H2F , Yst X t
HSU043 70
~EC~rlIrLONF,IrPRflF,M5EXt=NFC~1lIll~JNt,I~PROF,~SFXltNECHl,ZuNE,
rSU043RO
IIr~R?lF,HSEXl
MSUO4 390
NH95J(IIZC)L1E.,IrPQUF,USEr;I:YYF1>1J(I~7;lNt,IIPRCF,HSFXt~N~~SU(Izoh~,
usu06400
SI TPR3F ,MSEXl
MSJO44lO
cL~~~.X(Ir7U~~~,IrP~oF,~sF~t:4~4*I(CL-~4xlIrz~t~E,Ir~RoF,~sExt,cL~~x(IzYsuo4420
bONE,IrPROF,USEXtt
MSUOQ4 30
YcL&S[ Iz~~~,Il~ROF~~SEX~~IYT(CLUAXl
120NE~1rF~0F~“S~X114UGM~EP5t
YSUO4440
t~cL~s[[r7~YE,1~PROF,~SEXt=~4XlNC~~Sllrz~NE,lrPROF,~SEXt,NCLASltzO~~~~SUO44SO
6c,II~RTlF,MSEXlt
YSUO4 4 60
D o 630 KrI,NcL4S(IrzoNF~IrWW~*stXt
MSUU44 70
[FR~[[rz~N~~,[IPROF,HÇ~X,Kl=IF~~~tIr7~J~~,IrPRCF,~S~X,Kl~IFR~[IZON~,
U5UU6<rHO
dIrPR3F,*SEX,Kl
rsu04490
k JO coq r 1 N U E
usu04500
020 C O N T I N U E
~suo4sIo
4 1 0 c3vrIvuc
USUO4520
MSU04 530
usuo 4 54 0

---

3 7
A N N E X E X
(suite)
c044Y10*01t3F6ÏTtS~O~~
tr~ÿ,;,+~*bTV%S~~tSfb’.
~~~t~*J**~~~6*0Q*000~*~~~~~~~*~~usuo455~)
c
C4LCJL DC5 FQt’lUENCES RELATIVcS

f1 O
F

L& rAILLE LlUYENNE 4VEC
~SU04560
c
ECIPl TVPL
HSU04!JfO
C000%~QO%P%f%S$tCS~**~%~*~~~~~~~%~%
‘¢.~30SoCS~~*t06QOé**f~~~%~%~~~~~**~~~%Ns”u4sq”
33 DO 000 IZONE=L,i
~suo~+5?0
D O 4 7 0 IPROFfl=l,LO
~SUO4bOO
oct 390 MSEY:l,>
HSU04bLO
tFll~FRUll?UN~,l~~~Fn,uSC*).E«.O)
Gil 10 480
MSUO4b20
00 +10 K=I,FICL4SlIZONE,1~kflPO,rSFxt
MS”U4b30
FR~RIIZO~E,IPROFO,~S~~,~~=F~~~~~IFR~J~IIONE,I~ROF~~,VS~.X,KI~~I~~./
HSlJO4b00
6f~OArt 1 rFR’t( IZOhF, IPRUFO,HSExt t
NS”O4b50
rFRJ?( IZONE,IP9UFJrMSEXI=~F~~~9~17UY~,
If’RnFO,MSFXltFR~tR(
1ZONE11PROF’.,S”04b60
bfl,MSf~,Kl
MS”04870
CLFRIIIONE,1PR~FO,YSç*IK):VCLS(IIOYt,lPRflFfl,~SEX,Kt~FL~A~lIFR~lIZO~SUO4b~O
&NE, I~RIlFO,YSEX,Kt
I
HS”O4b90
F~CL2(ILONE,1PULlFO,~SEx,KI=FL04~fIFY:~i1IflNF,IPQ0FC,US~~,~)t~VCLS(1HS”O470O
BLONt, tPROFO,HSEx,Kt1~2
YS”OO71U
~CLF~1ILONE,IPQ~fFU,MS~xl=~C~FR~iZU~~,I~RflF~,’~S~xttC~FRfIZ~~~,IPROF~SUO477~
6O>“SEX,KI
MS”O<r 7 30
~FQC~~I~ZO~~,I”R~~FO,~SEU~=~FRCLLLI~OVC,IPROFO,YS~XI+F~~CL~~IZC~~E,IPMSUO~~~~
bROFJ,MStX,Kt
MS”04 750
4 9 0 C O N T I YiJi
‘4suo4 7bO
1F(I1F~U~17ONE,1~ROFO,~SF.Xl.~~~.Ol
G O T O 480
MS’JO4770
~MJ1l1fON~,i~~OFO,~S~xl=~C~FQ~IZ~N~,I~ROFO,~S~Xt/FLC~~lI~FRQ~IZON~MSU~47R~
6,IPx!liO,MSEXI t
MS”04 790
IFII~~~311Z0VE,IP~flF~,~~SCXl,L~.lt

G
O

ro 4YO
HSuu4d00
VAUl4(IZONE,I~RUFJ,~S~Xt=~~FRCL~lIZONE,IPRflFO,MS~Xt-~FLUAr(IlF~~(l~S”o4d1o
IZUVE,I~ROFO,~S~XttI)I~~OII17ONC,I~f~OFfl,~SfXt4~2ltt/IFLUA~l1~FR~~IZOHSUO4t12o
~NE,I’a~FO,uSEXll-1.1
MSU04830
IFfV4~1~lIZO~~E,I”R~Ffl,WS~Xl.G~.Ol f.d r0 671
YS”O4tf40
rlRI~I(6,3btIZOYE,IPROFO,U~FX,V4f1IAl
tIWt,IPROFO,USFX1
HSU04850
39 FOQ\\14 r l ’
V4RI&YCC NEG4rI”t f’(3U9 ILOs”uE=’
,14,4X,‘IPROFl1=‘,I4,4x,‘~SEMS”O4~bO
bX=‘,l4,bX,‘V4UI~=‘,F10.4,/t
MSU04t)70
to r9 4ào
us”o4aYo
4 3 1 ECA.fiT( [ZONE, 1PsoFu,rSCXl=s~~~r~v4~~1~~
IIONE, IPROFO,MStXt t
M S ” 0 4 9 9 0
490 CONrI’Wt
HSUObYOO
VI0 CON1 I’JUE
NS”04Y 10
6.50 CONTI VLJE
HSU04920
NSU09930
C*éSIQStO*fS6$3F”*O~~~*~%~~~~~~~~~~%~~%~*~~
ibEQ*~SS%%:.‘ *QSt94~OSCQ~¢tfO~~SUo4~60
C
E CR 1 IlltIFS
M S ” 0 4 9 5 0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00 5 1 0 IZONE=l,4
NSUO4910
IFIIZ3NlIE,IZOYEI.EO.Ot

G
O

r0 510
MS”049RO
D O 5 2 3 IPROFO=l,IO
HS”ll4V7U
IFII~ROF~IE,IPQOFOt.E’~.Ot
GO r0 420
Ysuo5ooo
90 530 uSEx=I,I
*15”05010
IFfI~~Q3i1LONE,IPROFfl,~S~Xl.~~~.~t GO r0 5 3 0
~SU05320
~RIr~I6’34tESP~1~t~ZO1~~~IZO~~~t’f’UUFlIPR1lFUI’SEU~~SFXI,NtCH(IZCNE,I~SUo5~3o
I~RO~3,~SEXt,N~ESU~ILO~t,1P~fllFO,~S~Xi,~UU~tIZONF,If’ROFU,~Sf.xt,
NSUO5040
SECARI- [ZONE, IPROFO,MSExt
M S ” 0 5 0 5 0
14 FuRw4rl ‘lII3**~*3S*SQ*SQ*~
I-LS”r;S~:t:::;“%9:%~%%%‘,,,’
Q’,J)~,‘*‘,,,
r(S”O5060
6
’
% -SDECE: ‘,424,‘*‘,/,’
2 ZOVF: ‘,413,13~,‘0’,/,
MSU050?0
S’ 3 ‘>JOFONDE”fI:
‘,41*,1*,‘0’,/,’
C SCXF: ‘,AII,l5x,‘~‘,/,
HSU050d0
6
’
t VJ~UAE iClf4NrILLnNS:
‘~14’7x”3’l/l’
* hOPERE I N D I V I D U S MESUREHSU05090
6s:
',15,1*,'*',/,' c
IAILLF Wl~.:‘,F6.2,SX,‘S=‘,F5.2,2Xl’~‘,/,
M5”05100
s
’ O~tl03~ST¢etf%~%**EQ~~*~~~~~$*~%$~~’
M S ” 0 5 1 1 0
Ll/l’
$ C L A S S E S 0 FREUUENCES t
%‘)OX’
YSUOSI 20
6’3’,1,’ %%SfSSr00S%OOQQO$Q$***~~~~~~~*~~~~%’t
usuos 130
DO 5 4 0 I<&=l ,NCLAS( ILOP1E, If’ROFO,‘dSCX
t
MSUOS140
5 4 0 1F11F7111Z0NE,1PRUF1J,HSEX1KAt.t~E.0t
G O r0 3 5
MSU05150
3
5
“0 Si0 K8=K4,NCL4SitZONE,IPRflFO,~SEXl
NSUOSl ho
WR1~~:(6,36t~CLS~1L0N~,1~RUF0,~S~X,~Ut,1FR~~1~0NE11~R0F0,USfx,K~),
HSUos,,o
6FR3Hf [ZONE, IPfWFO,~SCX,KOt
QSUO51 a0
5 5 0 CONTIVUE
Msu05190
3
6
F3RN411’ F ‘,F5.1,’
3
‘,I?,’
$
‘,FO.l,’
4’)
~SU05200
W~1~~:[b,37tI~F~~1IlON~,If’RflFfll~SFXt,~FR~RIIZ~lN~,IPROFU,HSiX)
~SU05210
3
7
FOabfar(’ *e~b5~000f~b~~~hC~~h~~~*~~~~~~~~~~~’,/,’
0 rardL
*
‘,
~ S U 0 5 2 2 0
b19,’
Q
‘,Fh*l,’
a’,/,’
SQ?*OQ03%~*Qh~~O%**~~~~**~~~%%~~*~%’)
~SU05230
530 cONrlwUE
~S”uS240
520 C O N T I N U E
‘4SUUS250
5 1 0 C3NlIYUE
NS”OS260
IFILE.E~.NES’~ GO rU 200”
~S”OS270
REJIUO 1
USUO52YO
1 0 0 0 COVrlVUE
M S ” 0 5 2 9 0
MSUO5300
2 0 0 0 5rocI
~~SU05310
EN0
MSu05320

---

A N N E X E X I
~$$$$***********b***********************************~***~*~******$$~$$$$M~~~~~~~
C
PROGRAMME HSUEXPI
IVEQSION RENSON DF MSUEXPZ)
H5U00020
C
wlJ00030
C
Y E S P E C E S D O N T L E NOMURE ÉST INOIWE DANS L A FQEMIERE CAQTE D E L EXE”S”OOO40
c
C ,PORMATlI21 ,LlMITEES
A 2 0
wsu00050
C
MSUOOO60
c
T R O I S C A R T E S PhRAYElRES P O U R CHAOUE E S P E C E :
NSUOOO ?O
c
-cow E~PE~E Er IYcRE~ENr,FaRu*rIr4,~~,~~1
w.uoooeo
c
- V A L E U R D E DEBUT ET D E F I N POUR L A X E D E S Af3SCISSES
lFDRHA7
(3,2X,I3)HS~00090
c
- T R O I S Z O N E S ET Z O N E TOTALE>AVEC PAS D E TRAITEYENT Q U A N D V A L E U R z 0, YS”OD100
C
FORMArI IZ,IYI
MSlJOOl10
c
OIsZONE N O R D
OZ-ZONE C E N T R E
03’CASAMANCE
OO- TOUTES ZONES
NSU00120
c
- N E U F PQDFONOEURS ET T O U T E S PROFUNDEURSrAVEC
PASOE rRAITEUEN1 QUAND
YsuooI3o
c
V A L E U R = O,FOR~A7llO~I2,1XI)
MsuooI4o
c
0L=100-200~
02=200-300M-----------09=900-1000~~
IO=rOUrES PROF.
usuoo15o
c
MSUOD 160
c
L E S WYSURATIOMS SONT PDNDEREES P A R L A PRISE hflRAIAE
NSUOO 170
C$$*$$$4$$t$*$$t*$*****$*$***********~********************$*$$$$$$$$$$$$Msuooleo
YSUOO 190
COUMON NRLOC
MSU00200
HSU00210
CHARAC7EQ424 ESc’ltO)
H S U 0 0 2 2 0
C+lARACTER+l3 ZONE(41
H5U00230
CHARACI’EQYl9 PROFI 101
MSUOO240
CHARAC7ERIIl
SEK(3b
H S U 0 0 2 5 0
CnA’?AC 7EQ*80 A
MSUOO260
MSUOO270
INTEGEQf4 O~2OOI,PRtM120l,UEQN~2Ol,~~UF~lOZA~
?45U00.260
MSU0029’0
OATA CSP/’
WERLUCCIUS SENEGALkNSIS’,’
,?ERLUCCIUS CADENATI
1,’ P M S U 0 0 3 0 0
LhRAPCNAEUS
LONGIROS,
, ,’ ARISIEUS VWIJENS
‘,’ GEWYON MARITAHSU00310
bE
‘1’
‘1’
‘,MSUOO320
a’
0’
’ 1’
MSU00330
b
‘1’
1,’
HSu00340
b ‘1’
‘1’
‘1’
MSu00350
b
0’
‘1’
MSU00360
ti
OP
0’
‘1’
Msuoo37o
b
‘/
Msuoo38o
OArA ZONE/ NOQO
1,’ C E N T R E
8,’
CASAMINCE
‘,
wsu00390
6’ rourcs zowzs’/
Ysu
D A T A PROF/’ IOO-200H
1,’ 200-300H
‘1
MSUOOAlO
6 ’ 300..4OOM
‘, ’ 400-500H
‘,’ 500-bUOH’,
usu00420
, @
ooo-700M
‘1’
TOO-SOOU
‘1
MSUOO430
1’ soo-900H
1,’ 900-IOOOH
‘,’ TOUTES PRLlFONDEUAS’/YSU00440
DATA SEXI’ M A L E S
‘,’ F E M E L L E S
0’ T O U S S E X E S ’ /
MSU00450
YSUOO460
D I M E N S I O N IZON~2O,4J,IPROFl20,lOl,VCLS~4,lO,3,2OOl,FROl4,lO,3,ZOOlMSUOO47O
b,IESPAl60~,ICHIFRI6O)rlE*Pr601,1TIPIIlO~,ISUl7A~lO~,lPflIDSl4,lO~,
MSUOO490
6~FRQ111351>tFRQ2~135l,FRQ1~135~,FR~2~135l,CL~AX~A,10,3l,
* s u 0 0 4 9 0
4NECH14,10,31,NYESUl4,10,3~,1FR0l4,10,3,2001,FR~Rl4,10,3,200l,
u s u o o s o o
61SP0t014,10l,NCLAS~4,10,3~,7FR~l4,10,31,~~FR0l4,10,31,
w5u00510
ACLYAX1l3,9,3l,CL~4XZ~3,9,3~,~FR~R~4,l~,3l,IESPElZOl,INCR~ZO~
MSUOO520
usu00530
Ct$$$$t$$$$$$$$$$$$$~$$$$$$$$$$$$$$$$$$$$$~$$$$$$$$$$$$$$$$$$$$$$~$$$$$$NSUOO54O
c
L E C T U R E S
OES CARTES PARAMETRES
u+11on=.50
~$$$$$$$~~.$$$.u$$$$$~~~~$~4444$4444444$4444444444~4*44~4*~4*4*4~4~44~~~M~UOOSbU
MSUOO570
C A L L IOENAI IBUF, 1 0 2 4 , LOI
YSU
NBLOC E I
usu00590
CALL PNUU4lO.,O.,N4LOC,O.,O.~
MSUOO600
[EN=0
YSUOO610
HSU00620
REAO(S,SOl)NESP
MSU00630
5 0 1 FOR!4A7t 12)
MSUOO640
0
0
SO0 IE=l,NESP
MSU00650
READl5,I~IESPEIIEI,INCQ~I~l
MU00660
1 FORWAltt4,lX,tlb
WSUOO6’70
REAOl5,84IIPRENlI~~,oERNIIE)
MSU00680
841 FORMAT( 13,2X>I31
YSUOO690
READl5,2~l1ZONlIE,JE),J~=l,4~
MSUOO 700
2 FOQHA7~4lIZ,lXll
Msu00710
QEAOl5,3)l1PQOFIIE,JE),JE=LIIO)
HSUOO 720
3 FORM47~lOII2,1X))
MSUOO730
5 0 0 CONItNlJE
HSUOO 740
YSUOO750
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$MSUOO76~
c
B O U C L E P A R E S P E C E
wsu00770
C*L*$**9$*$$~$$$$$$$$$$$*$$$$$$$$$$$$*$*$~$$$$$*$$$$$$*$$$$$~$$$$$$$*$*$MsuOo76O
D O 1 0 0 0 fE=l,NESP
~SU00790
M S U 0 0 8 0 0
C************t*****$$$**$****$********************~******$*$$$$*$$$$$$$*Msuoo~lo
c
INI?tALIS4l’IONS
4SUOO820
C$$$**$$$$$$$$$$$$$$$$$*$$$*$$$$*$$$$$*$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$$MSU~O~3O
M S U O 0 . 3 4 0

---

AN,NEXE X I
2 Y
(suite)
C _____~__(N[r[4L[SATIONS
POUR L ENSEWLf D E S Sl4rIONS~~~~~~~~~~~~
MSU00850
IF~INCA~IEI.EI.I.~I
4UGM=1.
MSU00860
1FI1VcQItEl.E?.21 4UGH=0.5
MSUOOB70
IFKIYCRIIEI.EU.II
.“GUzO.,
MSUOO880
EPS=1 . E - 3
MSUOO890
DO 2 0 0
IZONE=l,Q
M S U 0 0 9 0 0
4UGHS:4UGN
MSU00910
0 0 201
IPRoFO-1,Io
MSUOO920
LUGHCI- 4UGN
NSUOO930
D O 2 0 2
YSEX=l,3
MSuOO940
4UGYIl:4UGN
Nsu00950
D O 2 0 3
K=1,200
N S U 0 0 9 6 0
VCLS~IZOYE~IPRflFO~~SEx,Kl:AUGM~
NSUOO970
4UGUB=~UGYRILUGM
MSu00990
FR3IIZONE,IPFIOFU,USE*,K)EO
MSU00990
IFRP( IZCWE,IPROFO,NSEX,KI=O
MSUOl000
203
FRPRI IZONE>IPROFO,HSEX,KI~O
MSuOlOIO
2 0 2 coqr INUE
NSUOlO20
201
CONrINUE
N S U O I 0 3 0
2 0 0
CONrINlJE
~suoloIo
0 0 2 0 4
IZONE=1,4
MSUOI 0 5 0
0 0 2 0 5
IpROFO=l,IO
N S U 0 1 0 6 0
ISPO~~~IZONE,IPROFO)=O
MSUOlO?O
2 0 5
I~~I~SIIZ~NE,I~ROF~I=O
N S U O I 0 8 0
2 0 4
C O N T I N U E
Msu01090
I N D E X - 0
M S U O I 1 0 0
0 0 2Or
ILONE=l,Q
N S U O l 110
DO 2 0 8
IpRDFO=l,lO
usuo1120
0 0 2 0 9 uSEX=l,3
HSUO 1 L 30
NCL*SlIZONE,IPQ0FO,NSEYI=O
M S U O I 1 4 0
CL~4xlIZONE,IPROFO,MSEXl=O.
N S U O I 1 5 0
TFR~lIZONE,1pROFO,MSEXl=O.
‘ASU 160
IrFRQltZ0NE,IPROFO,NSEXl=O
N S U O I 1 7 0
NECHIIZONE,IPROFO,USEXl=O
NSUOI 180
NNESUIIZONE,IPROFO,NSEXl=O
MSU01190
2 0 9
rFROQIIZDNE,IPROFO,HSEXt=O.
HSUO Y 200
2 0 8 CUNrINUE
NSUOlZlO
2 0 7 CONrINUE
NSU0122G
MSUOI 2 3 0
C ~-~~~~~rlISES 4 Z E R O 4 CH4UUE N O U V E L L E sr4rIo~~~~~~~~~-~~~
MSUOI 2 4 0
100
0 0 2 0 6 I=l,135
MSU01250
IFUOI II I-O
MSUOl260
IF9421 1 l-0
N S U 0 1 2 7 0
FRDlIII:O
NSUOIZBO
2 0 6 FAQ2III:0
MSUOL 290
YZSEX-0
Msuol3oo
POIo2:0
MSU01310
0 0 2 1 1 1=1,10
N S U O I 3 2 0
Irvp4111=0
M S U O I 3 3 0
211
IsuIr4111=0
HSUOI 3 4 0
D O 2 1 2 I=l,60
H5U01350
IESP4lIl=O
NSUO I 360
ICHIFAIII=O
NSUOl.370
2 12
IEUPI 1 I =o
NSUOl 3flO
MSUOl390
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c
LEcruw c4RrE sr*rloN 4vEc S*ur D
E
S

DONNEES 51 LA ZOF;E o
u

~4
MSuOr410
C
PQOFONOEUR N E SONr P A S D E S I R E E S
MSU01420
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
IF(tNOEX.EQ.11

G
O

r0 101
NSUOl440
REI0l1,4,1DS14r=1ERR)NS;*TIIPHOF0,10UK,120NE
HSuOl450
IF[IERQ.LT.Ot G O r0 9 9 9
HSUOl460
C FOAH4rl3X,I3,5X,Il,l2X,I3,Sx,I2i
YSUO 1470
101 INOEK=O
usupt 480
0 0 1 0 t-1,3
MSUOl490
1 0 IFIIZONE.EO.1.4NO.IZONIIE,II.E’l.Il
Gb-r0 1 0 2
Ysu
1 0 3 0 0 2 0 I=l,30
M5U01510
RE401 l,J, IOSrhr-IERRI4
MSU01520
IFII~RR.Lr.Ol
G O r0 9 9 9
~SU01530
S FORN4rIA8Ol
NSUOlS40
REA0IUNIr=A,FNr=6IIrYP
NSUOlSSO
6 FOAN4rI11,79XI
Nsuols6o
IFtlrYP.NE.lI
GO r0 2
0
NSUO l5 70
RE401VNIr=4,F,4rr4INSr4r,IPROF0,IOUR,IZONE
MSUOlS8O
INDEX= 1
MSUOI 590
G O 73 1 0 0
MSUOIOOO
20 CONTINUE
NSUOl6IO
1 0 2 D O 3 0 JE=,,q
MSUO 1620
IFII~ROF~.EU.JE.AND.IPROFIIE,JE~.EQ.O~
G O r o lo3
‘4SUOl630
30 IFIIaROFO.EQ.~E.~~~.~~~~Fl~~,~~I.~~.~~I
G O r o 3 0 1
MSUOl640
MSUOl650

---

4 il
A N N E X E X I
(suite)
C449t~~t~~60~402~~01~~~~~~$~~~~$~~~~~$~~~~~~~~4~~~~~~~~~~~~~*~4~~~~~4~~~MSUOl66O
C
LECrURES
C4RTES E S P E C E S
MSU01670
C*~~~~~~~24~$1040~~9~~~~~~~$~~~~~~~$~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Msu01680
3 0 1 *=1
HSU01690
L - 6
MSUO 1700
0 0 4 0 J=I,lO
HSUOl71a
RE4Oll>S,t0Sl4T=1ERRI*
~suol72a
IFI1SRR.Lr.01
G O r0 9 9 9
HSU01730
RE4O1UNlr=4,FNr=7)IrYP4lJl,l1ESP~~ll,ICHIFR~1~,1EXPl1l,l=K,L~,
HSUU I 740
dtSu1rAl
JI
USUOI 7 5 0
7 FORM4rI1l,SX,6lI4,t3,Il,4Xl,IX,ll~
MSUO 1760
IFlcrfP*l
JI .EP.ZI
G O r o 6
MSUOI 770
RE4O(UY1r=4,FMr=4)NSr4r,IPROFO,IDUR,IZONE
MSUOI 7 8 0
IN3EX:I
YSUO 1 790
G O rg 100
MSU0l800
8 0
0

50 t=Y,L
MsuulElo
50 IFlIESP4III.EO.IESPEllEll

G
O

TO 9
MSUOlts20
IF(ISUIr4lJl.EQ.O~
G O rO I l
MSUUl830
K=K16
MSUUI 840
4 0 L=L,6
HSUO 1850
MSUO1860
CQOt9900QOtQb060~$*~~~~4~~~~~~~*~~$~~~~$$~~~~~4~~~~~~~~$~~~~~~~44~~~~~~~~SUol670
C
PL4CEWNT D E L 4 C A P T U R E HOR4IRE OINS L 4 Z O N E E T L A P R O F O N D E U R
HSU01880
C
CORR~SPONO4NrE
HSUOl890
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
9 1P0104=tCHtFRI0~10Q~1EXPlII
Ysu
IPOI3tl=INrt
tFLO4rI
lPOIO4l/FL04r~
IOURlb60.
I bC.41
usuu192o
IPfll~S~lLUVE,IPWOFO~~1POlOSllZONF,1F’~OFUl~lPO1O~
rSUOl930
HSU01940
C~~Pt~Q19S~~~O~OOOQ9~~~~~~~~~~~4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*~~~$~~MSuO1950
C
L E C T U R E OES C A R T E S E S P E C E S SUlV4NrES ( S I L Y E N 4 1 4PRES Q U E
MSUUI 9 6 0
C
L E S P E C E R E C H E R C H E E 41 r ETE T R O U V E E
MSU01970
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1F11SU1r4lJl.EQ.01
G O r o I l
MSUUl99U
0 0 4 1 J-l,10
~su02000
RE4Oll,5,10Sr4r=IERRII
Msu02010
IFllERR.Lr.Ul
G O T O 9 9 9
M S U 0 2 0 2 0
RE4O~JN1r=4,FMr=42I1TYP4lJl~ISUll4~J)
HSUU2030
4 2 FORY4rltl,7BX,Ill
HSUU204U
tFlITYP4lJ1.EO.2.4NO.ISUIr4lJl.NF.O)
‘LO r0 4,
HSU02050
GO TO 11
MSUO2060
41 C O N T I N U E
MSUO207U
MSU02080
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C
LECIURES
C4RrES MENSUR4rIONS
MSU02100
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MSUOZ 120
C --mm-mm,-LECTURE
P R E M I E R E HENSUR4rlUN
DE L E S P E C E _
_
_
_
_
YSUO2130
II 0 0 6 0 J-l,20
MSU02140
RE4011~StIOSr4r=IERR14
HSU02 150
1FIIERR.Lr.U)
G O r0 9 9 9
MSU02160
RE4OlUNlr=4~F~r=lZllrrP1,Nsr4rl,MEsPl,~s~x1,INcRl,PoIo1,PCL4S1,
MSUO2170
dNCL*Sl~IrFRQl~~~FROl1Il~I=l,27I,t5uIr1
MSUO2lAO
12 FoR~4r~11,2x,13,14,211,2F4.U,12,13,2712,I1~
MSUO2190
lFIIrIPl.EQ.31

G
O

r0 13
MSU02200
~E4,,,,~Yl~r4,FYr=41NSl4r,IPROFO,lOUR,IZONE
MSUU221U
INDEX-1
MSU0222U
GO TO 100
WSU0223U
13 IF(~ESPl.EP.IESPEIlE~1
G O r o 14
H S U 0 2 2 4 0
6 0 C O N T I N U E
USUO2250
14 IFI lSUIrl.EP.9)
G O T O 1 5
M S U U 2 2 6 0
LX25
MSU02270
MIS4
HSUO228U
0 0 7 0 J=l,ISUIll
H S U 0 2 2 9 0
PE4Oil,l6~l1FROIlI1,I=L,~1
MSUOZ 300
1 6 FORW4rl25X,2712,lX1
MSUU2310
L=Lt27
MSU02320
7 0 Y=Y+27
MSU02330
MSUO2 340
C ----. --___-_--_---
C4S OES WNSUH4rIUNS
P4R SEXE_____________________
41suo2350
C ----_LECrURE
OE L 4 OEUXIEHE HFNSUR4TION
S I OEUXIEUE
S E X E ECH4NIlLLONNE
MSUU2360
15 IFIMSEXl.EU.51
G O rO 1 7
MSU0237U
D O 6 1 J=l,20
MSUO23EU
RE4011,5,t0Sr4r=IERRI*
MSUO239U
tF(tERR.LT.OI
G O r0 9 9 9
YSUO2400
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MSU024lU
dNCL4S2,1~FRQ2,lIFRQ211),1-lrZl),lSULIZ
MSUU2420
tFtlrYP2.Ea.31
G O r o LB
USUU2430
WzSEX=O
MSUU2440
I N D E X - 1
MSU02450
GO TO 17
NSU0246U
LB IF(WESP2.EQ.IESPEIIEl~
G O T O L 9
NSUU24?0
6 , CONTINUE
NSUOZQfJO
19 YZSEX-MSEXZ
NSU02490
tFIISUIfZ.EO.91
G O r” 1 7
MSU02500
L=28
NSUO2510
rlz54
MSU02520
00 tia J=l,ISUIr2
YSUU2530
RE~O~I,I~~IIFRQ~III,I=L,~I
M S U U 2 5 4 0
L=L+27
YSUO2550
80 M=\\l*27
MSU0256U

---

41
A N N E X E X I
(suite)
MSUO2570
C*tOb0*9~~t9f~*~~t9t*~~~~~*~~~~~~~~~~~~~~~~~~~~~~$~~~~~~~~*~~~~~~~~~~$~~MSUO258O
C
VEP1FlcATION
IJES INCQEMENrS
E r PONDERArION
O E L A ( O U D E S DEUX [
M S U 0 2 5 9 0
C
WENSJR4rION
P A R L4 C4PrURE H O R A I R E
MSUOZOOO
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
,, [SPO1D[12ONE,l0ROFOI=ISPOID[[.ZONE,[PQOFO~~[POIo~
M S U 0 2 6 2 0
IF[INCRl.iP.INCR[IE[[
G O rfl 2 1
H S U 0 2 6 3 0
~RtrEl6,22[NSr4rl>NESPl
USUO2640
Z 2 FORW4rl’
L

INCREMENT ENREGiSTRE

E
N

P4RAMErRE EST.
‘1IFFERENr
D E CELUNSU02650
bl D
E

L 4 PREMIERE
WNSUR4TION’,hY~‘Y~
FrAT[ON=’
,15,6X,‘ESPECE=‘,IS[MSUO2660
_-
2, IFlN2SEK.NE.O[
G O r0 2 3
NSUO2670
NSUO2680
C ____.____ r3us SEXES C O N F O N D U S OU U N SEUL SFKE PRFSENr
_-_______
NSUOZt.90
Ql=(FL~4rlIPOIDH[IIlPoIol*loou.[
NSUO 2 700
0
0
90 1=1,135
NSUO2710
9 0 FAPllIl=FLO4T[IFRQll[[[*RI
MSUO2720
rFRUliFLOArI
1 TFHPI [*QI
NSUO 2 7 30
G O r u 24
N S U 0 2 7 4 0
NSUO2750
C -------~EUX
S E X E S tCHANr[LLONNES___________________
MSUOLtoU
2 3 IF[INCQ2.EQ.[NCRl.4ND.INCR2.E~.INCR[1El)
G O r0 2 5
MSUOZ 770
URSl~l5~26lNSr4r2~~ESP2
NSUO2780
2 6 FORN4r[’
L INCRENENr
DE L A D E U X I E M E MENSUR4rlON
E S T DIFFERENT OE cNsuO2790
&ELU1 oE L4 P R E M I E R E O U OF C E L U I E N R E G I S T R E E N P4RANETRE’,/,‘N*
Sr4NSu,,2~00
LTION-’
,[5,6X,‘ESPECE:‘,iSl
NSUOZB10
2 5 POI33=POIOI
+POIOZ
NSU02820
Rl=lFLO4rllPO[OH[[/[PoIu3*looo.l
MSUOZt)30
D O 1 1 0 l--1,135
MSU02b40
FRûllI[=FLO4r[[FRQI(ll~$Rl
MSUOZB50
1 1 0 FRQ2fIl=FLO4rllFRQ2lI))CRI
NSU02860
~FRÿl=FLO4rllrFRQI
[*RI
NSU02870
rFR~Z:FLOIr[
IrFRQZIORl
NSUOZ&bO
C
CORR:SPOND4NrS
1 SOWHArION
OES FREPUENCES,NCMBRE
R E E L M E S U R E S ,
NSUO2920
C
NON5RE ECHINr[LLONS,PLUS
GQIND I N D I V I D U RENCflNrRE,PLUS
GR4NOE
MSUOZY 30
C
CL4SSE 1
N S U 0 2 9 4 0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
N S U 0 2 9 6 0
C -------PREqIEQ
SCXE O U M E N S U R A T I O N S TOUS S E X E S -----_----------_-_---
‘4SUO2970
2
.
IF[MSEXI.EQ.Sl
MSEXI-3
NSUO2980
0 0 1 2 0 K-1,400
NSUO2990
OELr4sVCLSlIZUNE~lP~~FO,~S~X!~Kl-~~CL4Sl
NSUO3000
DELrlr48SlDELr4l
MSU030\\0
120 IFlOILrA.LE.EPSl

G
O

r0 27
NSUO 3 0 2 0
27 DO 130 I=l,NCL4Sl
NSUO 30 30
FR~([ZflNE,[PROFO,YSEXl,K[=FROllZfl~E,[PQOFO,~SEXI,U[~FROl[l[
NSUO3040
1 3 0 K=Krl
N S U 0 3 0 5 0
CLN4x[[IZONE,IPROFO,~SEXIl=4UG~~FLO4r[NCL4Sl-i[~PCL4Sl~~PS
NSUO 3060
[F[cLU4K[[IZONE,IPQOFO,NSEXl[.Gr.CLM4X[IZON~,[PROFO,NS~Xl[[
NSUO 30 70
~CLY~X[IZONE,IPROFO,MSEX~~=CL~~X~~IZUNE,IPROFO,NSEYII
MSU030130
NcL4s[IZONE,IPQ0FO,YSEKll=INTlCLMAXl[ZONE,[PROFO,NSEKl[/4UGNtEPS[
WSUO3090
NEW[ [ZUNE, IPROFO,USEKI
l=NECHt [ZONE, [PROFO,MSEXI
I+l
Ysu
NMFSU[IZONE,IPROFO,YSE~~[=NNESU~[ZONE,IPROFC,~SEXI~~[~FRO~
NSUO3110
TFU~J[[ZCINE,IPROFO,HSEKIl=rFC(PIIZflNE,lPROFOrNSEXl~.rFQ~1
MSU03120
NSU03[30
C _____________DEUXICNE
SEXE I S[ Ex[srE l-------_-------_____________
RSuO3140
IFIN2SEX.EQ.Ol
G O r0 4 3
NSUO3150
D O L.0 K-l,400
NSUO3160
oELrL=vCLSl
IZOYE, IPROFO,~SEXZ,K
1-WL452
N S U 0 3 1 7 0
OELr4=4BSlDELr4l
wsuo3 180
140 IFlDILr4.CE.EPSI
G O r0 2 9 1
N S U 0 3 1 9 0
2 9 1 0 0 1 5 0 [=I,NCLASZ
NSUO3200
FR~([ZONE,IPROFO,YSEK2,K[=FRO[1ZONE,12ROFO,~SEX~,K[rFRO2(I)
NSUO3210
1 5 0 KIK*I
WSUO 3 2 2 0
CLII4xL(1ZuNE>IPROFO,YSEX2l=4UG~3FLO4?-lNCLAS2-1[*PCLAS2~EPS
nsu03230
[F(cLY4Y2[1ZONE,[PROFU,NSEX2l.Gr.CLN4KlIZONE,1PROFO,~SEX2l[
NSUO3240
LCLY4K([ZONE,IPROFO,MS~X2l=CL~4X2llZO~E,IPROFO,~SEX2l
NSUO 3250
HcL4~[[ZONE,IPQOFO,NSEx2[=INl[CLN4KlIZONE,IPQOFO,MSEX2l~AUGN~EPS~
NSUO3260
NECH[fZJNE,1PROFO,NSEK2l=NECH[IZONE,IPROFO,NSEX2[tl
NSUO 32 70
NNESU11Z~E,tP40FO,wSEY2lsNYESU(ILONESUlIZONE,1PROFO,MSEX2l~1~FRO2
wàUO3280
rFRQ(1ZONE,lPRDFO,~SEX2l=rFRO[lZONE,IPQOFO,NSEx2[~rFQQ2
N S U 0 3 2 9 0
C _ _ _ _ _ _ _ _ R E U N I O N OES S E X E S t SI D E U X S E X E S I___________
- _ _ _ _ _
MSUO3300
.3 -?W’l8G%l.EO.31
G O TO 2 8
NSUO3310
YrSE*=3
WSUO3320
7FR~[[ZON~,[PROFO,UrSEK[.rFWOlIZOiiE,1PROFO,l[~TFR~[I2ONE,I~ROFO,2~NSU03330
N~C~[[ZONE,[PROFO,N~SEX[~NECH[IZONE,~PROFO,I[~NEC~[IZO~~~[RROFOI~~~SUO~~~~
~~~s~(lZONE,1PROFO,NrsEX[=NNESU[IZONE,IPROFC,I[~N~ESU[IZONE,IPROFOM5UO335O
a,21
NSUO3360
~LN~~,[ZONE>~PROFO,W~~~K[=~MA~~~CL~A~~IZONE,~PROFO,[[,CL~~K[~ZONE,NSUO~~~O
6lPRO=O>2I
1
N S U 0 3 3 0 0
NCL4S[[ZON’,[PROFO,MrS~X[=~4X[~~CL4S[lZONE,1PROFO,[[,NCL4s[IZONE,1PNSUO339O
6RtlF0,Zl
l
NSUO3400
DO 1 5 2 K=l,NCL4S[IZONE,IPROFO,YTSEX)
wsu03410
FR~[1ZONE,IPROFO,MrSEX,K13FRP(IIONF,IPROFO,I,K[~FR~[[ZONE,IPROFO,2MSUO342~
L,KI
MSUO 3 4 3 0
152
C O N T I N U E
NSUO3440

---

A N N E X E X I
( s u i t e )
MSU03450
C$$$$$$$t$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$MSUO346~
C
LECllJSE D
E
S

‘,ENSJRArIONS SUIV4NrES au4No L
E

rR*trmENr
A crE FAIT MSUO3470
C$$$$$*$$$$?$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$4$$$$$$$$$$$$$$$$$$$$$$$$$Msu034~0
26
lFlINDEX.EP.01 GO
r0
281
MSUQ
1490
READ(JNIr=4,FYrr4)NSrAr,IPROFO,IOUR,tZONE
~su03500
G O r3 1 0 0
YSUO3510
2Yl
00 160
J-1,20
wsu03520
READll,S,IOSrAr=IERRI*

usuo 35 30
IF(ICRR.Lr.01 C O r o 9 9 9
MSU03540
RE4oiuvIr:A,Fwr=6lIrw
MSUO
3550
IFlIr1P.EQ.11
GO ro 29 MSUO 3560
160
CONTINUE
MSUO 3570
29 REAO(u~Ir~ArFMr=4~NsrAr,~PRoFo,!~uR,~Zo~~
~SU03SRO
INDEX=1
rlsuo3590
G O ro 1 0 0
H S U 0 3 6 0 0
WSUO3610
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$MSUO3~~0
C
PONOZRLrlOYs P4R L E S P R I S E S GLORALES (PAR LONE,PROFONDEUR,SEXE
)
MSUO3630
C$$$$$$$,$t$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$MSu~364~
9 9 9
00 170
ILONE=1#3 MSUO 3650
D O ,Y0 IPROFfl=I,P
“ S U 0 3 6 6 0
IFIISPOIOl12ONE,tPROFOI.NE.O)
GO
r0 221
WSUO36 70
F12=0.
HSU03680
G O ro 2 2 2
MSU03690
2 2 ,
R2sFL04rlIPOIOS~ILONE,IPROFO)IIFLOLT(LSPOlOlIZONE,IPROFOl)
M S U O 3 7 0 0
2 2 2 00
190
MSEX=I,3
YSUO3710
00 220
1=1,.?00
WSUO3720
IFR~IIZOYE,IPROFO,MS~X,Kl=I~r~FR~~IZONE,IPROFO,MSEX,K)$R2~O.4~
MSUO3730
220
IrFAPlIZONF,IPROFD,HSEX~=IrFRJ~~ZONE,IPROFO,MSEX~~IFR~lIZONE,IPROFUSU0374~
6O,USEX,KI
MSUO3750
190
CONTINUE
MSUO3760
1YO C O N T I N U E
HSU03770
170
CONrINUE

MSU03780
Ysuo37PQ
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$~~~$$$$$$$$$$$$$$$$$$$$$$$$$$MS~~3Y~~
C
rR*IrEHENrs
rourEs ZONES, TourEs P R O F O N D E U R S )P*R SEXE Er SEXES
MSU0381O
C
R E U N I S
*ISUO3820
C+$$$$$*$$$$$$$*$$$$$$$$$$$$$$$$$$$$*$~$$$$$$$$$$$$$$*$$$$$$$$$$*$$$$$$$~Suo3~3~
MSU03840
C - - - - - - - - - riJUrES ZONES P * R PROFONDEU”_-__---____________________
MSUO3850
1 rzOYE=4
MSUO3860
0 0 2 3 0 IPROFD=I,9
YSUO3B70
0 0 2 4 0 MSEx=1>3
MSU038YO
0 0 2 5 0 [ZONE-I,3
NSUO3890
IrFRQ( 1 TZONE, l~ROFO,~SEXI=IrFRQl
IrZOYE>IPROFO,MSEX)~IrFRQ~IZONE,
M S U 0 3 9 0 0
6rPno=o,HsExl
MSU03910
NECH(lrZONE>IPRUFO,MSEY):NECHIIT
ZONE,IPROFO,YSEXltNECtilIZONE,
HSUO 3920
IIPROFO, YSEX 1
MSU03930
NMESJ(IrZOYE,I~ROFO,YSEX~=NUESU(
IrZONE,IPROFO,~SEXl*NYESU(IZONE>
MSU03940
AIPROFO,
YSEX 1
usuo3950
CLYAX(IrZONE,IPROFO,uSEX)-4HIYI(
CLN4XlITZONE,IPROFO,NSEX~,CLMAX
WSUO3960
L(IZOYE,IPROFO,~SEXII
NSUO3970
NCLAS(IZONE,IPQ0FO,NSEX~=I~rlCLMAXlIZONE,IPROFO,MSEXl~AUGM~EPS~
N S U 0 3 9 8 0
NCL4S(IrZOYE,IPROFO>~SEXl=~4X~NCL4SlIrZONE,IPROFO,NSEX~,NCLASlIZONMSUO399O
SE,IPROFD,MSEXI~
NSUO4000
0 0 2 6 0 K-1 ,NCL*SlI
TZONE, IPROFO,qSEX t
MSU04010
[FR~([rZoNE,IPROFO,NSEX,Kl=IFRQl~rZONE,IPROFO,MSEK,Kl~IFR~lIZON~,
N S U 0 4 0 2 0
AIPRO=O,MSEX,Kl
r1suo4030
2 6 0 CONrINUE
MSU04040
2 5 0 C O N T I N U E
MSUO4050
2 4 0 CONIINUE
NSUO4060
2 3 0 C O N T I N U E
NSUOQO 70
wsu04060
NSUO4090
C ----rOUrI5 PROFOYDEURS P4R Z O N E -____-____---_______________
MSU04100
3 1 1 TPROFZ10
NSU04110
D O 3 2 0 IZONE=l,3
USUO4120
0 0 3 3 0 NSEX=l,3
usu04130
D O 3 4 0 IPROFO=I,9
MSUO4140
IrF~?lIZONE,IrPROF,YSEX
:IrFR~lIZONE,IrPROF,MS~X~~IrFRQlIZONE,IPROMSUO4ISO
IFO,YSEX l
MSUO4160
NECHI IZONE, IrPROF,YSEXl
5,NEC,,1 [ZONE, IrPROF,NSEX)+YECHl
[LUNE, IPROFD,HSU041 70
&NSEXI
NSUO4lflO
NNESUI I ZONE, 1 TPROF ,NSEX l =NHESUIIZONE,IrPROF,MSEXl~NNESU~IZONE,IPRO~SUO4l9O
dFO,NSEX)
NSUO4200
CL’44xiILONE,IrPROF,MSEX
I =A~AxlICLN4XlIZONE,IrPROF,~SEKl,CL~AXlIZDNUSUO42lO
SE,IPROFO,MSEx)I
NSUO4220
YCLAS(IZONE,IPROFO,NSEx
=INrfCLMAXILZONE,I~ROFO,USEXl/AUG!.!*EPSl
NSUO4230
YCL4S1 IZONC,IrPROF,NSEX
=N4XlNCL4SlIZONE,IrPROF,HSE*)>NCL4S(IZONE,NSUO424O
IIPRUFO,NSEK))
N S U 0 4 2 5 0
D O 3 5 0 K=I,NCL4SlIZONE,IrPROF,~SEXl
NSUO4260
IFR3~IZONE,IrPROF,MSEXIKI.IFRPIIZONE,IrPROF,MSEX,Kl~IFRQlIZONE,IPR~SuO427O
%OFO,MSEX,Kl
MSUO42RO
350 CONrI Y U E
s(SUO4290
3 4 0 CONr INUE
NSUO4300
3 3 0 COvrINUE
MSUO4310
3 2 0 CONTIYUE
WSUO4320

---

A N N E X E
X I
(suite)
usu04330
MSUO4340
C ---1OUlES
zoves
cl TOUTES PROFoNoiURs-~~~-~~~~_____________,__MSUO4350
3 2 1 lZONE=Q
MSUOI 360
r ~~R~F=Lo
HSu04370
D O 4 1 0 MSEX=I,3
MSU04330
D O 4 2 0 IZONE=1,3
wsuo4390
~lFR~(~lzON~,IlPROF,USEXI=flFQf~~tlZO’~F,llPRl:F.HSEXltIlFRQ(tZONE,
H S U 0 4 4 0 0
41 CPROF, WSEX 1
M S U 0 4 4 1 0
NECH~ITZONE,~lPROF,HSEXl
NECHI I lZONE, IlPROF uMSEXl .NECH( LZONE,
H S U 0 4 4 2 0
ZITPR3F,YSEX)
HSUO4430
NHESUI I lZONE, 1 lPF!OF,YSEX
=NYESU(IlZONE,IlPROF,MSEXI+NHESUIIZONE,
MSU04440
L K IPROF , HSEY I
wsuo445o
CL’4AYIIlZONE,llPROF,MSEX
=AMAXl~CLMAY~IlZONE>llPROF,MSEXl,CLMAXlIZMSUO446O
CONE,IlPROF,YSEXIt
MSUO44 70
NCLA5lIZONE,IlPROF,MSEX1
INllCLHAXl
[ZONE, tlPROF,MSEX~/AUGM~EPSl
MSUO4480
NCLA5(llZONE,IlPROF,MSEX1=MAX~NCLASlllZONE,KlPROF,MSEXl,NCLAS(~ZONMsUO449O
LE>Il~ROF,MSEX1l
HSU04500
D O 4 3 0 K=l,NCLASlIlZDNC,1lPROF,MSEXl
MSUO4SI 0
IfRQlIlZONE,IlPROF,YSEX,Kt=tFRD~IlZONE,~lPROF,MSEX,K1~fFR~[~ZONE,
MSUO4520
61lPR3F,WSEX,KI
MSUO4530
4 3 0 C O N T I N U E
MSUO4540
4 2 0 C O N T I N U E
usuo4550
4 1 0 CONlIYllE
MSUO4560
MSU04570
wsu04580
C94~+,*O*S4*4t444B4~444~4~~4~~~44*4~~~~4~44~4~~44~4~4~~~444~~4~444~444~4MSu04590
C
C A L C U L D E S F R E Q U E N C E S RELIT1 VE5
MSU04600
C440444C4444444444044444444444444444444444444444444444444444444444444444MSUO4b;O
3 3 0 0 4 6 0 lZONE=1,4
MSUO4620
D O 4 7 0 IPROFO=I,IO
MSUO4630
DCI 480 MSEX=I,3
WUO4640
IFIIlFRQIIZONE,IPROFO,~SEXI.E3.Ol
GO 1
0

480
MSU04650
D O 4 9 0 K=l>NCLAS~XzUNE,IPROFO,MSEx)
MSUOQbbO
FR3P~ILONE,IPROFO,MSEX,K1=FLOAliIFRPfIZONE,lPROFO,MSEX,KIl4lOO./
MSUO4670
LFLD4l~IlFRQ~ILONE,IPROFO,MSEXll
MSUO4680
~FRO~~I~ONE,IPQ~FO,MSE~~=~F~~QQ~~~ONE,~PR~FO~~SEX~~FR~R~~ZON~,~PROFMSUO~~~O
bO,MSEX,Kl
MSUO4 700
4 9 0 C O N T I N U E
MSUO4710
4.90 CON1 I YUE
MSU04 720
4 7 0 CONTINJE
MSUO4730
4 0 0 COYlINJE
r(suo4740
w s u o 4 r50
C44404444444444444~44444~44444~444~44444~4444444444444444444444444444444MSUO47~~
C
E C R I T U R E S
MSlJO4770
C44440446utQ0004****~**~~4~~~~~~~~~~~~~~**~~~~~~~~*44~~*~~~*~~~~?~~4~4~4M5U~47~~
D O 5 1 0 tZONE=l,4
MSU04 790
IFItLONtIE,IZONE1.Eû.O1
G O 10 5 1 0
nsu04800
D O 5 2 0 IPROFO=I,lO
HSu04810
IF(IPROFlIC,IPROFOI.EQ.O~
GO 1 0 5 2 0
MSUO4FJ20
D O 5 3 0 MSEX=1,3
MSU04a30
IFlllFQ?l
IZOYE, IPWOFO,MSEXi
.EO.Ol G O 1 0 5 3 0
HSU04840
URIlEI5r341ESPIIEl,ZONElfZONE1,~ROF~~PROFOl,SEX(MSEXl
MSUO4850
34 FOAMh 1 ( ’
HI510 P O U R : E S P ’ ,A24,’ Z O N E ‘,A13,’ P R O F ‘,A19,
NSUO4860
6’ SEXE ‘,A111
wsu04870
C
----_-------_-__-----------------------------------------------
nsU04a80
C
+itsroGR**uEs
HSUO4890
C
---------_--___------------------------------------------------
MSUO4900
IMAx=o
Msuo4Ylo
IPAS=lFIX(l./VCLSIIZONE,IPROFO,MSEX,lII
MSUO 4920
IPREM=PREMlIEl4IPAS
MW04930
I
F
tIPREM.EP.OI
IPREH-
MSUO4940
IDERN-OERNI IEI4tPAS
MSUO4950
0 0 5 4 1 KS=IPREN,IDCMN
MSUOQY60
KrKY-LPREMrl
HSUO49 70
D(K1=IFlX~FRPR~IZONE,IPROFO,~5EX,KBl41001
HSU04980
lMAX=MAXO(KMAX,OlKt1
YSUO4990
541
C O N T I N U E
Msu05000
c --------“--------_--------------------------
MSU05010
C
C A L C U L OE L A B O R N E S U P E R I E U R E
Msu05020
L1=I=IXfALOGlOlFLOAlIIU**)I)
* s u 0 5 0 3 0
I
F
l~1.Ll.11
Ll=l
wsu05040
L1’1044L1
M!%U05050
IMAx=l IMAX/LI rl14Ll
MSU05060
fFlfMAX.Ll.IOl
tMAX=lO
YSUO50 70

---

A N N E X E X I
( s u i t e )
c -_----_--_----------____r_______________----
Mstl05080
C C A L C U L JE5 pAl?AWErRES
D E S HISrDGRAHMEs
MSU05090
NBC+IOERN-IPREYbI
MSU05100
VI=VCLS(IZONE,IPROFO,MSEX,tPREN~
usu05110
V3=VCLSIIZONE,IPROFO,MSEX,ll
MSUO5120
CALL ISro6lD,NRC,Vl,V3,10
.,IYAX,.5,.5,1,BO>IBN~
HSU05130
Ar’ESPECE : ’
HSU05140
A110’331:EsP~IEI
MSUO5150
CALL PCH4410.
I
MSUOSi60
As’ZJNE : ’
M5u05170
Al8:20l=ZONEt
ZONE 1
USUO5180
C4LL PcH44lo.
1.,0,4,20,.1-5,.2,1.,0.)
MSU05190
A=‘??OFONOEUR
:
’
!4su05200
A1 14: 32 )=PROF
I P R O F O I
NSUOS210
CALL PCHAA(0.
.S,O,A,32,.
L5,.2>1.,0.~
usuo5220
AZ’SCXE : ’
USUO5230
A(A:l8lrSEUiU
6 EX)
H S U 0 5 2 4 0
C4LL PCn44l0.,0.,0,4,1~,.151.211.,0.)
MSU05250
C A L L PCH4410.,-.5,0> ‘NOMORE O”ECH4NrILLONS
:‘,23,.15,.2,1.,0.~
H S U 0 5 2 6 0
F~FL~A~(NECH(IZONE>IPROFO,MSEXI)
H S U 0 5 2 7 0
CALL YOYYA(A.,-.s,O,F,-l,.15,rE,I.,O.I
HSU05280
C4LL PCHAAlO.,-l.,O,
‘NOMRRE D”INOIVIOUS M E S U R E S : ’
H S U 0 5 2 9 0
6,27,.15,.2,1.>0.~
HSU05300
F:FLOAr~YMESUIIZONE,
IPROFO,NSEXl)
MSUO5310
CALL NflY9414.5,-l.,o,F,-11.15,.211.,0.1
HSU05320
CALL PNUYAlO.,-3.,NULOC,0.,‘O.l
MSUO5330
1EW=1
MSU0534O
5 3 0 CONrINUE
HSU05350
5 2 0 CONTINUE
MSUOS360
510 C O N T I N U E
MSlJ05370
fFfIE.EO.NEspt
G O r0 2 0 0 0
USU053R0
AEUIYO 1
HSU05390
1 0 0 0 CONIIYUE
usu05400
usu05410
2 0 0 0 NWLOC=9999
WSUOS420
CALL pNU~4lO.,O.,NtlLOC,O.,O.~
NSUO5430
s r o p
YSUO5440
EN0
MSUO5450
C ----------------------------------------------------------------------“SuO5460
SUEIROUTINE PCHAAIX,V,J,CHAINE,L,HX,HV,COS,SINl
N S U 0 5 4 7 0
C
rRADUCr!ON F N INrECER Er E C R IrURE
Wsu054RO
OIIYEYSION
rABLEt2Ol
NSUO5490
rt4rEzFo rdnt E
YZ11”9=,00
C~~HACIER~BO C H A I N E
*suu~51u
READ(CHAINE,201 T A B L E
NSUOSS20
ZQ
FORY4r~20441
MSU05530
C A L L PCARAlX,V,J,rABLE,L,HY,HI,COS,SlNl
MSU05540
RErUqN
N S U 0 5 5 5 0
EN0
NSU05560
C ----------------------------------------------------------------------NSUOSS70
MSUOSSRO
C
NSUOSS90
C
0
TADLE4U D E DISrRIElurION
Nsu05600
C
NWC
NB D E CL4SSES
NSUO5610
C
VI
CENTRE I E R E CL4SSt:
NSUO5620
C
v 3
P A S I N T E R - C L A S S E
MSUOS630
C
CI?AO
GR40UArlON A X E D E S X TOUrES L E S N V A L E U R S
NSUOS640
C
E X E M P L E : P O U R L E S CLASSES 0~ 2 0 A 100 GRADUEES TourEs L E S
NSUO5650
C
1 5 V A L E U R S O N 4UHA UL=20.,V3=l.,GRAD=lS.
N S U 0 5 6 6 0
C
C E Q U I D O N N E R A S O U S L ’ A X E D E S Y
YSUOs6 70
C
20~0...,.3~.0.....50.0...,.65.0.....30.0.....9S.0..100,0
NSUO5660
C
NSUO5690
C
IEF
E F F E C T I F M4X
NSUO5700
C
F A C X
E C H E L L E S U R X
NSUO5710
C
FACV
E C H E L L E S U R Y
19 TR4CE RENSON ON/OFF L I N E 9(1
NSUO5720
C
IOP
1 : EFFECrIFS
GESr. 4UrD. P A G E
NSUOS730
C
2 : F R E Q U E N C E S C U M U L E E S
NSUOS 740
C
*0,4CCO~~~Qh~0~~~0~t~$~~~$~$~~~*~~~4~~$~$~~~$~~~~~~
MSU05750
C
0 B U R E A U C A L C U L BREST
0 NOUIFIE P A R A L A I N PERRAS 9
MSUOS760
C
* 1 9 7 7
LECHAUVE J - J
Q 1984 EIURE4U C A L C U L CRODr *
NS~05770
C
**lç~U*0ttê9~0*0~90fb~~~*~~~~~~~~~~4~~~~~~~4~~~~~~~
HSU057RO
C
9
R E V U *IRC LtOCHON
- 19134
RUREAU
C4LCUL
CRODr q
NSUO5790
C
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
NSUO5.300
CO*MON N B L O C
NSUO5.310
D I M E N S I O N Dlll~Ir(lO~
MSUO5820
INrEGER 0
NSUO5630
DIT4 XMAX/O./
HSU05640
HX=.ZbFACX
NSUO5850
HV=.3eFACV
NSU05660
I
F
(ION) 70,5,20
NSUO5870
c
5
C A L L l8ENAIIOUF,l024,10)
~su05860
C
NBLOC = 1
YSUO5690
5
IWY*l
M S U 0 5 9 0 0
VLP=FLOAriLPCNl
NSUOS910
10
C*CL PNU~AlX~AXrS.,VLP,NELOC,O,,O.l
NSUO5920

---

4 5
A N N E X E X I
(suite)
rLP=o.
YSUO5Y30
*NAx=o.
HSU05940
2 0
rL=lO.*F4Cr
NSU05950
XL=IO.*FACX
MSU05960
rLP4=rLP*rL*I r 9 . 5
MSU05970
I F I*LPA.G~.FLoATILPCN~
1 G o r o 1 0
Msuo59tlo
rLP=rLPA
MSUO5990
I
F
(XY4X.LT.XLl XN4X=XL
*15u00000
CALL PVU’dAIO.,O.,NOLOC,O.,YLI
HSUO6010
C
rR*CE 4*c D E S Y
H S U 0 6 0 2 0
*=rL
MSUO60 30
PVIfL/S.
usuooo4o
I
F
IUfl~llF=.Sl.EO.OI
NsFLO47IIEFI
M S U 0 6 0 5 0
I
F
tiU>llE=,5l.NE.OI
d=~ItEF/S+L105~rO.
MSJO6ObO
I
F
1 t3~.EQ.21 U=lOO.
‘4SUO6070
v=ll/100.
MSUObO80
PV=v/S.
USUOOOPO
C4LL PCH44l.I,O.,2,‘X’,I,~X,Hr,~.,O.~
Nsu06100
CALL rR4Al-.l,o.,zt
MSUO6lLO
C A L L TRAI(-.l ,O. 121
r(SUO6120
D O 3 0 I=l,5
NSUO6130
C A L L ~3~~A(-O.S,O.,2,V,-l,~X,~r,l.,O.~
Nsu06140
C~LL rR*rto.,r,ol
NSUO6ISO
Y=Y-SV
@4SUOOlbO
v-v-PV
NSUO6170
CALL rRA4(o.,r,ll
WSUO61 BO
CLLL TR441-.1,0.,31
MSU06190
3 0
COYrlNUE
N S U 0 6 2 0 0
C A L L NOYRA(-.S,O.,Z,V>-l,HY,H*,l.,O.I
NSUO6210
T R A C E HISIOGRANNE
M S U 0 6 2 2 0
soro.
USUO6230
ErslL/v
WSUO6240
0 0 3 5 t=I,NOC
N S U 0 6 2 5 0
3 5
SD.SDIFLOATlDIIl)
MSUO6260
x-0.
NSUO6270
w.L=XL/FLOATlNElCl
N S U O 6 2 8 0
C A L L rR*A(O.,-.2,0)
NSUO6290
r=o.
USUO6300
yo=o.
USUO6310
CIO 40 I=l,NBC
N S U 0 6 3 2 0
I
F
(IJP.EQ.11 V=Er*FLO4rIDIIII
NSUO6330
I F [IOP.EQ.Zt
r - r ~lFLO*rlD~I~I/SO)*YL
N S U 0 6 3 4 0
VOsNfNl I,YO I
N S U 0 6 3 5 0
C4LL rRAAlx,r0,o~
MSUO6360
ro=r
MSUO63 70
C A L L TR44tx,r,l~
MSUO63.30
X-XIXL
NSUO6390
CILL rR44lK,*,l)
MSUO6400
40
C A L L rRA*lX,-.l,lI
NSUO64LO
C A L L rR44lO.,.l,2)
NSUO6420
CALL TRAAiO.,O.>l)
H S U 0 6 4 3 0
IDENrIFIC4~ION
A X E X
MSUO6440
#.Vl~V3LFLO4~lNOC-I~
MSU06450
XUL-1.
YSUO6460
0 0 5 0 NCH-117
MSU06470
XUL=XUL*lO.
YSUO6480
I F (XUL+Y.GE.I
,E+31 G O r0 6 0
YSUO6490
su
C O N T I N U E
MSUO6500
NCH=-3
NSU06510
GRADU4rION
DE L’4X.E D E S Y .
NSUO6520
6 0
C A L L EECENAI XLf2. ,-.3,0,27, .33FACX, .JOFACY, 1. ,O.,
NSU06530
C4LL NBDEC(VI,NCH,NCl
HSU06540
CALL NONRAIO.O,-
.6,O,Vl,~C,H~,Hr,I.,o.~
N S U 0 6 5 5 0
LtNt~=~~Vl~FLOATiNBC-2~~V3l-Vl~/GR4D
MSUO6560
I F iLIwlr.Lr.11 G O ro 68
H S U 0 6 5 7 0
D O 6 5 KK=I,LINtT
N S U 0 6 5 8 0
VsV, rGRAD9KK
N S U 0 6 5 9 0
*.~V-vlIQYL/V~
HSUO6600
CALL U~CENI(Y+XL/L.,-.~IO~~~,.~~F*C~~I.~O.I
wsu06610
C A L L NRDECIV,NCH,NCI
M S U 0 6 6 2 0
C A L L NoNBAl U,-. b,O>J,NC,HX,~ir,l.,O.l
USUO6630
6 5 C O N T I N U E
YSUO6640
6 8
V=Vl *FLOATtNBC-1 )+v3
M S U 0 6 6 5 0
X=XL$FLOArfNElC-1)
YSUO6660
C A L L BECEN~IY*XL/Z.,-.~,O,~~,.~~FACX,.~*FACY,I.,O.I
r(SUO6670
C A L L NRDECIV,NCH,NC)
MSU06680
C A L L ‘JONClA I X ,-.6,O,V,NC,HW,M*,l.,O.~
N S U 0 6 6 9 0
C A - L PWNAlO.,-2.5,NBLOC,O.,O.l
H S U 0 6 7 0 0
RETU2N
NSUO6710
TO
NBLOC’P99Y
MSUO6720
C A - L PNU~A~O~~O~~NEILOC,O.,~.~
NSUO6730
REruRN
MSUO6740
EN0
MSUO6750

---