savemagtoh5.m
118e68d1a0d5geom_test

savemagtoh5.m
View Options

			function savemagtoh5(filename,r,z,Athet,Br,Bz)
			if nargin<6
			[Bz,~]=-gradient(Athet,mean(diff(z)));
			end
			if nargin<5
			[~, Br]=gradient(r.*Athet,1,mean(diff(r)));
			Br=Br./r;
			end

			h5create(filename,'/mag/r',length(r));
			h5create(filename,'/mag/z',length(z));
			h5create(filename,'/mag/Athet',size(Athet'));
			h5create(filename,'/mag/Br',size(Br'));
			h5create(filename,'/mag/Bz',size(Bz'));
			h5write(filename,'/mag/r',r)
			h5write(filename,'/mag/z',z)
			h5write(filename,'/mag/Athet',Athet')
			h5write(filename,'/mag/Br',Br')
			h5write(filename,'/mag/Bz',Bz')

			end