CHA?NE DE PROGRAMMES INFORMATIQUES UTILISES POUR ...
CHA?NE DE PROGRAMMES INFORMATIQUES UTILISES POUR
LE TRAITEMENT DES MENSURATIONS EFFECTU?ES AU
Alain
CAVERIVIERE
PORT DE DAKAR SUR LES ESP?CES D?MERSALES
D?BARQU?ES PAR LES CHALUTIERS
ARCHIVE
C E N T R E OE R E C H E R C H E S OC?ANO6RAPHIQUES D E D A K A R - TIARQYE
No 147
* I N S T I T U T S ? N ? G A L A I S D E R E C H E R C H E S A G R I C O L E S rl,
M A I 1986

CHI~!NE DE PROGRAMMES INFORMATIQUES UTILIS?S POUR LE
TRAITEMENT DES MENSURATIONS EFFECTU?ES AU PORT DE T3A!(AR
SUR LES ESP?CES D?MERSALES D?BARQU?ES PAR LES CHALUTIERS
CAVERIVICRE Alain
R E S ST M E
L'article d¨¦crit le syst¨¨me de traitement informati-
que employ¨¦ au Centre de Recherches Oc¨¦anographiques de
Dakar-Thiaroye pour transformer les mensurations d'6ch,v-
tillons,pris au port sur les esp¨¨ces d¨¦mersales d¨¦barqu¨¦es
par les chalutiers, en distributions par p¨¦riode
et zone
de p¨ºche pond¨¦r¨¦es par les prises.
A B S T R A C T
This paper describes the computer processing system
in use at the Oceanographic Research Center of Dakar+.Lilia-
roye for the transformation of the samples size frequency
data, collected at the port on demersal species landed by
trawlers,into length distributions raised to total catch
by periods and areas.

I N T R O D U C T I O N
Depuis 1973 le Centre Oc¨¦anographique de Dakar-Thiaroye collecte de fa-
c;on syst¨¦matique des mensurations de poissons et crevettes r¨¦alis¨¦es par ses
agents dans les diff¨¦rentes usines de transformation de Dakar. Ces mesures
concernent les principales esp¨¨ces d¨¦barqu¨¦es par les chalutiers et
elles
sont ensuite cod¨¦es sur un bordereau (annexe 1) dont la description a d¨¦j¨¤
¨¦t¨¦ effectu¨¦e dans un rapport interne(l). Les donn¨¦es sont ensuite saisies
sur disquettes puis trait¨¦es ¨¤ l'aide d'un ordinateur IBM, en quatre temps,
afin d'aboutir ¨¤ des distributions de fr¨¦quence pond¨¦r¨¦es par la prise des
chalutiers.
1 .
T R A I T E M E N T
D E S
M E N S U R A T I O N S
A V A N T
P O N D E R A T I O N
1.1. PROGRAMMES MSUCTR, TRICOM, MSUPOI, PRBINl
Dans un premier temps (fig. 1) Le contenu des disquettes est transf¨¦r¨¦
sur disque et contr?l¨¦ par le programme MSLJCTR (langage COBOL) ex¨¦cut¨¦ par
1'EXEC XMSUCTR(2). Ce programme (annexe II) v¨¦rifie que la somme des fr¨¦-
quences des diff¨¦rentes classes est ¨¦gale ¨¤ la fr¨¦quence totale indiqu¨¦e
sur le bordereau ; il d¨¦tecte ¨¦galement les impossibilit¨¦s pouvant survenir
dans le codage du mois, du secteur et dans la s¨¦quence des cartes suites.
On notera que certaines erreurs, en particulier certains d¨¦calages de colon-
nes dans la saisie des donn¨¦es, ne sont pas d¨¦tect¨¦es par le programme de
v¨¦rification, un contr?le visuel soigneux est toujours n¨¦cessaire.
Les fichiers disque sont nomm¨¦s MENSU 1 ¨¤ MENSU (x) DATA, ils sont
ensuite r¨¦unis en un fichier MENSUT DATA.
TRICOM est un simple tri successif des donn¨¦es sur les ensembles :
AN-MOIS, FAMILLE-ESPECE, JOUR-MAREE-BATEAU, SEXE, MOULE, CARTE SUITE. Le
tri est ascendant sauf pour les cartes suite.
Le nouveau fichier tri¨¦ s'appelle
MENSUT SORTOUT.
Ensuite le programme MSUPOI (annexe III) calcule le poids des ¨¦chantil-
lons de fr¨¦quence des principales esp¨¨ces.
Il utilise diff¨¦rentes rela.tions
taille- oids, de la forme log P(g) = log a + b log L,issues des travaux du
CRODT(3 .
P Les valeurs de a et de b sont donn¨¦es dans le tableau 1. Le pro-
gramme MSUPOI imprime des-messages d'erreurs quand le poids calcul¨¦ est in-
f¨¦rieur ¨¤ 1 kg ou sup¨¦rieur ¨¤ 200 kg pour les poissons et quand le poids
d'un ¨¦chantillon de crevettes est sup¨¦rieur ¨¤ 10 kg. Il faut alors v¨¦rifier
la taille de la premi¨¨re classe ou la valeur de l'incr¨¦ment. Quand une esp¨¨ce
n'a pas de relation taille-poids connue la mensuration est conserv¨¦e sans
modification. Toutes les mensurations,
avec les poids calcul¨¦s ou non, sont
plac¨¦es par le programme dans un fichier binaire nomm¨¦ MENSPOT DATA. Ce fichier
(1) Traitement informatique standard des statistiques de p¨ºche au CRODT.
Premi¨¨re ¨¦tape. Rapport interne, juillet 1979.
(2) L'EXEC de tous les programmes porte le nom du programme pr¨¦c¨¦d¨¦ de
la lettre X, nous ne rappellerons donc pas le nom des EXEC dans la suite du
texte. En toute rigueur on devrait parler de fichier commande et non d'EXEC.
(3) La plupart se trouvent dans le document scientifique r¨¦f¨¦renc¨¦
FRANQUEVILLE C. et FREON P., 1976 : Relations poids-longueur des principales
DEn.?s,poE A.2 ?-,n; cTe7n3-s" .n.tr:n.-. 2.. PC,<-", onnnm 7. 0 --
0 fn

Ll0ISOUE
TRICOM
l-l
T R I C H A
/
1flENSU T
ENsFQl
ORTUJ
FIIl-t
ORTOUT
El
M S U P O I
F i g u r e l.- Traitement des mensurations avant pond¨¦ration,

4
ESPECE
Arius gambiensis
A r i u s sp.
Ga Zeoides decaductylus
Epinephe 224s aeneus
Pomadasys incisus
Pomadasys jubelini
Pomadasys peroteti

Diagranuna medi terraneus
Umbrinu canariensis

PseudotoZithus elongatus
Pseudotolithus typa
Pseudotolithus senegalensis
Pseudupeneus prayensis
Dentex canariensis
Dmtex macrophthaZmus
Dentex ango Zensis
Pagellus ,hrLlot:tii

Pagrus i?aeJ% !~eccstictus
Drepane africana
BrotuZa baxbata
cynogzossus canariensis
Cynog7vr,sOqs monodi
Cynog Zossus senega lensin

Penams
duorarum S
Tableau I.- : Relations longueur-poids de la forme
log P (g) = log a + b log-L
(1) LF = longueur ¨¤ la fourche caudale ; LT = longueur totale
Lc: = longueur c¨¦phalothoracique

5
peut ¨ºtre lu et imprim¨¦ ou visualis¨¦ par l'ex¨¦cution de PRBTNl (ou PREINlA
pour une ann¨¦e choisie ; il en sera de m¨ºme par la suite pour les autres pro-
grammes de lecture).
1.2. PROGRAMMES CHAMSl, TRICHA, PRBIN2
Le programme CRAMSI pr¨¦pare la pond¨¦ration des mensurations par la prise
des chalutiers d'o¨´ elles proviennent en ajoutant ¨¤ chaque enregistrement le
code de l'esp¨¨ce utilis¨¦ pour les statistiques chaluti¨¨res. Le tableau II
donne les correspondances entre les codes esp¨¨ces utilis¨¦s pour les mensu-
rations et ceux utilis¨¦s pour les statistiques. On remarquera qu'un m¨ºme
code statistique correspond souvent ¨¤ plusieurs esp¨¨ces qui ne sont pas
s¨¦par¨¦es au d¨¦barquement. Le programme charge les enregistrements modifi¨¦s,¨¤
l'exception de ceux correspondant ¨¤ des esp¨¨ces n'ayant pas de code statis-
tique, dans un fichier binaire nomm¨¦ MENSPOIP DATA qui peut ¨ºtre lu par le
programme PRBIN2.
Pour pr¨¦parer la pond¨¦ration,le fichier MENSPOIP DATA est ensuite tri¨¦
par TRICHA dans l'ordre : ANNEE, Na MAREE, CODE ESPECE STATISTIQUE, CODE
ESPECE MENSURATION, SEXE, MOULE, CARTE SUITE. Le tri est ascendant sauf
pour le module CARTE SUITE. Le fichier binaire MENSPOIP SORTOUT r¨¦sultant
peut ¨¦galement ¨ºtre lu par PRBIN2.
2
. T R A I T E M E N T
D E S
S T A T I S T I Q U E S
D E
P R I S E S
2.1. PROGRAMMES CHAMJZG, PRBIN3
Les prises par esp¨¨ce pour chaque mar¨¦e sont contenues dans des fichiers
binaires nomm¨¦s ESPI DATA ¨¤ ESP(34) DATA qui contiennent chacun les donn¨¦es
pour une "esp¨¨ce" statistique et qui sont cr¨¦ds ¨¤ partir des fichiers statis-
tiques initiaux STADEM DATA par une s¨¦rie de programmes (fig. 2) que nous ne
d¨¦taillerons pas ici car il ne s'agit pas de programmes sp¨¦cialement cr¨¦¨¦s
pour lc traitement des mensurations. Ces "esp¨¨ces" correspondent aux appel-
lations commerciales utilis¨¦es lors de la vente des prises captur¨¦es par les
chalutiers. Le programme CHAMEG regroupe (fig. 3) les esp¨¨ces qui nous int¨¦-
ressent pour les mensurations (cf. tab. II) en un fichier binaire MEGASP DATA
qui peut ¨ºtre lu par PRBIN3.
2.2. PROGRAMMES TRIMEG, SOMPOI
Lc; fichier MEGASP DATA est ensuite tri¨¦ par TRIMEG dans l'ordre successif
as cenda nt : AN,MAREE, ESPECE STATISTIQUE. Le fichier r¨¦sultant se nomme MEGASP
SORTOLJT. Comme pour une mar¨¦e donn¨¦e,une esp¨¨ce statistique a pu ¨ºtre cod¨¦e
plusieurs fois lorsque la quantit¨¦ d¨¦barqu¨¦e a ¨¦t¨¦ trop importante pour ¨ºtre
indiqutde sur un seul enregistrement, il est n¨¦cessaire d'effectuer une som-
mation des poids dans ces cas. C'est ce qu'effectue le programme SOMPOI; le
fichier binaire r¨¦sultant s'appelle MEGAST DATA. MEGASP SORTOUT et MEGAST
DATA peuvent ¨ºtre lus par PRBIN3.

CODE
CODE
APPELLATION
SPECIFIQUE
STATISTIQUE
-
-
-
COMMERCIALE
Arius gambiensis
1202
17
Machoiron
Arius sp,
1204
17
Machoiron
Galeoides decadactylus
2203
31
Thiekem
E;-inephelus aeneus
3015
32
Thiof
3500
29
Sompatt
Pomadasys sp. ou spp.
3506
29
Sompatt
3507
29
Sompatt
Pomadasys jubelini
3502
29
Sompatt
Pomadasys rogeri
3503
29
Sompatt
Pomadasys peroteti
3504
29
Sompatt
Diagramma mediterraneus
3509
14
Dorade grise
Pseudotolithus typus
3910
0 5
Capitaine
Pseudotolithus senepalensis
3912
05
Capitaine
Dentex canarien&
4504
15
Dorade rose
Dentex macrophthalrttus
4507
15
Dorade rose
Dentex angolensEs
4510
15
Dorade rose
Pagellus X)c:ll¡®otkii
4517
20
Pageot
Pagrus ccwmtleoskictus
4524
15
Dorade rose
%3~S SPP*
4526
15
Dorade rose
Drepane a fricana
490 1
21
Disque
BrotuZa bczrbata
5601
03
Brotule
Cynog lossus sp,
7600
27
Sole langue
Cy?noglossus canariensis
7602
27
Sole langue
Cynog iOSSUS monodi
7604
27
Sole langue
Cynoglossus :;ezegaZen:;is
7605
27
Sole langue
Penaeus duorarum
8401
12
Crevette blanche
Tableau II.- : Correspondances entre les codes esp¨¨ces des mensurations et ceux
des statistiques de prises.

STADEM
6DATA
l-l
K-A B
J
cou
El
. /
ESPl
6 ESP 26 a - - - -
D A T A
D A T A
Figure 2.- Cr¨¦ation des fichiers binaires ESPl ¨¤ ESP34 DATA

E
r-l
CHAMEG
El
TRIMEG
cl
SOMPOI
Figure 3.- Traitement des statistiques de prise.

9
3 .
P O N D E R A T I O N D E
C H A Q U E
M E N S U R A T I O N
P A R L A
P R I S E D E
L A
M A R E E
PROGRAMMES (CHAMS2, PRBIN4)
Les pond¨¦rations sont effectu¨¦es par le programme CHAMS2 (annexe IV)
qui met en parall¨¨le les deux fichiers MEGAST DATA et MENSPOIP SORTOUT (fig.
4).
Le programme commence par r¨¦unir en une seule mensuration celles qui
ont ¨¦t¨¦ faites en s¨¦parant les sexes. Les mensurations r¨¦alis¨¦es au demi-
centim¨¨tre par d¨¦faut sont regroup¨¦es en centim¨¨tres.
La pond¨¦ration consiste ¨¤ multiplier chaque ¨¦l¨¦ment de la distribution
de fr¨¦quence (esp¨¨ce i, mar¨¦e j) par un facteur k, ce facteur ¨¦tant le quo-
tient du poids d¨¦barqu¨¦ (esp¨¨ce i, mar¨¦e j) divis¨¦ par le poids total des
poissons mesur¨¦s (espece i, mar¨¦e j). Le programme ¨¦crit aussi un certain
nombre de messages d'erreurs, les principaux ¨¦tant :
- "Erreur de code suite"
- "Cumul de classes d¨¦cal¨¦es"
- "Je ne trouve pas l'esp¨¨ce x dans la mar¨¦e y"
- "Je ne trouve pas cette mar¨¦e".
Les deux premiers messages correspondent le plus souvent ¨¤ deux mensu-
rations distinctes de la m¨ºme esp¨¨ce pour une m¨ºme mar¨¦e, ceci du fait d'une
erreur de codage sur l'esp¨¨ce, ou sur la mar¨¦e, ou sur un ¨¦l¨¦ment du tri qui
fait qu'une carte suite est prise pour une mensuration distincte de la pre-
mi¨¨re carte. Les deux derniers messages ne sont pas des erreurs ¨¤ proprement
parler ; l'esp¨¨ce mesur¨¦e correspond bien ¨¤ la mar¨¦e mais la prise est fai-
ble et n'a pas ¨¦t¨¦ comptabilis¨¦e pour une raison ou pour une autre dans les
d¨¦clarations de capture. Naus avons alors consid¨¦r¨¦ que la mensuration cor-
respond ¨¤ la prise totale et donn¨¦ en cons¨¦quence la valeur 1 au coefficient
k, Le m¨ºme raisonnement conduit ¨¦galement ¨¤ donner ¨¤ k cette valeur quand le
rapport poids d¨¦barqu¨¦ sur poids ¨¦chantillonn¨¦ est inf¨¦rieur ¨¤ 1,
Enfin, pour ¨¦viter qu'une petite mensuration prenne trop d'importance
dans la suite des traitements du fait d'un coefficient k tr¨¨s ¨¦lev¨¦, CHAMS2
Glimine les mensurations ¨¦gales ou inf¨¦rieures ¨¤ 10 individus quand k est
sup¨¦rieur ¨¤ 200.
Le programme transf¨¨re les mensurations pond¨¦r¨¦es dans un fichier binai-
re nomm¨¦ MENSTAT DATA qui peut ¨ºtre lu par le programme PRBIN4.
IL est important de noter que lorsque le code statistique regroupe plu-
sieurs esp¨¨ces de poissons, la pond¨¦ration pour une de ces esp¨¨ces conduit
a surestimer le nombre de poissons d¨¦barqu¨¦s de cette esp¨¨ce.
Une autre remarque concerne les codes suites qui sont transform¨¦s en
un ordre ascendant commen?ant toujours par 1.

