Salome HOME
Homard executable
[modules/homard.git] / src / tool / Includes_Generaux / mslve7.h
1       if ( taopti(10).gt.0 ) then
2 c
3         if ( taopti(37).eq.0 ) then
4 c
5           write(ulsort,texte(langue,41))
6 c
7           if ( taopti(32).ge.-1 .and.taopti(32).le.1 ) then
8             write(ulsort,texte(langue,43+taopti(32)))
9 c
10           else
11             write(ulsort,texte(langue,11)) taopti(32)
12             nbrepb = nbrepb + 1
13 c
14           endif
15 c
16         endif
17 c
18       endif