#pragma TextEncoding	= "UTF-8"
#pragma rtGlobals 		= 3
#pragma IgorVersion		= 8.0
#pragma DefaultTab		= {3,20,4}

function/S readIBWname(string path)
	int fileID, version
	Open/Z/R fileID as path
	if (V_flag != 0)
		return ""
	endif
	
	FBinRead/B=3/F=2/U fileID, version
	int length = 20 + 12*(version>3)
	int offset =  6 + 8*(version==1) + 16*(version==2) + 20*(version==3) + (64 + 22)*(version>3)
	if (version > 5)
		FSetPos fileID, 56
		FBinRead/B=3/F=2/U fileID, length
		FStatus fileID
		offset = V_logEOF-length
	endif
	
	string name = PadString("", length, char2num(" "))
	FSetPos  fileID, offset
	FBinRead fileID, name
	
	Close fileID
	return UnpadString(name,0)
end