doc/exemples/exemple1/exec2/alglin.cxx

   1 #include "alglin.hxx"\r
   2 \r
   3 extern "C" {\r
   4   double * valloc(long n);\r
   5   void vfree(double *x);\r
   6   void addvec_(double *C, double *A, double *B, long *n);\r
   7   double prdscl_(double *A, double *B, long *n);\r
   8 }\r
   9 \r
  10 void   alglin::addvec(vecteur *C, vecteur *A, vecteur *B) {\r
  11   long n = A->n();\r
  12   addvec_(C->x(), A->x(), B->x(), &n);\r
  13 }\r
  14 \r
  15 double alglin::prdscl(vecteur *A, vecteur *B) {\r
  16   long n = A->n();\r
  17   return prdscl_(A->x(), B->x(), &n);\r
  18 }\r
  19 \r
  20 vecteur * alglin::create_vector(long n) {\r
  21   return new vecteur(n);\r
  22 }\r
  23 \r
  24 void   alglin::destroy_vector(vecteur *V) {\r
  25   delete V;\r
  26 }\r