Deutsch (6.2 MB) - Nagra

NAGRA NTB 85-32 C - 20
C BLOCKDATA
C
$INSERT INSFO.F77
PARAMETER N=3S, Nl=N+l
IMPLICIT REAL*8 (A-H,O-Z)
LOGICAL FINI,TAB,AUTO,LOCMAX,CLIMB
COMMON /CALLG/IRD,IRD1,IPR,IPR4,FINI,TAB,
* AUTO,LOCMAX,CLIMB,OLDSUM,SMALL
$INSERT INSF1.F77
COMMON /CNUK/CNAME(N),AL(N),LAB(N)
COMMON /CTIT/TITEL(10),TABT(S),ALPHA
COMMON /CBK/BK(4,4),RR(N),RR2(N)
COMMON /CKOM/Vl,V2W,V3,V4,RHOl
$INSERT INSF4.F77
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
COMMON /CDF/DF(N)
COMMON /CTF/EP(N),EV(N),EG(N),ER(N),EF(N),FM(N),FK(N),FE(N)
COMMON /CKONS/UW,UM,UF,UG,UK,UR,UE,UP,VCP,VCS.VCL,HCG,HCL
CNAME NUKLIDNAMEN [-]
AL ZERFALLSKONSTANTEN [l/A]
LAB ZERFALLSKETTEN-PARAMETER [-]
DF(K) DOSISFAKTOR [MREM/CI]
EP(K) KONZ.FAKTOR BODEN-GRAS [KG/KG]
EV(K) 11 BODEN-BLATTGEMUESE [KG/KG]
EG(K) " BODEN-GETREIDE [KG/KG]
ER(K) 11 BODEN-WURZELGEMUESE [KG/KG]
EF(K) " SUESSWASSER-FISCH [L/KG]
FM(K) VERTEILUNGSFAKTOR MILCH [TAG/L]
FK(K) VERTEILUNGSFAKTOR FLEISCH [TAG/KG]
FE(K) VERTEILUNGSFAKTOR EIER [TAG/STCK]
UW TRINKWASSERKONSUM [L/A]
UM MILCHKONSUM [L/A]
UF FLEISCHKONSUM [KG/A]
UG BLATTGEMUESEKONSUM [KG/A]
UK GETREIDEKONSUM [KG/A]
UR WURZELGEMUESEKONSUM [KG/A]
UE EIERKONSUM [STCK/A]
UP FISCHVERZEHR [KG/A]
VCP FUTTERKONSUM KUH [KG/TAG]
VCS KONSUM ERDE KUH [KG(TROCKEN)/TAG]
VCL WASSERKONSUM KUH [L/TAG]
HCG KORNKONSUM HUHN [KG/TAG]
HCL WASSERKONSUM HUHN [L/TAG]