htswanalysis/MACS/lib/gsl/gsl-1.11/doc/examples/vectorw.c

   1 #include <stdio.h>
   2 #include <gsl/gsl_vector.h>
   3
   4 int
   5 main (void)
   6 {
   7   int i;
   8   gsl_vector * v = gsl_vector_alloc (100);
   9
  10   for (i = 0; i < 100; i++)
  11     {
  12       gsl_vector_set (v, i, 1.23 + i);
  13     }
  14
  15   {
  16      FILE * f = fopen ("test.dat", "w");
  17      gsl_vector_fprintf (f, v, "%.5g");
  18      fclose (f);
  19   }
  20
  21   gsl_vector_free (v);
  22   return 0;
  23 }