File: GLEICH.FC of Tape: Various/ETH/fc1

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C ACU-FOCAL12,1973

01.09 E
01.10 T "-";A L,!;S N=L-1;S I=-1
01.11 F K=0,N;S R(K)=K+1
01.12 F J=0,N;T !;F K=0,L;A A(J+L*K)
01.14 S M=1E-6
01.16 F J=0,N;F K=0,N;D 4
01.17 S R(P)=0
01.18 F K=0,L;S A(P+L*K)=A(P+L*K)/M
01.20 F J=0,N;D 5
01.22 S I=I+1
01.23 I (I-N)1.14,1.26,1.14
01.26 F J=0,N;F K=0,N;D 7
01.28 F K=0,N;T !%2,"X("K,")  ",%8.05,X(K)
01.29 T !!;G 1.09

04.05 I (R(J))0,4.3,4.1
04.10 I (FABS(A(J+L*K))-FABS(M))4.3
04.20 S M=A(J+L*K)
04.22 S P=J;S Q=K
04.30 R

05.10 I (J-P)5.2,5.4,5.2
05.20 S D=A(J+L*Q)
05.30 F K=O,L;S A(J+L*K)=A(J+L*K)-A(P+L*K)*D
05.40 R

07.10 I (1E-6-FABS(A(J+L*K)))7.2;R
07.20 S X(K)=A(J+L*L)

---