src/tool/Includes_Generaux/esimpr.h

   1       texte(1,8) =
   2      > '(''Problemes avec le fichier : '',a)'
   3       texte(1,9) =
   4      > '(''MFIOPE : ouverture du fichier impossible.'')'
   5       texte(1,10) =
   6      > '(''MFICLO : fermeture du fichier impossible.'')'
   7       texte(1,11) =
   8      > '(''EFSWIT : mise a jour imposible.'')'
   9       texte(1,12) =
  10      > '(''MMHMII : maillage inconnu : '',a)'
  11       texte(1,13) =
  12      > '(''MFDCRE : creation du champ '',a,'' impossible.'')'
  13       texte(1,14) =
  14      > '(''MFDRPR : ecriture du champ '',a,'' impossible.'')'
  15       texte(1,15) =
  16      > '(''MFDNFD : nombre de champs introuvable.'')'
  17       texte(1,16) =
  18      > '(''MFDFDI : nom du champ numero '',i4,'' introuvable.'')'
  19       texte(1,17) =
  20      > '(''Le nombre de valeurs du champ '',a,'' est introuvable.'')'
  21       texte(1,18) =
  22      > '(''MFDRPR : valeurs du champ '',a,'' illisibles.'')'
  23       texte(1,19) =
  24      > '(''MFDRPW : valeurs du champ '',a,'' impossibles a ecrire.'')'
  25       texte(1,20) =
  26      > '(''MMHNMH : nombre de maillages introuvable.'')'
  27       texte(1,21) =
  28      > '(5x,''Caracteristiques du maillage dans le fichier :'',/)'
  29       texte(1,22) =
  30      > '(8x,''Nom du maillage : '',a)'
  31       texte(1,23) =
  32      > '(8x,''Dimension '',a11,  ''                         :'',i10)'
  33       texte(1,24) =
  34      > '(8x,''Nombre de noeuds                              :'',i10)'
  35       texte(1,25) =
  36      > '(8x,''Nombre de mailles                             :'',i10)'
  37       texte(1,26) =
  38      > '(8x,''. Nombre de '',a24,10x,'':'',i10)'
  39       texte(1,27) =
  40      > '(''Melange de degres :'',i9,'' en d1, '',i8,'' en d2.'')'
  41       texte(1,28) =
  42      > '(8x,''Le maillage est mode '',i5,'' au lieu de non structure'')'
  43       texte(1,29) =
  44      > '(/,8x,''Nombre de familles                            :'',i10)'
  45       texte(1,31) =
  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.'')'
  55       texte(1,41) =
  56      > '(/,8x,''Nombre total d''''equivalences                   :'',
  57      > i10)'
  58       texte(1,42) =
  59      > '(8x,''. Paires de '',a14,20x,'':'',i10)'
  60       texte(1,46) =
  61      > '(''Bibliotheque MED pour '',a,'' : '',a)'
  62       texte(1,47) =
  63      > '(''Descriptif :'',/,a)'
  64       texte(1,51) =
  65      > '(''Nom d''''objet MED : '',a)'
  66       texte(1,52) =
  67      > '(''Sa longeur vaut '',i3)'
  68       texte(1,53) =
  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'')'
  80       texte(1,67) =
  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 :'')'
  85       texte(1,71) =
  86      > '(''. soit le champ n''''existe pas,'')'
  87       texte(1,72) =
  88      > '(''. soit le maillage support ne correspond pas,'')'
  89       texte(1,73) =
  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)'
 100       texte(1,90) =
 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.'')'
 123 c
 124       texte(2,8) =
 125      > '(''Problem with the file : '',a)'
 126       texte(2,9) =
 127      > '(''MFIOPE : the file cannot be opened.'')'
 128       texte(2,10) =
 129      > '(''MFICLO : the file cannot be closed.'')'
 130       texte(2,11) =
 131      > '(''EFSWIT : updating cannot be done.'')'
 132       texte(2,12) =
 133      > '(''MMHMII : unknown mesh : '',a)'
 134       texte(2,13) =
 135      > '(''MFDCRE : creation of field '',a,'' failed.'')'
 136       texte(2,14) =
 137      > '(''MFDRPR : writing of field '',a,'' failed.'')'
 138       texte(2,15) =
 139      > '(''MFDNFD : number of fields cannot be found.'')'
 140       texte(2,16) =
 141      > '(''MFDFDI : name of field #'',i4,'' cannot be found.'')'
 142       texte(2,17) =
 143      >'(''The number of values of the field '',a,'' cannot be found.'')'
 144       texte(2,18) =
 145      > '(''MFDRPR : values of field '',a,'' cannot be read.'')'
 146       texte(2,19) =
 147      > '(''MFDRPR : values of field '',a,'' cannot be written.'')'
 148       texte(2,20) =
 149      > '(''MMHNMH : number of meshes cannot be found.'')'
 150       texte(2,21) =
 151      > '(5x,''Characteristics of the mesh on file :'',/)'
 152       texte(2,22) =
 153      > '(8x,''Name of the mesh : '',a)'
 154       texte(2,23) =
 155      > '(8x,''Dimension '',a11,  ''                         :'',i10)'
 156       texte(2,24) =
 157      > '(8x,''Number of nodes                               :'',i10)'
 158       texte(2,25) =
 159      > '(8x,''Number of meshes                              :'',i10)'
 160       texte(2,26) =
 161      > '(8x,''. Number of '',a24,10x,'':'',i10)'
 162       texte(2,27) =
 163      > '(''Mix of degrees :'',i9,'' for d1, '',i8,'' for d2.'')'
 164       texte(2,28) =
 165      > '(8x,''Mesh is described in mode '',i5,'' instead of free.'')'
 166       texte(2,29) =
 167      > '(/,8x,''Number of families                            :'',i10)'
 168       texte(2,31) =
 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.'')'
 178       texte(2,41) =
 179      > '(/,8x,''Total number of equivalences                  :'',i10)'
 180       texte(2,42) =
 181      > '(8x,''. Pairs of '',a14,21x,'':'',i10)'
 182       texte(2,46) = '(''MED library for '',a,'': '',a)'
 183       texte(2,47) =
 184      > '(''Description :'',/,a)'
 185       texte(2,51) =
 186      > '(''Name of the MED object : '',a)'
 187       texte(2,52) =
 188      > '(''Its length is '',i3)'
 189       texte(2,53) =
 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'')'
 202       texte(2,67) =
 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.'')'
 241 c