call c_system_tpuc_cols(s, cl, cstat)

  read(s(:cl),*) nCols