From 01832377377142696645a2ea800af2db3d0fac15 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Thu, 12 Jun 2014 14:15:05 +0200
Subject: improved loadMatrix

---
 packages/base/src/C/vector-aux.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'packages/base/src/C')

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index efb82af..2f47c8f 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -654,6 +654,9 @@ int zipQ(int code, KQVEC(a), KQVEC(b), QVEC(r)) {
 int vectorScan(char * file, int* n, double**pp){
     FILE * fp;
     fp = fopen (file, "r");
+    if(!fp) {
+        ERROR(BAD_FILE);
+    }
     int nbuf = 100*100;
     double * p = (double*)malloc(nbuf*sizeof(double));
     int k=0;
@@ -667,7 +670,7 @@ int vectorScan(char * file, int* n, double**pp){
         if (k==nbuf) {
             nbuf = nbuf * 2;
             p = (double*)realloc(p,nbuf*sizeof(double));
-            //printf("R\n");
+            // printf("R\n");
         }
         p[k++] = d;
     }
-- 
cgit v1.2.3