diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/NCRtest_proc | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/NCRtest_proc')
| -rwxr-xr-x | Donjon/data/NCRtest_proc/Pburntest.c2m | 135 | ||||
| -rwxr-xr-x | Donjon/data/NCRtest_proc/Pdevtest.c2m | 748 | ||||
| -rwxr-xr-x | Donjon/data/NCRtest_proc/Pfluxtest.c2m | 167 | ||||
| -rwxr-xr-x | Donjon/data/NCRtest_proc/Pfmaptest.c2m | 127 | ||||
| -rwxr-xr-x | Donjon/data/NCRtest_proc/Pgeotest.c2m | 120 |
5 files changed, 1297 insertions, 0 deletions
diff --git a/Donjon/data/NCRtest_proc/Pburntest.c2m b/Donjon/data/NCRtest_proc/Pburntest.c2m new file mode 100755 index 0000000..21a7047 --- /dev/null +++ b/Donjon/data/NCRtest_proc/Pburntest.c2m @@ -0,0 +1,135 @@ +**************************************************************** +* * +* Procedure : Pburntest.c2m * +* Purpose : Average exit burnups for ACR-1000 core * +* Author : R. Chambon (2008/03) * +* based on : D. Sekki (2007/06) * +* * +* CALL : FMAP := Pburntest FMAP :: <<Btyp>> ; * +* * +**************************************************************** + +PARAMETER FMAP :: ::: LINKED_LIST FMAP ; ; +MODULE END: RESINI: ; +STRING Btyp ; + + :: >>Btyp<< ; + +FMAP := RESINI: FMAP :: + EDIT 1 + BTYPE <<Btyp>> ! NCOMB ALL + REF-SHIFT 8 + ADD-PARAM PNAME D-COOL PARKEY X-COOL LOCAL +SET-PARAM D-COOL SAME 0.9 +! SET-PARAM D-COOL SAME 1.0 + ADD-PARAM PNAME T-COOL PARKEY T-COOL LOCAL + SET-PARAM T-COOL SAME 5.831600E+02 +! SET-PARAM T-COOL SAME 5.731600E+02 + ADD-PARAM PNAME T-FUEL PARKEY T-FUEL LOCAL + SET-PARAM T-FUEL SAME 9.851600E+02 +! SET-PARAM T-FUEL SAME 9.601600E+02 + TIMAV-BVAL +* A + 4900. 4900. 4400. 4400. 4900. 4900. +* B + 6200. 5900. 5800. 5800. 6100. 8000. 8000. 6100. + 5800. 5800. 5900. 6200. +* C + 6700. 7200. 8200. 8600. 9500. 10800. 12200. 12200. + 10800. 9500. 8600. 8200. 7200. 6700. +* D + 7800. 7800. 8600. 9500. 10700. 11200. 12100. 13300. + 13300. 12100. 11200. 10700. 9500. 8600. 7800. 7800. +* E + 8200. 8100. 10500. 9700. 10000. 11200. 12000. 11800. + 12300. 13300. 13300. 12300. 11800. 12000. 11200. 10000. + 9700. 10500. 8100. 8200. +* F + 9200. 10900. 11600. 11200. 11300. 12200. 12500. 11900. + 12100. 13400. 13400. 12100. 11900. 12500. 12200. 11300. + 11200. 11600. 10900. 9200. +* G + 9600. 10500. 12100. 12600. 11900. 11800. 12600. 12600. + 11800. 12400. 13400. 13400. 12400. 11800. 12600. 12600. + 11800. 11900. 12600. 12100. 10500. 9600. +* H + 6200. 9800. 12100. 13300. 13400. 12400. 12000. 12400. + 12500. 12300. 12600. 13700. 13700. 12600. 12300. 12500. + 12400. 12000. 12400. 13400. 13300. 12100. 9800. 6200. +* J + 8000. 10400. 12600. 13600. 13900. 13000. 12600. 12400. + 12500. 12800. 13200. 13800. 13800. 13200. 12800. 12500. + 12400. 12600. 13000. 13900. 13600. 12600. 10400. 8000. +* K + 8300. 11900. 12800. 13900. 13900. 13100. 12700. 12400. + 12400. 12900. 13200. 13900. 13900. 13200. 12900. 12400. + 12400. 12700. 13100. 13900. 13900. 12800. 11900. 8300. +* L + 8000. 8700. 12500. 13800. 13600. 13600. 13000. 12600. + 12300. 12300. 12900. 13200. 13800. 13800. 13200. 12900. + 12300. 12300. 12600. 13000. 13600. 13600. 13800. 12500. + 8700. 8000. +* M + 8600. 8900. 12800. 13900. 13700. 13800. 13000. 12600. + 12000. 12000. 12700. 13000. 13600. 13600. 13000. 12700. + 12000. 12000. 12600. 13000. 13800. 13700. 13900. 12800. + 8900. 8600. +* N + 8900. 9600. 13000. 13900. 13800. 13800. 13100. 12600. + 11900. 11900. 12500. 13000. 13500. 13500. 13000. 12500. + 11900. 11900. 12600. 13100. 13800. 13800. 13900. 13000. + 9600. 8900. +* O + 8900. 9600. 13000. 13900. 13800. 13800. 13100. 12600. + 11900. 11900. 12500. 13000. 13500. 13500. 13000. 12500. + 11900. 11900. 12600. 13100. 13800. 13800. 13900. 13000. + 9600. 8900. +* P + 8600. 8900. 12800. 13900. 13700. 13800. 13000. 12600. + 12000. 12000. 12700. 13000. 13600. 13600. 13000. 12700. + 12000. 12000. 12600. 13000. 13800. 13700. 13900. 12800. + 8900. 8600. +* Q + 8000. 8700. 12500. 13800. 13600. 13600. 13000. 12600. + 12300. 12300. 12900. 13200. 13800. 13800. 13200. 12900. + 12300. 12300. 12600. 13000. 13600. 13600. 13800. 12500. + 8700. 8000. +* R + 8300. 11900. 12800. 13900. 13900. 13100. 12700. 12400. + 12400. 12900. 13200. 13900. 13900. 13200. 12900. 12400. + 12400. 12700. 13100. 13900. 13900. 12800. 11900. 8300. +* S + 8000. 10400. 12600. 13600. 13900. 13000. 12600. 12400. + 12500. 12800. 13200. 13800. 13800. 13200. 12800. 12500. + 12400. 12600. 13000. 13900. 13600. 12600. 10400. 8000. +* T + 6200. 9800. 12100. 13300. 13400. 12400. 12000. 12400. + 12500. 12300. 12600. 13700. 13700. 12600. 12300. 12500. + 12400. 12000. 12400. 13400. 13300. 12100. 9800. 6200. +* U + 9600. 10500. 12100. 12600. 11900. 11800. 12600. 12600. + 11800. 12400. 13400. 13400. 12400. 11800. 12600. 12600. + 11800. 11900. 12600. 12100. 10500. 9600. +* V + 9200. 10900. 11600. 11200. 11300. 12200. 12500. 11900. + 12100. 13400. 13400. 12100. 11900. 12500. 12200. 11300. + 11200. 11600. 10900. 9200. +* W + 8200. 8100. 10500. 9700. 10000. 11200. 12000. 11800. + 12300. 13300. 13300. 12300. 11800. 12000. 11200. 10000. + 9700. 10500. 8100. 8200. +* X + 7800. 7800. 8600. 9500. 10700. 11200. 12100. 13300. + 13300. 12100. 11200. 10700. 9500. 8600. 7800. 7800. +* Y + 6700. 7200. 8200. 8600. 9500. 10800. 12200. 12200. + 10800. 9500. 8600. 8200. 7200. 6700. +* Z + 6200. 5900. 5800. 5800. 6100. 8000. 8000. 6100. + 5800. 5800. 5900. 6200. +* ZZ + 4900. 4900. 4400. 4400. 4900. 4900. + ; + +END: ; +QUIT . diff --git a/Donjon/data/NCRtest_proc/Pdevtest.c2m b/Donjon/data/NCRtest_proc/Pdevtest.c2m new file mode 100755 index 0000000..e1f936a --- /dev/null +++ b/Donjon/data/NCRtest_proc/Pdevtest.c2m @@ -0,0 +1,748 @@ +********************************************************************* +* * +* Procedure : Pdevtest.c2m * +* Purpose : Devices specification for ACR-1000 core * +* Author : R. Chambon (2008/03) * +* based on : D. Sekki (2007/06) * +* * +* CALL : DEVICE MATEX := Pdevtest MATEX :: * +* <<mZCRin>> <<mZCRout>> <<mSORin>> <<mSORout>> ; * +* * +********************************************************************* +PARAMETER DEVICE MATEX :: + ::: LINKED_LIST DEVICE MATEX ; ; +MODULE END: DEVINI: ; +INTEGER mZCRin mZCRout mSORin mSORout ; + + :: >>mZCRin<< >>mZCRout<< >>mSORin<< >>mSORout<< ; + + DEVICE MATEX := DEVINI: MATEX :: EDIT 1 NUM-ROD 100 FADE +*-- +* ZCU: +*-- + ROD 1 + ROD-NAME ZCR01A ! * ZCU01 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 168.0 192.0 132.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 2 + ROD-NAME ZCR01B ! * ZCU01 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 168.0 192.0 324.0 612.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 3 + ROD-NAME ZCR02A ! * ZCU02 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 216.0 240.0 84.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 4 + ROD-NAME ZCR02B ! * ZCU02 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 324.0 660.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 5 + ROD-NAME ZCR03A ! * ZCU03 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 264.0 288.0 60.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 6 + ROD-NAME ZCR03B ! * ZCU03 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 324.0 684.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 7 + ROD-NAME ZCR04A ! * ZCU04 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 312.0 336.0 60.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 8 + ROD-NAME ZCR04B ! * ZCU04 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 324.0 684.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 9 + ROD-NAME ZCR05A ! * ZCU05 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 408.0 432.0 60.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 10 + ROD-NAME ZCR05B ! * ZCU05 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 324.0 684.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 11 + ROD-NAME ZCR06A ! * ZCU06 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 456.0 480.0 60.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 12 + ROD-NAME ZCR06B ! * ZCU06 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 324.0 684.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 13 + ROD-NAME ZCR07A ! * ZCU07 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 504.0 528.0 84.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 14 + ROD-NAME ZCR07B ! * ZCU07 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 324.0 660.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 15 + ROD-NAME ZCR08A ! * ZCU08 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 552.0 576.0 132.0 420.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 16 + ROD-NAME ZCR08B ! * ZCU08 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 552.0 576.0 324.0 612.0 123.825 173.355 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 17 + ROD-NAME ZCR09A ! * ZCU09 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 216.0 240.0 84.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 18 + ROD-NAME ZCR09B ! * ZCU09 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 324.0 660.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 19 + ROD-NAME ZCR10A ! * ZCU10 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 264.0 288.0 60.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 20 + ROD-NAME ZCR10B ! * ZCU10 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 324.0 684.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 21 + ROD-NAME ZCR11A ! * ZCU11 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 312.0 336.0 60.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 22 + ROD-NAME ZCR11B ! * ZCU11 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 324.0 684.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 23 + ROD-NAME ZCR12A ! * ZCU12 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 360.0 384.0 48.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 24 + ROD-NAME ZCR12B ! * ZCU12 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 324.0 696.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 25 + ROD-NAME ZCR13A ! * ZCU13 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 408.0 432.0 60.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 26 + ROD-NAME ZCR13B ! * ZCU13 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 324.0 684.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 27 + ROD-NAME ZCR14A ! * ZCU14 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 456.0 480.0 60.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 28 + ROD-NAME ZCR14B ! * ZCU14 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 324.0 684.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 29 + ROD-NAME ZCR15A ! * ZCU15 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 504.0 528.0 84.0 420.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 30 + ROD-NAME ZCR15B ! * ZCU15 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 324.0 660.0 272.415 321.945 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 31 + ROD-NAME ZCR16A ! * ZCU16 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 168.0 192.0 132.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 32 + ROD-NAME ZCR16B ! * ZCU16 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 168.0 192.0 324.0 612.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 33 + ROD-NAME ZCR17A ! * ZCU17 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 216.0 240.0 84.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 34 + ROD-NAME ZCR17B ! * ZCU17 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 324.0 660.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 35 + ROD-NAME ZCR18A ! * ZCU18 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 264.0 288.0 60.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 36 + ROD-NAME ZCR18B ! * ZCU18 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 324.0 684.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 37 + ROD-NAME ZCR19A ! * ZCU19 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 312.0 336.0 60.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 38 + ROD-NAME ZCR19B ! * ZCU19 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 324.0 684.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 39 + ROD-NAME ZCR20A ! * ZCU20 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 408.0 432.0 60.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 40 + ROD-NAME ZCR20B ! * ZCU20 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 324.0 684.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 41 + ROD-NAME ZCR21A ! * ZCU21 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 456.0 480.0 60.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 42 + ROD-NAME ZCR21B ! * ZCU21 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 324.0 684.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 43 + ROD-NAME ZCR22A ! * ZCU22 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 504.0 528.0 84.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 44 + ROD-NAME ZCR22B ! * ZCU22 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 324.0 660.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 45 + ROD-NAME ZCR23A ! * ZCU23 => LOWER ROD * + LEVEL 0.0 AXIS Y FROM H- + MAXPOS 552.0 576.0 132.0 420.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +* + ROD 46 + ROD-NAME ZCR23B ! * ZCU23 => UPPER ROD * + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 552.0 576.0 324.0 612.0 421.005 470.535 + DMIX <<mZCRin>> <<mZCRout>> + ENDROD +*-- +* SOR: +*-- + ROD 47 + ROD-NAME SOR01 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 48 + ROD-NAME SOR02 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 168.0 192.0 87.0 657.0 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 49 + ROD-NAME SOR03 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 50 + ROD-NAME SOR04 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 51 + ROD-NAME SOR05 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 52 + ROD-NAME SOR06 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 53 + ROD-NAME SOR07 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 54 + ROD-NAME SOR08 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 55 + ROD-NAME SOR09 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 30.5 713.5 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 56 + ROD-NAME SOR10 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 552.0 576.0 87.0 657.0 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 57 + ROD-NAME SOR11 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 49.53 99.06 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 58 + ROD-NAME SOR12 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 123.825 173.355 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 59 + ROD-NAME SOR13 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 161.415 210.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 60 + ROD-NAME SOR14 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 161.415 210.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 61 + ROD-NAME SOR15 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 30.5 713.5 198.415 247.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 62 + ROD-NAME SOR16 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 198.415 247.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 63 + ROD-NAME SOR17 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 30.5 713.5 198.415 247.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 64 + ROD-NAME SOR18 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 30.5 713.5 222.915 272.445 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 65 + ROD-NAME SOR19 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 30.5 713.5 222.915 272.445 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 66 + ROD-NAME SOR20 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 232.415 281.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 67 + ROD-NAME SOR21 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 232.415 281.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 68 + ROD-NAME SOR22 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 272.415 321.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 69 + ROD-NAME SOR23 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 168.0 192.0 87.0 657.0 272.415 321.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 70 + ROD-NAME SOR24 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 552.0 576.0 87.0 657.0 272.415 321.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 71 + ROD-NAME SOR25 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 272.415 321.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 72 + ROD-NAME SOR26 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 312.415 361.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 73 + ROD-NAME SOR27 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 312.415 361.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 74 + ROD-NAME SOR28 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 30.5 713.5 321.915 371.445 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 75 + ROD-NAME SOR29 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 30.5 713.5 321.915 371.445 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 76 + ROD-NAME SOR30 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 30.5 713.5 346.415 395.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 77 + ROD-NAME SOR31 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 346.415 395.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 78 + ROD-NAME SOR32 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 30.5 713.5 346.415 395.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 79 + ROD-NAME SOR33 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 383.415 432.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 80 + ROD-NAME SOR34 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 383.415 432.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 81 + ROD-NAME SOR35 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 420.915 470.415 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 82 + ROD-NAME SOR36 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 83 + ROD-NAME SOR37 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 168.0 192.0 87.0 657.0 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 84 + ROD-NAME SOR38 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 216.0 240.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 85 + ROD-NAME SOR39 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 86 + ROD-NAME SOR40 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 312.0 336.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 87 + ROD-NAME SOR41 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 360.0 384.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 88 + ROD-NAME SOR42 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 408.0 432.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 89 + ROD-NAME SOR43 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 90 + ROD-NAME SOR44 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 504.0 528.0 30.5 713.5 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 91 + ROD-NAME SOR45 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 552.0 576.0 87.0 657.0 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 92 + ROD-NAME SOR46 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 495.415 544.945 + DMIX <<mSORin>> <<mSORout>> + ENDROD +*-- +* CAU: +*-- + ROD 93 + ROD-NAME CAU01 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 123.825 173.355 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 94 + ROD-NAME CAU02 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 123.825 173.355 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 95 + ROD-NAME CAU03 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 30.5 713.5 198.12 247.65 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 96 + ROD-NAME CAU04 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 30.5 713.5 198.12 247.65 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 97 + ROD-NAME CAU05 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 264.0 288.0 30.5 713.5 346.71 396.24 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 98 + ROD-NAME CAU06 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 456.0 480.0 30.5 713.5 346.71 396.24 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 99 + ROD-NAME CAU07 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 120.0 144.0 87.0 657.0 421.005 470.535 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + ROD 100 + ROD-NAME CAU08 + LEVEL 0.0 AXIS Y FROM H+ + MAXPOS 600.0 624.0 87.0 657.0 421.005 470.535 + DMIX <<mSORin>> <<mSORout>> + ENDROD +* + + CREATE ROD-GR 5 + + GROUP-ID 1 ! ZCU AT 0% + ROD-ID 1 2 15 16 19 20 23 24 27 28 31 32 45 46 + + GROUP-ID 2 ! ZCU AT 50% + ROD-ID 3 4 7 8 9 10 13 14 33 34 37 38 39 40 43 44 + + GROUP-ID 3 ! ZCU AT 100% + ROD-ID 5 6 11 12 17 18 21 22 25 26 29 30 35 36 41 42 + + GROUP-ID 4 ! ALL SOR + ROD-ID 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 + 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 + 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 + + GROUP-ID 5 ! ALL CAU + ROD-ID 93 94 95 96 97 98 99 100 ; + +END: ; +QUIT . diff --git a/Donjon/data/NCRtest_proc/Pfluxtest.c2m b/Donjon/data/NCRtest_proc/Pfluxtest.c2m new file mode 100755 index 0000000..64fc4ba --- /dev/null +++ b/Donjon/data/NCRtest_proc/Pfluxtest.c2m @@ -0,0 +1,167 @@ +**************************************************************** +* * +* Procedure : Pfluxtest.c2m * +* Purpose : Time-average calculation for ACR-1000 core * +* using the NCR module instead of CRE * +* Author : R. Chambon (2008/03) * +* based on : D. Sekki (2007/10) * +* * +* CALL : FMAP MATEX := Pfluxtest FMAP MATEX MACRO1 * +* DEVICE TRACK LMCPO :: * +* <<NamFueld>> <<NamPARKEYF>> * +* <<mFue20>> <<mFue18>> <<NamFue20>> <<NamFue18>> * +* <<Pow>> <<epsil>> <<Prec>> <<maxItr>> <<iEdit>> * +* >>nbItr<< >>Keff<< >>Bexit<< ; * +**************************************************************** + +PARAMETER FMAP MATEX MACRO1 DEVICE TRACK + LMCPO18 LMCPO20 :: ::: + LINKED_LIST FMAP MATEX MACRO1 DEVICE TRACK + LMCPO18 LMCPO20 ; ; + +MODULE DELETE: GREP: END: CRE: MACINI: NEWMAC: + TAVG: FLUD: FLPOW: TRIVAT: TRIVAA: NCR: ; + +LINKED_LIST FLUX POWER SYSTEM MACFL MACRO2 MACRO ; + +INTEGER mFue20 mFue18 maxItr iEdit ; +REAL Pow epsil Prec Eps epsM Keff Bexit ; +STRING NamFueld NamPARKEYF NamFue20 NamFue18 ; +INTEGER iter iPwPrt := 0 0 ; + :: >>NamFueld<< >>NamPARKEYF<< + >>mFue20<< >>mFue18<< >>NamFue20<< >>NamFue18<< + >>Pow<< >>epsil<< >>Prec<< >>maxItr<< >>iEdit<< ; + +*--------------------------------------------------------------- +* TIME-AVERAGE CALCULATION +*--------------------------------------------------------------- +EVALUATE Eps := epsil 1. + ; +EVALUATE epsM := Eps ; + +WHILE Eps epsil > iter maxItr < * DO + + EVALUATE iter := iter 1 + ; +*-- +* fuel-map macrolib: +*-- + MACFL := NCR: LMCPO18 LMCPO20 FMAP :: + EDIT 0 MACRO + TABLE LMCPO20 <<NamFueld>> BURN + MIX <<mFue20>> + SET <<NamPARKEYF>> <<NamFue20>> + SET X-COOL 1.0 + SET T-COOL 5.731600E+02 + SET T-FUEL 9.601600E+02 + ADD X-COOL 1.0 MAP + REF + BURN SAMEASREF + T-COOL 5.731600E+02 + T-FUEL 9.601600E+02 + ENDREF + ADD T-COOL 5.731600E+02 MAP + REF + BURN SAMEASREF + X-COOL 1.0 + T-FUEL 9.601600E+02 + ENDREF + ADD T-FUEL 9.601600E+02 MAP + REF + BURN SAMEASREF + X-COOL 1.0 + T-COOL 5.731600E+02 + ENDREF + ENDMIX + TABLE LMCPO18 <<NamFueld>> BURN + MIX <<mFue18>> + SET <<NamPARKEYF>> <<NamFue18>> + SET X-COOL 1.0 + SET T-COOL 5.731600E+02 + SET T-FUEL 9.601600E+02 + SET RDTPOS 0.0 + SET RDDPOS 0.0 + ADD X-COOL 1.0 MAP + REF + BURN SAMEASREF + T-COOL 5.731600E+02 + T-FUEL 9.601600E+02 + RDTPOS 0.0 + RDDPOS 0.0 + ENDREF + ADD T-COOL 5.731600E+02 MAP + REF + BURN SAMEASREF + X-COOL 1.0 + T-FUEL 9.601600E+02 + RDTPOS 0.0 + RDDPOS 0.0 + ENDREF + ADD T-FUEL 9.601600E+02 MAP + REF + BURN SAMEASREF + X-COOL 1.0 + T-COOL 5.731600E+02 + RDTPOS 0.0 + RDDPOS 0.0 + ENDREF + ENDMIX + ; +*-- +* extended macrolib: +*-- + MACRO2 MATEX := MACINI: MATEX MACRO1 MACFL :: EDIT 0 ; + MACFL := DELETE: MACFL ; +*-- +* complete macrolib: +*-- + MACRO MATEX := NEWMAC: MATEX MACRO2 DEVICE :: EDIT 0 ; + MACRO2 := DELETE: MACRO2 ; +*-- +* numerical solution: +*-- + SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 ; + MACRO := DELETE: MACRO ; + IF iter 1 = THEN + FLUX := FLUD: SYSTEM TRACK :: EDIT 10 + ACCE 3 3 ADI 2 EXTE 1000 <<Prec>> + THER 1000 ; + ELSE + FLUX := FLUD: FLUX SYSTEM TRACK :: EDIT 10 + ACCE 3 3 ADI 2 EXTE 1000 <<Prec>> + THER 1000 ; + ENDIF ; + SYSTEM := DELETE: SYSTEM ; +*-- +* flux and power: +*-- + EVALUATE iPwPrt := 0 ; + POWER := FLPOW: FMAP FLUX TRACK MATEX :: + EDIT <<iPwPrt>> PTOT <<Pow>> ; +*-- +* burnups integration limits: +*-- + FMAP := TAVG: FMAP POWER :: EDIT 0 AX-SHAPE RELAX 0.55 B-EXIT ; + GREP: POWER :: GETVAL 'K-EFFECTIVE' 1 >>Keff<< ; + POWER := DELETE: POWER ; +*-- +* current parameters: +*-- + GREP: FMAP :: GETVAL EPS-AX 1 >>Eps<< ; + ECHO "Iteration No. " iter ; + ECHO "AXIAL-SHAPE ERROR : " Eps ; + ECHO "RESULTING K-EFF : " Keff ; + + IF epsM Eps > THEN + EVALUATE epsM := Eps ; + ELSE + EVALUATE epsil := Eps ; + EVALUATE maxItr := iter ; + ENDIF ; + +ENDWHILE ; +FLUX := DELETE: FLUX ; +GREP: FMAP :: GETVAL B-EXIT 1 >>Bexit<< ; + + :: <<iter>> <<Keff>> <<Bexit>> ; + +END: ; +QUIT . diff --git a/Donjon/data/NCRtest_proc/Pfmaptest.c2m b/Donjon/data/NCRtest_proc/Pfmaptest.c2m new file mode 100755 index 0000000..a80c4d5 --- /dev/null +++ b/Donjon/data/NCRtest_proc/Pfmaptest.c2m @@ -0,0 +1,127 @@ +**************************************************************** +* * +* Procedure : Pfmaptest.c2m * +* Purpose : Fuel-map definition for ACR-1000 core * +* Author : R. Chambon (2008/03) * +* based on : D. Sekki (2007/06) * +* * +* CALL : FMAP MATEX := Pfmaptest MATEX ; * +* * +**************************************************************** + +PARAMETER FMAP MATEX :: ::: LINKED_LIST FMAP MATEX ; ; +MODULE END: RESINI: ; + + FMAP MATEX := RESINI: MATEX :: EDIT 1 + + ::: GEO: CAR3D 28 28 12 + + EDIT 0 + X- VOID X+ VOID + Y- VOID Y+ VOID + Z- VOID Z+ VOID + MIX + + PLANE 1 + +* - 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 - + + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! - + 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 ! A + 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! B + 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 ! C + 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! D + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! E + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! F + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! G + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! H + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! J + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! K + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! L + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! M + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! N + + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! O + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! P + 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! Q + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! R + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! S + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! T + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! U + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! V + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! W + 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! X + 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 ! Y + 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! Z + 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 ! ZZ + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! - + + PLANE 2 SAME 1 + PLANE 3 SAME 1 + PLANE 4 SAME 1 + + PLANE 5 + +* - 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 - + + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! - + 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 ! A + 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! B + 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 ! C + 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! D + 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! E + 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! F + 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 ! G + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! H + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! J + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! K + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! L + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! M + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! N + + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! O + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! P + 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 ! Q + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! R + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! S + 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 ! T + 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 ! U + 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! V + 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! W + 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! X + 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 ! Y + 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! Z + 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 ! ZZ + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! - + + PLANE 6 SAME 5 + PLANE 7 SAME 5 + PLANE 8 SAME 5 + + PLANE 9 SAME 1 + PLANE 10 SAME 1 + PLANE 11 SAME 1 + PLANE 12 SAME 1 + + MESHX 0. 60. 84. 108. 132. 156. 180. 204. 228. 252. + 276. 300. 324. 348. 372. 396. 420. 444. 468. 492. + 516. 540. 564. 588. 612. 636. 660. 684. 744. + + MESHY 0. 60. 84. 108. 132. 156. 180. 204. 228. 252. + 276. 300. 324. 348. 372. 396. 420. 444. 468. 492. + 516. 540. 564. 588. 612. 636. 660. 684. 744. + + MESHZ 0.00 49.53 99.06 148.59 198.12 247.65 297.18 + 346.71 396.24 445.77 495.30 544.83 594.36 ; + + NXNAME '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' + '11' '12' '13' '14' '15' '16' '17' '18' '19' + '20' '21' '22' '23' '24' '25' '26' '-' + + NYNAME '-' 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J' 'K' + 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' + 'W' 'X' 'Y' 'Z' 'ZZ' '-' + NCOMB ALL + ; +END: ; +QUIT . diff --git a/Donjon/data/NCRtest_proc/Pgeotest.c2m b/Donjon/data/NCRtest_proc/Pgeotest.c2m new file mode 100755 index 0000000..c7f5d45 --- /dev/null +++ b/Donjon/data/NCRtest_proc/Pgeotest.c2m @@ -0,0 +1,120 @@ +******************************************************************* +* * +* Procedure : Pgeotest.c2m * +* Purpose : Coarse geometry definition for ACR-1000 core * +* Author : J. Koclas (2006/07) * +* Modified : D. Sekki (2007/06) * +* * +* CALL : GEOM := Pgeotest :: <<sZ>> ; * +* * +******************************************************************* +PARAMETER GEOM :: ::: LINKED_LIST GEOM ; ; +MODULE END: GEO: ; +INTEGER sZ ; + + :: >>sZ<< ; + + GEOM := GEO: :: CAR3D 32 32 12 + EDIT 1 + X- VOID X+ VOID + Y- VOID Y+ VOID + Z- VOID Z+ VOID + MIX + PLANE 1 + 0 0 0 0 0 0 0 0 0 0 0 0 0 3 3 3 3 3 3 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 3 3 3 3 3 3 1 1 1 1 1 1 3 3 3 3 3 3 0 0 0 0 0 0 0 + 0 0 0 0 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 0 0 0 0 + 0 0 0 0 3 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 3 0 0 0 0 + 0 0 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 0 0 + 0 0 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 0 0 + 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 + 0 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 0 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 + 0 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 0 + 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 + 0 0 0 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 0 0 0 + 0 0 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 0 0 + 0 0 0 0 3 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 3 0 0 0 0 + 0 0 0 0 0 0 3 3 3 3 1 1 1 1 1 1 1 1 1 1 1 1 3 3 3 3 0 0 0 0 0 0 + 0 0 0 0 0 0 0 3 3 3 3 3 3 1 1 1 1 1 1 3 3 3 3 3 3 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 3 3 3 3 3 3 0 0 0 0 0 0 0 0 0 0 0 0 0 + + PLANE 2 SAME 1 + PLANE 3 SAME 1 + PLANE 4 SAME 1 + + PLANE 5 + 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 4 4 4 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 4 4 4 4 4 4 4 4 4 4 4 4 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 4 4 4 4 4 4 2 2 2 2 2 2 4 4 4 4 4 4 0 0 0 0 0 0 0 + 0 0 0 0 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 0 0 0 0 + 0 0 0 0 4 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 0 0 0 0 + 0 0 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 0 0 + 0 0 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 0 0 + 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 + 0 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 0 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 + 0 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 0 + 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 + 0 0 0 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 0 0 0 + 0 0 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 0 0 + 0 0 0 0 4 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 0 0 0 0 + 0 0 0 0 0 0 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 0 0 0 0 0 0 + 0 0 0 0 0 0 0 4 4 4 4 4 4 2 2 2 2 2 2 4 4 4 4 4 4 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 4 4 4 4 4 4 4 4 4 4 4 4 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 4 4 4 0 0 0 0 0 0 0 0 0 0 0 0 0 + + PLANE 6 SAME 5 + PLANE 7 SAME 5 + PLANE 8 SAME 5 + PLANE 9 SAME 1 + PLANE 10 SAME 1 + PLANE 11 SAME 1 + PLANE 12 SAME 1 + + MESHX 0. 12. 36. 60. 84. 108. 132. 156. 180. 204. 228. + 252. 276. 300. 324. 348. 372. 396. 420. 444. 468. 492. + 516. 540. 564. 588. 612. 636. 660. 684. 708. 732. 744. + + MESHY 0. 12. 36. 60. 84. 108. 132. 156. 180. 204. 228. + 252. 276. 300. 324. 348. 372. 396. 420. 444. 468. 492. + 516. 540. 564. 588. 612. 636. 660. 684. 708. 732. 744. + + MESHZ 0.00 49.53 99.06 148.59 198.12 247.65 297.18 + 346.71 396.24 445.77 495.30 544.83 594.36 + + SPLITZ <<sZ>> <<sZ>> <<sZ>> <<sZ>> <<sZ>> <<sZ>> + <<sZ>> <<sZ>> <<sZ>> <<sZ>> <<sZ>> <<sZ>> ; + +END: ; +QUIT . |