1 0
MEGAST
6
NSFOI
6
DATA
S O R T
.
cl
CHAMS 2
MENSTA
6
SORTOU
I
Figure 4.- Pond¨¦ration des mensurations, calculs et pr¨¦sentations
des r¨¦sultats

1 1
4 .
C A L C U L S E T
P R E S E N T A T I O N
D E S
R E S U L T A T S
(PROGRAMMES TRIFREQ, FREQ, FREQBEN)
4.1. PROGRAMME TRIFREQ
Pr¨¦alablement au passage des programmes
FREQ ou FREQBEN le fichier MENSTAT
DATA doit ¨ºtre tri¨¦ par TRIFREQ dans l'ordre ascendant des valeurs suivantes :
FAMILLE, ESPECE, ANNEE, MOIS, No MAREE, CODE SUITE. Le fichier binaire r¨¦sultant
se nomme MENSTAT SORTOUT et peut ¨ºtre lu par PRBIN4.
4.2. PROGRAMME FREQ
Le programme FREQ (annexe V) calcule les fr¨¦quences de tailles rapport¨¦es
aux captures totales pour les diff¨¦rentes esp¨¨ces. Les r¨¦sultats sont pre-
sent¨¦s au choix par mois, trimestre, ann¨¦e, pour un ou plusieurs secteurs
regroup¨¦s ou non.
4.2.1. Param¨¦tres en entr¨¦e du programme FREQ.
LC programme a besoin en entr¨¦e, avant le fichier MENSTAT SORTOUT, des
valeurs des captures totales des esp¨¨ces par mois et zone. Ces valeurs sont
contenues dans un fichier nomm¨¦ JCLMSU DATA constitu¨¦ de x blocs de 7 enre-
gistrements (annexe VI). Le premier enregistrement contient les codes
FAMILLE-ESPECE, ANNEE (FORMAT 212,1x,12) correspondant au bloc; il est suivi
de trois groupes de deux enregistrements qui correspondent chacun 5 un secteur
Le premier enregistrement de chaque groupe indique le num¨¦ro du secteur suivi
des prises des six premiers mois en kg; ce num¨¦ro (colonnes 3 et 4) est pr¨¦-
c¨¦d¨¦ en premi¨¨re colonne de la lettre S, (FORMAT A4, 618) ; le deuxi¨¨me en-
registrement contient les valeurs des prises pour les six autres mois. Les
blocs que l'on souhaite utiliser pour un passage du programme FREQ seront
transf¨¦r¨¦s du fichier JCLMSU DATA dans 1'EXEC XFREQ en "cartes" param¨¨tres.
Il est important de noter que pour une esp¨¨ce les blocs de 7 enregistrements
doive& ¨ºtre plac¨¦s dans un ordre annuel croissant; il en est de m¨ºme pour
l'ordre des esp¨¨ces si l'on d¨¦sire en traiter plusieurs lors d'un passage
de FREQ,
Il faut aussi indiquer en param¨¨tres les mois et secteurs pour lesquels
l'on souhaite imprimer les r¨¦sultats et les regroupements ¨¤ ef-
fectuer. Pour cela chaque bloc pr¨¦c¨¦demment d¨¦crit doit ¨ºtre suivi d'un
certain nombre d'enregistrements (cf. annexe VI) indiquant les p¨¦riodes et
7Les secteurs qui sortiront en impression. Chacun de ces enregistrements, de
FORMAT (12, 1X, 31l),contient :
- le code de la p¨¦riode sur les deux premi¨¨res colonnes (01 ¨¤ 12 pour
les mois, 21 ¨¤ 24 pour les trimestres, 30 pour l'ann¨¦e),
- le code des secteurs, soit 0 ou 3 (Casamance) en colonne 4, 0 ou 4
(:Petite C?te) en colonne 5, 0 ou 5 (Grande C?te) en colonne 6, les regroupe-
ments s'effectuant quand plus d'une des colonnes 4 ¨¤ 6 est diff¨¦rente de 0.
Le d¨¦but d'un ensemble de "cartes" mois-secteurs, est indique par une
"carte" portant la lettre F en colonne 1, la fin de l'ensemble est indiqu¨¦e
par une "carte" portant le code 99 sur les deux premi¨¨res colonnes (cf.
annexe VI). Un m¨ºme ensemble de "cartes" mois-secteurs qui peut atteindre
102 lignes (chaque mois pour chaque secteur et tous les regroupements pos-
sibles sauf secteurs non contigus) ¨¦tant amen¨¦ ¨¤ se r¨¦p¨¦ter en enregistre-
ments param¨¨tres apr¨¨s chaque bloc "esp¨¨ce-ann¨¦e-prises"pour un passage du

1 2
programme FREQ, ces ¡®¡°Cartes¡± f orneront un fichier MOISECT DATA qui pourra
¨ºtre appel6 par 1¡¯ EXEC autant de fois que necessaire.
la fin de 1¡¯ ensemble des enregistrements en param¨¨tres est indique par
une ¡°carte¡± portant le code 99 comme pour un ensehle mois-secteur, c¡¯est ¨¤
dire que deux ¡°cartes¡± 99 qui se suivent indiquent la fin des enregistrements
en param¨¨tres (cf. annexe VI).
Signalons enfin
qu¡¯il existe un programme FREQZ qui permet de grouper
les mensurations des esp¨¨ces ayant la m¨ºme appellation commerciale (ex. les
Pomadasys jubelini et P. peroteti qui sont vendus sous le nom de Sompatt).
Ce programme utilise urf ichier pr¨¦sent¨¦ diff¨¦remment que MENSTAT SORTOUT; il
est obtenu par TRIFREQ2 qui trie les donn¨¦es dans l¡¯ordre ascendant suivant :
FAMILLE, ANNEE, MOIS, No MAREE, ESPECE, CODE SUITE.
4.2.2 .Mode op¨¦ratoire des calculs effectu¨¦s par le programme FREQ
-
Nous ne rentrerons pas dans le d¨¦tail de.s calculs qui peut ¨ºtre retrouv¨¦
¨¤ partir du listing du programme donn¨¦ en annexe. Nous indiquerons seulement
qu¡¯une sommation des fr¨¦quences contenues dans le fichier MENSTAT SORTQUI¡¯
et d¨¦j¨¤ pond¨¦r¨¦es par les prises des mar¨¦es concern¨¦es - est effectu¨¦e pour
chaque mois et chaque zone, m¨ºme si l¡¯impression de ce mois et de cette zone
n¡¯a pas ¨¦t¨¦ demand¨¦e. Le r¨¦sultat est ¨¤ nouveau pond¨¦r¨¦ par le rapport de la
prise totale ¡®toutes mar¨¦es¡±pour cemois et ce secteur sur la somme des prises
des mar¨¦es o¨´ il. y a eu un ¨¦chantillon mesur¨¦. Pour les regroupements un
deuxi¨¨me facteur de pond¨¦ration est calcul¨¦, le num¨¦rateur est alors la somme
des prises enregistr¨¦es en param¨¨tres qui correspondent au regroupement d¨¦sir¨¦,
le d¨¦nominateur correspond aux prises totales des mois et secteurs oil il y a
eu des mensurations. Par cons¨¦quent, si pour un mois et une zone donn¨¦e il n¡¯y a pas
eu de mensuration, la prise de ce mois sera quand m¨ºme comptabilis¨¦ dans
les regroupements et les fr¨¦quences seront sens¨¦es repr¨¦senter le nombre
r¨¦el de poissons d¨¦barqu¨¦s.
4.2.3. R¨¦sultats en sortie du programme FREQ.
-
-
P()ur les impressions des p¨¦riodes et secteurs demand¨¦s
en param¨¨tres,
le programme ¨¦crit (annexe VII) :
- la famille et l¡¯esp¨¨ce (en code),
- 1¡¯ a nn¨¦e,
- la p¨¦riode (en code),
- la prise totale d¨¦barqu¨¦e (en kg),
- le facteur de pond¨¦ration (dont le mode de calcul est variable suivant
qu¡¯ il s¡¯agisse d¡¯ un regroupement ou non, cf. ci-dessus),
- le nombre d¡¯¨¦chantillons pris en compte,
- la moyenne des fr¨¦quences pond¨¦r¨¦es,
- l¡¯¨¦cart-type de cette moyenne,
- La moyenne des mesures, c¡¯est ¨¤ dire la moyenne de taille des individus
r¨¦ellement mesur¨¦s (pas de pond¨¦ration),
- un tableau avec les classes de fr¨¦quence en cm (cm par d¨¦faut, du plus
petit poisson mesur¨¦ au plus grand), les fr¨¦quences pond¨¦r¨¦es et leurs pourcen-
tages, le nombre r¨¦el de poissons mesur¨¦s.
4.3. LE PROGRAMME FREQBEN
Il est similaire au programme FREQ mais les tableaux des pourcentages
des distributions des fr¨¦quences pond¨¦r¨¦es sont pr¨¦sent¨¦s sous forme de gra-
phiques (annexe VIII) dessin¨¦s par le traceur BENSON. Les enregistrements

1 3
param¨¨tres pr¨¦sentent cependant une modification par rapport ¨¤ ceux de FREQ.
Un enregistrement suppl.¨¦mentaire prend place entre 1¡¯ enregistrement F et le
premier enregistrement des mois-secteurs (cf. annexe VI). Cet enregistrement
porte les tailles de d¨¦but et de fin du graphique (en an, ou nun pour les
crevettes, FORMAT (13, 2X, 13). Ainsi en donnant la taille la plus petite
et la plus grande observ¨¦es une ann¨¦e ou un groupe d¡¯ann¨¦es donn¨¦, les
diff¨¦rent s
graphiques (p¨¦riodes-zones) demand¨¦s pour cet ensenk le pourront
¨ºtre superpos¨¦s sans difficult¨¦s pour comparai.sons. Le programme FREQBEN est
donn¨¦ dans l¡¯annexe IX.

4
24
z
W
x
w
H
ru.aJg-------------------------
u-;g~-------------------------
Wzf-------------------------
i

SesSD~~
318N

0

A N N E X E I I
1 5
r 1Lt: MSJC r Ii
c!Jti¡¯lL
.%
¡°U/S¡± rCwvr¡¯G¡¯;n r 1 Oh41
u¡¯jr.+t rns *,v¡¯;r! v
IDENrIFiCArLU~
DIVISIOY.
M511000 1 0
PRDCHAM-10.
¡®I?-NFCrR.
~SU@0020
REMAKKS.
MSU30030
ENVl~UNHtNr UIVIStUN.
MSU00040
C O N F I G U R A T I O N S E C lIO¡±(.
MSu00050
SOURCE:-COMPUTER.
I B M - 4 3 3 1 1
Usu000h0
OBJECr-COHPuTrR.

19M-4331.
MSUOOO 7 0
3
* * :: * % 0 e * 3 3 * $3 z$ c c F Q e e * 5 t- 3 $ c ? 0 $ s * f MSuOOORO
h
f: Msu00090
3
C O N T R O L E DU FICHILR MENSUUATIUNS
P O R T
c MSUOOl00
0
(MOtS,SEcTEUR,SOMVE
D l - S
FRkQuEhCES,S~¡®>UFNCf
3
YSUOOIIO
a
D E S C4RTFS SUIrE)
f i Ysu
4
Iz
.$
0
0
0
0
0
0
0 0 * * 0 15 0 3 $
Q
3
tr
0 3 C 0 $ *, = c1 =
=
0
+
MSU00130
INPUt-DUTPUT S E C T I O N .
M S U O O 1 4 0
FILE-CUNTROL.
Y S U O O 150
332~ r
ENr RLf
*SStGN ru SYSOl r-04-3370-s-PDPl.
USUOO 1 6 0
SELEC r
ETAT
ASSIGN rn 5rs01~-DA-3370-s-P0~3.
u5uoo 1 7 0
DAT4 QIVISLON.
.usuoo 1 8 0
FILE
sizcrrm.
MSUO0190
F D
E N rRfzlr
M S U 0 0 2 0 0
R E C O R D ING HOOF F
HSU00210
R E C O R D CONTAINS
Y? CtfARACTER5
M S U 0 0 2 2 0
LAUEL RECO:<DS ST ANDARD
HSV00230
DATA RECOHU II; CART.
HSUOO2bO
OL
CART
P I C xrt?ot.
~SfJOO250
FD
ErAr
MSU00260
RECOUD LNG MOOE F
YSVOO270
&EC!lRD CONTAINS
1.%3 CfiARACrkRS
YSUOO290
L4LlCL
R E C O R D S
out rrFD
YSUOO290
UArA
RECOUD 1 s

L

1ct4r.
Y S U O O 3 0 0
01
L I G N E .
MSvC0310
02
S A U T PIC X.
YSUOO320
0 2
LLG2 P
I
C

Xf13.2).
YSVOO330
utDtiUING-STORAGE
S E C T I O N .
HSUOO 340
7 7
NOCAR
rsu00350
7 7
ELtRR
Y S U O O 3hCJ
7 7
K r u
~SU00370
rr
~SUOO.390
II
SMAX
qsuo 0 3 9 0
II
L TFRU
YslJ00403
17
ZNULL
usu00410
7 7
HNFFiLj
HSUOQ420
01
C4YrL.
HSU00430
02
cuv
pic rugt
x x .
rJsuoo440
0 2
A N
Prcruw
K X .
usu00450
02
MOIS
PicrUw
KX.
MSU00460
1) 2
HO1 St-1
R E D E F r NFS
blocs
P I C
99.
M S U 0 0 4 ro
¡®J 2
J O U R
P I C TU!?E
X X .
~SU00400
,3 2
H4H
P I C
x x x x .
YSUOO490
J2
CAT
t¡¯rcruw.
xxux,
Y~uoosoo
0 2
H4lL
PICTURE
K .
MSUOQ510
02
S E C r
v Ic ruw
UXX.
YSUOO520
0¡¯
xc rN
REQFF I N E S
SEC r
PrcruQf
3 ¡®3 :> .
MSUOO5 3 0
02
PHOF
P[c ruw
x x x .
MSu00540
02
FAMIL
prc ruw
x x .
MSUOO550
02
;I.
~1tc rusr
X X .
~:,lJlln¡®,t~s,
02
1: x
9 I c
X .
US¡¯.17 05 7 0
02
INCR
vr c
K.
¡°5Uf)OSRO
JZ
I¡¯VI ES
1¡¯1 L
K X X X .
YSUOO590
0 2
HLJULC
t¡¯rc
X .
YSUO3600
0 2
CLS 1
:¡¯ 1 c
YXXX.
YSUOO610
0 2
X N H C L
P I C
x x .
MSUOOb20
P I C
99.
nSU00630
¡®-lSUOO640
~?.UOahTiO
PIC YY.
Y~>uoou6o
~SU5OC>70
Ysuool>t3o
Y~.~U~>O690
\\I5lJoo 700
0 2
sAur 1
f ¡¯ IL
x
V A L U E
¡± 1 ¡± .
¡°su00710
0 2
F I L
i= r c
X(565)
V4LUE
SP4CfS.
MSUOO720
02
F I L
C¡¯ 1 c
Xl221
VALUI
¡° H F JF rs MfN¡¯iU( I-JM¡±.
~ S U 0 0 7 3 0
0 2
F I L
I¡¯ t c
*lso)
V A L U E
SPACFS.
MSUOO r40

A N N E X E
I I (SUITE)
LIGNEZ.
M S U O O 7 5 0
02
SAUT2
f¡¯ I c
*
V A L U E
¡± -.
M S U O O 7 6 0
02
F I L
->IC
x
V A L U E
SF¡¯ACF.
YSUOO770
0 2
F I L
F¡¯ I c
K( 1301
V A L U F
A L L ne¡±.
usuoo
700
02
F I L
P I C
x
VILUI
SP4CF.
YSUOO 790
LICNE3.
~S1JOOBOO
02
SAUKJ
x
VALUf
~5UOO610
07
F I L
xx
V4LUF
¡± 3¡±.
MSU30020
0 2
f I L
XflO)
VALUf
SPACES.
~SUOOt330
J 2
L L L 3
K(I3J)
V A L U F
¡°C¡®4RlfZ rvU~~R0 ¡®1.
MSU00040
07
NU UC AC¡¯
LZLZZL.
~su00850
01
F I L
K(5)
V A L U E
SP4CE.5.
MSUooa60
a 2
I<f. J?k9
K(ROI
V A L U E
S P A C F S .
MSUOOB
7 0
02
F I L
X114)
V4LUE
SP4CCS.
MSUO 3880
02
F I L
XY
V A L U F
,1( w.
YSUOO890
LIGNE4.
~su00900
02
SAuru
VALUC
<I ,
~SUOOY 1 0
02
F I L
V4LUF
¡± #, ~
YSUOOQ20
02
F I L
V A L U E
A L L ¡°-¡°.
PSU009 3 0
0 7
F I L
VALVI
MSU00940
LIGNL5.
MSUOOY50
3 2
$4~15
PIC
x
VALut
¡±
¡®0.
YSUOO960
02
FILLiQ
PI<
i;ll 3 0 1 V A L U F *¡¯ x
L
E
l.OLIAGF DU ESOIS F¡®Jr IhCf?l<uSUc)O~70
¡°Ecr
!!!!¡°.
Y5u009ao
02
F
I
LLtR PI(¡¯
X

UALUF ¡°en.
~ S U 0 0 9 9 0
L 1 GNC6.
~su01000
02
SAUT6
fil<: X
VALUt ¡± ¡°.
MSUOlOlO
0 2
FILLE9
P I C X(l301 V A L U F ¡± T:
L
E
SFCTEIJH EST OIFFkQFNr
C:t. MSUOIOZO
¡°66,55,44,33
IIU 11¡±.
HSU01030
02
F~ILER P I C X V A L U F ¡°3¡±.
MSU01040
LlCNE7.
MSU01050
i l 2
SAUT7
PIC X V A L U E * ¡°.
MSu01060
3 2
FILLtlR P I C X(1301 V A L U E n 3
L
A
SOMIUF 3C!? FHEOUkNCCb
FSrHSUOIO70
* O[FFERENrE
D e L A F R E Q U E N C E TOTALE¡±.
Mr>llO 1 OR0
0 2
FILLE4
PtC X V A L U E ¡°e¡±.
MSUO 1 0 9 0
LItiNEf3.
YSUOI 1 0 0
02
SAUT6 P I C X V A L U E ¡± ¡°.
~SUOlIlJ
0.2
F ILLER P I C X l 110) VALUt 1, es
SF :JVt-KCF
zr5 c4Rrts sutrt
M S U O 1 1 2 0
¡°INCuHRECrf¡±.
~su01130
32
FILLtR
P I C ¡¯ X V A L U F ¡°c¡±.
MSUlJl14!l
LlGNL9.
USUOI 150
01
>AUr3
P
I
C

X

VALUL ¡± ¡°.
MSUOl lb0
0 3
F I L L E R P I C X(1301 VALfIE
19
2:
AFiSf=NCt
PJ,,
X!L- IR!
¡®>.-
FfdfOOFYS¡¯JOl
1 7 0
¡°tdct 5 ¡± .
M S U O I 190
02
FILLEH P I C X V A L U E ¡°+¡°.
YSUOI
1 9 0
PRLlCt.DUf<t !JIVISI!JN.
MSUO 1 2 0 0
wour.
MSU01210
11PLir 1 ?PU r 114 rHF I
MSUOI 2 2 0
clurpur ErAr.
MSU~l230
HOVt C l T O NOCAH JMAX.
HSUO 1 2 4 0
GO r0 E N - T E T E .
MSU01250
SOWFWEU.
HSU01260
COMPUrE ZTFRQ = ZI¡¯FRO c FREQ( 1).
YSUO 12 70
ltSfNt3C.L.
YSUO i 280
I
f
XNACL NUMERIC rHEtd
H
O
V
E

NtKL r0 ZhPCl.
YSCIO 1 2 9 0
TLSE H O V F 0 r0 7NHCI..
YSUO 1 3 0 0
IF LNOCL =
0 HOVF. I r¡¯) ZEQR
MSU01310
dG?lrf l.lGNF FRCJY LI*eNEO AFT1.R WJSITI!lNING
s~~ir3.~5uol320
tN-rt.rE.
~SUOI 3 3 0
USUOI 340
YSIJO 1350

YSUO 1 3 6 0
YSUO 1 3 7 0
~SU01 380
Ht-AU E.NrHLt
INrO CAPrt Ar
ENO Go T
O

t Ih.
HSUO 13vo
LXAYINE C4Urt QEC¡¯LACINi.

A
L
L

SC¡¯4rl .1 v
¡®F 00.
MSU01400
ADU
I
TO N:ICAQ.
MS~JOI410
IF
L,HA.X L ;j VflJT <,PACF T 1 f¡¯A!l¡¯,, ,. ¡°¡°VI
4 r(i )I r13 rtQf:.
MSUOl420
rtjr-1.
MSUO1430
i 1
Y015 NUMkQlC
MSUOl440
I
F
HdIsN

> 0

ANO r(oIsw < II c.0 ru rrsr-7.
MSUOl450
MSUOl460
~SU17 14 70

A N N E X E
1 1 (SUITE)
1 7
TCbT-2.
~.>U01480
I
F
SCCT : ¡°066¡± OR SECI = ¡°OJ¡¯,¡± ¡°c( <;tC, L r*O44¡±
H S U O 1 4 3 0
ut-4 sECr = ¡°03 3¡¯1 02 <if-c r L *IO 1 L*-
HSU01S00
CiCI T
O

rFST-3.
HSUOISlO
YOVL 1 T U Z E H R .
MSU01520
J~IIL. t.IGNf: FQOY LIGNE~ *FTF.J w51rlU~rNt;
snUr6.
YSUOlS30
rEsr-3.
n5UOls4o
1F
;MAX
: 0
TIfkN
MU vt
0
r ri
z r F R a
MSUO 1550
YUVE
rrt=RU
rc
Yf4f IiQ
wsuo 1 SE.0
PERFoQM TESrNHCL.
Ysuols?o
If LNUCL =
0 TtiEN G O T O T E S T - 4 .
M S U 0 1 5 8 0
I
F
ZNBCL NOf > 18 fHEN
MSUO 1590
C O M P U T E Z N R C L = ZNBCL . 1
H S U O 1 6 0 0
PERfofai
SOMFREQ ~*R~ING r FROC I 131 I
UNTIL
I
= ZhBcL
MSU01610
cowurE ZNBCL
= 0
.
H S U O 1 6 2 0
I
F
LNHCL > 16 THEN
H S U O 1630
PERF0RH SOHFREO VARYING 1 FROH 1
fqY 1 UNT I
L

1 : 1
9
MSUO 1 6 4 0
C O M P U T E Z N R C L . = ZWSCL .- 1 9 .
YSIJO 1 6 5 0
1F
((SUIrE NOT = 01 4NO (SUITF
NOr ^
4)) rtic h r,r, rc rcsr-4.
usuo 1660
I
F
ZTFWO = YHFHQ rtiF.4 G
O

TO l-f-ST-4.
uStJol670
nOVE
1 T
O

ZEQA.
¡®4S¡¯UO 1 6 9 0
#RIFE LItiNE F R O M L I G N E 7 4FTFQ POSlrIONlNG
SAbT7.
~P,U31090
M O V E SP4CF ro LLL3.
MSUOI 7 0 0
If SECJ (1) YUT = St¡¯4CF. MIJJE 51 \\j ( 1) ri) RfiJC4R
M.5U01710
dQITt: LIGYE F-ROM LIGNc3 4ffF.H
POStrIONlNG
S4UlJ.
MSUO 1 7 2 0
If SCCJ (21 NCJT : SPACF MOVL SF ¡®, (? 1 rfl Qti JC4R
MSUOI 7 3 0 ¡®
WRIT;. LIGNt FRrJH LIGYE3 4FfFQ POSITIGNING S4LrT.
usuo 1 7 4 0
if 5CQ (
3
1

NOT= SPACE MOV¡¯Z SF0 ( 3)
l-0 R
t
:

JC4R
YSUO 1750
URI TF LIGNE FRO¡¯4 LIGNE3 4FrFH POSIrlONING
S4Ur3.
Y5UO 1 260
lf StQ (41 NO1 = SPACE¡¯ Y
O
V
E

SF.U (0) ri-l Ytl JCAR
VSUOI 7 7 0
URI~~: L I G N E F R O M LIGNE~ ~~=TER P~~sI~I~N~Y~. s4ur3.
USlJOI 730
If SEQ (5) %Jr = SPACF YflVE SC9
(5) rO QI¡¯ JCAh
YSUO 1790
dl?ITt LtGYk FQO\\1 LIGNE3 4FrcR PtlSI~IONlYG
54UrJ.
~suolooo
i4fJVE
¡° C A R rt :dlJHFiW ¡± TO LLL 3 .
¡®4 s 1.10 1 R 1 0
iEsr-4.
~SuoleT-~
I F SM4r( = 0 G O rCJ E R R E U Q .
M!BUO 1 t3 30
LF SUI TE = SHAK - 1 GO TCI ERHr 1111.
rlSUOlR4o
MOVE 0

ro NUMCPIR
s
u
t

rE.
HSuOln50
,MUvE 1
r0 LEHR.
MSIJO 1 8 6 0
#Q 1 fi
LI¡±NE FWIY LIGNt-e
4
F

T!Q Pr¡¯
51 TIUNIYG S4bre.
YSU¡¯Jl L37cJ
MOVE SP4CF rr1 LLLY.
V%U0 1890
I F
3LU (11 qur =
XP4CE NOVE SI 4 Il J
I J :J!: JCAk
M!;U0 I tl¡¯>G
SUI Il
LlbNt FRUY LIGNE3 4FrFQ PCISI TIGYING
SAUr.3.
Msu01900
A i
it4 IL) NOT = SI¡¯ACF
Y
O
V
E
!if (4 (2 I TO 91: JC4k
Ysu
#II 1¡¯
LIbNE F3OH LIGY¡¯=3 4FrFY C¡¯TISITIC*dlNC
54Lr1.
HSUO 1 9 2 0
lt
5~1.4 ( 3) NOT - 5PACt YOVf- St-4 (1) TO RtJCAH
YSU 9 3 0
WQIf:- LItiNE FQW L I G N E . 3 4FrFH POSITICNINS SAUr3.
MSU01940
LT
St4 (4) NOT
= 3PACF ¡®.lOvt.
SEQ (6) 10
RIFJC4F
¡®4SUO 19SO
491 T E LItiNE F Q O M L I G N E 3 4FrFQ PflSIfIONING
SAUT 3.
YSUO1960
Lti SI-Q
(51 N
O
T

= SP4C.f MOVE SFQ 15) TO 9CJC4R
YSUOl970
dHlTt_ L I G N E FQOU L I G N E 3 AFrFQ POSITICYINC SfiYr3.
YSUOI980
YOV?
¡°C4WTt. UlJYf H
O

¡± r0 LLL3.
YSUOl990
txrftLJQ.
Ysu
I f
L;UI
rr = J
~LIV~.
0

r
o

SM~K
¡®4SCJO 2 !J 1 0
FIL 5:
¡®¡°f.lVF
SUITE
ro SM4X
M S 1 1 0 2 0 2 0
Ai>l)
I
T O KTtI
MSU02030
Yovt C4Rr ro jr- J (Y rt3 1 .
Y¡¯ilJO2040
IF zt.<t< : 0 uo rt3 L¡±C.
YSUO2050
MOVE NdCAR r0 N!JYC4Q.
~su02060
MOVE C A R I T O R E J C A R .
USUO2073
YRITE LLGlJt FI?L)M
L
I
G
N
E
3

AFftR t¡¯!):>l TIONtNG !>4Ul3.
~SU02050
t#WITt LIC,pJE TPUY LIGNF4 AFTEH I¡¯OSlTIONlNG
¡®;Al,rQ.
Y5lJ370¡¯~0
HOVE 9 ro zt.r;~ VUMCAR.
~SU02100
hu rd LUC.
~Su07110
F IN.
v 5tJ02 120
Y¡¯j!JJZ 1 3 0
Y51102 1 4 0
¡®-4%lJO? 1 SO

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
L

OYSU?302u
c
p-*. Q-y-*.-* -q-*-v-*-*.-*-*-(:- ; -_:< -,.... ;: -*-$-.*"y-:J-?-:;r-.

..-*.

QYSU?OGJC
C
6 KCMPLISSAGk OU PJIUS UAXh :.c FICHICR YENSUKATICJY
;
9'ISU¨¹r>04G
C
b
YflYSUT..
S@qT*"T -.-- _-. " .
YiE'IsP3I DATA
1:
9~SlJiC(ISL
C
c-.p-*-*..*. *-v."*.-~*:-,.&.-*"*
-*-3. ,-:,
<; -q. - * - * - 0 .- * - <: - 3 -. + .- <.
01SUCc)r,bO
c
o~suc)oc7s
C
9MSUOZCYG
YSUCI? 130
C O 9
TAxS CES FA*ILLES
(27)
00999090999999999390009099000MSU~0~4¨¹
T)ATA
IEA /22~75,76,76.4~,45,4~
r451:~14v~3or45,35r35,3~.35.35,35,
YSlc315i
A3Y13Yr39r43,1~.12,56139ra4/
MSUC;OlSC
~SUUO173
C99
TABLE QtS LENKES-ESPECES (27)
9999994~99999994999~99999~099MSUGOl~0
DATA ISP /3r2~5,4r4r7.1~tL4r9~1,15.~7,2,411r3tbt7,12~10,4.1~2~4,
~SUUO19c.
Alr7*1/
H S U 0 0 2 0 0
c 9 9
VALEJkS OU LUfFICIENT A
(2d)
9904900090090900009009900000~Msu0!J~10
DATA 4 /1.3Y4E.ir1.92iE-3~2.743t-j
rv.9496E~-3rZ.743E-ZrI.557E-.Zt
YSUOO22G
A1.71: 2,2.Y67t-2,2.017E~2,l.5~1~-'~,ki.2d5
E 3*1.214E-Zel.dYbf-2,
YSUL023O
84.4;s~ ,2~2.145E-~2rlrddbE-irl.d36t~-L,l.dBbE~~2r
MSUO0240
C5.Y23E 3,5.823E-3r3.344~-3r~.3~b~-3,1.693E-2,
WSU?C250
Ol.593t -¡®Ztj.Zf -3rS.Bi3E-
3rjaiBi ?*.?.57i-,j/
vSU3026O
YSUOOZ7C
$1 9 9
VALtJI1S DU COEFICIEIvT ?
l2d)
9V9099Q99~999999909Q9b9999099'4SU~028O
OATA L( /3.173r3.269~3.131~3.384~~.9~4~3.?27~2.949~2.94~~
YSUO029¨´
A3.~~7,3.23~,3.~56,2.9b4,2.974,i.164,2.954,2.954,
~SU0C3CO
b3.1i9+3.129,3.1~2,3.2~5,2.950
.i.Yilr!.i23r3.12~t2.59,~.~4/
~SUdC310
YSUci032O
USUOC33?

(:. ---.*.. ---e.. - --.- - __._..- m-4-e -_ - .- __ I_..
--_. .._V""" ,. "^- _..-- - .-
-- -YSU¨¹0343
,,
IVITIALISATItJNk
YSUC
/ _.a ..___ - -
. ____--
.-_. - --_-- ~_ - . ¡°_ _. -_.e
_*
- _... ..¡± ._¡± .¡°_ W-N __.^ -.-_ -- - - .¡°¡°¡°__ ys,J(J,J 36C,
ILU = 3
~SUtiO37C
IC¡¯C = 3
rsuG@3?i¡®
ISLJI = 0
YsU3c39;
A c, 1 L = .:
'lSCIG04Oti
XP3iJS=3
~~Sut;0413
3u 1 1 I=l,90
MSUOO420
LCLS(il=C*
~SU00430
11 IF?u~Il=~
'iSlJ8044?
nu 12 I=l*37
YSUOO450
1 T( II '=?
ySUt046;
YTlil.=3.
MSUC~?470
Jll 1,
i-114
klSU004dO
ITLIY,IJ=u
YSUO049?
12 L(TL(<tI J-i).
MSUO0500
r(=q
YSUOr351C
:¡°_
¡°_._<.m_ -
- .- -
-
--...
..-...
-._¡°.,T-.
<Ve. --c_
.
.- -..-...¡°.. MSUO()tj20
8¡¯
CL,
HOUCiE .. DE LECTURE MFN~U~QY
YSUOO53C
fI. _ . ._
_.
_
_
.
. - . - -- .-- ..--.---.--. ._-- -
- - - - ---MSUOO54i
i9 ¡®~Chti~T(41212I~rIl
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
YSUclcI55c.
23 ISjI=IT137)
VSU\\1055u
YtCJ~l.,l~,I~SlAT=IEK~~~IT~Il,l~l.l~~
~~T~l~~~ITll5~.HTI14l.IIT~I~r
U1Su3057G
.II=l7,37~
wSU1;1?5rc.
IF(ISK~.LT.SI a& T'j '73'!
YSJL-59c
ILti=l~.J+l
YSU,?bC;
lt II~,Jl.t~.l.AND.IT~37).i).O)
.,J T, 25
Y 5 u L :i b 1 i
I F ~1S¡¯JI.EL).2.4~D.IT~37l.;~~.ll
(,q Ti.l i5
*SU:¡± b2L
II- ~IS!JI.EJ.3.ANO.IT~37l.c0.1)
c>U T:1 25
YSULOtL 3'r
IF (1SJ?.E3.9.ANC.IT(37l.kO.31
\\,r) Til 25
YSJ:'?b43
I
F
IISIJI.~¡®J.~.AND.IT(~~J.EQ.ZJ
bi) TL) 25
VSiJ.J305C
I
F
lISJI.E~.9.ANO.IT~37I.E3.11
ti? TU 25
YSUGC66C
If (l~JI.E~.9.AN3.IT1371.~~.91
b3 Tc) 25
MSUuO673
I F ~IS~I.EQ.~.AND.ITl37t.Ea,l)
G¨´ TU 25
YSlJ>C6MC
I
F
(iS~I.E~.7.A~D.IT137).tO.ZI
bd TU c¡¯5
YSwn59s
IF (ISJi.E3.0.AND.IT(37).EP.31
C>;I TiJ 25
yS1JG073¨¹
IF liS~I.tP.3.ANO.ITl37~.EO.9~
~0 TU 25
rsui3713
21 f-u~YAT( *
R U P T U R E Ot SEUUENCE
. < ,
. . .
l3N L4fSSE Tllqt?fi< LA OU ~"51JG¨´720
~ES LA&TtS PtiECE3ENTESl
[LU--'*I%v'
ISUI=',I4,'
IT137)=',14)
MSU~>O730
~~lT~~5r21~1LU,ISUI,Ir(371
rsu30742
WhIT~(5~Y31ILU~~IT~i~,I=l~l3l~XC>:lIO
:r1r~i5~rKr(i6).(rr(fttr=17t37~Msunn75~~

A N N E X E
1 1 1 (SUITE)
1 9
If-2
*1StrOO760
DO 22 I=l*80
YSUGO770
ZCLS(Il=U.
MSUG0780
22 IFRd(Il=O
~SUCO7YO
00 24 I=l,37
~SWG08CC
OU 24 K=lr4
MSWOOd 10
ITZ(trIJ=V
YSUGC823
24 RTZ(~,Il=il.
YSU3!'J830
25 I F
(IZ.LT.3) G¡¯3 Tti 3 5
Ysu¨´od4?
I f = (IT(13l.EO.1, ZINCK=3.5
~SUJ38Z¨´
I
F
IITI 131.t0.2) ZINC%=2.5
MSUU08bG
I F 1 IT( 1:~1.;~.31 ZINCQ=5.
~SWCOd70
I l - (IT(13l.E~.4) ZINCR=13.
pSJ;OMdC
I F tIrIl.LL).SJ ZINCK=25.
YSUGO89C
IF lIT(13I.E3.6l ZIhCQ=5C.
YS,JiJL?9GU
IN 31 I=l,ld
MSUL091C
lCLStIl=ZIUCR+RT~lhlal?.*2.*ZINCR~~FLJAT~I-tl
~SUlJOYZt2
3 G IFR:~lI~=!Tl18~Il
qSIJCO93C
IF(dI(lSl.:T.?l GU T U 39
YSuJn94D
~dKITfl5,311
~SlJ!JO950
3 1 FOSTAT~ZX,'LA T A I L L E DFtiUT tST NULLC¡¯I
YSU3L9bC
hkITfl5,~~3lILU~lIT~Il~I=l~l3~~RT~l4l~IT~l5l~kT~l4l~~IT~Il~I=I7,37j~ju~~y7~~
GO TJ 33
~SlJ¨´?980
35 DU >c I=lrlo
*~SU00990
ZCLS( I+IZl=ZCLS( l&JJ*2.¡°ZINCK=FLUATI I l
YSU? 1¡¯2OU
30 IFa~~i+Izl=lTl1tt+I~
rsuo 1c10
39 I
F

lITl~?l.E3.9.OK.IT(37l~~~.).Jl &J T1 bc
M
.J SIJ (' 1 C 2 C
IL = 23+IZ
MSUSlG30
K=I~/L~
YSU0104?
DO 41 I=l*37
MSUCJ 105u
rg ITZt<,II=IT(Il
'ISlJd lC6C
3u 53 I=l4rlS
~SU01070
50 RTZ(<>IJ=RT(Il
YSUO 1 0 8 0
GO T.1 2G
YSUS 1 0 9 0
S C 90 72 I=l*27
MSIJO IlOC
CFA=:.
ct-B-2.

usu¨¹ 112tc
IF (ITl17lr:lf*fF&( Il.3Q.
1 II
',C Tg 7C
%YJd I¡¯l¡¯jc
L64=A(II
YStJdl i-40
cFY=?'t 1 I
¡®-¡®SJ<l 159
61, T3 75
MSJ3l.lbu
7C COUT I¡±Jui
~s!Jul:L7>
75 :F
~Ir~i31.~~.d4.uR.Ir~~Il.N~.I.~3~.Ir~12~.~~c-.~l
GL ru JU
nsuc>11 e<
L~A=:(?$I
MslJLJl14u
CF3=r(ZklI
YSUS 12oc
63 CUNTI\\JE
~SU~1212
POI9S = 3
.
~suuli2¨´
I F f:c4.LE.s..OK.CF~.LF.~.I G'J Tel 41
YS'JC 1233
D U Y3 I=l,83
'-7SIJ5124'J
IF ~IT~l?I.E0.84.A¡¯~~.IT~lll.~~~.ll :r~ T¡¯.: -4
YSUI 125G
LCLlt Il 1 ZiLS( i J/ LG.
~SlJ712SO

$9 I
F

~L~LS~II.LF.~..OX.I~-K~~~I~.LT.~~ 2¡¯ T:) 4:¡®
MSIJC li7i;
ZZ ; ALUL(C~Al~LFShALOG(ZLL~(IJl
YSCI: 1 ZYL
POIuS = PUIUS + IFRO~I~*~XP~LZI
MSU? 1292
90 COvTIYUE
YSUO 13cc
Y 1 CONT 1 ¡®d¡¯J=
YSU 3lfi
IFtIr(ioi.6u.84) b13 ru I:~G
MSU'I 132L
IF(P?I)S.Ea.Cll G O TJ 1 3 1
~SUC?1330
IF(PJI~S.LT.~O~~I G;J T? 9
5
MSu¨´l34C
IF(PjI3S.bT.L¨´3CO~~
1 G O TCI 9 5
y s il .3 1 3 5 c
;O T3 1 0 1
YSUd
9: wtiIrft5,PILi
YSUC 1 3 7 0
¡®4 ; F i; 4 ¡®1 A r ¡®1~7
LE P,IJS 4PPAHAIT T~::J" P:'IT 'il TttcP GkANr II! V-QIFIE~~MSUCJI~~L
x L A TAILLE !.lfd*JT* J
RSUY 139b
xPS13S=P~10~/13u0
YSWG 1 4 0 0
IFI i.C).Jl G3 T O 1¡¯32
MSW¨´141C
~HI~~~~,Y~~ILU~~ITL~~,IJ,I=~~~~I,~~~~,
I ~irIT~~~.t5lt~TZl~,l~l,
YSVOl42Y
~1IT~~nrIl>1=17.~7~
" S U C 1 4 3 0
:;u IJ 1?1
'iSlJt 1440

A N N E X E
1 II
(SUITE)
lit¡®: *~~IT-~~>,~~~ILu,~IT~I~,I=~,~~~~XPC)I')I .ITl1SIrKTI16Ir~ITIIL,I=17,371~S~J¨¹145~
Y: FURIAT(ZX,'
C EST LA CAKTE N-:¡®,ID,*
LA PKEfiIEYE C4Kri 05 CETTE USUtiI46O
X'iiVjJ.iATIiJ\\
?ST
:¡®r/r1X~1~I4rf13.~~1~~F7.3~214~/~~14,1~13J
Ystio147s
¡®iii TLI 101
vsvc 1489
lU:J IFIr717S.~T.l03COl G3 T
U
131
YSUJ1493
dKIIz(5,Y4l
~SU¨¹lSOrJ
'?4
FL?Y4T( ¡¯
C
E
P313S UES L?tVElTF> .iP+¡®AtiAIT TKOP GKAhr)!!! JFKIt=IEK ~SUVl51C
~CA TRILLE 3EJUT'l
MSUO 1520
xP~I~S=P3I~S/1OGO
usu0153?
Il-(<.c 3.01 GO TU 101,
MSUO1540
w~ITl~5r93tIL~r~ITLfK,I~~I=1~13t~XP~Iij~,ITL~~,l5~rRTL~Krl6tt
YS?IO 1553
~~IlL~~rI~rI=l7,37)
MSUO1560
50 TJ 101
MSUU157U
lC3 ¡®~RITlIst33lILU~IITII~~I~l~l3~~XP~.~IiJ
,,KTl15l~KT~16lr~IT~I~,I=17,37lMS~J31580
ltl CUtiTI¡¯iJt
MSU31590
I F IITZIlrll.i~.¨´.AND.ITZIl,2l.~U.ITZtl,3l.E~.@l
G O T O 10?
MSLJGl bOC
KTLIlrl4l=PUIOS/l;O~.
¡®lS~31blO
PCiIus=n.
M~O1420
WRIT~I~JIITLI~,I~,I=~,~~~,RTL(~~~~~,ITZI~,~~~,RTZI~.~~~~
M,$iKi163?
*~1TZ(lri)~I=17r37~
MSIJG 1640
IEt=IfL*l
MSU31b53
1.39 I
F

~ITZI2~1I.E~.0.2NO.IIZI2,2l.~~~.~~.~~.~.ITZl2,3l.~d.~~l
<;!¡¯ T¡¯I llii
4SYJ; 1bhL
Klz~Z~14~=PJI0S/1000.
¡°sd; l.e!?ti
POIDS=3.
?SUDl bBC
WRITtI2~IITZIiriI~I~l~l3~~RTZI2~l4l~ITZlZ~l5~~RTZI2,lbl~
ujUr;L6Y0
c~IlLl2,Il,I=17,37l
~SU¨´17$"
IE:=I;c*l
Msuc1710
lltf It lI~Z~311l.t~3.O.A~D.ITZI3r2l.ti~.I.4N~~.1TZI31?~.t~.r:l
~~¡®1 TtJ 12G
qS'JG172j
R~Z~~,l~l=POIUS/lJO~.
MSUC173¨´
POI0S=3.
"S'JuL740
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MSUC 175t~
0(ITLf3,Il,I=17,371
MSU? 1766
Ii¡¯:1tC41
5..
~SU¨¹177C
1 cc,
I F ~Il¡¯Zl¡¯t,l) .;¡®~.C.hlV~.ITLl4,2~.L~(;.¡®-.A:~:~.IT~I4,~I.E¡¯~.CI
t,:: Ti! 13¨¹
YS111;178rj
YTLllrl41=POIDS/lVOC.
MSU?179G
C¡¯ OI .J 5 = 3 .
YSUi) &C)C
~KII~l2~lIILI4,ll,I=l~l3~,RTZI4~l4l~ITL(4,l5~,RTZI4,l~l,
Ysu?ltll;
clITL~+,I~,f=17,371
VSUL 1 a2C
I~C=ICC*l
YSUL183>
13:! YT( l¡¯tl =PUIaS/13uz.
'fS'JcIlB4C
wkI~~Ii~lI~~IlrI=lrl3~,KT~l4~,I~~l~~,KT~l6t,~ITII~,I=l7,37~
YSU5185L
1t:;15:*1
+!SUC 1 t76C
IL = ;
YSIJD 1 B 7¨¹
GO TJ 1J
+SUOliGC
9Y9 C¨´¡¯ITIaJt
Ystiule90
~KITiISrlOll1 ILUVIEL
a?4 SU 8 1 9 G 0
:r)Jl F3HYLT(2xt//r'
(:ART?S LJES : ¡®rIbr¡¯
-> CAXT-S fCkIr'5 : *rlbr/lYSUc191~
ST'Jt'
¡°SU? 1920
c xc
Y5u~:193c/

A N N E X E I V
f-IL=: c tiANS2
FJKTKAN
A
VM/SP CCrdVERSATIDNAL
M~NITUK SYSTEM
C - - .- -.. :-. -_- . . .-.- _. . . - .*. .._- .
- .
cd.. .
...¡± . . .
*-
<
-. --.-- -<..- - --.- --?..- -_-_-_e____
$,(-Hp(JoGlc
Q C H 4 0 0 0 2 0
C
3-4-$-7fo-4-0-3-4-4-*-~-4-4-*-4-*-~,.*-4-*-4-*-4-4-4-*-*-4-.4 **
%CnA00030
C
4
PONOERATIONS
OkS YcNSUKATIONS
4
QCtiA00040
C
4
4
PCtMGOQ50
c
.
~-Q-o-*-~-~-Q-~-~-p-~;~-~-y.-*.-~-.u.-i-v-~.-Q..Q
-4-*-4-4--a-4-4 -4 -*
OCHAQGObC
C
OCnAOOu70
C
OCHA0008U
C
QCnAC?C99
c _-....- - - -
- . ..¡®e --m-m ..-.Y---. i w--m..----..-.- a _- -_a_ _ -^-__.._L--. -m-e -_ -_ __ ,L, _ ___ $CHAg()lCC,
IYT~~G~R¡±I~~~~~~¡®IT~~~R~,~F~~(<~~¡¯~;LFRL)~~~~
CHAS01 lC,
I N T E G E R ZZ~90JrCLS~90~rZCLS~9Ol,ZC~YOI1CPT
CI-IA00 120
RtAL YTL3dl tRTZ(3HJ
CHAC0130
L .-: -..---
..L-,';L .,.--..-..'-.----'-- "- -,
-.. _-_--. .-.--4------- .._--. -------.mC+fAG014j
c
~N~T?ALISATIUNS
CHAOCIl5ti
c ---...-- - - .- I.<¡± .--WI- .^__.--_.._._-_ -..e
-
_. _..-<.--_._¡± -----._ _ . ..^_____.____- -(-b,&Golb(J
-0
1 Lu=u
ChAZ0170
CLShAX=I)
CnACO 1 t3U
IEC = 0
CHAo319C
ITY=O
Cn4O0200
ISUIT=O
C n A 0 0 2 1G
IK=d
cnA0022?l
00 5 I=l*38
cnaooi30
ITTIT=i)
CH40024C
KTLI)=0.
CHAOOZSG
ITZLI)=O
CtiAC'D2bO
5 RTZI II=O.
CtiAOO2 7 0
D O l? I=i,90
CHAOOi80
ZLIII=O
CHA¨¹0290
ZC(I)=O
CnA00300
CLSL 1 I=i1
CHA~0310
IFKL)(IJ=O
CHA00320
LCLSI 1 )=O
CHAQO330
LC ZFR¡¯Jt 1 I=O
CHAO034G
RtAD~ltiNU=750~IAN2rIXIJX,IMAKZ,I~~lTX,IT~~IZ~~~~PRI,ISP~,I~OI2
CI+AO0350
C P T = l
CH400360
c _ _ - _ _'_ _ -
L..-
. .
. . . <.. - - - ._ . ..- _.._ .
-. .a-.
-..-._. .__....____^._ _
-- -......-- .C(j&00,7C
C
itOUCiE DE- LECT?KE MENSUCC;*
CHA0038<j
c
.-
-
. - ..; i- ..- -._. -¡®. -
. ..- _.. .- . -
. . ._.- . __.-_.
.

.

-..- - .- .CH*(jQjy&
20 REA~~~~~~~=25i~ITiI~rI=i,l3~,KT~ls,,IT(15~~~T~l~l.
ChAoD4oC
a(ITTIJ.I=17~38T
CHAC0410
Y=0
CHAOO420
IF(IfL~5~.E3.IKl y-1
C~A00430
GO TD 2
9
CHAG044G
2 5 DJ 2 5 I=lq3d
CHAOO450
ITLII-3
CHA00460
~b RT(II=S.
CnACO4711
GiJTLJ 30;
CPA¨¹04YC
c,- --
._ ._.A... -w... ,.- -em-.- -e. . . . . _-_ . .
..--e-- --
._ .--.w- _.. .-_-w------- .CnAug+9b
(3
TEST INCREMENT
CnhG?53D
[
_.__
_ . -_ . ._ . . _. -
_ .¡®,; - _- . . . _
. .-. _ -.- _ .- - -
_._. __.- --..-.----- C.fACO51C
29 rLu=ILU~l
CnA00520
CHAu0530
CHhC054L'
3 1 I F (IT(13t.iQ.11 LINCK=l*
CHAuD55C
I
F
t ST( 13) .iC).ZI LINCR=S.
CHAS2560
I
F
t ITt 13l.EQ.3) ZINCR=lD.
CHA¨´0570
I
F
t fT( 131.E3.41 LINCK=ZO.
C~A00580
I
F
t IT( 131 .EQ.5) ZINCK=53.
CtiAuO590
I
F
(IT( 13l.CO.bl LINCK=130.
CHAl,ObO~
(, __-. -_. -
-.-- _- - .- __..w_ e-e_. -. - -.. .-. ..- .-.- ---.. -.--.. +^- - .-----_ l__ _.. -(-n*,Q061c
c
C A L C U L Dis ¡®C<AiSiS ¡¯
CliAGOb2C
c
___._
-.
_
-.. m m -
- ---_.I-..
-_ __,,. _ --__- ..-. e.... - -e. .¡°.--
1. _._-,_ _
- _--<--me ---CtiAG0b3G
I;CI UiIloI¡¯=tiTil~,;I;.
CHAb?b+o
IF (TTZ(37l.E0.9.UR.ITZT37~.Ed.~l
(7JT.J 191
CHAUObS¨´
RT( l?T=CLSYAX + ZINCR
Ctt~CO66:
l,~l 30 1 3 5
I=l*90
CHAG@b7L)
~LS~II=I~T~14T~1b~~LI~CK~FL~AT~I-ll~~u.~l
CHAV ¡°btiL
1
1
5
IF (l.Lt.181 IFRQ~Il=IT~18+1~
CtiAbO690
CCSYAX=FLUAT(CLSL
181 1
CtdAd37C c
[ _ _ _ _ _ _ _
. _ _. . - . - - - . - --. . - . _ _
.
.
_
- .
_
_
_ . .a.- - - -CHAiGO? l¨´
c
CUMUL ?VtC ¡® C A R T E PKEC:O:NT :-
CtiAC~Z72b
c.-.- -
-
-
- . -. I .- .-. - _ _.. - ....-w._.^_.
.---- I -. .--_..._._-_ - .-.-- - -----.,.-___ c.n$L?7s%j

2 2
A N N E X E
1 v (SUITE)
ITv=!iZi37l .
CHAL074C
ITZl37l=IT(37l
CHAL\\3755
ISUIT=ISUIT+1
~HAu~7bti
I F ~ITZ~1~.N~.O.OK~ITL~i~.N~.U.UK.ITL13)~NE.O~
GOT¨¹ lO8
CHAG0770
00 t?b I=l*Yn
CtiAi107YU
LCLS(Il=CLS~Il
CHA007JO
1¨´4 ZfRi)( Il=IFRU(Il
CHAOOBGO
DU 107 I=l,39
CtiAUOdlC
ITZ(Il=IT(Il
CHAuGa20
107 RTZlIl=RT(Il
CtlAU0830
IK=ITf51
CtlA00040
GOTU ZC
CHA0065O
c
CHA00860
c
C A S C A R T E S U I T E
CttAOOe70
l.
CHA?O0YO
tJH IFtIT~2l.Nt.ITZ~2l.0R.Ill5l.~~.ITZ~5l.U~.IT~l~l.~~.ITZll~l.OR.
CHAuO09O
xITlLlI.Ni.ITZ~11~.0K.IT(l2l.NE.ITZ~lZll
G O T O 1 1 1
CVA009r)C
IF(ITZ(37l.EU.9.OR.iTt37l.E~.9l G O T O 2 1 1
CHAC0910
Xl 130 I-19*90
Ctt4irC92O
IFlZ:LS~Il.E?.CLSllll
G O T O 140
CtiAu093C
1 j0 ;ONT I¡¯dUE
CH4;094C
GO T O 2 2 0
CHAu0950
140 RTZi 14l=RTZ(141+KT(
1 4 1
CHAC3960
ITZ( lYl=IJZ~ld~*IT~18l
CHh?C97G
IF(ISuIT.NE.1)
c>O T
U

312
CHAY098L
3~ 3 1 1 1-19~36
CHA00990
311 LFROl Il=IFRu( I-161
CHAC 1OCO
GU T.1 20
CtiAOlC10
3 1 2
IF(ISJIT.NE.21 LIJ T U 315
CtiAl;lOZO
3u 313 1=37*54
CHA¨´103U
313 ZfRul II=IFKU( I-361
CHAClO4C
GU TO 20
CHAijlC5C
3 1 5
IF(ISUIT.NE.31 b0 T O 3 1 7
CHA3 lC,ti
00 3 1 6 1=55,72
LUAI: 1070
314 ZFRlJl Il = If=RP( I-54)
CnAO108G
GO T'J 2C
CHA01090
317 DO 318 1=73r90
CtiAGllCd
319 Z~Q'.lfIl=IFKJ( 1 :72l
CHA?lllc:
GU T7 20
CtiAOLl20
t
CHAJ1130
C
L4S SEXES S E P A R E S
CtiAb114!:
L
CnAullSL
1 1 1 I~~1T~Zl.r~E.IJZlZ~.¨¹R.IT~5l.NE.
ITZ( lUI.OR.
CHAOl 16fa
~IT~11I.~~E.ITL111ll bU T O ZYO
CtlA,jl 1 7 0
1 1 2 RTZ(14l=RTZ(141*RT(14)
CilAu 1 1 SC
ITZ~l~l~ITZ~ldl*IT~18)
CHADl19u
I f - (ZCLSlll.YE.LLS(lll G O T O 1 2 3
CHAOl2@O
00 llit 1=1*1s
CtiAC 12 10
Il? ZFQv(ll=ZFROI 1 l+IFRuf 1 l
CtiA¨´liZC
ITZ(lLl-15
C~Ad1230
GIJ TJ ?;l
CtiAc124;
CliAd125G

1 2 0 I F lZLCS( lI.GT.CLS(lII aIlT0 lb3
CtlA~lLb¨´
ou 131 I-2193
CHAL1273
I F ~LLLS~Il.~U.LLS(lll
L:)T~ 1 4 1
CHAGlLed
131
ClJYTlh(LJlt
CHA? 1293
5dTC.i 220
CtiALll3Cu
141
h=I 1
CHAtil 3liJ
DJ 151 I=l,YQ-:l
CtiAOl3iu
l¡¯~1 LkkJ( I+iql=Zi9d1 I+>¡®~I+IFPQI Il
CHAcl33j
ITZIlcl:5
CtiAC 134~
r,u 73 10
C114L135G
CHAI
136G
103 311 17J I=LeY-
CHAS 1370
171: I F lLLCS(ll .EJ.LLSI 1 l l G O T O lY3
CHA31380
GI.1 T J 2 s! i:
CHAO1390
1oL N = I ,A
CHAC 140~
OI.1 19; I=irY?
CriA~~lctlL
IY: ZL(Il=ZFKO(II
CtdAS142>
3J LSO I=lrYC
CHAtil
;LJc.
LFRJ( 1 l=IFRU( Il
CtiA3 1440
011 21~ I=lr9¡¯? ,N
CHA0145O
tl? ZFRy~l*~l=ZFQQ~I*Nl+LLo
CH40146J
ITZ(1Zl=5
CtfALl47C
Lt) T .J Z¨´
C hA.1 14H¨¹

A N N E X E
1 v (SUITE)
2 3
CHA0149C
(.
. . . . . . . . c<tYkllK DE. cilo:
SUITt UU DE Ktc¨´UVREHENT IOC CLASSF
cHAc15~:
CHA0151G
211 JLU=[Lu-.l
CHAd152V
WRI~~~S;~~!~JLU,~ITL~I~,I=~,~~~~I~Y
cHAOl53G
212 FORMAT(/¡¯
ERREUR Ot CODE SUITE:CARTE ¡®114~¡¯
ITLf lA13l:¡®CnAC1540
ot41~,~I~,11,213~212~211,5x~*C0D~
;UITE:¡®1121
C~A01550
~KITflhtil31
CHAOlSbC
213 FC)KHAT(* du 2 Y~INSIJ 3~ LA Mdt rSPcCF'v/)
CHAil57C
Cc) TO 2u
CnA5158i
2 2 ';
JLU-ILU ;l
ci-lau 159u
~RITE~6r2231JLU,(ITZ~1~~I=lrl3ltITY
CHAir 1500
22.3 FuR*AT(/'
CUM'JL OE CLASSES DECAl.tES:CARTE 'rI41'
1TL~1413l:'CnA~lblC
$,412,~I~tIlr213r212~211~5~~*C~OE
sUITE:'v121/l
CHA3162u
GU T-1 20
CHAG lb3C
?
____. ¡®__ _
_____._ _____^__I____-_._
- _a_.* --_--a.. ¡°- -----.--. - ---vL-----
i
CHA¨¹lb46
C
~~L&&JPEHENTs nu-ci sI'rNcr(=;
(0.5 CM)
CH4UlbS¨¹
c..- _* .-_- . - - ". -_. _-.s- _______ ___- ..< - _ .." _- _____-_-_-_-^.__-..-_-I--
cnablbbc
25:
IflITLl13l.iiC.2~Gti
TO 3cI'l
CH461673
iTZ(lJl=3
CnAOlbB;
LINCP-10
CHAQ lb93
YCLSl=FLJAT(LLLS( lll/2.
cnAGl7Ts
I
F
tr:LSl.NE.FLClATI INT(YCLSll I lr,¨´ TiJ bG
CnALl'IlC,
7~ 57 J=O144
CHACjl720
I=J+l
iHA¨¹173G
50 LFRuIII=LFK~I~+~~JI+ZFR~I~*~~J~
CtiAC174C
7u 73
1=4S,90
CHA0175C
78 c!f~JlIl=c
CnAc17bC
[;cl TL 359
CHAG1770
00 LcLs~II=LcLs~1~-5.
CnA01780
i)U t2Z
J=?r43
CHAL 179C
IzJt2
cliAL¡¯la>L
u? Lf~OlIl=ZF4~~2~2~Jl~LFRU~3,Z+J)
CnA8lelC1
LF<Jl¡®+SI=LFR(J(9t)
CtlAdlai.2
?)u 93 1=47rYO
CHACl83Q
,jl. LFQ2lI B=S
CnA~GlM4;
c '--.---. - -.
____.._ ..- - - -..- . . - .-..
---- --- _- -- _. _ - . - .
--------cnAal85l;
c
~EC-H~KCH? I% P¨¹Tiis-OANS POR.YEGAST
CtiAu 166¡¯.¡¯ b
i.
.__
* .
..-
. _ _ - .._ . .-.,.- -_ a..
. . . . -.._..-- .
_. - _ ~_ --e-C"&- 187C
I
3JC
Ii=ITL(51
Y
CnAZlnBO
I
F
IIA~?.~~E.IT~(2l.DR.ISPi.NE.I11~3el.JK~I¡¯~AR~~~~.IT~~5l~
?OT¨¹ 433CnAdlY9C
ILDJI = 1 PlJ12
CnAG19OC
GOTu 3si)C
CnA0191C
4uJ IFIIANZ.~~.ITLIil.ANU.IMAKZ.-O.IIL(jll
M-1
CnAi;192C
lFlI~U:.~~?J.ITLI2l.AND.IMAK2.~
Q.ITL~~~.AYD.ISP~.GT.~TZ~~&~J~~TO 7CLCHAdl93G
~tAU~lrIJ~TAT=I~RKlIAN2~IX~JX~I~Ah2~I~~ITX~ITP~I~~N~TP~I~Is~2~
CtiACl94i'
.JIPc)I?
chAL1956
lF~I;~.+:.Ll.dl
IdlJ ro 7
5
0
ch4L 190,
CPI-:PT+l
CUAi197=
IF ~Ia¡¯~Z.GT.ITL~2l~ G3Td bc)O
cHA~l98C
II- ( IA-42 .~U.ITt~2l.ANS.IYAY2.~~.II~~5ll
bdTLi b5U
CHA>lQ9Q
~F(~~~~?.i~.1TL~2~.A~~O.If~Ah2.~~.IT~l5l.~N~~.ISP?.~T.ITZ~3~ll
2 :lT !l
7 G 2 C HA ,G ? i; 7 0
IF ~IA¡¯~~.~E.ITZI~~.O~.I~P~.NE.IT~~.~H.IMAR~.~~.
ITLISI l GfllO 403CtiAcZC13
ILPJI=IPOIZ
cHA';Zc'Zi,
t;tJTr) 33~0
CtiAOZC3C
CHA¨´ZG't,:

L
. . . . . . ..<dUEUdS ')ANS LA YECnEKCnE ,dil P31tii .,..........................
Ct?AV2C50
CnA~.)2Cou

bd:> JLiJ= ILIJ 1
cHAO2070
~~IT~l~~;~S~llJLU,~ITL~I)rl:lrl3),1TY
CHAiZOdC
bol FURYATf/,'
Ji NE TROUVE PAS CETTc ANNtt:CAtiTt '?1'+v'
lTLllAl?~:*CnA~2U90
9~41 ~~~14~1L~2i3~212r211~5~~¡®C~U~
SUITt:'vIZv/l
CHAOZl'IL
r,OTJ 4 7 0 0
CHAO2110
b56 IF(M.L.T..~I
GO TO 700
cHAd2120
JLU=IL!J-1
CtiAj213C
~KIT~~!,~~51JITZ~5~rJL~,~ITZ~Il,I~L,l3)1ITY,M,IT~~3~l
CHAc?14ti
ts:
FURM41(/,' JE NE TROUVE PAS LA MAdEi l ,14,¡¯ CARTE ¡®,I+,
Ct+Ad?150
0¡¯
[TL(lA13l :',412,L14~11,213r21
2.2Ilt5xt'CODt SUITt:*,Ii,2x,'~=*,CHA~2lbu
QIi*/r'
JJ (CAS PAKTICULIEKI ESPtCt *,I:,* PAS 34~s vAKit*,/)
CHALI~~~T~'
IL",JI=':
CHAOZ 18G
'>dTJ j70:
CnAC219C
r i, :
J L kJ = 1 L_ ,J
1
CHA,?i"<,

2 4
A N N E X E
1 v (SUITE)
FlLc:
CHAVSi
tOttTKA?u A
VU/jP LC%VEKSATIOhAL Y'INITOK SrSTt'c
~~ITt~Sr70llITL13YI~ITLo1JLUI(ITL~It~lsl,l3~,IT~
CHIC 2ilc)
761 F~H~ATI/,*ESPEC~'~I~**
PAS L)A%S MARcE:',!4,* CAKTt '114,'
ITL(~A~CHAC?Z~L
Q3~:',4Ii~214,11r213,212,~11,5X,'C~~~
SUIT~:',I2,/~
c~4c223c
IZP31=0
C;t4CJ22L¡¯C
YUTJ j¨´33
CHpS225G
75-l URITf(br7511
CtiAL22bu
751 F3k+lAT(' G4ST !!
C"iST F I N I PUUH *ELAST '1
CnAi;227u
GUTJ 4700
CtiaJ228C
CH40229C
i .-
..e. -L.--__------_-..--..- ._ --. ___ -.
-..------------------CHn¨´230o
c
FCRIlbRc DANS LE ififli¡®E& 9E S3RTIE AVtC pOYbLR4TIJV
Cn4?J231C
c.
-.,-y
--_---
. ..-...... -..- _ c-m.,-..--c
.¡± .- .--.-..-_e___-
- -__l____.q_.-____
c¡±Aa?3*C
,o;l?
ITZI171=3
CtlAO2335
IF(dTL(141.GT.O.1 GuTu 3032
CHAS234i;
ZLOCF=l.
CnAo2350
GUTLI 3304
?tiA02360
10~2 LCO~F=FLOAT(ILPOII/KTLO
CriA62375
IF (L;OEF.LT.I.I LCOCF=l.
CtiA02380
IFILI~EF.~T.ZCO.A~9.IT~~l~l.L~.I~t
f;UfF=i
CnAU23VO
ITZ~Id~=I:~T~LCOEF~ITTLl18~0.5~
CttAC24r)O
5OY4 00 3107 I=l*90
Cti4C2'ilC)
>i¨¹? ZFR3~Il=INT~ZCOiF~ZFR~~~i~+~.S~
CnAGi420
ISUI=i
cccaozs30
;ITlb=fcLs( 1)/13.
CHAO244'j
~~ITt~3~~ITZ1I~,I=1,13l,R~Z~l~l,IlZ~l~~~~Tl~,ITZ1l~~,
CHAC2453
~~Lf~~~Itrl=lrl8~.ISuI~ITZ~3~~,IZP~I,Z~~Ef
ctiA¨¹24bG
IEC=IE:*l
CtiAC2~71,
00 jjb3 1=1Y~90
CtlAC2490
j5>:1 IF(LFn2( O.Nt.OJti¨´ ii1 36Q~
CnAOZvYC
Gl, T7 4 6 5 3
CHAC250G
>SJC ISYI=L
Cti40251C
R11s=L'LS119~/10.
CtiAU2:Cb
QrL( l+l=?
cn4c253¨¹
ITLILYl=C,
CHAk254U
IZP31=3
Cn4ti255?
ZLOcF='J
CHA025bCi
~~I~~~31~ITL~I~rI=lrl~l,~~~~l4l,II~~l5~,~Tl~,IT~~l~l,
CHAu257ii
x~LF~u~II,I=~~,~~~,ISUI,ITZ~~~~~IZP~~~~Z~~~F
CnA?25b¨´
IEC=IEC+l
CtiAC259C
xl 3100 I=371YO
CHA¨´2bCO
s7<;(: IF(L"r(J( I):J:.S)GU T3 3a3ti
CtiAC261C
~,LJ TJ 4650
CHA6i'bZO
:i3.,;
ISUI-2
CHAb2b33
?Tlh=LCLS(37l/lu.
CHAGi?b4D
+.TL1141=3
CHAb265C
ITLILdI=i)
CHA¨´26h?
IZPUI =3
CHAOZb7C
ZC.CJEF=Yl
CHACZbB?
dH1T~~3I~ITZfIl,I=1,13~rRTZ~14~rIT~~~5l~RTl6,ITZ~l~J,
Cna?ib9G
X~ZF~~IIlrI=37,5~~rISUI,ITf~38)1IZPOI1ZC~EF
CHAU270ti
IETI=ILC+l
CHAO271C
OU 3235
E=55,90
C~A02720
j9ti:1 If(LF&llIt.NE.O)Gd TO +iro~
CHA¨´2730
GO T? 4653
CH462746
4i)L¡±
1511-4
CHAc1275¨´

A N N E X E
I V
(SUITE)
2 5
FILE: ctiPrS2
FJKTKAN A
RTLb=ZCLS155J/lU.
RTLTi41=D
ITLlltlJ=?
ILPI;I=D

ZL32F=3
~RITf~3l~ITZ~lJrI=1~l3J,RTZ~l4J,IrZ~l5J,RTl6,ITZ~~~J,

CHiU2b13
X~ZF~3~IJ,1=55~72JrISUI*ITZ~33J~IZ~O~~ZCO~f
cHA,~2d2'j
IEC=ItC*l
ctwE33C
30 4127 1=73r9@
CHACZ~~J
4LOC IFTZ'-tJTIJrNE.DJGlJ
T O 42OG
criai-2a5u
Gir TJ 4650
CHA32YbO
4232 ISJI=S
CtintiZcj7L
?rls=LCLST73l/10.
cnAo2ndD
4TTt41=0
Cti462d90
ITZJlJJ-0
CHAD29Dti
ILPSI=3
CHAC2910
LC3EF=3
CHAL242G
~KIT~~3J~1TZ~IJrI=1,l3J,RTZ~l4J,llZ~l5J,RTl6~ITZ~~~J~
CHAOZY3¨´
X~ZF~~~~JtI=73,9?JrISUI~ITZ~3~J~IZPOI,ZCOEf
CHACZY40
IE:=IE:*l
CHAL295C
4622 :ONT 1 N!IE
CHAOZYSG
CnAG2970
TzST Di FIN . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
..CHAG29~G
:.
. . . . . . l .
CH40299C
IF (ITTlJ .~U.O.ANO.1f~2J.t~.C.ANO.IT~~J.~iJ~~J
GJTU 90OC
CHAv3V0,
L.--e-. -
. - - - - . . . . -_II - _^. _--w-m', 2". - - -e-.- --+.- _ ^^--"-..-----_-------- CH$qUj(JIC
c-
C~~?S~~~MENT ' r i z aiz~'zwi ic~s
CH4i)3?2U
c ¡®:¡°,; -.--.
_--_.--
-I --.^ _ -..------ ¡°_ --¡±
-h-e-
.-T.--e.. e --^-.--^----¡±
__--..-----
(-.fa;-,Cjc
470G 7J 4YJ3 1=1,3a
CHAb3Ck.
ITZ(IJ=O
CnAC3C.50
4r¨´; <TLI 1130.
CHP?3GbO
c3 492:) I;l,Qij
CHA,7?C7G
IL(l)=2
cHA03CM¡±J
ZL(I J-7
CH1C3CYL
ZCLS(I~=@.
CnAC31C¨²
4 rt),
LfR2(Il=O
CHAQ311G
DlJ ?I~J:I I=lr9d
CHAt13liu
ZGLS(IJ=CLS(IJ
c n F {Lf 3 1 30
2'.iC
ZF?'JTII=IFRY(IJ
CHAL314G
'30 5ldJ I=lt3d
(3nAG3 15¨´
ITZLIJ=ITIIJ
CHACi316c'
51.s.l RTZtIi=RTtII
CtiA?317ti
rsu1r=s
cnA03JaG
G;JT.l in
CHAO3190
_
<^_
_'
_. ._- . . ..-__. __ . . . __..
._ .-._ ._ ,_ ._. .___.____.________ ~~*i)320~
r
r*<sf
FINI"!!!.' .
'
CnA23210
c .-..- - _
_
. ..---..v . . _..a. .,-w_- ._... "__W." .--. ^"___ .-.---_- ._-
_ .--.----LH&j(J32;o
jOGO wkIT,ih;l~?~oiILU,riC
CtiA0323¨¹
ICOGC FUHYPTTZXt//r'
CARTES LU~S (MLNSLHAJ : '116,
CHAC324U
X'
) CAKTiS ECRITkS (MENSTATJ : *rI6r/J
CHAci3250
ST33P
CtiAO32bb
6 ,\\i:
C~A03270

2 t;
A N N E X E V
611-t: FKEO
F3KJK4N
A
VWSP CONVERSAJION4L
YONIJOK SYSJEY
c
PxgGRAMME : I= H E (i
J C L :
XFKEQ
. .
FkEOCOi?
C
2.d ¡± . .
a.. _
.
t . . 3
.
FRECOCZG
i
?dE0003G
C
OYJET :
C4LCUL DES FKEUUL~NCES D E T A I L L E S IIES DIFFEKENJES
FhES@040
C
---a.
. . .
CSPECESv UONNEtS
RECUEuILLIES
S U R L E S C H A L U T I E R S
FKEO(¡®O5t.l
C
L E S R E S U L T A T S S O N T PKEbiNJiS A U CHCIIXV P A R ¡®IUIS,
FRf(J@Ob¨´
c
PAK JRIHESTREI P A R LFINtE; P O U R
UNo OEUX OU T9US
?REV0070
c
L E S S E C T E U R S
FKE00080
C
FHC00090
L
IICHAAOUE :
A V A N T D ¡¯ E X E C U T E R C E PKLIGRAMME
,LE F I C H I E R D O I T
FREOOIOC
:
* - _ ..¡®-, - -
. * I -<
E T R E T R I E
FKEOOllO
L
PAaAMEJKES
O U T K I :
FR:OOlZO
c
137~4rA,41,4~A~~,4,A~~~4~A,l7,4~A~l4l~~~A~~F¡¯~RMAJ=FI~¡®~~R~::l
FRtc0130
C
FkEOO 1 4 3
:
FhEOOlSG
c
FICiIEtiS E N ENJRtE :
0 MtNSJAJ SJQJWJJ TYIs P
A
R
FYEUO160
(
- - ._.< -. .,- ____
FAMILLE,GEN~EIAYNEE,M~IS,~A~~~,SUIJ~
FKi~0170
c
FKE001 BC
c
FREC319C
i
LARTE PIttAllETRE : FAMILLE*
5ENRze AYNEt IFORYAT 2IitlXtI2)
FKt;02@C
C
_
-..-. -....-
( ?ICIS, SECTcuHvPKISE lTL~lX~3ItlX.Ibl 14
_.
FKEO¡¯J2 10
C
99 :
F I N D E S CAQTES MOIS
FKEO?iZO
c
Y9 :
F I N O U F I C H I E R UES OEMANOES
FRt33230
C
FKtO024¨¹
c
-.- .
:. -_- . . -<_ - - _.-- -_ _-_ __¡± -.-.-..-. _ ._--_
<a .,r. ,,.. ¡°.
. .
FtiEbrJ2 50
c
FKEOO260
C
FR:30273
INTt;tR*4
F~3:5r12.5:150JrFM~3:5.12,5:1501
FKEC0280
INJEGER04 ECH(3:5rlZJrPRISE(3:5r12)
FKECO290
INJtZE?*4 IMPF~5:15OlrI¡¯IPFH~5:150~
FRE00300
CnARACJERoBC
4
FkES0310
4EALe4 PDSI~:S,~~I,PONPDS,JUJPUS~~~YF,~UYF¡¯~
F k E G 0 3 2 0
INJi;t944
~~SuRt(jl,SECTl3:S),P~,D~,~CR
FKEO3330
LUZICAL*1
FINIFGF,ELRIT
FKE0034?
COYMJN RT(39ltIL(391~FF
F R E 0 0 3 5 0
INJE;EQ+4 J O J P R I ,TOJECH,J~TFITJJFM,FJUT,FMJUJ
FKE00360
r.o
FRE00370
c - --
- IhIJIALISATI3N
w..¡®-----¡°.
-0m.-L..-. .--.D--w-c--
. . I
FRE03380
t
F K E 0 0 3 9 0
D A T A MSSJRE /LCl,Z,l/
FKE00430
1
3u 1:
IhD1=3*5
FKEJ0410
00 11 INDZ=lqLZ
f KE00420
su 1 :
IND3=5t15h
FKE00430
F(I~~3i,lNU2,INO3)=0
FRE00440
f-M(iUDl~INDZ,INO3~=O
FKE30450
Ii
CLINT INUE
FRE00460
PDS~IYOLrIUJ2l=b.
FRE00470
PKIS~(INULtINO2I=G
FRE?0480
EC.H( INOlrINOZb=ti
FHE0049C
11
Cu\\rT IUUE
FKi00500
lb
C!-iNT IVJE
FKEOOS LC
r
FKEOC¡¯52G
;:
- - - - Kc,rflRCtiE DU PR?hl[ CK ~I¡¯IR?C;ISTKC¡¯~.-¡®~T
..- - -_. -
FkEC05 3?
(.
FHi30540
2 il
FhE>0550
¡®1
FUSM;T(Zl.c?+lA.I?l
I
F
llFAbl.t¡¯.l.9YI
GOJu 9qY9
CALL LIKE(FIY,FDF~I~AY~I?EN,IA~~~
IF I FJFI GJTO 9 9 9 9
Il- (.NaJ.FIN)
UUJU 3 0
1L
REA¨¹(5.23)
A
23
FlJQM4T(A8bt
I
f
~n(I:Zl.NE.¡®99¡¯~ WJLI i2
h¡¯k.lTF ts,i+~IkAM,IGt~i,IAU
,¡¯ 4
F¡¯Y?aT(1til,¡¯
PAS
O¡±IY~OKMATIJ?~
k¡¯J:.Ik :¡®114114v141
.I¡¯T J -::

A N N E X E
v (SUITE)
2 7
FUion
FKCC 3t 8G
F H E 0 2 , q ,3
FREC¡¯?7¡¯?C;
Iu1i=:A??( IClYI*lOJ
FKEC37 lC
If- l ( 1 \\D1.CT.3).¨´K.
( 1UDl.uT.S) I c,irl , 1,
FRE3072L
IlvDi:l:o)
WL¨´O73Q
Ih~~3=1CIX(R~(1~l~~YFSVkto1)
FKC<O740
30 3 :
<iltIr
FdEC375i;
F~Ir~~1~I~~u2~IMU~l=FI
INUl~I%~2tIty~~) +IL(K)
FRCCC)76b
fY(IYJ1~II~D2~1~¡®IU3l~fY(IND1~l~U7~INi~3l~IfIX~IF~3AT(I~(~J)/~~J~.~J
l=uE;9770
INDj=IU03+1
FKEij0780
CiJNTI¡¯iJk
FkCOO79C
PUSlI~~ll,I\\1D2J=?¡®34l1~~U1rII~DLl*F~~~AT(
IC(39J J
FkfC OH00
I
F
(IC(3bI.EO.L)
~CH~INOl,IN32l=ELn~I~D1~Ii~D2~+1
F&ti;?&lo
C A L L LIHE(FIY,F~~F,IFA~~~IG~-V~IA¡¯I)
f=KiSr)dZO
IF (.'43r.FINI 'jolu 5Q
Fh:UQb 3 0
-._ .
FKf03e4Ci
PUVDERITIUN 1365 PKISES *(t-USClcl.L!-¡®:
--.. .- .
FRkG0@50
FR¡¯-?Ok!60

RtAJ(j~llb) A
FKCC?&¡®7?
FOR;+AT ( ARC l
FKti00880
I f = r4ll:lk.!d¡±.¡®s¡¯J
G O T O lb0
FfiEO0890
HcAU( A 9 122 1
1 SECT
F K E C O 9 0 0
FLJXMAT(ZX,
1 2 1
FKE00910
INJf='l-JO( ISECT,lDJ
FRFbO920
ZtiAJ(Aii3Ub IPQ1St~l~Ul~IJrI=?~61
FKfG393?i
K:AUI5,130) ~PRISE~IUOl,IJ,I=7rlZl
FR!;@946
FORHATl4X,618)
FKiS?95¡¯3
00 1 4 3 1NDZ=l,li
FK:¨´7Ybi,
D O 1 4 J IYO3=5*150
FRtcn97?
I
F
IP~S~I~~D~~I~D~I.CO.O~
bC)TQ 1~:
FK¡¯rb,398C
PU¡¯~P~S=FLOAT~PRISE~INOl,I~D2~l/PD~li¡¯~Dl,I~l~Z~
FRE?0990
~~I¡¯~31~1~lU2~IN33l~IfIX~f~I~~l~Ii~D2~I~O3l~~~l~~PUS*~Sl
FKEO 1L¡¯O¨´
CJNrIN:Jt
FRE31010
LUT,1 L?U
6KEc.l lC2G
F~E¨¹1030


D
LT
in

l .

-*r --oc z-u2 cz-0 WO-0 -w <i- c- N

A N N E X E
V (SUITE)
2 9
wkIT
15.~~7) lStLTTKT~K=3,5T
fnFrc214u
FU%YAT(T~~,¡®SCCTEURS
: ¡®*SI i2*2Xl l
FKt0215b
wnITk(sr9?t!I T7TPRI
FktvllbC
F,J~~QT(T~~,¡®PKISE
TOT4LE
:
¡®ri81
ffi¡±V2L70
wKITi(~e9031 PUNPDS
FKC<j!lHL>
FUKYAT(TlO,¡®FACTEUR

D
E

PONDESATIO?J : ¡®tfH.11
FHf¡±219U
wKITllsr913l TOTECH
FKt.u?i33
Fd502L10
CKStiZZ26
FU!32230
FkEO2240
FkErJ2Z5t~
FkFuLibO

Fetc2f 70
FKEC228b
~HE02298
Fk?G2300
FKEC23lc)
FKtGZ320
fRE¡¯.~233~,
fKi02340
FK=U235G
c
F&E92360
FKEO 2 3 7 0
FKLY2330
F K F C 239i
FKEs2400
fKE0241ti
fKE0.2420
FuE3243C
FKE02440
FKE?2450
FKE¨´7460
c ----
FKE?247C
c
1.- LFiTU%t O¡¯UYi CARTt D
U

FICHICK _ - -
f KE324dU
c
FKE?2490
SuS<j~Tlit LIKE(FIN,F¨´F,IFAM,ILt~~,IA~~
FkE32503
c¨´;l,rC+ 1 fIYtFi)F
FKiG251?
CUWMJU 4T(39)~IL(39lvF¡¯
F&E?2520
FOF=*FALSE.
FKC¨´253L
FIY=.F ALSE.
FkiliZS4;
lL3
REAU(l,EYD=99~)
~IC~KtrK=lrl31,KT~14)rILo1KT~lblr
F~E;255t..
x(ILI~),K=17r38),RT(39)
FK-,J2560
L
T E S T S YE KECt-?ERCHt
fKtUZ57U
I
F
tIL(131-IFAMI 100rZ00~300
FREti258C~
lr (I,l11~-IGrU) 130~213~300
FkSG259?
IF (I,(2) IAN1 lOOt220133b
FKEUZ~CC
ESPiC E tT ANNtE TKOUVC?
FHEO2610
I
f
t<T(37l.E7.1.l IC~3BI=tFIX~~T~14lI
fRCOZb20
IF (Ii(36l.CO.11 FE=RT(>91
fkiOZb3G
I
F
(1:(3bJ.NE.l) KT(39J=ft
FKEG2640
RfTlJZ.1
FtiE52.550
FSPt:t UIJ ANNCE DtPASSfz:
fSicJ20bO
f 1 \\)=. T*UF.
fUfG207C
?AC<SP4Ci(ll
Fkii 2bRG
2 C T .J 4 ¡®1
FK~i¡¯ZbY5
FIY 3V FICHIEk
~Kf~~27r3c~
fUF:.TSUi.
FRECiZ¡¯llG
f 1 ¡®J=. T XVE.
fKE,J272C
?CTJi%
fF?C2730
iNO
FHE02740

30
A N N E X E V I
FI 1 D I S K UE?~STAT S U R T O U T d4 (RECFH VBS L K E C L 1 6 4 BLKSILE
L b 4 4
FI 6 3ISK RESULT L I S T I N G A
daEbST4C.K

Ii04 84
S 33
231332
32033¨¹
355¨¹3C)
25 1451)
23bu70
180940
27336~2
321780
184360
305080
273990
242 le0
UN BLOC
5 44
L¨¹7135
229'30
53730
177560
2597@0
lbB19LI
131133
162d20
184370
22563rJ
164750
166780
JCLMSU DATA
5 55
591,;
i7bc)O
710
10930
90140
40110
37353
32 103
7375
2010
3¨´!?u
5490
F
21 300
2i 3O¨¹
23 300
24 306
3u 303
21 040
2L 34u
23 c4li
2v 040
3s 430
21 005
1
MOISECT DATA
2.f 505
23 005
24 bO5
3u 005
21 340
2z 34LJ
23 341)
24 340
3L 3+¨´
21 345
2i 345
23 345
24 345
3? 345
99
99
8.cNi.l
LOAO FREu2 (STAR1


A N N E X E
V I I
Y1
F R E Q U E N C E DE T A I L L E
FA*ILLE* G E N R E
: 12 4
AYYEE
: 1 9 8 4
P R E M I E R M O I S
: 10
D E R N I E R ¡®IOIS
: 12
SECTEURS
: 3
4
0
P R I S E T O T A L E
:
1 3 7 8 4 1 0
F A C T E U R D E P O N D E R A T I O N :
2 . 4
YJYBXE D ¡¯ E C H A N T I L L O N :
2
YOYENNE DES FREQUENCES :
3 2 . 8 1 0
ECART;TYPE
:
4 . 8 2 1
MOYENNE DES MESURES
:
3 2 . 7 7 9
2 3
*
2 0 9 7 1
0 . 8 5
2
*
24
*
10486
0 . 4 3
1
4
25
t
9 8 5 6 5
4 . 0 0
9
0
2 6
*
3 3 6 8 0
1 . 3 7
3
4:
2 7
¨º
1 3 5 2 8 2
5 . 4 9
1 2
*
2 8
*
1 1 1 6 8 1
4 . 5 3
10
0;
29
0:
2 2 9 2 8 1
9 . 3 1
2 0
6:
30
*
169369
6 . 8 8
1 5
0
31
*
2 7 6 8 9 4
1 1 . 2 4
2 4
*
3 2
4
2 1 3 4 0 9
8.bb
1 9
+
3 3
0:
183918
7 . 4 3
1 6
t
3 4
*
135815
5 . 5 1
12
9
3 5
*
221961
9 . 0 1
1 9
*
36
b
91243
3 . 7 0
8
0:
3 7
0
192564
7.62
1 7
*
38
(r
78127
3 . 1 7
7
9
3 9
*
44573
1.61
4
0
CO
<t
57282
2 . 3 3
5
4:
41
*
57282
2 . 3 3
5
*
4 2
*
0
0 . 0 3
0
*
4 3
*
34387
1 . 3 8
3
*
4 4
D:
10486
5 . 4 3
1
*
4 5
f
20971
0 . 8 5
2
0
40
*
23602
0 . 9 6
2
*
4 7
*
3
0 . 0 0
0
*
48
9:
0
0 . 0 0
0
4
49
*
0 . 0 0
0
4
50
6
0 . 0 0
0
+
51
*
3
0 . 0 0
0
*
52
*
G
0.03
0
*
53
c
3
0 . 0 0
0
Q:
54
0:
12709
0 . 5 2
1
*
Exemple de sortie du programme FREQ

32
A N N E X E
V I I I
Exemple de sortie du programme FREQBEN
- 35 7 repr¨¦sente le code de la famille et de l'esp¨¨ce
- 84
$1
l'ann¨¦e
-1 3
11
la p¨¦riode (du ler au 3¨¨me mois)
- 0 0 5
II
la zone (seule la zone 5 est prise en compte
sur la premi¨¨re figure, les zones 3 et 4 sur
la seconde).

A N N E X E I X
:3 3
FILE: 'KFLJYC 'I F O R T R A N A
Vn/SP CONVFKSATIONAL
n3NITOR SYSTEY
C
P<JCRPMYE
: F i< t i) d t N
J C L
: X F R F CI-J~¡®~
C
..- -FI...._
-..-
I .
:
c

IJ~JCT :
C A L C U L I);S FKEUUtNCES
DC T A I L L E S DES D1FFtK:NTtS
C
tSPECES?
D¨´NNctS
RECUE~ILLI~S
S U K L E S LHALUTItKS
C
L E S R E S U L T A T S S O N T P R E S E N T E S A U CHOIX,
P A R MDIS,
C
P A R TRIMESTRE* P A R ANNEc; P O U K IJN, ¡®~EUX UU TOIJS
r
L E S S E C T E U R S
c
C

SJKTIE :
HISTOtiRAMMES
SUK tiENS(IY
C
<¡®.__
z
9.

itYAR~UC
: A V A N T D¡¯EntCUTEK
C I - f¡¯K:lGKAMYF
,Li 1=1C~Itti OUIT
.I
i
¡°----*-w
E T R E T R I E
C
¡® P A R A M E T R E S D U T R I f
13?~4rA~41~4rA~5~4rA~9~4~A~17rslA1141.41A)~FOR~AT=FI~~DRK=1
;
C
C

F I C H I E R S E,N E N T R E E
: (r Y E N S T A T S U R T O U T T R I E P A R
il
_- ;.. se..-.-.. -o--A,
- I .¡±
I=AMILLE,GENRE~ANNEEIMOISIMAKEEISUITE
C
C
C

C A R T E P A R A M E T R E : F A M I L L E . GENRE+
A N N E E lFURYAT 212.1X,121
c.
.-. e-w - - - - .¡°-..-.
.I I
1 M O I S , SECTtUKqPRISE
11.2~1X~31~1~,1bJ
1*
_ . . .
.
C
99 :
F I N D E S CARTES M O I S
C
99 :
F I N D U kILrIER DES DErlANDES
i
C

.,
.
c
.
. ._e-.. ._ .c ___-.___ _^_ _---------. ----- _ .-----... _-- -------..------^---
,,i
<a.
.
7 : ,
.
C
c
COYH~!I /L 1 STO/ NBLOC
CUYYSU /CLIKE/

RTl3Yl~ICl391~FE
INT:; ~RZF~ F13:5,1~~5:15~~~FM13:5~12~~:15~~
INTtLtSo4
¡®CH~3:Srl2~rPKISEl3:5rl?)
HEALe4
PDsl3:5*1iJ
1NTcGi9~4 MESURfl3lrStCTl3:51
INTt;tRs4 TUTPRI~TOTECH,TlJTF~TDTt=M~J¡¯~,OM

*EPIC,%4
PDNPDS,TOTPOS,YOY
INTi;tR*4
1~PF15:15b~~IblPFY15:15@t
CHAKALTERGBO
A
LOtICALs< FINlrFUF
_ .__,. [~ITIALISATIONS
-¡®--¡®..- ...r-y--- ._
-.-. .._..a-- -.
D A T A M E S U R E /10,211/
C A L L IBEYAl 18UFt1024rlO)
NeLa:= 1

IE)V=3
CALL
PYUYAI~.,~.~N~LDCI~.*~.~
IPE¡¯rl 1 ,FOKH=¡®UNFOK¡¯4ATTED¡¯
l
RtA¨´l5,21

IFAMIIG~N,IA~
f~:*McrI2I2,1x,Ii1
I
F
lIFAM.Fd.99J
G!JT;J J?YJ
:)3 13 I:JD1=315
¡®12 11 [VdZ=ltl2
03 12

Ir4D3=5~15c
FlI~~Jl,IUl~Z,INO3~=~
F~I~¡®~~~~INDL~IN~~~=C
Id
CLIUT I¡¯J.Jt
P9Sl 1\\¡®11,lhUZ~=O.
PRISE1 INDl+INDZJ=J
EL-llIidil1~1~~D2I=¨´
IL
CU¡¯drIU\\Jt
l u
COUT 1 Y!JE

A N N E X E
1 x (SUITE)
c
c --,-.-.- WE:HEKCHE OU PRtfdItR t'dRSi.,ISrRtiMF'~~
- a_ .__
L
2 0
CALL LIKE(FINtFDF.IFAM.IGtN1IAY)
IF (GDF) GOTO 9999
If T.UDT.FINb GOTO 30

22
REAJtSt231

A
73
FORMATTA801
IF (ATl:E).NE.'99') GOTO 22
r(RITE Tbr24)IFAH,IGEN,IAN
2 4
FORMATl1Hl.r'
PAS 0"INFORMATIUN POUR :',14,14,I41
READI5r21 IFAM,IGEN,IAN
IF TIFAH.tQ.991 GOTO 9999
GDTO 20
LP
G ---
¡®-
<' TSAITEMENT D'UN tLOC -.,- -'--
. ..__ -. -_.< _--
L
30
INDl:MODTIC~S~,lO)
IF ~~1NO1.LT.31.0K.~INDl.~l.5~~

GUTc) 32
INO2=1:~3l
IN03-IFIX(RTT16~~MESUREo11

00 31 K=l8,35
F~IN~lrlND2,INO3J=Fl~NOl,IN~2,I~O3l~IC~K~

FM~I~SltINO2~IND3l=FM~INDl~IND2~IND3l*IFIx~~FLO.4T~IC~K~~/F~~*.5t
IND3=INO3+1
31
CU%TI'JJE
PDSII~~~>IUU~~=PD~~IND~,INO~~~FL~~AT~~C~~~~~
IF TILT3hJ.EQ.11 ECH~INOltIt~DLI=ECH~INDl,IND2~+l
32
CALL LIH~TFIV~FDF~IFAM,IGEN,IA~~
IF T.YDT.FINI GUTO 30
C
e----..--.- PUYDERATIUN DtS PRISES MEhSlJtLLtS
----_--.-
c
..
1 U,?
REAdT5rllOI A
110
FORM4TTABDI
IF TATl:lb.NE.'S'! GOTO 159
READ(A,L2DJ ISECT
123
FLJ~!44rlzXtI2l
INDl=~ODlISECT~lO~
READTA,130) ~PRISi~INDlrIlrl=l,~~~
READl5,1301 ~PRISEIINDlrI~ti=7~1~~

i 53
FDRYCTT4X,6181
DO 143 IN¨¹Z=lrli

DO 143 IYD3=5r15C
If- (PUS(INDlrIND2l.i~.Ol
ti'JT0 140
PuNP~~S=FLOAT~PKISE~IND~,I~~D~~~/~D~~I~~~~I~~~~~
FfI?31,It~D2~IND3l=IFrX(F~IND~,I~~~,I~D3l~P~N~~~+.5~

143
CJVTINUE
GJT3 13.3

159
YEAOTSr4DDb PREMvDEKN
400
FLJRY~TTI~~ZXII~I
1.
(, --.. .
~l:,Tu&t DES DEMANOtS D'AfFICtiAGk
.-_ -._------
1 6 3
READT51401 IPER,lSECTTKI.K=3r5l
40
FO~MATT1211~1311~
L ,---2
P A R A M E T R I S A T I O N D E S MDIS _^ _^ -- -
._..__._
IF (IPER.tQ.991 ?OTU 1
IF lIPEK.LE.Si GOTO 163

IF tIPEH.GF.13T GOTO 41
PM=IPER
Dn=f;'fR

GOTO 45
41
IF lIPEK.LE.201 GlJTd 16:
IF TIPiR.GE.25) tiOTu 42
PY=TIPEK-21)*3*1

DM=TIPER-Z01*3
GDTJ 45

4i
IF TIPEg.Nt.30) GDTU 150
PM=1

DM=12

A N N E X E
1 x (SUITE)
C ----.A¡¯ PAKAMETRISATION
uF:i SECTEUH> ~--
- - -. - _. - _ _ _
4 5
PS=3
3 0 4 5 INDl=3r5

I F ~ISECT~IND1~.YE.31.ANO.~SECT~I~OlJ.N~.4~.AND.~S~CT(IN~l~.NE.5~~
XSi¡¯T(
c
INDll=O
I
F
(SECTlINOLl.NE.O)
PS=PS*1
4 6
COYT IV$E
; - ., - - - - -
TRAvSFERT
D A N S L E TAaLiAU L)*~DITION
----w-e
DLI 5 5 3
1uo3=5,1s3
IMPF(IVD3t=0
IMPFYlIND31=?

SO3
CONT ItJUi
IN3?lIN=l5U
IN~YAX-5

00 5:) IND3=5,15U
D U 5 1 INO1=3,5

I F (SECT(IVDlI.EQ.01
GC)T¡¯J 5 1
0 0 5 2 IND2=PM,DM
I F ~FIINDlriND2~INO3I.EU.O)
6UTU 5 2
IYPFI IND3l=F(
INDl,IND2,lNU3~+IMPfI
IND31
IrlPf~~IN031=FW~I~O1,I~OZ~i~~3~*I~~F~~I~~3l
I
F
l INDYIN.GT.Ik03l
INDMIN=INU3
I
F
lINDYAX.CT.IND3)
I%DMAX=IND3
5,
COVTI \\rtlt
5 1
CuYTIYJt
50
COVTINUE
C
C

. C\\L¡¯:JL
3kS F A C T E U R S CIE PLINUEKATIUUS
oES KEGROUPEMENTS
- - -
c
PouP~~=u.
TOTt¡¯>S=d.
TUTP?I=O
TUTECH=U

6 1 0
ou 5:
INO1=3r5
I F (SiCT(1ND1l.tU.0)
G O T O 6 0
D O 6 1 INDZ=P~,DM
TUTECH=TOTECH*ECHI

INDl.IYD2l
I
F
l(P~.NE.?~J.UR.(PS.YE.III
GOTO 62
TOTR3S=TOTPDS+PDSl INOlrlND21
GOTO 63

bi
I
F
(rL~IINDlrIND2I.NE.O)
TOTPDS=TL~TPL~S+FLOAT~PRISE(INO~~IND~,I¡¯JCI~~
1
6 3
TOTPdI=TOTPRI+PRISE(INDl,IN~Zl
61
COYT I¡¯Ju&
60
COYT iVUt
I F l TlJTPOS.NE.O.
1 PONPDS=FLuATI
T U T P K I l/TOTPDS
C
C
_- . . -_-.<
P!lNDERATI>NS,
L4L:ULS YOYENNt tT E C A K T - T Y P E --_--___.-
c
;- . .._¡®. _...
ET CALCUL D
E
S

TIITAUX DE FtiFWc¡¯dCES
--;- -
-

-
C
ECAKT=¡®l
YOY=3
TOTF=3

TOTFY=3
I F LTJTt:H.CU.$l

GZITU 9 0
DU 7
3

IN03=INDYIN,INDM4X
I F l~?Y.NE.DMl.OK.lPS.NE.lll
n
I~PF(INU3l=IFIXIFLOATo)PPO~PDS+.5l
¡®~OY=YOY+LFLOATl
IYPFL I N 0 3 1 l*fLU4TlIND31
l
EC4KT=EC4RT~~FL~AT~I~PFlIND3~l~FL~AT~IN~3~~~2~
TUTF=T3TF+IMPF

f I:d031
TOTFY=TOTF~+IMPFML
IN031
7 ¡®2
CU¡®JT 1 N U E
I

F
LTJTF.Nk.01
THE¡¯\\r
YOY=Y3Y/FLUAT(TOTF1
EC~~T=~~CART-FLUAT~T~JT~~~~OY*~~~/~FLOAT~T~TF~-~~~
EC4Kl=S~KTlfCARTl
PKC=133./~L3ATITOTFl
EN0 I F

r
Lc
..__
Cg1
fI¡¯,td
-.
__¡¯
.
-1
.
L
Qlr
~~IT.IS,?LOI iFAY,IC~N,IANtIPtK
su:
FORMAT( ¡¯
FKEO\\JtVCE
UE TAILLE PiJUr(¡®,4l 14~2x1 1
I F L IJ1FCri.c~J.S)
GOTO 163

3 i;
A N N E X E
1 X (SUITE)
liA,%=J
Dl) 5iA KB=PREMID~RY
K=Kd- PREH.1
D(K) =lFlXIFLOATf IYPF(KOJ lSPdCC103..5J
1~4x=~4x311¡¯4AXrDI&JJ
541
LOnhT 1 \\lJE
< eV.._ --em .- _--_- L-,.,--e, 4 ,.....,,;, ----^--..-- A-
r
II

L¡¯ALCLJL
3t
LA
BCk&E
Si.JP~RIEuR?
L~=IFIX~AL~G~CJ~FLOAT(IYAXJJJ
I F (Ll.LT.lJ Ll=l
LL=13P*Ll
1HAa=( IYAX/L1*1J*L1
If( IYA~,.LT.IOJ ,INAX=lO
L - - _ - - . - - .__...._-_ ..---e---l---w--..--a - - _ . - _ - _ - . -
c

L¡¯AcCUL.¡®)Es.¡®PARk¡®llSTKEj
DES iIiTdGkAMb!Es
NBC=~;RN-PREY+~
GRAD=FLOAT(YBC/2)
V1=FLirAT 1 P2tf-l)
V3¡¯1.
l. -1-...-. -.-.- - .
_ .___ ._. ..*-, e. . w--u.- . .._-
c
TKACE 136s ¡®dISfOrh&HE; tT DES TI!TRES
CALL
ISTO6~U,N9L~Vl.V3rGRA0,I~A~~.5,.5~l~4~~lb~~J
wR1T¨¦(A,POIJ IFAH~IGEN~IANrPM,DMr~SrCTorK=3rS)
901
FORYAT( 813)
CALL ?¡®HAA~O.rl.5rO,A,24r.I5~.2~l.r0.)
r..
dk!ITEtA.932J I A N
CYOi
FJi<YAT( ¡® A N N E E : ¡®r14J
c
CALi PCYAA~3.rl.,O,A,lI,.l5~.2~l.tJ.)
r
c

wKITC(A.9031
PMtOhf
c903
FJRYAT(¡®M3IS
: ¡®rI5rISt
C
C A L L PCHA4(0.,.5rO,A,17,.15,.2,1.,~.
t
r
tiRfTE(A19041 (SECT(KI,K=3,5t
?554
FO<PAT(¡®SECTEURS : ¡®r313t
c
C A L L ~C.~AA~O.,?.~O,A,2Ot.l5,.2,l.l?.l
C
rfRITc(Av9351 TUTPRI
C9Jj
FJR~AT(¡®PRISE TOTALE : *,IlOl
c
b
CALL PC~AA~O.t-.5~O~A~24,.l5,.Z~l.~~.l
c
nZITEtAr9361 PtiNPOS
C906
FOdqATf¡¯FACTEUR DE PUNOERATICJN : ¡®rF7.31
L
CILL PLtiA4fCJ.r 1.rO~A,32,.15,.itl.,?.I
C
kx1r¡¯(A,9071
TOTECI-I
cv37
FOR~ATI*NO!~SKE
~**ECHANTILLON : *,151
C
C4LL PCHAA~O.~~~l~S~OtA~30~.l5~.Z~l.~~.l
L
IALL PNUY4(O.ry3.rNdLOC,O.rO.)
I3V=1
GO13 lb?
YY
YBLOL 29999
CALL PUU~~A(O.~~.,NBLOCIG.,O.J
STJP
E N 3
L
P
CiLTJSk ¨¹¡¯UNt C
i¡¯---¡°¡±
A R T E O u FICH~E~ --.
>ti!+IJJTlUt LlHt-I~lVrFL)Frl~Afirl~~~U,la¡±iJ
CUUy)Y /CLIKE/ KT(3YJrIt.lj9JrF¡¯
Lc):I:AL*l F1¡¯4,Fi)F
FJF=.F4LSE.
FIV=.FALSt.
1 L, .1
RtADll.tNO=VYYJ
(ICIKl.K=lrA~JlnT(i4l,IL(151*KT(16J,
XIIC~<JrK=17,38l,HT~39)
,-
c

T E S T S DE kECHtKC-It
IF 11: (101 -¡®IfA¡¯iJ 100~203r3Ou
zuo
I
F
(l:IllJ-¡®ISENJ 13¨´r2I3,;OO
2 10
II- (Ii(L)-IAN) 1001220,30G
C
ESP<,t E
T

ANNtE TKOUVtE
2¡®?1?
I
F
J<T(39t.Eu.l. t IC~3~J=1FIX~Kl~14l I
fF JItJ36l.iQ.IJ FE=KT139J
I
F
(IC(3SJ.NE.lJ
RT(39t=Ft
?ETLl+XY
c
tSpt:r \\lU A;dNcE DEPASSEt
)Ll?
F 1 V=. TRUE.
FiACKSPACEt 1 J
RE TJR,l

A N N E X E
1 X (SUITE)
3 7
c
F I N D U l=ICtiItR
9Y9
FDF:. TRUE.
FIN=.TRUC.
HETd?Y

ENI)
c _ - . . _
_. ¡°....A _-..- .-.I. ^_ - . . .--.-._..--
._ . ..- ..-. . . -¡®-- ..---._.w_ -< ..--- i -...¡± ..
.
OIYENSIUN TABIC
ItiTEtiE2 T A B L E
CnAKACTER*SO
C H A I N E
YE4lJ(,~AItJE,2¨´)
TASLE
2 ii
FORMAT(23A4J
CALL PCARA(X,Y,J,TA~LE,L~HX,~Y~~OS~~I~~I
RETLI2FJ
E N9

c
- --. - _. - -. -. ¡± ..- - __-. -- ...^--..-
-..-_ . - I. N_e. --.-w. ---..-a-- --.. w - e - - - - w - - -
I
;ui~i)LliI:ii
IST~~~D;~~YC,V~,V~~~RA~~,I~~,~ACX,FACY~IOP~LPC~~I~~~
L
L

!l
TAYL~AU Dt DISTRIBUTIIJY
c
VB;:
UU UE C L A S S E S
i
Vl
CEFITKE I E R E CLASSt
C
V3
P A S IMTEK-CLASSE
c
5RAd
GKADUATI?i\\r
AXt D E S X T¨´uTtS LtS h; V A L E U R S
L
¡®XEMPLE:
POUK C E S CLASStS
Di i3 A 100 G K A O U E E S T?UTEF L E S
C
1 5 VALEUKS O N A U R A Vl=iCJ.rV3=l.tGRAD=15.
c
C E QUI D O N N E K A SSUS L ¡¯ A X E D E S X
c
2D.3.....35.0*....
5iJ.O.....b5.0.....80.0.....9~.0..100.0
C
i
IE;
EFFECTII- M A X
C
FA¡¯CX
E C H E L L E S U R X
C
FAICI
E C H E L L E S U R Y
44 T R A C E SENSgN Ohl/OFF L I N E e*
C
Ii)P 1:
E F F E C T I F S
G E S T . A U T O . P A G E
C
2 : F R E Q U E N C E S CUMULEtS
i
$46~Z~FO44**444*4434*444444*44444~44444444*4*4*4~4*
c
44eC334434444444**44444*4*4**~~*4*4~~~~~~4*4444*444444
CjYY3Y /C ISTO/ NBL¡¯JL
31ME¡¯iSIOkJ

D~llrITilO)
!NT:;ta D
D A T A XtiAX/O./
tiX=.Z%FACX
tiY=.35FACY

I
f
IIdvl 73,5*20
c
5
C A L L IYfrJA( IUUF, 1 0 2 4 . 1 0 )
L
NYL3¡¯
.
c = 1
5
1 Lll¡¯ 1
YLP=pLJATILPCMi
1 0 C A L L PWUYA(XYAX+~.~YLPINBL~L~~.,O.I
YLP-2.
XMAX-2.
2¡¯)
YL=A>.~FACY
XL=lZ.+FACX
YLPA=YLP+YL+Z.S
I F (YLPA.GT.FL~AT(LPCYII
bOTrj 1 3
Yl.P=YLPA
I
F
(KMAX.LT.XL)
XMAX-XL
C A L L PVUYAfd. (0. ,NBL?CrO. ,YL t
C
T K A C E AXc 3ES Y
Y - Y L
PY=YL/s.

I
f
~YUDtIEFv51.EU.OJ
w=FLOAT(IEi=l
I
F
~Y~D(IEFI~I.NE.O~
~=((IEF/5*1):51*0.
I
f
(Ijp.ki).Zl
d=lYO.
v=w/133.
pv=v/s.
CALL P~~AA(.lrO.rZ~¡®Z¡¯rlr~X~HY~l.,~.t
CALL TPAA(-.l,O.,ZJ
CALL TKAA(-.lvO.rZ)

?Cl 3 5
I=l*5
C A L L ¡®~3HU4l-3.5,0.1Z1V1-.1,~X~t~Y,l.,J.)
Ci.LL TRAP(1,,Y,O)
Y=Y-PY
v--v ¡® P V


A N N E X E
1 X (SUITE)
CnLL T*A4(3..~,1)
CnLL T?~Al-.i,0.,3~
3 0
CUNT 1 N U E
CALL ¡®JOflYAf -.5,C.,ZtVv-lrHX,Hl,
1.r3.1
c
TKA:? tiIST&AWME
SO=U.
EY=YL/IJ
O U 35 I=lrVBC
3 5
SO=S3*FL3ATIOiI)l
x=3.
XL=XL/FLOATlNtiC)
CALL TTAAI~.,-~.Z,G!
r=o.
ro=o.
D U 43 I=lrNtK

I
F
LIl¡±.EQ.ll
Y=EY*FLOAT(DIIl)
If I I3P.EQ.2) Y=Y l ( F L O A T ( D I Il I/SUl9rL
YG-¡®lIv(YeVOl
C A L L TRAAI XtYOtdl
ro=v
CA~L T?AA(X,Y+LI
x=X+xL
C A L L T?AA(x,Y~~~
40
CALL ISAA(X, ¡®rlrll
CALL TRAA(O.r.ltZl
CALL T?AA13..0.,1)

c
ID!UTIFICATION
AXt x
~=Vl¡¯V3tFL3ATIN&C-,l)
XUL-1.
ou 5
3

NLH=117
XUL=XJL*lG.
I F (XuLab4.GE.1.~+31
Gu T O 6 3
5
0
CLINT1 %JE
YLrl=-3
C GRAGUATI3.q
DE L ¡¯ A X E DtS X
69
CALL YELENA(XL/2.,-e
3,0,27r.3*FACA,.3*fACY,l.~O.I
CALL YBOEC(VIqNLH,¡°dLI
C A L L NOMBAI O.Or- .6rG~VlrNL*HXIHY*1.*3.)
LIYIT=(lVl+FLOAiIhBL-ZJ~V~I

-Vl I/CKAiJ
I F (LIMIT.LT.1)
GO T O 6 b
0 0 6 5 KK=l,LIMIT
V=Vl+JSAO*KK
x=~v-vl~oxL/v3
CALL t3tCENAIX+XL/2.r-.3,0,27~.3*FACX..3*F4CY,l.,O.~
C A L L ~~BOECIV~NCHINCI
CALL V3MBAIxr-,.6~OrV~NC~HX~Hyrl.r¨¹.~

b>
CO%TIYUE
PEI
V=Vl*fLOAT(NBC-?I*V3
X=XL~FLOAT(NEC+
1
CALL BECENA(X*XL/.?.*-.
~~@,~~~.~~FACX,.~~FACYI
1.~0. l
C A L L ~¡®~BOECIV,NCHINCI
C A L L MOMSAIXII.~,O*VINCIHX~HY,~.~G.I
CALL PVU~A(~.,~2.5r~BLlLtO.,G.l
RETUd q

75
NBL.3¡¯
c =QQQ¡®l
CAL.L ~YUMA~O.,~.,N?L3C~0.10.1
?;TJ?:J
E N 3