Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
NAGRA NTB 85-32 C - 16<br />
C K=17 : U-234<br />
C ------------<br />
120 X=AL(17)<br />
00 130 1=1,4<br />
130 01(I)=X*(YY(14,I)+YY(16,I»<br />
140 01(2)=01(2)+ALPHA*QT(K)<br />
01(3)=01(3)+(100-ALPHA)*QT(K)<br />
X=AL(K)<br />
00 150 1=1,4<br />
150 BA1(1,1)=BK(1,1)/RR(K)<br />
00 160 1=1,4<br />
160 BA1(1,2)=BK(1,2)/RR2(K)<br />
00 170 J=3,4<br />
00 170 1=1,4<br />
170 BA1(I,J)=BK(I,J)<br />
00 180 J=1,4<br />
180 BA1(J,J)=BA1(J,J)+X<br />
C INVERT MATRIX BAl (IBM-LIBRARY ROUTINE)<br />
C ---------------------------------------<br />
CALL MINV(BA1,4,0,IVEC1,IVEC2)<br />
IF (D.LT.SMALL) STOP 1<br />
00 200 1=1,4<br />
X=OOO<br />
00 190 J=1,4<br />
190 X=X+BA1(I,J)*OI(J)<br />
200 YY(K,I)=X<br />
210 CONTINUE<br />
OI(1)=lDO/(Vl*RH01)<br />
01(3)=100/V3<br />
OI(4)=100/V4<br />
00 230 K=l,N<br />
OI(2)=100/(RR2(K)*V2W)<br />
00 220 1=1,4<br />
220 YY(K,I)=01(I)*YY(K,I)<br />
230 CONTINUE<br />
1F (TAB.OR.LOCMAX) GOTO 240<br />
RETURN<br />
240 WRITE(IPR,270)(TITEL(K),K=1,10),T1ME<br />
J=O<br />
250 I=J+l<br />
J=MIN(J+12,N)<br />
WRITE(1PR,280)(CNAME(K),K=I,J)<br />
WRITE(1PR,290)(QT(K),K=I,J)<br />
00 260 L=1,4<br />
260 WR1TE(IPR,290)(YY(K,L),K=I,J)<br />
IF (J.LT.N) GOTO 250