function ncols = colsf(fh);
% ncols=colsf(fh) Returns number of columns of a Gauss data set
% which was opened with open (not fopen) command
global gaussfh;      % gauss file handle info
ncols=gaussfh(fh,1);
return;