fiff_write_double_complex.m
8a186cd82567master

fiff_write_double_complex.m
View Options

			function fiff_write_double_complex(fid,kind,data)
			%
			% fiff_write_double_complex(fid,kind,data)
			%
			% Writes a double-precision complex tag to a fif file
			%
			% fid An open fif file descriptor
			% kind Tag kind
			% data The data
			%

			%
			% Author : Matti Hamalainen, MGH Martinos Center
			% License : BSD 3-clause
			%
			% Revision 1.1 2006/09/23 14:43:56 msh
			% Added routines for writing complex and double complex matrices.
			% Added routine for writing double-precision real matrix.
			%
			%

			me='MNE:fiff_write_double_complex';

			if nargin ~= 3
			error(me,'Incorrect number of arguments');
			end

			FIFFT_COMPLEX_DOUBLE=21;
			FIFFV_NEXT_SEQ=0;
			nel=numel(data);
			datasize=2nel8;
			count = fwrite(fid,int32(kind),'int32');
			if count ~= 1
			error(me,'write failed');
			end
			count = fwrite(fid,int32(FIFFT_COMPLEX_DOUBLE),'int32');
			if count ~= 1
			error(me,'write failed');
			end
			count = fwrite(fid,int32(datasize),'int32');
			if count ~= 1
			error(me,'write failed');
			end
			count = fwrite(fid,int32(FIFFV_NEXT_SEQ),'int32');
			if count ~= 1
			error(me,'write failed');
			end
			for k = 1:nel
			count = fwrite(fid,real(data(k)),'double');
			if count ~= 1
			error(me,'write failed');
			end
			count = fwrite(fid,imag(data(k)),'double');
			if count ~= 1
			error(me,'write failed');
			end
			end
			return;