Fix free dims if needed before relaocating new one

src/blc_array.cpp

@@ -172,7 +172,6 @@ int blc_array::get_type_size(){
     return -1;
 }
 
-
 int blc_array::sprint_dims(char *string, int string_size){
     int i, width=0;
     
@@ -185,7 +184,6 @@ int blc_array::sprint_dims(char *string, int string_size){
     return width;
 }
 
-
 int blc_array::fprint_dims(FILE *file)const {
     int i, width=0;
     
@@ -197,7 +195,6 @@ int blc_array::fprint_dims(FILE *file)const {
     return width;
 }
 
-
 void blc_array::fscan_dims(FILE *file){
     blc_dim *dim;
     int length;
@@ -205,10 +202,8 @@ void blc_array::fscan_dims(FILE *file){
     size=get_type_size();
     
     FSCANF(1, file, "%d", &length);
-    dims=NULL;
-    dims_nb=0;
-    
     if (dims) FREE(dims);
+    dims_nb=0;
     
     if (length != 0){
         do{