let create ?(temp_dir="/dev/shm")  data_type  size_array =
    let result = 
      Bigarray.Genarray.create data_type Bigarray.fortran_layout size_array
    in
    Bigarray.Genarray.fill result 0.;
    result