DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »seqtxt«

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

TextFile

;ali time.90 lines.3000

clear seqlist
seqlist=set 180
permanent seqlist.13
lookup rydgtest
if ok.yes
mode 10.yes
lookup rydlist
if ok.yes
mode list.yes
clear rydlist rydgtest
if list.yes
seqlist=hcalg list.yes
seqlist=hcalg
seqlist
11 2 77
begin
integer z,zmin,zmax,char,charge;
zmax:=92;
readifp(<:zmax:>,zmax);
begin
integer array ztable(1:zmax);

algol list.off copy.alutproc;
algol list.off copy.ryproc;

cleararray(ztable);

write(out,ff,1,nl,1,<:one-electron sequences:>);
for zmin:=3,11,19,37,55,87,29,47,79,69 do begin
  if zmin<=zmax then begin
  ztable(zmin):=1;
  write(out,nl,2);
  write(out,string atsym(zmin),<:-sequence:>,nl,1);
  for z:=zmin step 1 until zmax do begin
    char:=write(out,string atsym(z));
    char:=char+write(out,sp,3-char)+
    writeroman(out,z-zmin+1);
    if (z-zmin+1) mod 5 =0 or z=zmax then write(out,nl,1) else
      write(out,sp,14-char);
    end;
  end;
end;
write(out,ff,1,nl,1,<:two-electron sequences:>);
for zmin:=2,4,12,20,38,56,88,30,48,80,70 do begin
  if zmin<=zmax then begin
  ztable(zmin):=2;
  write(out,nl,2);
  write(out,string atsym(zmin),<:-sequence:>,nl,1);
  for z:=zmin step 1 until zmax do begin
    char:=write(out,string atsym(z));
    char:=char+write(out,sp,3-char)+
    writeroman(out,z-zmin+1);
    if (z-zmin+1) mod 5 = 0 or z=zmax then write(out,nl,1) else
      write(out,sp,14-char);
    end;
  end;
end;
write(out,ff,1,nl,1,<:three-electron sequences:>);
for zmin:=5,13,31,49,81,21,39,57,89,71 do begin
  if zmin<=zmax then begin
  ztable(zmin):=3;
  write(out,nl,2);
  write(out,string atsym(zmin),<:-sequence:>,nl,1);
  for z:=zmin step 1 until zmax do begin
    char:=write(out,string atsym(z));
    char:=char+write(out,sp,3-char)+
    writeroman(out,z-zmin+1);
    if (z-zmin+1) mod 5 = 0 or z=zmax then write(out,nl,1) else
      write(out,sp,14-char);
    end;
  end;
end;

write(out,ff,1,nl,1,<:ions of interest:>);
for z:=2 step 1 until zmax do begin
write(out,nl,2,string atsym(z));
for charge:=1 step 1 until z do begin
  if ztable(z-charge+1)>0 then begin
    char:=write(out,nl,1,string atsym(z))-1;
    char:=char+write(out,sp,3-char);
    char:=char+writeroman(out,charge);
    char:=char+write(out,sp,14-char);
    char:=write(out,string atsym(z-charge+1));
    write(out,sp,3-char,<:I :>,
     case ztable(z-charge+1) of (<:one:>,<:two:>,<:three:>));
    end;
  end;
end;
write(out,ff,1);
end;
end
seqlist
mode list.no 15.no
▶EOF◀