src/tool/HOMARD_00/hotits.h

   1 c
   2 c 2.0. ==> les numeros de sections
   3 c
   4       numsec (10) = 10
   5 c
   6       numsec (20) = 20
   7       numsec (21) = 21
   8       numsec (22) = 22
   9       numsec (23) = 23
  10 c
  11       numsec (30) = 30
  12       numsec (31) = 31
  13       numsec (32) = 32
  14       numsec (33) = 33
  15       numsec (34) = 34
  16       numsec (35) = 35
  17       numsec (36) = 36
  18 c
  19       numsec (40) = 40
  20       numsec (41) = 41
  21       numsec (42) = 42
  22 c
  23       numsec (50) = 50
  24       numsec (51) = 51
  25       numsec (52) = 52
  26       numsec (53) = 53
  27       numsec (54) = 54
  28       numsec (55) = 55
  29       numsec (56) = 56
  30       numsec (57) = 57
  31       numsec (58) = 58
  32 c
  33       numsec (60) = 60
  34       numsec (61) = 61
  35       numsec (62) = 62
  36       numsec (63) = 63
  37       numsec (64) = 64
  38       numsec (65) = 65
  39       numsec (66) = 66
  40       numsec (67) = 67
  41 c
  42       numsec (70) = 70
  43       numsec (71) = 71
  44       numsec (72) = 72
  45 c
  46       numsec (80) = 80
  47       numsec (81) = 81
  48       numsec (82) = 82
  49       numsec (83) = 83
  50       numsec (84) = 84
  51       numsec (85) = 85
  52       numsec (86) = 86
  53       numsec (87) = 87
  54       numsec (88) = 88
  55 c
  56       numsec (90) = 90
  57       numsec (91) = 91
  58       numsec (92) = 92
  59       numsec (93) = 93
  60       numsec (94) = 94
  61       numsec (95) = 95
  62 c
  63       numsec(100) = 100
  64       numsec(101) = 101
  65       numsec(102) = 102
  66       numsec(103) = 103
  67 c
  68       numsec(110) = 110
  69       numsec(111) = 111
  70       numsec(112) = 112
  71       numsec(113) = 113
  72 c
  73 c 2.1. ==> en francais
  74 c
  75 c                    123456789012345678901234
  76       titsec (10) = 'Initialisation          '
  77 c
  78       titsec (20) = 'Lectures                '
  79       titsec (21) = '. dont options          '
  80       titsec (22) = '. dont maillage         '
  81       titsec (23) = '. dont frontiere        '
  82 c
  83       titsec (30) = 'Conversions avant adapt.'
  84       titsec (31) = '. dont maillage         '
  85       titsec (32) = '. dont frontieres       '
  86       titsec (33) = '. dont analyse          '
  87       titsec (34) = '. dont filtrage groupes '
  88       titsec (35) = '. dont lecture indic.   '
  89       titsec (36) = '. dont indicateur       '
  90 c
  91       titsec (40) = 'Ecritures iteration n   '
  92       titsec (41) = '. dont maillage HOMARD  '
  93       titsec (42) = '. dont indicateur       '
  94 c
  95       titsec (50) = 'Prise de decisions      '
  96       titsec (51) = '. dont calcul des sauts '
  97       titsec (52) = '. dont composantes      '
  98       titsec (53) = '. dont conformite       '
  99       titsec (54) = '. dont historiques      '
 100       titsec (55) = '. dont initialisation   '
 101       titsec (56) = '. dont periodicite      '
 102       titsec (57) = '. dont raffinement      '
 103       titsec (58) = '. dont deraffinement    '
 104 c
 105       titsec (60) = 'Creation du maillage    '
 106       titsec (61) = '. dont deraffinement    '
 107       titsec (62) = '. dont compactage       '
 108       titsec (63) = '. dont raffinement      '
 109       titsec (64) = '. dont conformite       '
 110       titsec (65) = '. dont noeuds supplemen.'
 111       titsec (66) = '. dont mise a jour      '
 112       titsec (67) = '. dont analyse          '
 113 c
 114       titsec (70) = 'Suivi de la frontiere   '
 115       titsec (71) = '. dont conversion       '
 116       titsec (72) = '. dont traitement       '
 117 c
 118       titsec (80) = 'Conversions apres adapt.'
 119       titsec (81) = '. dont maillage         '
 120       titsec (82) = '. dont lecture solution '
 121       titsec (83) = '. dont solution         '
 122       titsec (84) = '. dont analyse          '
 123 c
 124       titsec (90) = 'Complements             '
 125       titsec (91) = '. dont niveau           '
 126       titsec (92) = '. dont qualite          '
 127       titsec (93) = '. dont diametre         '
 128       titsec (94) = '. dont parents          '
 129       titsec (95) = '. dont voisins recollem.'
 130 c
 131       titsec(100) = 'Ecritures iteration n+1 '
 132       titsec(101) = '. dont maillage HOMARD  '
 133       titsec(102) = '. dont maillage calcul  '
 134       titsec(103) = '. dont solution         '
 135 c
 136       titsec(110) = 'Creation du mail. annexe'
 137       titsec(111) = '. dont changement degre '
 138       titsec(112) = '. dont conversion       '
 139       titsec(113) = '. dont ecriture         '
 140 c
 141       do 21 , iaux = 1 , nbsect
 142         if ( numsec(iaux).gt.0 ) then
 143           call gtnoms ( numsec(iaux), 1 , titsec(iaux) )
 144         endif
 145    21 continue
 146 c
 147 c 2.2. ==> en anglais
 148 c
 149 c                    123456789012345678901234
 150       titsec (10) = 'Initialisation          '
 151 c
 152       titsec (20) = 'Readings                '
 153       titsec (21) = '. options               '
 154       titsec (22) = '. mesh                  '
 155       titsec (23) = '. boundary              '
 156 c
 157       titsec (30) = 'Conversions before adap.'
 158       titsec (31) = '. mesh                  '
 159       titsec (32) = '. boundary              '
 160       titsec (33) = '. analysis              '
 161       titsec (34) = '. groupe filtering      '
 162       titsec (35) = '. indicator readings    '
 163       titsec (36) = '. indicator             '
 164 c
 165       titsec (40) = 'Writings iteration # n  '
 166       titsec (41) = '. HOMARD mesh           '
 167       titsec (42) = '. indicator             '
 168 c
 169       titsec (50) = 'Decisions               '
 170       titsec (51) = '. jumps                 '
 171       titsec (52) = '. components            '
 172       titsec (53) = '. conformity            '
 173       titsec (54) = '. history               '
 174       titsec (55) = '. initialisation        '
 175       titsec (56) = '. periodicity           '
 176       titsec (57) = '. refinement            '
 177       titsec (58) = '. unrefinement          '
 178 c
 179       titsec (60) = 'Mesh creation           '
 180       titsec (61) = '. unrefinement          '
 181       titsec (62) = '. compactification      '
 182       titsec (63) = '. refinement            '
 183       titsec (64) = '. conformity            '
 184       titsec (65) = '. additional nodes creat'
 185       titsec (66) = '. up-dating             '
 186       titsec (67) = '. analysis              '
 187 c
 188       titsec (70) = 'Boundary following      '
 189       titsec (71) = '. conversion            '
 190       titsec (72) = '. treatment             '
 191 c
 192       titsec (80) = 'Conversions after adapt.'
 193       titsec (81) = '. mesh                  '
 194       titsec (82) = '. solution readings     '
 195       titsec (83) = '. solution              '
 196       titsec (84) = '. analysis              '
 197 c
 198       titsec (90) = 'Additional information  '
 199       titsec (91) = '. level                 '
 200       titsec (92) = '. quality               '
 201       titsec (93) = '. diametre              '
 202       titsec (94) = '. parents               '
 203       titsec (95) = '. neighbours            '
 204 c
 205       titsec(100) = 'Writings iteration # n+1'
 206       titsec(101) = '. HOMARD mesh           '
 207       titsec(102) = '. calculation mesh      '
 208       titsec(103) = '. solution              '
 209 c
 210       titsec(110) = 'Creation of new mesh    '
 211       titsec(111) = '. degree modification   '
 212       titsec(112) = '. conversion            '
 213       titsec(113) = '. writings              '
 214 c
 215       do 22 , iaux = 1 , nbsect
 216         if ( numsec(iaux).gt.0 ) then
 217           call gtnoms ( numsec(iaux), 2 , titsec(iaux) )
 218         endif
 219    22 continue