drift

DRIFT('FAMILYNAME',Length [m],'METHOD')
    creates a new family in the FAMLIST - a structure with fields
        FamName            family name
        Length            length[m]
        PassMethod        name of the function on disk to use for tracking
 returns assigned address in the FAMLIST that is uniquely identifies
 the family

0001 function z = drift(fname,L,method)
0002 %DRIFT('FAMILYNAME',Length [m],'METHOD')
0003 %    creates a new family in the FAMLIST - a structure with fields
0004 %        FamName            family name
0005 %        Length            length[m]
0006 %        PassMethod        name of the function on disk to use for tracking
0007 % returns assigned address in the FAMLIST that is uniquely identifies
0008 % the family
0009 
0010 ElemData.FamName = fname;  % add check for identical family names
0011 ElemData.Length = L;
0012 ElemData.PassMethod=method;
0013 
0014 global FAMLIST
0015 z = length(FAMLIST)+1; % number of declare families including this one
0016 FAMLIST{z}.FamName = fname;
0017 FAMLIST{z}.NumKids = 0;
0018 FAMLIST{z}.KidsList= [];
0019 FAMLIST{z}.ElemData= ElemData;
0020 
0021