listati/WriteVect.c

   1 int WriteVect(FILE *stream, double *vec, size_t nelem)
   2 {
   3     int size, nread;
   4     size = sizeof(*vec);
   5     if ( (nread = fwrite(vec, size, nelem, stream)) != nelem) {
   6         perror("Write error");
   7     }
   8     return nread;
   9 }