https://github.com/entron/snake-dmrg
Tip revision: 458952053f581046be8a21c8cc1e894b0228f926 authored by Cheng Guo on 05 December 2012, 22:55:28 UTC
Splitted a long function.
Splitted a long function.
Tip revision: 4589520
sitebase2file.m
function sitebase2file(fid,Dim,subnum,dim,gtypenum,gqn,ordermap)
%This function write the matlab generated site base information a to a
%binary file fid.
%Cheng Guo, 05 Aug 2009
fwrite(fid, Dim, 'int32');
fwrite(fid, subnum, 'int32');
fwrite(fid, dim, 'int32');
for i=1:subnum
fwrite(fid, gtypenum, 'int32');
for j=1:gtypenum
fwrite(fid, gqn(j,i), 'int32');
end
end
fwrite(fid, Dim, 'int32');
fwrite(fid, ordermap, 'int32');