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

READ(9) (WORK(J+I),I=1,NDATA)
END DO
where MX, MY, MZ, NG are number of mesh points on X-, Y-,
Z-direction and number of groups, respectively.
NGC7
Option to write mesh information and mesh-wise power density distribution
= 0 Skip
= 1 Write on I/O logical device 32
The power distribution (W/cm 3 ) written on logical device 32 can be read
by the following FORTRAN statements;
DIMENSION POWER(MAXX,MAXY,MAXZ)
REWIND 32
READ(32) (TITL1(I),I=1,18), (TITL2(I),I=1,18),
& IGEOM,MX,MY,MZ,NGC21,NGC7,
& (X(IX),IX=1,MX),(Y(IY),IY=1,MY),(Z(IZ),IZ=1,MZ)
READ(32) DUM,TOTP,AKEFF
READ(32) (((POWER(IX,IY,IZ),IX=1,MX),IY=1,MY),IZ=1,MZ)
where MX, MY, MZ are number of mesh points on X-, Y-, Z-direction,
respectively.
NGC8
Option to write mesh-wise neutron source (space-energy) on logical unit 17 (See
GLIM5 in Card-001-5)
= 0 Skip
= 1 Write on I/O logical device 17
The neutron source distribution (n/sec) written on logical device 17 can
be read by the following FORTRAN statements;
DIMENSION S (MX,MY,MZ,NG)
REWIND 17
DO 100 IG=1,NG
READ(17) (((S(IX,IY,IZ,IG),IX=1,MX),IY=1,MY),IZ=1,MZ)
100 CONTINUE
where MX, MY, MZ, NG are number of mesh points on X-, Y-,
Z-direction and number of groups, respectively.
NGC9 = 0 (not used)
NGC10
Problem type
= -5 Fixed source mode by IC2=5 or external source problem by IC12=5 with
97