Si prosegue con le modifiche per l'inclusione degli esempi di codice.

[gapil.git] / listati / WriteVect.c

diff --git a/listati/WriteVect.c b/listati/WriteVect.c
new file mode 100644 (file)
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;
+}