Homard executable

[modules/homard.git] / src / tool / Includes_Generaux / mslve7.h

diff --git a/src/tool/Includes_Generaux/mslve7.h b/src/tool/Includes_Generaux/mslve7.h
new file mode 100644 (file)
index 0000000..9da76da
--- /dev/null
+++ b/src/tool/Includes_Generaux/mslve7.h
@@ -0,0 +1,18 @@
+      if ( taopti(10).gt.0 ) then
+c
+        if ( taopti(37).eq.0 ) then
+c
+          write(ulsort,texte(langue,41))
+c
+          if ( taopti(32).ge.-1 .and.taopti(32).le.1 ) then
+            write(ulsort,texte(langue,43+taopti(32)))
+c
+          else
+            write(ulsort,texte(langue,11)) taopti(32)
+            nbrepb = nbrepb + 1
+c
+          endif
+c
+        endif
+c
+      endif