Save Complex 2D Wave As FixedField

//	SaveComplex2DWaveAsFixedField(pathName, fileName, header, cw, fieldWidth, digitsAfterDP, fullPathOut)
//	Writes a 2D complex wave to a text file using FORTRAN-style fixed field formatting.
//	To try it, execute this:
//		MakeTestData(10,5); Test()

Function SaveComplex2DWaveAsFixedField(pathName, fileName, header, cw, fieldWidth, digitsAfterDP, fullPathOut)
	String pathName		// Symbolic path name or "" for dialog
	String fileName			// Output file name or "" for dialog
	String header			// Header text to be written to file or "" if none. Should end with CRLF.
	Wave/C cw
	Variable fieldWidth
	Variable digitsAfterDP
	String &fullPathOut		// Output: Full path to saved file or "" if error or user cancels
	
	fullPathOut = ""
	
	Variable refNum = 0
	Open /P=$pathName /T=".dat" refNum as fileName
	if (GetRTError(0))
		return -1			// Error opening file
	endif
	if (refNum == 0)
		return -1			// User cancelled
	endif
	
	FStatus refNum
	fullPathOut = S_path + S_fileName
	
	fprintf refNum, "%s", header
	
	Variable numRows = DimSize(cw, 0)
	Variable numColumns = DimSize(cw, 1)
	
	Variable row, column
	
	for(row=0; row<numRows; row+=1)
		for(column=0; column<numColumns; column+=1)
			String text
			Variable/C cval = cw[row][column]
			Variable rVal = real(cval), iVal = imag(cval)
			
			fprintf refNum, "%*.*E%*.*E", fieldWidth, digitsAfterDP, rVal, fieldWidth, digitsAfterDP, iVal
		endfor
		fprintf refNum, "\r\n"
	endfor
	
	Close refNum
	
	return 0	
End

Function MakeTestData(rows,columns)
	Variable rows,columns
	Make /O /C /N=(rows,columns) mat = cmplx(gnoise(1), gnoise(1))
End

Function Test()
	DoWindow/K FixedFieldNotebook
	
	String pathName = "Igor"				// "" gives dialog
	String fileName = "FixedField.dat"
	String header = "This is a test of the SaveComplex2DWaveAsFixedField routine\r\n"
	String fullPathOut
	
	Variable timerRefNum = StartMSTimer
	
	Variable result = SaveComplex2DWaveAsFixedField(pathName, fileName, header, mat, 14, 5, fullPathOut)
	
	Variable elapsed = StopMSTimer(timerRefNum) / 1E6
	
	if (result == 0)
		Printf "Elapsed time: %g\r", elapsed
	
		OpenNotebook /P=$pathName /N=FixedFieldNotebook /K=1 fullPathOut
		Notebook FixedFieldNotebook font="Courier New"
	endif
End