call
c_system_tpuc_cols(s, cl, cstat)
read
(s(:cl),
*
) nCols