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

NGC1 Depletion option
= 0 (suppressed)
NGC2
Restart option
= 0 No restart.
= -1 Continue a previous case.
> 0 Restart a depletion calculation (suppressed)
Note:
To exercise a restart, a complete set of data must be supplied for the Section 001.
When NGC2 ≠ 0, a restart file properly written from earlier machine run must be
prepared by NGC3 below.
NGC3
Option to write restart data to permit restart
= 0 Skip
> 0 Write on logical device 13
NGC4 = 0 (not used)
NGC5
Option to save macroscopic cross-sections
= 0 (suppressed)
NGC6
Option to write neutron flux map
= 0 Skip
= 1 Write on I/O logical device 9
The flux (n/cm 2 -sec) written on logical device 9 can be read by the
following FORTRAN statements;
----- For 1-D or 2-D problem -----
DOUBLE PRECISION FLX2D(MX,MY,NG)
REWIND 9
DO IG=1,NG
READ(9) ((FLX2D(IX,IY,IG),IX=1,MX),IY=1,MY)
END DO
--- For 3-D problem ---
DIMENSION FLX3D (MX,MY,MZ,NG)
DIMENSION WORK (MX*MY*MZ*NG)
EQUIVALENCE (FLX3D(1,1,1,1), WORK(1))
NDATA = MX*MY*MZ
REWIND 9
DO IG=1,NG
J = (IG-1)*NDATA
96