-#include <CORBA.h>\r
-#include <fstream>\r
-#include <string>\r
-#include "alglin.hh"\r
-\r
-int main(int argc,char **argv)\r
-{\r
- CORBA::ORB_ptr orb = CORBA::ORB_init (argc, argv);\r
-\r
- string s;\r
- ifstream f("AlgLin.ior");\r
- f >> s;\r
- f.close();\r
-\r
- CORBA::Object_ptr O = orb->string_to_object(s.c_str());\r
- Distant::AlgLin_var A = Distant::AlgLin::_narrow(O);\r
-\r
- long n = 5;\r
-\r
- Distant::vecteur V1;\r
- V1.length(n);\r
-\r
- Distant::vecteur V2;\r
- V2.length(n);\r
-\r
- for (long i=0; i<n; i++) {\r
- V1[i] = i*i;\r
- V2[i] = 2*i;\r
- }\r
-\r
- CORBA::Double S = A->prdscl(V1, V2);\r
- cerr << S << endl;\r
-}\r
+#include <CORBA.h>
+#include <fstream>
+#include <string>
+#include "alglin.hh"
+
+int main(int argc,char **argv)
+{
+ CORBA::ORB_ptr orb = CORBA::ORB_init (argc, argv);
+
+ string s;
+ ifstream f("AlgLin.ior");
+ f >> s;
+ f.close();
+
+ CORBA::Object_ptr O = orb->string_to_object(s.c_str());
+ Distant::AlgLin_var A = Distant::AlgLin::_narrow(O);
+
+ long n = 5;
+
+ Distant::vecteur V1;
+ V1.length(n);
+
+ Distant::vecteur V2;
+ V2.length(n);
+
+ for (long i=0; i<n; i++) {
+ V1[i] = i*i;
+ V2[i] = 2*i;
+ }
+
+ CORBA::Double S = A->prdscl(V1, V2);
+ cerr << S << endl;
+}