JAEA-Data/Code 2007-004 - Welcome to Research Group for ...

Repeat Block-20 through Block-21, NEDS times.
Block-20 Required if NEDS>0 /2/
NZ
Integer of edit zones.
NORMZ The zone to which the power density is normalized. (effective if IEDOPT=3 or =4)
Normalized to average value of the whole system if NORMZ=0.
Block-21 Required if IEDOPT>0 /IM*JM/
NEDZ(i,j) Integers defining which edit zone each coarse mesh material zone is in.
Block-22
IXZ(i,j)
X-Region numbers by coarse mesh zone.
/IM*JM/
The following distributed and boundary sources Blocks -7, -8, -9, -10, -11, -12, and -13 are read
in the execution step of TWOTRAN; they must be positioned after the PEACO input data.
Block-7 Required if IQOPT=1,2,3,4 (See 20th term in Block-3) /See option IQOPT/
Q(g,i,j,n) External volume source depending on IQOPT
if IQOPT =1 NQM set of IGM
if IQOPT=2 IGM groups of NMQ blocks of IT*JT
if IQOPT=3 NMQ sets of IGM and IT*JT
if IQOPT=4 NMQ sets of IGM and IT then JT
if IQOPT=5 entire source from logical device 32
IM
where IT= ∑ IHX(i), JT=
i=
1
JM
∑
j=
1
IHY(j)
Block-8 Required if IQR=1 (See 22nd term in Block-3) /JT*MM/
QR1(j,n) Right boundary source (flux) in the in-down directions.
JT is total number of fine mesh in j-direction, equal to the sum of IHY vector in
Block-6, and MM is total number of angular mesh in a quadrant; MM=
ISN*(ISN+2)/8.
Block-9 Required if IQR=1 /JT*MM/
QR2(j,n) Right boundary source (flux) in the in-up directions.
Block-10 Required if IQB=1 /IT*MM/
85