DataMuseum.dk

top - metrics - download

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

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

TextFile

;ali
mode list.yes
lookup gentesttxt
lookup rydlist
if ok.yes
mode 15.yes
clear gentest
gentest=set 80
permanent gentest.17
gentest=hcalg 
30 5 76
gentest
begin
integer n,l,z,nmin,nmax,lmin,lmax,zmax,defs,maxdef;
real ddef,defmin;
array op(1:3);
algol list.off copy.alutproc;
algol list.off copy.ryproc;
zmax:=maxdef:=defs:=1;
ddef:=defmin:=0;
readifp(<:defect:>,maxdef);
readifp(<:z:>,zmax);
readrfp(<:mindef:>,defmin);
readrfp(<:ddef:>,ddef);
defmin:=defmin/100;
ddef:=ddef/100;
begin
array defect(1:maxdef);
nmin:=readil(<:nmin:>,1,25);
nmax:=readil(<:nmax:>,nmin,25);
lmin:=readil(<:lmin:>,0,nmax-1);
lmax:=readil(<:lmax:>,lmin,nmax-1);
if maxdef>1 then begin
 defmin:=defmin-ddef;
 if ddef=0 then
 readra1l(<:defect:>,defect,1,maxdef,-1,nmin-.1)
 else for defs:=1 step 1 until maxdef do
  defect(defs):=defmin+defs*ddef;
 end else defect(1):=0;
if fpout then begin
stackcuro;
readlsfp(op);
connectcuro(op);
end;
for defs:=1 step 1 until maxdef do
for z:=1 step 1 until zmax do
begin
  write(out,nl,1);
  writeatsym(out,1,1,z);
  write(out,<:<10>ionisationspotential =    :>,
  << ddddddddd.dd>,219474.62/2*z*z/(nmin-defect(defs))**2);
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,n-defect(defs));
write(out,<:<10>:>,if z<>zmax or defs<maxdef then <:ion:> else <:end:>,
    <:<10>:>);
end;
if fpout then closeout;
end;
end;
▶EOF◀