src/tool/Information/infoen.h

   1 40000 format(61('*'))
   2 40001 format(
   3      >  '*   ',a40,                                 '                *')
   4 40002 format(
   5      >  '* . ',a50,                                           '      *')
   6 c
   7 40010 format(
   8      >  '* Maille numero :',i10,   ' dans le calcul                  *')
   9 40030 format(
  10      >  '*   Il n''existe pas.                                        ',
  11      >  '*')
  12 40031 format(
  13      >  '*   Elle n''existe pas.                                      ',
  14      >  '*')
  15 40040 format(
  16      >  '*  Il n''existe pas dans le calcul                           ',
  17      >  '*')
  18 40041 format(
  19      >  '*  Elle n''existe pas dans le calcul                         ',
  20      >  '*')
  21 c
  22 41010 format(
  23      >  '* . Son niveau est :',i7, '                                 *')
  24 c
  25 41011 format(
  26      >  '* . Son niveau est :',i7, '.5                               *')
  27 c
  28 42000 format(
  29      >  '* . Famille :      ',i7, '                                  *')
  30 c
  31 43310 format(
  32      >  '* . Ses faces et leurs codes sont :                         *')
  33 43320 format(
  34      >  '* ',i10,   ' : ',i2,
  35      >                   ', ',a40,                                 ' *')
  36 43030 format(
  37      >  '* . Ses aretes sont :                                       *')
  38 43031 format(
  39      >  '* ',i10,   ', ',a40,                                 '      *')
  40 43040 format(
  41      >  '* . Ses sommets sont :                                      *')
  42 43050 format(
  43      >  '* . Les noeuds au milieu des aretes sont :                  *')
  44 43060 format(
  45      >  '* . Le noeud central est : ',i10,   '                       *')
  46 c
  47 44010 format(
  48      >  '* . Pour l''iteration en cours :                             ',
  49      >  '*')
  50 44020 format(
  51      >  '* . A l''iteration precedente :                              ',
  52      >  '*')
  53 44030 format(
  54      >  '* . Coupe par les aretes',a36,                             '*')
  55 44031 format(
  56      >  '* . Coupe par l''arete',a36,                            '   *')
  57 c
  58 c                               12345678901234
  59 45010 format(
  60      >  '* . Il est le pere des ',a14       ,' :                     *')
  61 45011 format(
  62      >  '* . Il est le pere du ',a14       ,' :                      *')
  63 45012 format(
  64      >  '* . Il est le pere de l''',a14       ,' :                   *')
  65 45013 format(
  66      >  '* . Il est le pere de la ',a14       ,' :                   *')
  67 45019 format(
  68      >  '* . Elle est la mere de :                                   *')
  69 c
  70 45040 format(
  71      >  '* . Il est le fils du ',a14        ,i10,     '              *')
  72 45041 format(
  73      >  '* . Il est le fils de l''',a14        ,i10,     '            ',
  74      >  '*')
  75 45042 format(
  76      >  '* . Elle est la fille de la ',a14        ,i10,
  77      >  '            *')
  78 45043 format(
  79      >  '* . Elle est la fille de l''',a14        ,i10,     '         ',
  80      >  '*')
  81 45044 format(
  82      >  '* . Elle est la fille du ',a14        ,i10,     '           *')
  83 45049 format(
  84      >  '* . Elle est la fille de ',i10,   '                         *')
  85 c
  86 45050 format(
  87      >  '* . Il est le frere des ',a14       ,' :                    *')
  88 45051 format(
  89      >  '* . Il est le frere du ',a14       ,' :                     *')
  90 45052 format(
  91      >  '* . Il est le frere de l''',a14       ,' :                  *')
  92 45053 format(
  93      >  '* . Il est le frere de la ',a14       ,' :                  *')
  94 45054 format(
  95      >  '* . Elle est la soeur des ',a14       ,' :                  *')
  96 45059 format(
  97      >  '* . Elle est la soeur de ',i10,   '                         *')
  98 45070 format(
  99      >  '*          ',i10,   ' ( inconnu dans le calcul )            *')
 100 45080 format(
 101      >  '*          ',i10,   ' ( dans le calcul : ',i10,   ' )       *')
 102 #ifdef _DEBUG_HOMARD_
 103 45092 format(
 104      >  '* . Il est le fils adoptif de ',i10,   '                    *')
 105 #endif
 106 c
 107 46000 format(
 108      >  '* ',i10,   ' : ',a40,                                 '     *')
 109 46030 format(
 110      >  '* ',i10,   ' : par les aretes',a27,                    '    *')
 111 46031 format(
 112      >  '* ',i10,   ' : Coupe par l''arete',a3,
 113      >  '                         *')
 114 c
 115 48010 format(
 116      >  '* . Il est homologue de lui-meme : axe de symetrie.         *')
 117 48011 format(
 118      >  '* . Elle est homologue d''elle-meme : axe de symetrie.       ',
 119      >  '*')
 120 48020 format(
 121      >  '* . Il est sur la face homologue ',i7, '                    *')
 122 48021 format(
 123      >  '* . Elle est sur la face homologue ',i7, '                  *',
 124      >/,'* . Elle est homologue de l''arete :',i10,   '               ',
 125      >  '*')
 126 48022 format(
 127      >  '*   Il est homologue du noeud : ',i10,   '                  *')
 128 48023 format(
 129      >  '*   Il est homologue du triangle :',i10,   '                *')
 130 48024 format(
 131      >  '*   Il est homologue du quadrangle :',i10,   '              *')
 132 c
 133 49001 format(
 134      >  '* . Centre  : ',   g15.5   ,'                               *')
 135 49002 format(
 136      >  '* . Centre  : ',   g15.5    ,   g15.5     ,'                *')
 137 49003 format(
 138      >  '* . Centre  : ',   g15.5    ,   g15.5     ,   g15.5      ,' *')
 139 49004 format(
 140      >  '* . Normale : ',   g15.5    ,   g15.5     ,   g15.5      ,' *')
 141 c
 142 49010 format(
 143      >  '* . Longueur : ',   g15.5   ,'                              *')
 144 49020 format(
 145      >  '* . Surface :  ',   g15.5   ,'                              *')
 146 49030 format(
 147      >  '* . Volume :  ',   g15.5   ,'                               *')
 148 49040 format(
 149      >  '* . Qualite : ',   f15.5   ,'                               *')
 150 49041 format(
 151      >  '* . Qualite selon le Jacobien normalise : ',   f15.5   ,'   *')
 152 49143 format(
 153      >  '* . Qualite selon la sphere inscrite    : ',   f15.5   ,'   *')
 154 49146 format(
 155      >  '* . Qualite par les tetraedres internes : ',   f15.5   ,'   *')
 156 49050 format(
 157      >  '* . Diametre : ',   g15.5   ,'                              *')
 158 49060 format(
 159      >  '* . Torsion : ',   f15.5   ,'                               *')
 160 c
 161 50003 format(
 162      >  '*  ',i10,   ', ',i10,   ' et ',i10,   '                     *')
 163 50004 format(
 164      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' et ',i10,   '         *')
 165 50005 format(
 166      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 167      >/,'*           et ',i10,   '                                   *')
 168 50006 format(
 169      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 170      >/,'*  ',i10,   ' et ',i10,   '                                 *')
 171 50008 format(
 172      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 173      >/,'*  ',i10,   ', ',i10,   ', ',i10,   ' et ',i10,   '         *')
 174 50009 format(
 175      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 176      >/,'*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 177      >/,'*           et ',i10,   '                                   *')
 178 50012 format(
 179      >  '*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 180      >/,'*  ',i10,   ', ',i10,   ', ',i10,   ' ,  ',i10,   '         *'
 181      >/,'*  ',i10,   ', ',i10,   ', ',i10,   ' et ',i10,   '         *')
 182 c