DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tlsjj«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦af373cc6d⟧ »rydiv« 
            └─⟦this⟧ 

TextFile

;al3 time 20 0 lines.2500

(mode list.yes
lookup tlsjj
clear lsjj
lsjj=set 160
permanent lsjj.13
lookup rydrun
if ok.yes
mode 10.yes
lookup rydlist
if ok.yes
mode 15.yes
clear rydlist rydgtest
lsjj=hcalg xref.no
lsjj
)
1979-03-08
begin
integer l,l1,l2,j1,j2,L,S,J,s1,s2;
real U,njv;
array factorial(0:25);
algol list.on copy.fracparpr;
initfactorial(factorial);
s1:=s2:=1;
read(in,l1,l2);
if l1>l2 then
begin
  l:=l1; l1:=l2; l2:=l;
end;
l1:=2*l1; l2:=2*l2;
write(out,nl,4,<:LS-jj coupling matrix:>);
write(out,nl,2,sp,8);
for j2:=abs(l1-s1) step 2 until l1+s1 do
for j2:=abs(l2-s2) step 2 until l2+s2 do
write(out,sp,2,j1//2,<:,:>,j2//2);
for L:=l2-l1 step 2 until l2+l1 do
for S:=s2-s1 step 2 until s1+s2 do
begin
  J:=L+S;
  write(out,nl,1,S//2,L//2,J//2);; 
  for j1:=abs(l1-s1) step 2 until l1+s1 do
  for j2:=abs(l2-s1) step 2 until l1+s1 do
  begin
    U:=(L+1)*(S+1)*(j1+1)*(j2+1);
    njv:=njs(l1,l2,L,s1,s2,S,j1,j2,J);
    write(out,U*njv,njv);
  end;
end;
end
0 1
▶EOF◀