let cvect64 (case:coord) = let temp = Array.create 64 0.0 in
  temp.(lin case) <- 1.0 ; temp