src/tool/Includes_Generaux/mslve4.h

   1       texte(1,6) = '(''Mauvais code de calcul :'',i5)'
   2 c
   3       texte(2,6) = '(''Bad related code :'',i5)'
   4 c
   5       if ( typcca.eq.6 ) then
   6         write(ulsort,texte(langue,7)) 'MED               '
   7       elseif ( typcca.eq.16 ) then
   8         write(ulsort,texte(langue,7)) 'ATHENA            '
   9       elseif ( typcca.eq.26 ) then
  10         write(ulsort,texte(langue,7)) 'SATURNE 2D        '
  11       elseif ( typcca.eq.36 ) then
  12         write(ulsort,texte(langue,7)) 'SATURNE           '
  13       elseif ( typcca.eq.46 ) then
  14         write(ulsort,texte(langue,7)) 'NEPTUNE 2D        '
  15       elseif ( typcca.eq.56 ) then
  16         write(ulsort,texte(langue,7)) 'NEPTUNE           '
  17       elseif ( typcca.eq.66 ) then
  18         write(ulsort,texte(langue,7)) 'CARMEL 2D         '
  19       elseif ( typcca.eq.76 ) then
  20         write(ulsort,texte(langue,7)) 'CARMEL            '
  21       elseif ( typcca.eq.106 ) then
  22         write(ulsort,texte(langue,7)) 'NON-CONFORME      '
  23       else
  24         write(ulsort,texte(langue,6)) typcca
  25         codret = 5
  26       endif