14 c 2.1. ==> en francais
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 '
27 titsec (50) = 'Questions/reponses '
29 do 221 , iaux = 1 , nbsect
30 if ( numsec (iaux) .gt. 0 ) then
31 call gtnoms ( numsec(iaux), 1 , titsec(iaux) )
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 '
48 titsec (50) = 'Questions/answers '
50 do 222 , iaux = 1 , nbsect
51 if ( numsec (iaux) .gt. 0 ) then
52 call gtnoms ( numsec(iaux), 2 , titsec(iaux) )