C*********************************************************************** C REVISED 11/30/76 - C - CF RZFLUX-IV - CE REGULAR ZONE FLUX BY GROUP, AVERAGED OVER EACH ZONE - C - C*********************************************************************** C C C----------------------------------------------------------------------- CR FILE IDENTIFICATION - C - CL HNAME,(HUSE(I),I=1,2),IVERS - C - CW 1+3*MULT - C - CD HNAME HOLLERITH FILE NAME - RZFLUX - (A6) - CD HUSE HOLLERITH USER IDENTIFICATION (A6) - CD IVERS FILE VERSION NUMBER - CD MULT DOUBLE PRECISION PARAMETER - CD 1- A6 WORD IS SINGLE WORD - CD 2- A6 WORD IS DOUBLE PRECISION WORD - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR SPECIFICATIONS (1D RECORD) - C - CL TIME,POWER,VOL,EFFK,EIVS,DKDS,TNL,TNA,TNSL,TNBL,TNBAL,TNCRA, - CL 1(X(I),I=1,3),NBLOK,ITPS,NZONE,NGROUP,NCY - C - CW 20=NUMBER OF WORDS - C - CD TIME REFERENCE REAL TIME, DAYS - CD POWER POWER LEVEL FOR ACTUAL NEUTRONICS PROBLEM, - CD WATTS TERMAL - CD VOL VOLUME OVER WHICH POWER WAS DETERMINED, CC - CD EFFK EFFECTIVE MULTIPLICATION FACTOR - CD EIVS EIGENVALUE OF SEARCH PROBLEM - CD DKDS DERIVATIVE OF SEARCH PROBLEM - CD TNL TOTAL NEUTRON LOSSES - CD TNA TOTAL NEUTRON ABSORPTIONS - CD TNSL TOTAL NEUTRON SURFACE LEAKAGE - CD TNBL TOTAL NEUTRON BUCKLING LOSS - CD TNBAL TOTAL NEUTRON BLACK ABSORBER LOSS - CD TNCRA TOTAL NEUTRON CONTROL ROD ABSORPTIONS - CD X(I),I=1,3 RESERVED - CD NBLOK DATA BLOCKING FACTOR. THE GEOMETRIC ZONE - CD VARIABLE IS BLOCKED INTO NBLOK BLOCKS. - CD ITPS ITERATIVE PROCESS STATE - CD =0, NO ITERATIONS DONE - CD =1, CONVERGENCE SATISFIED - CD =2, NOT CONVERGED, BUT CONVERGING - CD =3, NOT CONVERGED, NOT CONVERGING - CD NZONE NUMBER OF GEOMETRIC ZONES - CD NGROUP NUMBER OF ENERGY GROUPS - CD NCY REFERENCE COUNT (CYCLE NUMBER) - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR FLUX VALUES (2D RECORD) - C - CL ((ZGF(K,J),K=1,NGROUP),J=JL,JU)----SEE STRUCTURE BELOW---- - C - CW NGROUP*(JU-JL+1)=NUMBER OF WORDS - C - C DO 1 M=1,NBLOK - C 1 READ(N) *LIST AS ABOVE* - C - CC WITH M AS THE BLOCK INDEX, JL=(M-1)*((NZONE-1)/NBLOK+1)+1 - CC AND JU=MIN0(NZONE,JUP) WHERE JUP=M*((NZONE-1)/NBLOK+1) - C - CD ZGF(K,J) REGULAR ZONE FLUX BY GROUP, AVERAGED OVER ZONE. - CD NEUTRONS/SEC-CM**2. - C - C-----------------------------------------------------------------------
TRANSX HyperText Manual
TRANSX HyperText Help Package
T-2 Nuclear Information Service