Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
NAGRA NTB 85-32 c- 13<br />
SUBROUTINE BINIT<br />
$INSERT INSFO.F77<br />
PARAMETER N=3S, Nl=N+l<br />
IMPLICIT REAL*8 eA-H,O-Z)<br />
LOGICAL FINI,TAB,AUTO,LOCMAX,CLI<strong>MB</strong><br />
COMMON ICALLG/IRD,IRD1,IPR,IPR4,FINI,TAB,<br />
* AUTO,LOCMAX,CLI<strong>MB</strong>,OLDSUM,SMALL<br />
$INSERT INSF1.F77<br />
COMMON ICNUK/CNAMEeN),ALeN),LABeN)<br />
COMMON ICTIT/TITEL(10),TABTeS),ALPHA<br />
COMMON ICBK/BKe4,4),RReN),RR2eN)<br />
COMMON ICKOM/V1,V2W,V3,V4,RHOl<br />
$INSERT INSF2.F77<br />
COMMON ICBIO/BETA,COVG,COVV,VEZ,CIR,CDEP<br />
DIMENSION AKD1(N),AKD2(N)<br />
SMALL=lD-30<br />
DO 10 1=1,4<br />
DO 10 K=1,4<br />
10 BKCI,K)=ODO<br />
OLDSUM=ODO<br />
AUTO=.FALSE.<br />
LOCMAX=.FALSE.<br />
CLI<strong>MB</strong>=.FALSE.<br />
READCIRD,SO)(TITELCK),K=1,10)<br />
READCIRD,*)CTABTCK),K=l,S)<br />
READCIRD,SO)<br />
READCIRD,SO)<br />
READCIRD,SO)<br />
READCIRD,SO)<br />
IFCTABT(1).LT.ODO) AUTO=.TRUE.<br />
READCIRD1,*)ALPHA,BETA<br />
READ(IRD1,*)Vl,V2,V3,V4,EPS1,EPS2,RH01,RH02<br />
READCIRD1,*)F01,F02,F43,F4S,F21,F31<br />
READCIRD1,60)CAKD1CK),K=1,N)<br />
READCIRD1,60)CAKD2(K),K=1,N)<br />
READCIRD1,*)COVG,COVV,VEZ,CIR,CDEP<br />
WRITECIPR,70)CTITEL(K),K=1,10)<br />
WRITECIPR,80)Vl,V2,V3,V4,EPS1,EPS2,RH01,RH02,<br />
& F01,F02,F43,F4S,F21,F31,ALPHA,BETA<br />
WRITECIPR,90)<br />
J=O<br />
20 I=J+l<br />
J=MINCJ+12,N)<br />
WRITE(IPR,100)CCNAMECK),K=I,J)<br />
WRITE(IPR,110)CAKD1(K),K=I,J)<br />
WRITECIPR,110)CAKD2CK),K=I,J)<br />
IF CJ.LT.N) GOTO 20<br />
WRITECIPR,120)COVG,COVV,VEZ,CIR,CDEP<br />
X='TOTAL'<br />
WRITECIPR4,130)CTITELCK),K=1,10),CCNAMECK),K=1,N),X