X-Git-Url: https://gapil.gnulinux.it/gitweb/?a=blobdiff_plain;f=listati%2FWriteVect.c;fp=listati%2FWriteVect.c;h=98cfd183731bc56c923a77964854c4fed06b83ad;hb=cf60963212306540ce7485ed7c86405e143a3352;hp=0000000000000000000000000000000000000000;hpb=6377acba6d39c62ceff07a420e0028bf6e03408c;p=gapil.git

diff --git a/listati/WriteVect.c b/listati/WriteVect.c
new file mode 100644
index 0000000..98cfd18
--- /dev/null
+++ b/listati/WriteVect.c
@@ -0,0 +1,9 @@
+int WriteVect(FILE *stream, double *vec, size_t nelem) 
+{
+    int size, nread;
+    size = sizeof(*vec);
+    if ( (nread = fwrite(vec, size, nelem, stream)) != nelem) {
+        perror("Write error");
+    }
+    return nread;
+}