NEA-0672 DIAMANT-2 (VERSION2)

1. NAME OR DESIGNATION OF PROGRAM:  DIAMANT-2 (Version 2.0).
A multigroup neutron transport code in regular triangular geometry.

3. DESCRIPTION OF PROBLEM OR FUNCTION

DIAMANT2 solves the two- dimensional static multigroup neutron transport equation in planar regular triangular geometry. Both regular and adjoint, inhomogeneous and homogeneous problems subject to vacuum, reflective or input specified boundary flux conditions are solved. Anisotropy is allowed for the scattering source. Volume and surface sources are allowed for inhomogeneous problems.

4. METHOD OF SOLUTION

The discrete ordinates approximation for the angular variable is used in finite difference form which is solved with a DIAMOND difference approximation. Spatial discretization is performed on a mesh, composed of equilateral triangles. Negative fluxes are eliminated by a step scheme algorithm. Standard inner (within-group) iterative cycles are accelerated by global rebalancing.

5. RESTRICTIONS ON THE COMPLEXITY OF THE PROBLEM

Variable dimensioning is used so that any combination of problem parameters leading to a working array less than NCMAX can be accomodated. On most computers, NCMAX can be as large as some hundred thousand words. The remaining maximum values are specified by a PARAMETER statement and can easily be changed.

6. TYPICAL RUNNING TIME:

The test case included in this package has been run at  NEA-DB on an IBM 3084 computer. Both the single-precision and double-precision versions required less than 18 minutes of CPU time.

7. UNUSUAL FEATURES OF THE PROGRAM

The code is written in FORTRAN 77  (ANSI X3.9-1978). Quadrature sets are tailored to regular triangular geometry. Provision is made for creation of interface output for angular integrated fluxes and angular fluxes. These interface files  can easily be applied in perturbation calculations, e.g., by the TPTRIA code. All binary input/output-operations are localized in the subroutine package READKO. Edit options and dump and restart capabilities are provided. DIAMANT2 is designed to benefit from vector-computers as much as possible.

8. RELATED AND AUXILIARY PROGRAMS

DIAMANT2 is an improved version based on the previous DIAMANT program. Many comments were added and  simplified programming was performed to make DIAMANT2 as easy to understand as possible. An interface file can be created for the transport perturbation code TPTRIA. A special input check module is  provided together with DIAMANT2.

10. REFERENCES

- K. Kuefner, B. Delmarmol and G. Minsart
  Continuous Four-Point Triangular Mesh Difference Schemes for the
  Multigroup Neutron Transport Equation,
  Proc. Top. Meeting on Computational Methods, Williamsburg 1979.
- K. Kobayashi, G. Buckel, K. Kuefner
  TPTRIA, A Computer Program for the Reactivity and Kinetic
  Parameters for Two-Dimensional Triangular Geometry by Transport
  Perturbation Theory
  KFK-4116, Karlsruhe 1986.
- G. Buckel, W. Hoebel
  Das Karlsruher Programmsystem Kapros, TEIL1,
  KFK-2253, Karlsruhe 1976.

- K. Kuefner, J. Burkhard and R. Heger:
  An Updated FORTRAN-77 Version of the 2-D Static Neutron
  Transport Code DIAMANT-2 for Regular Triangular Geometry.
  KfK 4133  (June 1987)
- K. Kuefner, J. Burkhard and R. Heger:
  An Updated FORTRAN-77 Version of the 2-D Static Neutron
  Transport Code DIAMANT-2 for Regular Triangular Geometry.
  KfK 4133  (June 1987)

11. MACHINE REQUIREMENTS

Up to four scratch units, up to three interface units (use optional) and the system input/output units are required. A large memory is desirable, but it can be replaced to some extent by disk or tape storage (the transition is made automatically).
NEA 0672/02: To run the test cases on an IBM 3084 computer, the single-precision version of DIAMANT-2 required 1308K bytes, and the  double-precision version required 2048K bytes of main storage.

The program was compiled and run by NEA-DB on a DELL 320LX 80386-based Personal Computer with a 80387 co-processor.

13. OPERATING SYSTEM UNDER WHICH PROGRAM IS EXECUTED

