function success = close(fh);
% nrows=rowsf(fh) Returns number of columns of a Gauss data set
% which was opened with open (not fopen) command
global gaussfh;      % gauss file handle info
success=fclose(fh);
gaussfh(fh,1)=-99;
gaussfh(fh,2)=-99;
return;