function nrows = rowsf(fh);
% nrows=rowsf(fh) Returns number of rows of a Gauss data set
% which was opened with open (not fopen) command
global gaussfh;      % gauss file handle info
curpos=ftell(fh);
fhstat=fseek(fh,0,1);
nbytes=ftell(fh);
nrows=nbytes/(gaussfh(fh,1)*gaussfh(fh,2));
fhstat=fseek(fh,curpos,-1);
return;