|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »genbdtxt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦af373cc6d⟧ »rydiv«
└─⟦this⟧
;ali
mode list.yes
lookup genbdtxt
lookup rydlist
if ok.yes
mode 15.yes
clear genbd
genbd=set 80
permanent genbd.17
genbd=hcalg
30 5 76
genbd
begin
integer n,l,z,nmin,nmax,lmin,lmax,zmax;
real ddef;
array op(1:3);
algol list.off copy.alutproc;
algol list.off copy.ryproc;
zmax:=1;
ddef:=.1;
readifp(<:z:>,zmax);
if readrfp(<:ddef:>,ddef) then ddef:=.01*ddef;
nmin:=readil(<:nmin:>,1,25);
nmax:=readil(<:nmax:>,nmin,25);
lmin:=readil(<:lmin:>,0,nmax-1);
lmax:=readil(<:lmax:>,lmin,nmax-1);
if fpout then begin
stackcuro;
readlsfp(op);
connectcuro(op);
end;
for z:=1 step 1 until zmax do
begin
write(out,nl,1,<:electrons 1:>,nl,1,<:finestructure no:>,nl,1);
writeatsym(out,1,1,z);
write(out,<:<10>ionisation potential = :>,
<< ddddddddd.dd>,219474.62/2*z*z);
for l:=lmin step 1 until lmax do
for n:=if nmin<l+1 then l+1 else nmin step 1 until nmax do
write(out,<:<10>:>,n,false add ryalf(2*l),1,l+1+(n-l-1)*ddef);
write(out,<:<10>:>,if z<>zmax then <:ion:> else <:end:>,
<:<10>:>);
end;
if fpout then closeout;
end;
genbd
1
5
0
4
mode list.no
▶EOF◀