src/tool/Includes_Generaux/mslv11.h

   1 c
   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.
   5 c
   6       write(ulsort,texte(langue,27))
   7 c
   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)
  14           nbrepb = nbrepb + 1
  15         else
  16           write(ulsort,texte(langue,14))
  17         endif
  18 c
  19       else
  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)
  26           nbrepb = nbrepb + 1
  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))
  31         else
  32           write(ulsort,texte(langue,11)) taopti(29)
  33           nbrepb = nbrepb + 1
  34         endif
  35       endif