C*********************************************************************** C REVISED 11/30/76 - C - CF RTFLUX-IV - CE REGULAR TOTAL FLUXES - 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 - RTFLUX - (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 NDIM,NGROUP,NINTI,NINTJ,NINTK,ITER,EFFK,POWER,NBLOK - C - CW 9=NUMBER OF WORDS - C - CD NDIM NUMBER OF DIMENSIONS - CD NGROUP NUMBER OF ENERGY GROUPS - CD NINTI NUMBER OF FIRST DIMENSION FINE MESH INTERVALS - CD NINTJ NUMBER OF SECOND DIMENSION FINE MESH INTERVALS - CD NINTJ.EQ.1 IF NDIM.EQ.1 - CD NINTK NUMBER OF THIRD DIMENSION INTERVALS - CD NINTK.EQ.1 IF NDIM.LE.2 - CD ITER OUTER ITERATION NUMBER AT WHICH FLUX WAS WRITTEN - CD EFFK EFFECTIVE MULTIPLICATION FACTOR - CD POWER POWER IN WATTS TO WHICH FLUX IS NORMALIZED - CD NBLOK DATA BLOCKING FACTOR - CD IF NDIM.EQ.1, THE GROUP VARIABLE IS BLOCKED - CD INTO NBLOK BLOCKS (SEE 2D RECORD BELOW) - CD IF NDIM.GE.2, THE 2ND DIMENSION VARIABLE IS - CD BLOCKED INTO NBLOK BLOCKS (SEE 3D RECORD) - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR ONE DIMENSIONAL REGULAR TOTAL FLUX (2D RECORD) - C - CC PRESENT IF NDIM.EQ.1 - C - CL ((FREG(I,J),I=1,NINTI),J=JL,JU)----SEE STRUCTURE BELOW---- - C - CW NINTI*(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)*((NGROUP-1)/NBLOK+1)+1 - CC AND JU=MIN0(NGROUP,JUP) WHERE JUP=M*((NGROUP-1)/NBLOK+1) - C - CD FREG(I,J) ONE DIMENSIONAL REGULAR TOTAL FLUX - CD BY INTERVAL AND GROUP - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR MULI-DIMENSIONAL REGULAR TOTAL FLUX (3D RECORD) - C - CC PRESENT IF NDIM.GE.2 - C - CL ((FREG(I,J),I=1,NINTI),J=JL,JU)----SEE STRUCTURE BELOW---- - C - CW NINTI*(JU-JL+1)=NUMBER OF WORDS - C - C DO 1 L=1,NGROUP - C DO 1 M=1,NINTK - C DO 1 M=1,NBLOK - C 1 READ(N) *LIST AS ABOVE* - C - CC WITH M AS THE BLOCK INDEX, JL=(M-1)*((NINTJ-1)/NBLOK+1)+1 - CC AND JU=MIN0(NINTJ,JUP) WHERE JUP=M*((NINTJ-1)/NBLOK+1) - C - CD FREG(I,J) MULTI-DIMENSIONAL REGULAR TOTAL FLUX - CD BY INTERVAL AND GROUP - C - C-----------------------------------------------------------------------
TRANSX HyperText Manual
TRANSX HyperText Help Package
T-2 Nuclear Information Service