src/tool/HOMARD_00/hotit2.h

   1 c
   2       numsec (40) = 40
   3       numsec (41) = 41
   4       numsec (42) = 42
   5       numsec (43) = 43
   6       numsec (44) = 44
   7       numsec (45) = 45
   8       numsec (46) = 46
   9       numsec (47) = 47
  10       numsec (48) = 48
  11 c
  12       numsec (50) = 50
  13 c
  14 c 2.1. ==> en francais
  15 c
  16 c                    123456789012345678901234
  17       titsec (40) = 'Informations            '
  18       titsec (41) = '. dont analyse          '
  19       titsec (42) = '...... interpenetration '
  20       titsec (43) = '...... qualite          '
  21       titsec (44) = '...... connexite        '
  22       titsec (45) = '...... tailles          '
  23       titsec (46) = '...... caracteristiques '
  24       titsec (47) = '...... diametres        '
  25       titsec (48) = '. dont fichiers         '
  26 c
  27       titsec (50) = 'Questions/reponses      '
  28 c
  29       do 221 , iaux = 1 , nbsect
  30         if ( numsec (iaux) .gt. 0 ) then
  31           call gtnoms ( numsec(iaux), 1 , titsec(iaux) )
  32         endif
  33   221 continue
  34 c
  35 c 2.2. ==> en anglais
  36 c
  37 c                    123456789012345678901234
  38       titsec (40) = 'Information             '
  39       titsec (41) = '. analysis              '
  40       titsec (42) = '...... interpenetration '
  41       titsec (43) = '...... quality          '
  42       titsec (44) = '...... connexity        '
  43       titsec (45) = '...... sizes            '
  44       titsec (46) = '...... characteristics  '
  45       titsec (47) = '...... diametres        '
  46       titsec (48) = '. files                 '
  47 c
  48       titsec (50) = 'Questions/answers       '
  49 c
  50       do 222 , iaux = 1 , nbsect
  51         if ( numsec (iaux) .gt. 0 ) then
  52           call gtnoms ( numsec(iaux), 2 , titsec(iaux) )
  53         endif
  54   222 continue