functor
  (X : sig
         val value :
           (Slap_C.num_type, Slap_C.prec, Bigarray.fortran_layout)
           Bigarray.Array2.t
       end->
  CNTMAT