2 c Message du suivi de frontiere
3 c On l'interdit pour du maillage SATURNE/NEPTUNE 3D
4 c Pour du MED, on ne sait pas car il faudrait savoir si 2D ou 3D.
6 write(ulsort,texte(langue,27))
8 if ( taopti(11).eq.36 .or.
9 > taopti(11).eq.56 ) then
10 if ( taopti(29).ne.1 ) then
11 write(ulsort,texte(langue,27))
12 write(ulsort,texte(langue,28))
13 write(ulsort,texte(langue,11)) taopti(29)
16 write(ulsort,texte(langue,14))
20 if ( taopti(29).eq.1 ) then
21 write(ulsort,texte(langue,14))
22 elseif ( ( mod(taopti(29),2).eq.0 .or.
23 > mod(taopti(29),3).eq.0 ) .and.
24 > mod(taopti(29),5).eq.0 ) then
25 write(ulsort,texte(langue,11)) taopti(29)
27 elseif ( mod(taopti(29),2).eq.0 .or.
28 > mod(taopti(29),3).eq.0 .or.
29 > mod(taopti(29),5).eq.0 ) then
30 write(ulsort,texte(langue,15))
32 write(ulsort,texte(langue,11)) taopti(29)