DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »tanalspect«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦e6c2bcfa6⟧ »cryprog« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦e6c2bcfa6⟧ »cryprog« 
            └─⟦this⟧ 

TextFile

;al3 time.300 lines.2000
mode list.yes
clear analspect
analspect=set 70
permanent analspect.13
if list.yes
mode 15.yes
analspect=hcalg
1979-02-07
begin
integer i,nmax,lmax,n1,n2,l1,l2,char,Z,S,ng,lg,atno;
boolean cm;
real lambda,Ip;
algol list.off copy.ryproc;
cm:=true;
readbfp(<:cm:>,cm);
nmax:=12;
lmax:=nmax-1;
readifp(<:nmax:>,nmax);
readifp(<:lmax:>,lmax);
lmax:=2*lmax;
lexi(1,0);
begin
array Ecm(1:lexi(nmax,lmax//2)),output(1:3);
for i:=lexi(nmax,lmax//2) step -1 until 1 do Ecm(i):=0;
readatsym(in,S,atno,Z);
write(out,<:ground state :>); outend(0); read(in,ng);
repeatchar(in); readchar(in,lg); lg:=ryalf(lg);
Ip:=if cm then readr(<:Ip (cm-1):>) else readr(<:Ip (eV):>)*8065.73;
for i:=readchar(in,char) while char<>101 and char<>25 do begin
  repeatchar(in); read(in,n1); repeatchar(in);
  readchar(in,l1); l1:=ryalf(l1);
  read(in,n2); repeatchar(in); readchar(in,l2); l2:=ryalf(l2);
  read(in,lambda);
  if n1>0 and n2>0 and l1>=0 and abs(l2-l1)=2 and 
    n1<=nmax and n2<=nmax and l2<=lmax and lambda>0 then
      Ecm(lexi(n2,l2//2)):=Ecm(lexi(n1,l1//2))+'8/lambda;
  end;
readlsfp(output);
stackcuro;
i:=connectcuro(output);
if i<>0 then begin
  unstackcuro;
  alarm(<:***left side :>,i);
  end;
writeatsym(out,S,atno,Z);
  write(out,<:<10>:>,<<ddddddddd>,Ip,
  <:<10>:>,ng,false add ryalf(lg),1,<: 0:>);
for l1:=0 step 2 until lmax do
for n1:=l1//2+1 step 1 until nmax do
  begin
  if Ecm(lexi(n1,l1//2))>0 then write(out,<:<10>:>,
    <<dd>,n1,false add ryalf(l1),1,<<dddddddd>,Ecm(lexi(n1,l1//2)));
  end;
write(out,<:<10>end<10>:>);
outend(0);
closeout;
end;
end;
mode list.no
▶EOF◀