IBM MVS/XA, CDC VSOS, CRAY COS, SIEMENS BS3000.
Compiler: SIEMENS-FORTRAN77, IBM-VS-FORTRAN, CYBER-FTN200, CRAY-CFT

MVS/XA (IBM 3084).

The program was run under MS-DOS 4.01 and Lahey/Ergo OS/386 DOS Extender Operating System Ver.2.1.06 using the Lahey F77L/EM/32 extended memory Fortran compiler ver.4.02

14. OTHER PROGRAMMING OR OPERATING INFORMATION OR RESTRICTIONS

This code was designed to run under control of the modular code system KAPROS but it can also be used as stand-alone code. It is recommended to replace the sytem-dependent timing functions TASKTI and TIMLIM by local equivalents.

15. NAME AND ESTABLISHMENT OF AUTHOR

          K. Kuefner, J. Burkhard and R. Hege
          Nuclear Research Center Karlsruhe/INR
          Postfach 3640
          D-7500 Karlsruhe 1
          Federal Republic of Germany

File name	File description	Records
NEA0672_02.001	Information file	99
NEA0672_02.002	JCL for input check module (DIAPRD)	10
NEA0672_02.003	JCL for DIAMANT-2 (Single precision)	18
NEA0672_02.004	JCL for DIAMANT-2 (Double precision)	18
NEA0672_02.005	FORTRAN-77 source of DIAPRD	4297
NEA0672_02.006	FORTRAN-77 source of DIAMANT-2	7828
NEA0672_02.007	Input data for DIAPRD and DIAMANT-2	903
NEA0672_02.008	Output of DIAPRD	5663
NEA0672_02.009	Output of DIAMANT-2 (Single precision)	10463
NEA0672_02.010	Output of DIAMANT-2 (Double precision)	10189
NEA0672_02.011	Source of DIAPRD (KAPROS version)	5967
NEA0672_02.012	Source of DIAMANT-2 (KAPROS version)	10368
NEA0672_02.013	Sample input data (For KAPROS version)	1292
NEA0672_02.014	Timing package for CYBER205	33
NEA0672_02.015	Timing package for SIEMENS/FUJITSU	15
NEA0672_02.016	Assembler source for function JTIME (IBM)	75
NEA0672_02.017	Timing package for CRAY-XMP	16
NEA0672_02.018	Timing package for IBM	19
NEA0672_02.019	Auxiliary diagnostic package POSMRT	482

File name	File description	Records
NEA0672_03.001	Information file	98
NEA0672_03.002	Orig. DIAMANT information file	31
NEA0672_03.003	Batch file to compile DIAMANT	16
NEA0672_03.004	Batch file to link DIAMANT	8
NEA0672_03.005	Batch file to bind DIAMANT	6
NEA0672_03.006	DIAMANT response file	4
NEA0672_03.007	Orig. DIAMANT batch file for MS-DOS	3
NEA0672_03.008	Orig. DIAMANT batch file for OS/2	3
NEA0672_03.009	DIAMANT sample input	903
NEA0672_03.010	DIAMANT1 source file	1270
NEA0672_03.011	DIAMANT2 source file	744
NEA0672_03.012	DIAMANT3 source file	2055
NEA0672_03.013	DIAMANT4 source file	1961
NEA0672_03.014	DIAMANT5 source file	1821
NEA0672_03.015	DIAMANT sample output	11720
NEA0672_03.016	DIAMANT executable file	0
NEA0672_03.017	Orig. PRDIA information file	33
NEA0672_03.018	Batch file to compile PRDIA	10
NEA0672_03.019	Batch file to link PRDIA	8
NEA0672_03.020	Batch file to bind PRDIA	6
NEA0672_03.021	PRDIA response file	4
NEA0672_03.022	Original PRDIA batch file for MS-DOS	3
NEA0672_03.023	Original PRDIA batch file for OS/2	4
NEA0672_03.024	PRDIA sample input file	903
NEA0672_03.025	PRDIA1 source file	2087
NEA0672_03.026	PRDIA2 source file	2225
NEA0672_03.027	PRDIA sample output file	6420
NEA0672_03.028	PRDIA executable file	0
NEA0672_03.029	DOS file-names	28