2 texte(1,4) = '(/,5x,''Indications sur les '',a)'
3 texte(1,5) = '(5x,''. Traitement du raffinement.'')'
4 texte(1,6) = '(5x,''. Traitement du deraffinement.'')'
6 > '(5x,''Raffinement : niveau maximum autorise :'',i4)'
8 > '(5x,''Deraffinement : niveau minimum autorise :'',i4)'
10 > '(5x,i6,'' decisions ignorees par depassement de niveau.'')'
11 texte(1,10) = '(/,5x,''Apres initialisation des decisions :'')'
13 texte(2,4) = '(/,5x,''Indications over '',a)'
14 texte(2,5) = '(5x,''. Refinement examination'')'
15 texte(2,6) = '(5x,''. Unrefinement examination.'')'
16 texte(2,7) = '(5x,''Refinement : maximum authorized level :'',i4)'
18 > '(5x,''Unrefinement : minimum authorized level :'',i4)'
20 > '(5x,i6,'' decisions are ignored because of level.'')'
21 texte(2,10) = '(/,5x,''After initialisation of decisions :'')'