record2str( alhs, arhs, coeff )

function [ str, arecord ] = record2str( alhs, arhs, coeff )
%RECORD2STR Summary of this function goes here
%   output
%       str: <J, M|j1, m1, j2, m2> = coeff
%       arecord: [J, M, m1, m2, coeff]

alhs = (sym(alhs));
arhs = (sym(arhs));

J = char(alhs(1));
M = char(alhs(2));
j1 = char(arhs(1));
m1 = char(arhs(2));
j2 = char(arhs(3));
m2 = char(arhs(4));

str = sprintf('<%s, %s|%s, %s; %s, %s> = %s', J, M, j1, m1, j2, m2, char(coeff));
arecord = double([alhs(1), alhs(2), arhs(2), arhs(4)]);