2 > '(''Problemes avec le fichier : '',a)'
4 > '(''MFIOPE : ouverture du fichier impossible.'')'
6 > '(''MFICLO : fermeture du fichier impossible.'')'
8 > '(''EFSWIT : mise a jour imposible.'')'
10 > '(''MMHMII : maillage inconnu : '',a)'
12 > '(''MFDCRE : creation du champ '',a,'' impossible.'')'
14 > '(''MFDRPR : ecriture du champ '',a,'' impossible.'')'
16 > '(''MFDNFD : nombre de champs introuvable.'')'
18 > '(''MFDFDI : nom du champ numero '',i4,'' introuvable.'')'
20 > '(''Le nombre de valeurs du champ '',a,'' est introuvable.'')'
22 > '(''MFDRPR : valeurs du champ '',a,'' illisibles.'')'
24 > '(''MFDRPW : valeurs du champ '',a,'' impossibles a ecrire.'')'
26 > '(''MMHNMH : nombre de maillages introuvable.'')'
28 > '(5x,''Caracteristiques du maillage dans le fichier :'',/)'
30 > '(8x,''Nom du maillage : '',a)'
32 > '(8x,''Dimension '',a11, '' :'',i10)'
34 > '(8x,''Nombre de noeuds :'',i10)'
36 > '(8x,''Nombre de mailles :'',i10)'
38 > '(8x,''. Nombre de '',a24,10x,'':'',i10)'
40 > '(''Melange de degres :'',i9,'' en d1, '',i8,'' en d2.'')'
42 > '(8x,''Le maillage est mode '',i5,'' au lieu de non structure'')'
44 > '(/,8x,''Nombre de familles :'',i10)'
46 > '(8x,'' . Nombre cumule de groupes :'',i10)'
47 texte(1,32) = '(''Champ MED : '',a)'
48 texte(1,33) = '(''Mauvais nombre de valeurs :'',i9)'
49 texte(1,34) = '(''Il en faut :'',i9)'
50 texte(1,35) = '(''Trop de type de fonctions.'')'
51 texte(1,36) = '(a,'' pour la fonction :'',i9)'
52 texte(1,37) = '(a,'' pour le champ :'',i9)'
53 texte(1,38) = '(a,'' pour le tableau :'',i9)'
54 texte(1,40) = '(''Il en faut 1 (ou -1) pour un indicateur.'')'
56 > '(/,8x,''Nombre total d''''equivalences :'',
59 > '(8x,''. Paires de '',a14,20x,'':'',i10)'
61 > '(''Bibliotheque MED pour '',a,'' : '',a)'
63 > '(''Descriptif :'',/,a)'
65 > '(''Nom d''''objet MED : '',a)'
67 > '(''Sa longeur vaut '',i3)'
69 > '(''Cela depasse les'',i3,'' caracteres requis par MED.'')'
70 texte(1,54) = '(''Composante : '',a)'
71 texte(1,57) = '(''Nombre de points de Gauss :'',i9)'
72 texte(1,58) = '(''Nombre de valeurs :'',i9)'
73 texte(1,60) = '(''Type associe :'',i9)'
74 texte(1,61) = '(''Nom du profil : '',a)'
75 texte(1,62) = '(''Longueur du profil :'',i9)'
76 texte(1,63) = '(''Ce nombre doit etre positif.'')'
77 texte(1,64) = '(''Type geometrique MED :'',i9)'
78 texte(1,65) = '(''Champ standard'')'
79 texte(1,66) = '(''Champ aux noeuds par element'')'
81 > '(''Champ aux points de Gauss avec champ aux noeuds par elt.'')'
82 texte(1,68) = '(''Champ aux points de Gauss'')'
83 texte(1,69) = '(''Type de champ reel/entier :'',i9)'
84 texte(1,70) = '(''Les valeurs sont introuvables :'')'
86 > '(''. soit le champ n''''existe pas,'')'
88 > '(''. soit le maillage support ne correspond pas,'')'
90 > '(''. soit les valeurs de pas de temps sont incorrectes.'')'
91 texte(1,78) = '(''Code retour du programme '',a,'' :'',i10)'
92 texte(1,79) = '(''Probleme a la lecture.'')'
93 texte(1,80) = '(''Probleme a l''''ecriture.'')'
94 texte(1,81) = '(''Nom de la localisation : '',a)'
95 texte(1,82) = '(''Nombre de localisations : '',i3)'
96 texte(1,83) = '(''Objet de la localisation : '',a)'
97 texte(1,84) = '(''Objet du profil : '',a)'
98 texte(1,85) = '(''Nombre de composantes :'',i9)'
99 texte(1,86) = '(''Nombre de profils : '',i3)'
101 > '(''Le pas de temps d''''interpolation n''''a pas ete choisi.'')'
102 texte(1,92) = '(''Aucun champ ne correspond dans le fichier.'')'
103 texte(1,93) = '(''Dernier numero de pas de temps.'')'
104 texte(1,94) = '(''Dernier numero d''''ordre.'')'
105 texte(1,95) = '(''Dernier instant.'')'
106 texte(1,96) = '(''Sur le maillage : '',a)'
107 texte(1,99) = '(/,''Toutes les mailles sont aplaties.'')'
108 texte(1,100) = '(''Type interpolation automatique.'')'
109 texte(1,101) = '(''Type interpolation P1.'')'
110 texte(1,102) = '(''Type interpolation P2.'')'
111 texte(1,103) = '(''Type interpolation iso-P2.'')'
112 texte(1,104) = '(''Type interpolation degre 1 vers 2.'')'
113 texte(1,105) = '(''Type interpolation degre 2 vers 1.'')'
114 texte(1,109) = '(''Type interpolation inconnu.'')'
115 texte(1,111) = '(''Nombre de sequences :'',i9)'
116 texte(1,112) = '(''Numero de sequence :'',i9)'
117 texte(1,113) = '(''Numero de pas de temps :'',i9)'
118 texte(1,114) = '(''Numero d''''iteration :'',i9)'
119 texte(1,115) = '(''Instant : '',g15.8)'
120 texte(1,116) = '(''Sans pas de temps'')'
121 texte(1,117) = '(''Nombre de fonctions P'',i1,'' :'',i9)'
122 texte(1,119) = '(''Champ correct.'')'
125 > '(''Problem with the file : '',a)'
127 > '(''MFIOPE : the file cannot be opened.'')'
129 > '(''MFICLO : the file cannot be closed.'')'
131 > '(''EFSWIT : updating cannot be done.'')'
133 > '(''MMHMII : unknown mesh : '',a)'
135 > '(''MFDCRE : creation of field '',a,'' failed.'')'
137 > '(''MFDRPR : writing of field '',a,'' failed.'')'
139 > '(''MFDNFD : number of fields cannot be found.'')'
141 > '(''MFDFDI : name of field #'',i4,'' cannot be found.'')'
143 >'(''The number of values of the field '',a,'' cannot be found.'')'
145 > '(''MFDRPR : values of field '',a,'' cannot be read.'')'
147 > '(''MFDRPR : values of field '',a,'' cannot be written.'')'
149 > '(''MMHNMH : number of meshes cannot be found.'')'
151 > '(5x,''Characteristics of the mesh on file :'',/)'
153 > '(8x,''Name of the mesh : '',a)'
155 > '(8x,''Dimension '',a11, '' :'',i10)'
157 > '(8x,''Number of nodes :'',i10)'
159 > '(8x,''Number of meshes :'',i10)'
161 > '(8x,''. Number of '',a24,10x,'':'',i10)'
163 > '(''Mix of degrees :'',i9,'' for d1, '',i8,'' for d2.'')'
165 > '(8x,''Mesh is described in mode '',i5,'' instead of free.'')'
167 > '(/,8x,''Number of families :'',i10)'
169 > '(8x,'' . Number of groups :'',i10)'
170 texte(2,32) = '(''MED field : '',a)'
171 texte(2,33) = '(''Bad number of values :'',i9)'
172 texte(2,34) = '(i9,'' values are expected.'')'
173 texte(2,35) = '(''Too many kinds of functions.'')'
174 texte(2,36) = '(a,'' for the function #'',i9)'
175 texte(2,37) = '(a,'' for the field #'',i9)'
176 texte(2,38) = '(a,'' for the array #'',i9)'
177 texte(2,40) = '(''1 Gauss point (or -1) for indicator.'')'
179 > '(/,8x,''Total number of equivalences :'',i10)'
181 > '(8x,''. Pairs of '',a14,21x,'':'',i10)'
182 texte(2,46) = '(''MED library for '',a,'': '',a)'
184 > '(''Description :'',/,a)'
186 > '(''Name of the MED object : '',a)'
188 > '(''Its length is '',i3)'
190 > '(''It is greater than'',i3,'' characters of MED format.'')'
191 texte(2,54) = '(''Component : '',a)'
192 texte(2,57) = '(''Number of points of Gauss :'',i9)'
193 texte(2,58) = '(''Number of values :'',i9)'
194 texte(2,60) = '(''Associated type :'',i9)'
195 texte(2,61) = '(''Name of profile : '',a)'
196 texte(2,62) = '(''Length of profile :'',i9)'
197 texte(2,63) = '(''This number should be positive.'')'
198 texte(2,64) = '(''Geometric MED type :'',i9)'
199 texte(2,65) = '(''Standard field'')'
200 texte(2,66) = '(''On nodes by element field'')'
201 texte(2,67) = '(''On Gauss points field'')'
203 > '(''On Gauss points field with on nodes by element field'')'
204 texte(2,68) = '(''On Gauss points field'')'
205 texte(2,69) = '(''Float/integer field :'',i9)'
206 texte(2,70) = '(''Values cannot be found :'')'
207 texte(2,71) = '(''. either the field does not exist,'')'
208 texte(2,72) = '(''. either the mesh is not the same,'')'
209 texte(2,73) = '(''. either the time step is uncorrect.'')'
210 texte(2,78) = '(''Error code of program '',a,'':'',i10)'
211 texte(2,79) = '(''Problem while reading.'')'
212 texte(2,80) = '(''Problem while writing.'')'
213 texte(2,81) = '(''Name of localization : '',a)'
214 texte(2,82) = '(''Number of localizations : '',i3)'
215 texte(2,83) = '(''Object of localization : '',a)'
216 texte(2,84) = '(''Object of profile : '',a)'
217 texte(2,85) = '(''Number of components :'',i9)'
218 texte(2,86) = '(''Number of profiles : '',i3)'
219 texte(2,90) = '(''Which time step ?'')'
220 texte(2,92) = '(''No field in the file.'')'
221 texte(2,93) = '(''Last time step.'')'
222 texte(2,94) = '(''Last rank.'')'
223 texte(2,95) = '(''Last instant.'')'
224 texte(2,96) = '(''Over the mesh : '',a)'
225 texte(2,99) = '(/,''All the meshes are flat.'')'
226 texte(2,100) = '(''Automatic interpolation.'')'
227 texte(2,101) = '(''P1 interpolation.'')'
228 texte(2,102) = '(''P2 interpolation.'')'
229 texte(2,103) = '(''iso-P2 interpolation.'')'
230 texte(2,104) = '(''Interpolation from degree 1 to 2.'')'
231 texte(2,105) = '(''Interpolation from degree 2 to 1.'')'
232 texte(2,109) = '(''Unknown interpolation.'')'
233 texte(2,111) = '(''Number of sequences :'',i9)'
234 texte(2,112) = '(''Sequence # :'',i9)'
235 texte(2,113) = '(''Time step :'',i9)'
236 texte(2,114) = '(''Rank :'',i9)'
237 texte(2,115) = '(''Instant : '',g15.8)'
238 texte(2,116) = '(''No time step'')'
239 texte(2,117) = '(''Number of P'',i1,'' functions:'',i9)'
240 texte(2,119) = '(''Correct field.'')'