diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-23 11:34:01 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-23 11:34:01 -0500 |
| commit | bd7171d346ad4f079aa89b2d9fdd6a56aa0a3b1c (patch) | |
| tree | ff7bea851c1ce9685d26fc5080f65fcf9110086b /Dragon/data/tdraglib_proc | |
| parent | 0fbdc50700be08e00ecad828d9c99b5c045b382b (diff) | |
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
Diffstat (limited to 'Dragon/data/tdraglib_proc')
40 files changed, 239 insertions, 132 deletions
diff --git a/Dragon/data/tdraglib_proc/SPH_FixedPt.c2m b/Dragon/data/tdraglib_proc/SPH_FixedPt.c2m new file mode 100644 index 0000000..83d9996 --- /dev/null +++ b/Dragon/data/tdraglib_proc/SPH_FixedPt.c2m @@ -0,0 +1,105 @@ +**************************************************************** +* * +* Procedure : SPH_FixedPt.c2m * +* Purpose : Compute SPH factors using a fixed point approach * +* Author : A. Hebert * +* * +* CALL : * +* Macro2 Optim := SPH_FixedPt Macro1 Macrogeom Track * +* :: (data) ; * +* * +* Output object: * +* Macro2 : Corrected macrolib * +* Optim : L_OPTIMIZE object * +* * +* Input objects: * +* Macro1 : Reference macrolib for the macro-geometry * +* Macrogeom : Macro-geometry * +* Track : Tracking of the macro-geometry * +* * +* Input data: * +* fmin : minimum acceptable correction factor * +* fmax : maximum acceptable correction factor * +* epsout : convergence criterion for outer iterations * +* IterEmax : maximum number of iterations * +* * +**************************************************************** +PARAMETER MACRO2 OPTIM MACRO1 MACROGEOM TRACK :: + ::: LINKED_LIST MACRO2 OPTIM MACRO1 MACROGEOM TRACK ; ; +MODULE BIVACA: FLUD: GREP: OUT: FPSPH: MAC: ERROR: DELETE: END: ; +LINKED_LIST SYSTEM CALC EDIT ; +LOGICAL Conv ; +REAL Keff fmin fmax epsout ; +DOUBLE rmsval ; +INTEGER IterE IterEmax ; + :: >>fmin<< >>fmax<< >>epsout<< >>IterEmax<< ; + +!**************************************** +!**************************************** +!********** SPH ITERATIONS ********** +!**************************************** +!**************************************** + +MACRO2 := MACRO1 ; + +EVALUATE IterE := 0 ; +REPEAT + + EVALUATE IterE := IterE 1 + ; + ECHO "#------------------------------" ; + IF IterE 10 < THEN + ECHO "#-------------" IterE "--------------" ; + ELSE + ECHO "#------------" IterE "--------------" ; + ENDIF ; + ECHO "#------------------------------" ; + + SYSTEM := BIVACA: MACRO2 TRACK :: EDIT 0 ; + IF IterE 1 = THEN + CALC := FLUD: SYSTEM TRACK :: + EDIT 0 ADI 5 EXTE 50 1.0E-6 ACCE 5 3 ; + ELSE + CALC := FLUD: CALC SYSTEM TRACK :: + EDIT 0 ADI 5 EXTE 50 1.0E-6 ACCE 5 3 ; + ENDIF ; + SYSTEM := DELETE: SYSTEM ; + + GREP: CALC :: GETVAL 'K-EFFECTIVE ' 1 >>Keff<< ; + + EDIT := OUT: CALC MACROGEOM MACRO2 TRACK :: + EDIT 0 INTG MIX ; + IF IterE 1 = THEN + ECHO "Error statistics before correction" ; + ERROR: MACRO1 EDIT :: HREA 'NFTOT' ; + ENDIF ; + IF IterE 1 = THEN + OPTIM := FPSPH: EDIT MACRO1 :: EDIT 2 SPH PN + VAR-VAL-MIN <<fmin>> + VAR-VAL-MAX <<fmax>> + OUT-STEP-EPS <<epsout>> OUT-CONV-TST >>Conv<< >>rmsval<< ; + ELSE + OPTIM := FPSPH: OPTIM EDIT MACRO1 :: EDIT 1 + VAR-VAL-MIN <<fmin>> + VAR-VAL-MAX <<fmax>> + OUT-CONV-TST >>Conv<< >>rmsval<< ; + ENDIF ; + ECHO "outer iteration=" IterE "rmsval=" rmsval D_TO_R "Keff=" Keff "Conv=" Conv ; + EDIT := DELETE: EDIT ; + MACRO2 := MACRO2 MACRO1 ; + MACRO2 := MAC: MACRO2 OPTIM ; + +UNTIL Conv IterE IterEmax > + ; +CALC := DELETE: CALC ; +*---- +* VERIFICATION CALCULATION +*---- +SYSTEM := BIVACA: MACRO2 TRACK :: EDIT 0 ; +CALC := FLUD: SYSTEM TRACK :: + EDIT 0 ADI 5 EXTE 50 1.0E-6 ACCE 5 3 ; + +EDIT := OUT: CALC MACROGEOM MACRO2 TRACK :: + EDIT 0 INTG MIX ; + +ECHO "Error statistics after correction" ; +ERROR: MACRO1 EDIT :: HREA 'NFTOT' ; +END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR01.c2m b/Dragon/data/tdraglib_proc/TCDR01.c2m index bf4081f..267e344 100644 --- a/Dragon/data/tdraglib_proc/TCDR01.c2m +++ b/Dragon/data/tdraglib_proc/TCDR01.c2m @@ -55,7 +55,7 @@ LIBRARY := SHI: LIBRARY DISCR :: EDIT 0 NOLJ ; CP := ASM: LIBRARY DISCR ; CALC := FLU: CP LIBRARY DISCR :: TYPE K ; -assertS CALC :: 'K-EFFECTIVE' 1 0.8237322 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.8238095 ; OUT := EDI: LIBRARY DISCR CALC :: EDIT 4 MERG MIX 1 2 3 COND 4.0 SAVE ; DISCR CP := DELETE: DISCR CP ; @@ -72,7 +72,7 @@ LIBRARY := SHI: LIBRARY DISCR :: EDIT 0 NOLJ ; CP := ASM: LIBRARY DISCR ; CALC := FLU: CALC CP LIBRARY DISCR :: TYPE K ; -assertS CALC :: 'K-EFFECTIVE' 1 0.8239249 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.8240606 ; OUT := EDI: OUT LIBRARY DISCR CALC :: EDIT 1 MERG MIX 1 2 3 COND 4.0 STAT ALL REFE 1 ; CALC DISCR CP := DELETE: CALC DISCR CP ; @@ -89,7 +89,7 @@ LIBRARY := SHI: LIBRARY DISCR TRKSPC :: EDIT 0 NOLJ ; CP := ASM: LIBRARY DISCR TRKSPC ; CALC := FLU: CP LIBRARY DISCR :: TYPE K ; -assertS CALC :: 'K-EFFECTIVE' 1 0.8247744 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.8249122 ; OUT := EDI: OUT LIBRARY DISCR CALC :: EDIT 1 MERG MIX 1 2 3 COND 4.0 STAT ALL REFE 1 ; DISCR TRKSPC CP := DELETE: DISCR TRKSPC CP ; @@ -106,7 +106,7 @@ LIBRARY := SHI: LIBRARY DISCR TRKSPC :: EDIT 0 NOLJ ; CP := ASM: LIBRARY DISCR TRKSPC ; CALC := FLU: CALC CP LIBRARY DISCR :: TYPE K ; -assertS CALC :: 'K-EFFECTIVE' 1 0.8256814 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.8258194 ; OUT := EDI: OUT LIBRARY DISCR CALC :: EDIT 1 MERG MIX 1 2 3 COND 4.0 STAT ALL REFE 1 ; DISCR TRKSPC CP := DELETE: DISCR TRKSPC CP ; diff --git a/Dragon/data/tdraglib_proc/TCDR02.c2m b/Dragon/data/tdraglib_proc/TCDR02.c2m index 1c6bf0a..8bf5a03 100644 --- a/Dragon/data/tdraglib_proc/TCDR02.c2m +++ b/Dragon/data/tdraglib_proc/TCDR02.c2m @@ -126,7 +126,7 @@ LIBRARY := SHI: LIBRARY DISCR :: LJ ; CP := ASM: LIBRARY DISCR :: ARM ; CALC := FLU: CP LIBRARY DISCR :: TYPE B B1 PNL ; -assertS CALC :: 'K-INFINITY' 1 1.256444 ; +assertS CALC :: 'K-INFINITY' 1 1.256550 ; *---- * Editing using SPH model for transport-diffusion with Selengut @@ -154,8 +154,8 @@ ISOT := DATABASE :: STEP UP default STEP UP MIXTURES STEP AT 5 STEP UP CALCULATIONS STEP AT 1 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 0.5218698 ; -assertS ISOT :: 'NWT0' 2 0.1277670 ; +assertS ISOT :: 'NWT0' 1 0.5221841 ; +assertS ISOT :: 'NWT0' 2 0.1277635 ; ECHO "test TCDR02 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR02_void.c2m b/Dragon/data/tdraglib_proc/TCDR02_void.c2m index b8a5e79..af8aecd 100644 --- a/Dragon/data/tdraglib_proc/TCDR02_void.c2m +++ b/Dragon/data/tdraglib_proc/TCDR02_void.c2m @@ -133,7 +133,7 @@ DISCR := SYBILT: ASSMB :: CP := ASM: LIBRARY DISCR :: ARM ; CALC := FLU: CP LIBRARY DISCR :: EDIT 1 TYPE K P1 HETE BUCK -0.017069 ; -assertS CALC :: 'K-EFFECTIVE' 1 1.000043 ; +assertS CALC :: 'K-EFFECTIVE' 1 1.000201 ; ECHO "test TCDR02_void completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR03.c2m b/Dragon/data/tdraglib_proc/TCDR03.c2m index 380eb42..84e1a99 100644 --- a/Dragon/data/tdraglib_proc/TCDR03.c2m +++ b/Dragon/data/tdraglib_proc/TCDR03.c2m @@ -121,7 +121,7 @@ LIBRARY := SHI: LIBRARY DISCR :: EDIT 0 NOLJ ; CP := ASM: LIBRARY DISCR ; CALC := FLU: CP LIBRARY DISCR :: TYPE B B1 PNL ; -assertS CALC :: 'K-INFINITY' 1 0.6800977 ; +assertS CALC :: 'K-INFINITY' 1 0.6801561 ; OUT := EDI: LIBRARY DISCR CALC ASSMBH :: EDIT 3 UPS SAVE MICR RES MERGE CELL COND 4.0 ; @@ -145,8 +145,8 @@ ISOT := DATABASE :: STEP UP default STEP UP MIXTURES STEP AT 5 STEP UP CALCULATIONS STEP AT 1 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 1.504198E+00 ; -assertS ISOT :: 'NWT0' 2 1.369299E-01 ; +assertS ISOT :: 'NWT0' 1 1.501717E+00 ; +assertS ISOT :: 'NWT0' 2 1.369932E-01 ; ECHO "test TCDR03 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR04.c2m b/Dragon/data/tdraglib_proc/TCDR04.c2m index c98134b..a324d45 100644 --- a/Dragon/data/tdraglib_proc/TCDR04.c2m +++ b/Dragon/data/tdraglib_proc/TCDR04.c2m @@ -81,7 +81,7 @@ TRACK := SYBILT: MOSTELA :: SYS := ASM: LIBRARY TRACK ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE K B1 SIGS BUCK 0.2948E-2 ; -assertS FLUX :: 'K-INFINITY' 1 0.8247780 ; +assertS FLUX :: 'K-INFINITY' 1 0.8248808 ; EDITION := EDI: LIBRARY TRACK FLUX :: EDIT 3 MICR 25 Th232 U233 U234 U235 U236 U238 Np237 Np238 Pu238 Pu239 Pu240 Pu241 Pu242 Am241 Am242 Am243 Cm242 Cm243 Cm244 @@ -139,7 +139,7 @@ WHILE evoend step2 < DO step3 step4 step5 step2 ; EVALUATE istep := istep 1 + ; ENDWHILE ; -assertS FLUX :: 'K-EFFECTIVE' 1 0.7645292 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.7644340 ; res := DATABASE ; @@ -150,8 +150,8 @@ ISOT := DATABASE :: STEP UP default STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 2 STEP UP ISOTOPESLIST STEP AT 26 ; -assertS ISOT :: 'NWT0' 1 37.66850 ; -assertS ISOT :: 'NWT0' 2 16.65745 ; +assertS ISOT :: 'NWT0' 1 3.786228E+01 ; +assertS ISOT :: 'NWT0' 2 1.672558E+01 ; ECHO "test TCDR04 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR05.c2m b/Dragon/data/tdraglib_proc/TCDR05.c2m index 7f8d6cb..c047360 100644 --- a/Dragon/data/tdraglib_proc/TCDR05.c2m +++ b/Dragon/data/tdraglib_proc/TCDR05.c2m @@ -103,7 +103,7 @@ VOLMATF INTLINF := EXCELT: CANDU6F :: PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-INFINITY' 1 1.117541 ; +assertS FLUX :: 'K-INFINITY' 1 1.117787 ; EDITION := EDI: LIBRARY VOLMATF FLUX :: COND 4.0 MERGE MIX 0 0 0 0 1 0 0 0 0 0 MICR RES SAVE ON 'moderator' ; DATABASE := COMPO: DATABASE EDITION :: @@ -170,16 +170,16 @@ ISOT := DATABASE :: STEP UP fuel STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 5 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 9.761326E0 ; -assertS ISOT :: 'NWT0' 2 2.651622E1 ; +assertS ISOT :: 'NWT0' 1 9.787898E+00 ; +assertS ISOT :: 'NWT0' 2 2.658490E+01 ; ISOT := DELETE: ISOT ; ISOT := DATABASE :: STEP UP moderator STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 1 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 9.095968E-2 ; -assertS ISOT :: 'NWT0' 2 3.246063E-1 ; +assertS ISOT :: 'NWT0' 1 9.099452E-02 ; +assertS ISOT :: 'NWT0' 2 3.246804E-01 ; INTLINF INTLINS := DELETE: INTLINF INTLINS ; ECHO "test TCDR05 completed" ; diff --git a/Dragon/data/tdraglib_proc/TCDR06.c2m b/Dragon/data/tdraglib_proc/TCDR06.c2m index bae3d04..9e57257 100644 --- a/Dragon/data/tdraglib_proc/TCDR06.c2m +++ b/Dragon/data/tdraglib_proc/TCDR06.c2m @@ -66,7 +66,7 @@ SYS := ASM: LIBRARY TRACK INTLIN :: EDIT 0 ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117081 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117330 ; *---- * Microscopic cross sections from WIMSLIB for stainless steel * MIX 1,2,3 from EDI: : fuel, structure material and moderator @@ -127,7 +127,7 @@ SYS := ASM: LIBRARY2 TRACK INTLIN :: EDIT 0 ; FLUX := FLU: SYS LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.127179 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.127370 ; EDITION := EDI: LIBRARY2 TRACK FLUX :: EDIT 2 MERG COMP COND 4.0 SAVE ON 'NOBC' ; SYS TRACK INTLIN := DELETE: SYS TRACK INTLIN ; @@ -142,7 +142,7 @@ SYS := ASM: LIBRARY2 TRACK INTLIN :: EDIT 0 ; FLUX := FLU: FLUX SYS LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.041988 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.042161 ; EDITION := EDI: EDITION LIBRARY2 TRACK FLUX :: EDIT 2 MERG COMP COND 4.0 STAT DELS REFE 'NOBC' ; TRACK INTLIN SYS := DELETE: TRACK INTLIN SYS ; diff --git a/Dragon/data/tdraglib_proc/TCDR07.c2m b/Dragon/data/tdraglib_proc/TCDR07.c2m index be6360a..5594062 100644 --- a/Dragon/data/tdraglib_proc/TCDR07.c2m +++ b/Dragon/data/tdraglib_proc/TCDR07.c2m @@ -71,17 +71,17 @@ SYS := ASM: LIBRARY TRACK INTLIN :: EDIT 0 PIJK ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117062 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117309 ; EDITION := EDI: FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX := FLU: FLUX SYS LIBRARY TRACK :: TYPE B B1 PNL ; -assertS FLUX :: 'K-INFINITY' 1 1.108985 ; +assertS FLUX :: 'K-INFINITY' 1 1.109237 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX := FLU: FLUX SYS LIBRARY TRACK :: TYPE B B1 TIBERE ; -assertS FLUX :: 'K-INFINITY' 1 1.108995 ; +assertS FLUX :: 'K-INFINITY' 1 1.109251 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX SYS := DELETE: FLUX SYS ; @@ -89,7 +89,7 @@ SYS := ASM: LIBRARY TRACK INTLIN :: EDIT 0 PIJ ECCO ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE B B1 ECCO ; -assertS FLUX :: 'K-INFINITY' 1 1.108996 ; +assertS FLUX :: 'K-INFINITY' 1 1.109249 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ; @@ -111,17 +111,17 @@ SYS := ASM: LIBRARY TRACK INTLIN :: EDIT 0 PIJK ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.140569 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.140787 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX := FLU: FLUX SYS LIBRARY TRACK :: TYPE B B1 PNL ; -assertS FLUX :: 'K-INFINITY' 1 1.132941 ; +assertS FLUX :: 'K-INFINITY' 1 1.133169 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX := FLU: FLUX SYS LIBRARY TRACK :: TYPE B B1 TIBERE ; -assertS FLUX :: 'K-INFINITY' 1 1.133257 ; +assertS FLUX :: 'K-INFINITY' 1 1.133490 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX SYS := DELETE: FLUX SYS ; @@ -129,7 +129,7 @@ SYS := ASM: LIBRARY TRACK INTLIN :: EDIT 0 PIJ ECCO ; FLUX := FLU: SYS LIBRARY TRACK :: TYPE B B1 ECCO ; -assertS FLUX :: 'K-INFINITY' 1 1.133257 ; +assertS FLUX :: 'K-INFINITY' 1 1.133488 ; EDITION := EDI: EDITION FLUX LIBRARY TRACK :: EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ; diff --git a/Dragon/data/tdraglib_proc/TCDR08.c2m b/Dragon/data/tdraglib_proc/TCDR08.c2m index 311ac4c..06247c5 100644 --- a/Dragon/data/tdraglib_proc/TCDR08.c2m +++ b/Dragon/data/tdraglib_proc/TCDR08.c2m @@ -67,7 +67,7 @@ LIBRARY := SHI: LIBRARY TRACK :: EDIT 0 NOLJ ; PIJ := ASM: LIBRARY TRACK ; FLUX := FLU: PIJ LIBRARY TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.873188 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.873172 ; EDITION := EDI: FLUX LIBRARY TRACK :: COND 4.0 MERGE COMP SAVE ; *---- @@ -118,7 +118,7 @@ WHILE Timei TotalTime < DO ENDIF ; EVALUATE Timei := Timef ; ENDWHILE ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.217538 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.216965 ; ECHO "test TCDR08 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR09.c2m b/Dragon/data/tdraglib_proc/TCDR09.c2m index 9af763b..a183648 100644 --- a/Dragon/data/tdraglib_proc/TCDR09.c2m +++ b/Dragon/data/tdraglib_proc/TCDR09.c2m @@ -52,7 +52,7 @@ LIBRARY := SHI: LIBRARY VOLMAT :: EDIT 0 NOLJ ; PIJ := ASM: LIBRARY VOLMAT ; FLUX := FLU: PIJ LIBRARY VOLMAT :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 0.7670202 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.7671104 ; OUT := EDI: FLUX LIBRARY VOLMAT :: EDIT 4 MERG MIX 1 2 3 COND 4.0 SAVE ; PIJ VOLMAT := DELETE: PIJ VOLMAT ; @@ -62,7 +62,7 @@ VOLMAT := SYBILT: MOSTELV :: PIJ := ASM: LIBRARY VOLMAT ; FLUX := FLU: FLUX PIJ LIBRARY VOLMAT :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.048279E-02 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.050192E-02 ; OUT := EDI: OUT FLUX LIBRARY VOLMAT :: EDIT 4 MERG MIX 1 2 3 COND 4.0 SAVE ; OUT FLUX PIJ LIBRARY VOLMAT := DELETE: diff --git a/Dragon/data/tdraglib_proc/TCDR10.c2m b/Dragon/data/tdraglib_proc/TCDR10.c2m index d34a4cf..139f1e5 100644 --- a/Dragon/data/tdraglib_proc/TCDR10.c2m +++ b/Dragon/data/tdraglib_proc/TCDR10.c2m @@ -73,13 +73,13 @@ LIBRARY := SHI: LIBRARY VOLMAT :: EDIT 0 NOLJ ; PIJ := ASM: LIBRARY VOLMAT ; FLUX := FLU: PIJ LIBRARY VOLMAT :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 0.7670202 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.7671104 ; OUT := EDI: FLUX LIBRARY VOLMAT :: EDIT 4 MERG MIX 1 2 3 COND 4.0 ; FLUX := DELETE: FLUX ; FLUX := FLU: PIJ LIBRARY VOLMAT :: TYPE S EXTE 30 UNKT 1.0E-3 ; -assertV FLUX :: 'FLUX' (*GROUP*) 10 (*REGION*) 4 2.656012E+05 ; +assertV FLUX :: 'FLUX' (*GROUP*) 10 (*REGION*) 4 2.659060E+05 ; OUT := EDI: OUT FLUX LIBRARY VOLMAT :: EDIT 4 MERG MIX 1 2 3 COND 4.0 ; OUT FLUX PIJ LIBRARY VOLMAT := DELETE: diff --git a/Dragon/data/tdraglib_proc/TCDR11.c2m b/Dragon/data/tdraglib_proc/TCDR11.c2m index 86c654e..dc9b541 100644 --- a/Dragon/data/tdraglib_proc/TCDR11.c2m +++ b/Dragon/data/tdraglib_proc/TCDR11.c2m @@ -92,7 +92,7 @@ VOLMATF INTLINF := EXCELT: CANDU6F :: PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117541 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117787 ; EDITION := EDI: FLUX LIBRARY VOLMATF CANDU6F :: MERG REGI 6 6 10 7 7 10 1 1 8 8 10 1 1 9 9 10 1 1 2 3 4 5 5 5 @@ -111,7 +111,7 @@ PIJ := DELETE: PIJ ; PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: FLUX PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 0.9515619 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9513567 ; EDITION := EDI: EDITION FLUX LIBRARY VOLMATF CANDU6F :: MGEO CANDU6F ; @@ -126,7 +126,7 @@ EDITION := DELETE: EDITION ; PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117564 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117779 ; EDITION := EDI: FLUX LIBRARY VOLMATF :: EDIT 1 MERGE COMP MICR ALL SAVE ; EVALUATE Timec := 1.0 ; @@ -158,7 +158,7 @@ WHILE Timei Timec < DO ENDIF ; EVALUATE Timei := Timef ; ENDWHILE ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.075418 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.075556 ; res := EDITION ; EDITION BURNUP FLUX PIJ LIBRARY INTLINF VOLMATF CANDU6F := DELETE: EDITION BURNUP FLUX PIJ LIBRARY INTLINF VOLMATF CANDU6F ; diff --git a/Dragon/data/tdraglib_proc/TCDR12.c2m b/Dragon/data/tdraglib_proc/TCDR12.c2m index 5a1162e..215f72b 100644 --- a/Dragon/data/tdraglib_proc/TCDR12.c2m +++ b/Dragon/data/tdraglib_proc/TCDR12.c2m @@ -100,7 +100,7 @@ LIBRARY := LIB: :: ; ISOT := LIBRARY :: STEP UP ISOTOPESLIST STEP AT 14 ; (*U238 0004*) -assertS ISOT :: NG 35 2.219075E-01 ; +assertS ISOT :: NG 35 2.219074E-01 ; ECHO "test TCDR12 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR13.c2m b/Dragon/data/tdraglib_proc/TCDR13.c2m index d524cd5..0849b76 100644 --- a/Dragon/data/tdraglib_proc/TCDR13.c2m +++ b/Dragon/data/tdraglib_proc/TCDR13.c2m @@ -90,7 +90,7 @@ LIBRARY := SHI: LIBRARY VOLMATS INTLINS :: EDIT 0 NOLJ ; PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-INFINITY' 1 1.117541 ; +assertS FLUX :: 'K-INFINITY' 1 1.117787 ; EDITION := EDI: FLUX LIBRARY VOLMATF :: COND 4.0 MERGE MIX 0 0 0 0 1 0 0 0 0 0 MICR RES SAVE ON 'moderator' ; DATABASE := COMPO: DATABASE EDITION :: @@ -115,16 +115,16 @@ ISOT := DATABASE :: STEP UP fuel STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 5 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 1.149079E1 ; -assertS ISOT :: 'NWT0' 2 2.586806E1 ; +assertS ISOT :: 'NWT0' 1 1.152544E+01 ; +assertS ISOT :: 'NWT0' 2 2.593972E+01 ; ISOT := DELETE: ISOT ; ISOT := DATABASE :: STEP UP moderator STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 1 STEP UP ISOTOPESLIST STEP AT 1 ; -assertS ISOT :: 'NWT0' 1 9.095950E-2 ; -assertS ISOT :: 'NWT0' 2 3.246065E-1 ; +assertS ISOT :: 'NWT0' 1 9.099452E-02 ; +assertS ISOT :: 'NWT0' 2 3.246804E-01 ; INTLINF INTLINS := DELETE: INTLINF INTLINS ; ECHO "test TCDR13 completed" ; diff --git a/Dragon/data/tdraglib_proc/TCDR14.c2m b/Dragon/data/tdraglib_proc/TCDR14.c2m index 768e2f7..cf04c4f 100644 --- a/Dragon/data/tdraglib_proc/TCDR14.c2m +++ b/Dragon/data/tdraglib_proc/TCDR14.c2m @@ -160,7 +160,7 @@ LIBRARY := SHI: LIBRARY DISCR :: LJ ; CP := ASM: LIBRARY DISCR ; CALC := FLU: CP LIBRARY DISCR :: TYPE B B1 PNL ; -assertS CALC :: 'K-INFINITY' 1 1.256372 ; +assertS CALC :: 'K-INFINITY' 1 1.256499 ; OUT := EDI: CALC LIBRARY DISCR ASSMB_HOM :: EDIT 3 UPS SAVE MICR ALL MERGE MIX 1 1 1 2 2 2 2 2 @@ -219,13 +219,13 @@ WHILE Timei Timec < DO ENDIF ; EVALUATE Timei := Timef ; ENDWHILE ; -assertS CALC :: 'K-INFINITY' 1 1.211175 ; +assertS CALC :: 'K-INFINITY' 1 1.211245 ; COMPO := CPO: OUT BURNUP :: BURNUP REF-CASE NAME COMPO ; RECORD := COMPO :: STEP UP 'COMPO 2' ; -assertS RECORD :: 'BURNUP' 4 3.197132E+02 ; +assertS RECORD :: 'BURNUP' 4 3.197130E+02 ; *---- * 2 group Burnup initialization *---- @@ -240,7 +240,7 @@ DISCR := BIVACT: ASSMB_HOM :: CP := ASM: LIBRARY DISCR :: ARM ; CALC := FLU: CP LIBRARY DISCR :: TYPE K LKRD IDEM ; -assertS CALC :: 'K-INFINITY' 1 1.256390 ; +assertS CALC :: 'K-INFINITY' 1 1.256512 ; *---- * 2 group Burnup *---- @@ -286,7 +286,7 @@ WHILE Timei Timec < DO EVALUATE Timei := Timef ; ENDWHILE ; saCOMPO := MCOMPO ; -assertS CALC :: 'K-INFINITY' 1 1.212845 ; +assertS CALC :: 'K-INFINITY' 1 1.212984 ; ECHO "test TCDR14 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR15.c2m b/Dragon/data/tdraglib_proc/TCDR15.c2m index 7b70a14..747d4d2 100644 --- a/Dragon/data/tdraglib_proc/TCDR15.c2m +++ b/Dragon/data/tdraglib_proc/TCDR15.c2m @@ -194,7 +194,7 @@ LIBRARY2 := USS: LIBRARY TRACK TRACK_FIL :: 1.0000E-02 MICR ISOTXS ASCII ALL SAVE ; -assertS FLUX :: K-INFINITY 1 1.145036 ; +assertS FLUX :: K-INFINITY 1 1.144844 ; ECHO "test TCDR15 completed" ; EDIT.out := OUT1G ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR16.c2m b/Dragon/data/tdraglib_proc/TCDR16.c2m index e228900..93e7a84 100644 --- a/Dragon/data/tdraglib_proc/TCDR16.c2m +++ b/Dragon/data/tdraglib_proc/TCDR16.c2m @@ -146,7 +146,7 @@ LIBRARY2 := USS: LIBRARY TRACK TRACK_FIL :: EDIT 1 TYPE K P1 EXTE 300 1E-5 THER 10 1E-5 ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.144677 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.144789 ; ECHO "test TCDR16 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR17.c2m b/Dragon/data/tdraglib_proc/TCDR17.c2m index ce2751c..25f9f66 100644 --- a/Dragon/data/tdraglib_proc/TCDR17.c2m +++ b/Dragon/data/tdraglib_proc/TCDR17.c2m @@ -139,7 +139,7 @@ DATABASE := COMPO: :: *--- BURNUP LIBRARY := EVO: LIBRARY CALC DISCR :: SAVE 0.0 DAY POWR <<Power>> ; -assertS CALC :: 'K-EFFECTIVE' 1 9.225872E-01 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.9227237 ; DATABASE := COMPO: DATABASE OUT BURNUP LIBRARY :: EDIT 0 ALLX @@ -200,7 +200,7 @@ ENDWHILE ; saCOMPO2 := DATABASE ; -assertS CALC :: 'K-EFFECTIVE' 1 9.392296E-01 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.9391420 ; ECHO "test TCDR17 completed" ; END: ; QUIT . diff --git a/Dragon/data/tdraglib_proc/TCDR18.c2m b/Dragon/data/tdraglib_proc/TCDR18.c2m index e3dba38..8bcb2e9 100644 --- a/Dragon/data/tdraglib_proc/TCDR18.c2m +++ b/Dragon/data/tdraglib_proc/TCDR18.c2m @@ -77,7 +77,7 @@ EDITION := EDI: LIBRARY2 FLUX TRACK :: *-- GROUP := EDITION :: STEP UP EDITMOD STEP UP MACROLIB STEP UP GROUP STEP AT 1 ; -assertS GROUP :: 'NTOT0' 1 0.1447909 ; +assertS GROUP :: 'NTOT0' 1 1.447905E-01 ; ECHO "test TCDR18 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR19.c2m b/Dragon/data/tdraglib_proc/TCDR19.c2m index 26266db..7089ae5 100644 --- a/Dragon/data/tdraglib_proc/TCDR19.c2m +++ b/Dragon/data/tdraglib_proc/TCDR19.c2m @@ -152,7 +152,7 @@ LIBRARY2 := USS: LIBRARY TRACK TRACK_FIL :: TYPE K EXTE 500 1E-5 THER 10 1E-5 ; -assertS FLUX :: 'K-INFINITY' 1 1.208958 ; +assertS FLUX :: 'K-INFINITY' 1 1.208795 ; ECHO "test TCDR19 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR20.c2m b/Dragon/data/tdraglib_proc/TCDR20.c2m index 772c061..f445c95 100644 --- a/Dragon/data/tdraglib_proc/TCDR20.c2m +++ b/Dragon/data/tdraglib_proc/TCDR20.c2m @@ -169,7 +169,7 @@ EDIT := SPH: EDIT SPHTRACK :: MACRO := EDIT :: STEP UP 'REF-CASE0001' STEP UP MACROLIB ; SYS := ASM: MACRO SPHTRACK :: ARM ; FLUX := FLU: MACRO SPHTRACK SYS :: TYPE K EXTE 100 5.0E-8 ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.503346 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.503431 ; ECHO "test TCDR20 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR21.c2m b/Dragon/data/tdraglib_proc/TCDR21.c2m index ab526c2..dcd43ad 100644 --- a/Dragon/data/tdraglib_proc/TCDR21.c2m +++ b/Dragon/data/tdraglib_proc/TCDR21.c2m @@ -128,16 +128,16 @@ EDITION := SPH: EDITION :: EDIT 2 ALBS SELE_ALB ; * MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 1 ; -assertS MACDIR :: 'NTOT0' 1 5.363227E-01 ; -assertS MACDIR :: 'NUSIGF' 1 6.825784E-03 ; -assertS MACDIR :: 'DIFF' 1 1.532271E+00 ; -assertS MACDIR :: 'SIGW00' 1 5.097417E-01 ; +assertS MACDIR :: 'NTOT0' 1 5.361698E-01 ; +assertS MACDIR :: 'NUSIGF' 1 6.822402E-03 ; +assertS MACDIR :: 'DIFF' 1 1.532455E+00 ; +assertS MACDIR :: 'SIGW00' 1 5.096055E-01 ; MACDIR := DELETE: MACDIR ; MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 2 ; -assertS MACDIR :: 'NTOT0' 1 1.338058E+00 ; -assertS MACDIR :: 'NUSIGF' 1 1.413793E-01 ; -assertS MACDIR :: 'DIFF' 1 3.821711E-01 ; +assertS MACDIR :: 'NTOT0' 1 1.338060E+00 ; +assertS MACDIR :: 'NUSIGF' 1 1.413817E-01 ; +assertS MACDIR :: 'DIFF' 1 3.821671E-01 ; assertS MACDIR :: 'SIGW00' 1 1.247216E+00 ; MACDIR := DELETE: MACDIR ; ECHO "test TCDR21 completed" ; diff --git a/Dragon/data/tdraglib_proc/TCDR22.c2m b/Dragon/data/tdraglib_proc/TCDR22.c2m index 8983c9f..a8eac72 100644 --- a/Dragon/data/tdraglib_proc/TCDR22.c2m +++ b/Dragon/data/tdraglib_proc/TCDR22.c2m @@ -10,17 +10,20 @@ * Define STRUCTURES and MODULES used *---- LINKED_LIST - ASSMB DISCR LIBRARY CP CALC OUT SPHGEOM MTRACK MACRO MACRO2 SYS FLUX - EDIT ; + ASSMB DISCR LIBRARY LIBRARY2 CP CALC OUT SPHGEOM MTRACK MACRO MACRO2 SYS + FLUX EDIT OPTIM ; MODULE - LIB: GEO: SYBILT: SHI: ASM: FLU: EDI: FLUD: MAC: DELETE: UTL: BIVACT: - BIVACA: SPH: OUT: ERROR: END: ; + LIB: GEO: SYBILT: USS: ASM: FLU: EDI: FLUD: MAC: DELETE: UTL: BIVACT: + BIVACA: OUT: ERROR: END: ; +PROCEDURE SPH_FixedPt ; PROCEDURE assertS ; +INTEGER IterEmax := 50 ; *---- * Microscopic cross sections from Jef 2.2 Draglib *---- LIBRARY := LIB: :: NMIX 8 CTRA WIMS ANIS 2 + SUBG MIXS LIB: DRAGON FIL: DLIB_J2 MIX 1 579.9 H1H2O = H1_H2O 4.76690E-2 O16H2O = O16 2.38345E-2 @@ -122,7 +125,7 @@ ASSMB := GEO: :: CAR2D 9 9 DISCR := SYBILT: ASSMB :: TITLE 'TCDR02: 17 X 17 MULTICELL PWR BENCHMARK WITHOUT POISON' MAXR 400 QUA2 6 3 ; -LIBRARY := SHI: LIBRARY DISCR :: LJ ; +LIBRARY2 := USS: LIBRARY DISCR :: PASS 2 ; ASSMB DISCR := DELETE: ASSMB DISCR ; *---- * New lattice geometry with VOID boundary condition @@ -148,16 +151,16 @@ ASSMB := GEO: :: CAR2D 9 9 DISCR := SYBILT: ASSMB :: TITLE 'TCDR02: 17 X 17 MULTICELL PWR BENCHMARK WITHOUT POISON' MAXR 400 QUA2 6 3 ; -CP := ASM: LIBRARY DISCR :: ARM ; -CALC := FLU: CP LIBRARY DISCR :: +CP := ASM: LIBRARY2 DISCR :: ARM ; +CALC := FLU: CP LIBRARY2 DISCR :: TYPE K P1 HETE ; -assertS CALC :: 'K-EFFECTIVE' 1 0.4551677 ; +assertS CALC :: 'K-EFFECTIVE' 1 0.4565791 ; *---- * Editing using SPH model for transport-diffusion with flux-volume * normalization *---- -OUT := EDI: LIBRARY DISCR CALC ASSMB :: +OUT := EDI: LIBRARY2 DISCR CALC ASSMB :: EDIT 4 UPS SAVE MICR RES MERGE CELL COND 4.0 ; @@ -187,21 +190,19 @@ MACRO := OUT :: STEP UP 'REF-CASE0001' STEP UP 'MACROLIB' ; *---- MACRO := MAC: MACRO :: ALBP 1 0.0 0.0 ; *---- -* Perform SPH equivalence +* Perform fixed-point SPH equivalence *---- -MACRO2 := SPH: MACRO MTRACK :: EDIT 2 ITER 1.0E-7 ; +MACRO2 OPTIM := SPH_FixedPt MACRO SPHGEOM MTRACK + :: 0.0 10.0 1.0E-7 <<IterEmax>> ; +ECHO "control variables at convergence" ; +UTL: OPTIM :: IMPR 'VAR-VALUE' * ; *---- * Verification calculation *---- +CALC := DELETE: CALC ; SYS := BIVACA: MACRO2 MTRACK ; -FLUX := FLUD: SYS MTRACK :: EDIT 2 ADI 20 ACCE 5 3 ; -EDIT := OUT: FLUX SPHGEOM MACRO2 MTRACK :: - EDIT 0 INTG MIX ; - -ECHO "Error statistics after correction" ; -ERROR: MACRO EDIT :: HREA 'NFTOT' ; - -assertS FLUX :: K-EFFECTIVE 1 0.4551687 ; +CALC := FLUD: SYS MTRACK :: EDIT 2 ADI 5 ACCE 5 3 ; +assertS CALC :: K-EFFECTIVE 1 0.4565792 ; ECHO "test TCDR22 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR31.c2m b/Dragon/data/tdraglib_proc/TCDR31.c2m index 23530bd..4613628 100644 --- a/Dragon/data/tdraglib_proc/TCDR31.c2m +++ b/Dragon/data/tdraglib_proc/TCDR31.c2m @@ -93,7 +93,7 @@ VOLMATF INTLINF := EXCELT: CANDU6F :: PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117541 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117787 ; EDITION := EDI: FLUX LIBRARY VOLMATF CANDU6F :: MERG REGI 6 6 10 7 7 10 1 1 8 8 10 1 1 9 9 10 1 1 2 3 4 5 5 5 @@ -131,7 +131,7 @@ VOLMATF INTLINF := EXCELT: CANDU6F :: PIJ := ASM: LIBRARY VOLMATF INTLINF ; FLUX := FLU: PIJ LIBRARY VOLMATF :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.117542 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.117703 ; EDITION := EDI: FLUX LIBRARY VOLMATF :: EDIT 1 MERGE COMP MICR ALL SAVE ; EVALUATE Timec := 1.0 ; @@ -163,7 +163,7 @@ WHILE Timei Timec < DO ENDIF ; EVALUATE Timei := Timef ; ENDWHILE ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.075418 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.075547 ; res := EDITION ; EDITION BURNUP FLUX PIJ LIBRARY INTLINF VOLMATF CANDU6F := DELETE: EDITION BURNUP FLUX PIJ LIBRARY INTLINF VOLMATF CANDU6F ; diff --git a/Dragon/data/tdraglib_proc/TCDR32.c2m b/Dragon/data/tdraglib_proc/TCDR32.c2m index c0653b0..9c1fe02 100644 --- a/Dragon/data/tdraglib_proc/TCDR32.c2m +++ b/Dragon/data/tdraglib_proc/TCDR32.c2m @@ -68,7 +68,7 @@ LIBRARY := LIB: :: LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.212449 ; +assertS FLUX :: K-EFFECTIVE 1 1.212435 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 2 @@ -76,7 +76,7 @@ LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.217413 ; +assertS FLUX :: K-EFFECTIVE 1 1.217428 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * USS @@ -117,7 +117,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.216461 ; +assertS FLUX :: K-EFFECTIVE 1 1.216626 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -158,7 +158,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.216642 ; +assertS FLUX :: K-EFFECTIVE 1 1.216878 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -201,7 +201,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.218970 ; +assertS FLUX :: K-EFFECTIVE 1 1.219296 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test TCDR32 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR33.c2m b/Dragon/data/tdraglib_proc/TCDR33.c2m index e7f8ed4..59aec17 100644 --- a/Dragon/data/tdraglib_proc/TCDR33.c2m +++ b/Dragon/data/tdraglib_proc/TCDR33.c2m @@ -92,7 +92,7 @@ LIBRARY := SHI: LIBRARY TRACK :: EDIT 0 NOLJ ; PIJ := ASM: LIBRARY TRACK ; FLUX := FLU: PIJ LIBRARY TRACK :: TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.873188 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.873172 ; EDITION := EDI: FLUX LIBRARY TRACK :: COND 4.0 MERGE COMP SAVE ; *---- @@ -140,7 +140,7 @@ WHILE Timei TotalTime < DO ENDIF ; EVALUATE Timei := Timef ; ENDWHILE ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.760241 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.834845 ; ECHO "test TCDR33 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/tdraglib_proc/TCDR34.c2m b/Dragon/data/tdraglib_proc/TCDR34.c2m index 062008f..a9755a5 100644 --- a/Dragon/data/tdraglib_proc/TCDR34.c2m +++ b/Dragon/data/tdraglib_proc/TCDR34.c2m @@ -54,12 +54,12 @@ TRACK := SYBILT: C3 :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 0 TRAN PASS 2 GRMIN 45 ; SYS := ASM: LIBRARY2 TRACK :: PIJ ECCO ; FLUX := FLU: SYS LIBRARY2 TRACK :: TYPE B P1 ECCO ; -assertS FLUX :: 'K-INFINITY' 1 1.378569 ; +assertS FLUX :: 'K-INFINITY' 1 1.378641 ; EDIT := EDI: FLUX LIBRARY2 TRACK :: EDIT 3 COND 75 99 MERGE COMP SAVE ON 'EDITCDAT 1' ; MACDIR := EDIT :: STEP UP 'EDITCDAT 1' STEP UP MACROLIB STEP UP GROUP STEP AT 2 ; -assertS MACDIR :: 'DIFF' 1 0.64423 ; +assertS MACDIR :: 'DIFF' 1 0.6442041 ; ECHO "test TCDR34 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR35.c2m b/Dragon/data/tdraglib_proc/TCDR35.c2m index 7156fc0..c380f06 100644 --- a/Dragon/data/tdraglib_proc/TCDR35.c2m +++ b/Dragon/data/tdraglib_proc/TCDR35.c2m @@ -74,6 +74,6 @@ TRACK := SNT: GEOM2 :: SN 16 SCAT 1 QUAD 10 ; SYS := ASM: LIBRARY2 TRACK :: ARM ; FLUX := FLU: SYS LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.387591 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.388029 ; ECHO "test TCDR35 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR36.c2m b/Dragon/data/tdraglib_proc/TCDR36.c2m index 8a67373..6c68390 100644 --- a/Dragon/data/tdraglib_proc/TCDR36.c2m +++ b/Dragon/data/tdraglib_proc/TCDR36.c2m @@ -196,7 +196,7 @@ TRACK_F1 := SYBILT: GEOM_F1 :: SYS := ASM: AUTO_LIB TRACK_F1 :: ; FLUX1 := FLU: AUTO_LIB TRACK_F1 SYS :: TYPE B B1 SIGS ; SYS := DELETE: SYS ; -assertS FLUX1 :: 'K-INFINITY' 1 1.217577 ; +assertS FLUX1 :: 'K-INFINITY' 1 1.217641 ; * ************************************************************************ * burnup loop -- burnup loop -- burnup loop -- burnup loop -- burnup loo @@ -276,7 +276,7 @@ WHILE Burni Burnc < DO EVALUATE Timei := Timef ; * ENDWHILE ; -assertS FLUX1 :: 'K-INFINITY' 1 1.161285 ; +assertS FLUX1 :: 'K-INFINITY' 1 1.161281 ; * LIBRARY GEOM_SS TRACK_SS AUTO_LIB BURN := DELETE: LIBRARY GEOM_SS TRACK_SS AUTO_LIB BURN ; diff --git a/Dragon/data/tdraglib_proc/TCDR37.c2m b/Dragon/data/tdraglib_proc/TCDR37.c2m index 8f0422a..476ab2a 100644 --- a/Dragon/data/tdraglib_proc/TCDR37.c2m +++ b/Dragon/data/tdraglib_proc/TCDR37.c2m @@ -141,10 +141,10 @@ LIBRARY := SHI: LIBRARY TRACK TRACK_FIL :: FLUX := FLU: SYS LIBRARY TRACK TRACK_FIL :: EDIT 1 TYPE K P1 EXTE 300 1E-5 THER 10 1E-5 ; - assertS FLUX :: K-EFFECTIVE 1 1.083298 ; + assertS FLUX :: K-EFFECTIVE 1 1.083412 ; *-------------------------------------------------------- -* Graphik +* Graphic *-------------------------------------------------------- * Fig_reg.ps := PSP: TRACK :: diff --git a/Dragon/data/tdraglib_proc/TCDR38.c2m b/Dragon/data/tdraglib_proc/TCDR38.c2m index bf4eeed..b8ddecb 100644 --- a/Dragon/data/tdraglib_proc/TCDR38.c2m +++ b/Dragon/data/tdraglib_proc/TCDR38.c2m @@ -119,7 +119,7 @@ FLUX := FLU: SYS LIBRARY2 TRACKF :: GREP: FLUX :: GETVAL 'K-INFINITY' 1 >>Kinf<< ; ECHO "Kinf=" Kinf ; -EVALUATE REFVALUE := 1.110458 ; +EVALUATE REFVALUE := 1.110557 ; EVALUATE DELTA := Kinf REFVALUE - REFVALUE / ABS ; IF DELTA 1.0E-3 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; diff --git a/Dragon/data/tdraglib_proc/TCDR41.c2m b/Dragon/data/tdraglib_proc/TCDR41.c2m index 7c4e5a1..0aa2776 100644 --- a/Dragon/data/tdraglib_proc/TCDR41.c2m +++ b/Dragon/data/tdraglib_proc/TCDR41.c2m @@ -98,7 +98,7 @@ SYS := ASM: LIBRARY2 TRACK TRACK_FIL :: EDIT 2 ARM ; FLUX := FLU: LIBRARY2 TRACK SYS TRACK_FIL :: EDIT 1 TYPE K B0 SIGS BUCK <<Buckl>> ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.392635 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.393150 ; EDIT := EDI: FLUX LIBRARY2 TRACK CELL :: EDIT 2 COND 27 59 95 ; @@ -155,7 +155,7 @@ SYS := ASM: LIBRARY2 TRACK TRACK_FIL :: EDIT 2 ARM ; FLUX := FLU: LIBRARY2 TRACK SYS TRACK_FIL :: EDIT 1 TYPE K B0 SIGS BUCK <<Buckl>> ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.393138 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.393633 ; EDIT := EDI: FLUX LIBRARY2 TRACK CELL :: EDIT 2 COND 27 59 95 ; diff --git a/Dragon/data/tdraglib_proc/TCDR42.c2m b/Dragon/data/tdraglib_proc/TCDR42.c2m index 2023f36..de0e334 100644 --- a/Dragon/data/tdraglib_proc/TCDR42.c2m +++ b/Dragon/data/tdraglib_proc/TCDR42.c2m @@ -96,7 +96,7 @@ LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 0 MXIT 3 PIJ ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.342790 ; +assertS FLUX :: K-EFFECTIVE 1 1.342668 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 0 WITH ARM (FLUX-CURRENT EURYDICE ITERATIONS) @@ -105,7 +105,7 @@ LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 0 MXIT 3 ARM ; CP := ASM: LIBRARY2 TRACK :: ARM ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.342790 ; +assertS FLUX :: K-EFFECTIVE 1 1.342668 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 1 WITH PIJ @@ -114,7 +114,7 @@ LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 PIJ ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.345739 ; +assertS FLUX :: K-EFFECTIVE 1 1.345441 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 1 WITH ARM (FLUX-CURRENT EURYDICE ITERATIONS) @@ -123,7 +123,7 @@ LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ARM ; CP := ASM: LIBRARY2 TRACK :: ARM ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.345739 ; +assertS FLUX :: K-EFFECTIVE 1 1.345441 ; * ECHO "test TCDR42 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR43.c2m b/Dragon/data/tdraglib_proc/TCDR43.c2m index 01c97fd..fbbb5cc 100644 --- a/Dragon/data/tdraglib_proc/TCDR43.c2m +++ b/Dragon/data/tdraglib_proc/TCDR43.c2m @@ -272,6 +272,6 @@ TRACK1_F := SYBILT: SPHGEOM :: MAXJ 500 QUA2 20 3 DP01 ; CP1 := ASM: MACRO TRACK1_F :: PIJ ; FLUX1 := FLU: MACRO TRACK1_F CP1 :: TYPE K ; -assertS FLUX1 :: K-EFFECTIVE 1 1.264118 ; +assertS FLUX1 :: K-EFFECTIVE 1 1.264182 ; ECHO "test TCDR43 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR44.c2m b/Dragon/data/tdraglib_proc/TCDR44.c2m index 2da37e5..f74790e 100644 --- a/Dragon/data/tdraglib_proc/TCDR44.c2m +++ b/Dragon/data/tdraglib_proc/TCDR44.c2m @@ -81,7 +81,7 @@ FLUX := MC: TRACK LIBRARY2 :: * * Non regression assert * -EVALUATE REFVALUE := 1.395400 ; +EVALUATE REFVALUE := 1.402651 ; * GREP: FLUX :: GETVAL K-EFFECTIVE 1 >>VALUE<< ; EVALUATE DELTA := VALUE REFVALUE - REFVALUE / ABS ; diff --git a/Dragon/data/tdraglib_proc/TCDR46.c2m b/Dragon/data/tdraglib_proc/TCDR46.c2m index 9d36bdc..2ff1a0e 100644 --- a/Dragon/data/tdraglib_proc/TCDR46.c2m +++ b/Dragon/data/tdraglib_proc/TCDR46.c2m @@ -87,24 +87,24 @@ DISCR_SS := SYBILT: ASSMB_SS :: MAXZ 1000000 MAXR 1000000 LIBRARY_SS := USS: LIBRARY DISCR_SS ; CP := ASM: LIBRARY_SS DISCR :: ARM ; FLUX := FLU: CP LIBRARY_SS DISCR :: EDIT 2 TYPE B B1 SIGS ; -assertS FLUX :: 'K-INFINITY' 1 1.279648 ; +assertS FLUX :: 'K-INFINITY' 1 1.279805 ; EDITION := EDI: LIBRARY_SS DISCR FLUX ASSMB :: EDIT 4 SAVE MICR RES MERGE COMP COND 0.625 JOUT ; EDITION := SPH: EDITION :: EDIT 9 ALBS SELE_ALB ; * MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 1 ; -assertS MACDIR :: 'NTOT0' 1 5.305629E-01 ; -assertS MACDIR :: 'NUSIGF' 1 6.686473E-03 ; -assertS MACDIR :: 'DIFF' 1 1.400524E+00 ; -assertS MACDIR :: 'SIGW00' 1 5.050910E-01 ; +assertS MACDIR :: 'NTOT0' 1 5.303974E-01 ; +assertS MACDIR :: 'NUSIGF' 1 6.683205E-03 ; +assertS MACDIR :: 'DIFF' 1 1.400765E+00 ; +assertS MACDIR :: 'SIGW00' 1 5.049425E-01 ; MACDIR := DELETE: MACDIR ; MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 2 ; -assertS MACDIR :: 'NTOT0' 1 1.359428E+00 ; -assertS MACDIR :: 'NUSIGF' 1 1.365678E-01 ; -assertS MACDIR :: 'DIFF' 1 4.055927E-01 ; -assertS MACDIR :: 'SIGW00' 1 1.271332E+00 ; +assertS MACDIR :: 'NTOT0' 1 1.359430E+00 ; +assertS MACDIR :: 'NUSIGF' 1 1.365735E-01 ; +assertS MACDIR :: 'DIFF' 1 4.055988E-01 ; +assertS MACDIR :: 'SIGW00' 1 1.271331E+00 ; MACDIR := DELETE: MACDIR ; ECHO "test TCDR46 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR47.c2m b/Dragon/data/tdraglib_proc/TCDR47.c2m index 1c9f41d..a0290a4 100644 --- a/Dragon/data/tdraglib_proc/TCDR47.c2m +++ b/Dragon/data/tdraglib_proc/TCDR47.c2m @@ -124,23 +124,24 @@ DISCR := SYBILT: EIGHTH :: MAXZ 1000000 MAXR 1000000 QUA2 3 3 GAUSS DP01 ; CP := ASM: LIBRARY2 DISCR :: ARM ; FLUX := FLU: CP LIBRARY2 DISCR :: EDIT 1 TYPE B B1 SIGS ; +assertS FLUX :: 'K-INFINITY' 1 1.279805 ; EDITION := EDI: LIBRARY2 DISCR FLUX EIGHTH :: EDIT 1 SAVE MICR RES MERGE COMP COND 0.625 JOUT ; EDITION := SPH: EDITION :: EDIT 2 ALBS SELE_ALB ; * MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 1 ; -assertS MACDIR :: 'NTOT0' 1 5.305629E-01 ; -assertS MACDIR :: 'NUSIGF' 1 6.686473E-03 ; -assertS MACDIR :: 'DIFF' 1 1.400524E+00 ; -assertS MACDIR :: 'SIGW00' 1 5.050910E-01 ; +assertS MACDIR :: 'NTOT0' 1 5.303974E-01 ; +assertS MACDIR :: 'NUSIGF' 1 6.683205E-03 ; +assertS MACDIR :: 'DIFF' 1 1.400765E+00 ; +assertS MACDIR :: 'SIGW00' 1 5.049425E-01 ; MACDIR := DELETE: MACDIR ; MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB STEP UP GROUP STEP AT 2 ; -assertS MACDIR :: 'NTOT0' 1 1.359428E+00 ; -assertS MACDIR :: 'NUSIGF' 1 1.365678E-01 ; -assertS MACDIR :: 'DIFF' 1 4.055927E-01 ; -assertS MACDIR :: 'SIGW00' 1 1.271332E+00 ; +assertS MACDIR :: 'NTOT0' 1 1.359430E+00 ; +assertS MACDIR :: 'NUSIGF' 1 1.365735E-01 ; +assertS MACDIR :: 'DIFF' 1 4.055988E-01 ; +assertS MACDIR :: 'SIGW00' 1 1.271331E+00 ; MACDIR := DELETE: MACDIR ; ECHO "test TCDR47 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR48.c2m b/Dragon/data/tdraglib_proc/TCDR48.c2m index 10dda98..73a0753 100644 --- a/Dragon/data/tdraglib_proc/TCDR48.c2m +++ b/Dragon/data/tdraglib_proc/TCDR48.c2m @@ -36,8 +36,8 @@ LIBRARY := LIB: :: *---- ASB := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: LIBRARY TRACK ASB :: EDIT 2 TYPE L P1 SIGS BUCK -1.0E-2 ; -assertS FLUX :: 'B2 B1HOM' 1 -6.071696E-3 ; +assertS FLUX :: 'B2 B1HOM' 1 -6.071697E-03 ; FLUX := FLU: FLUX LIBRARY TRACK ASB :: TYPE L RHS SIGS ; -assertS FLUX :: 'B2 B1HOM' 1 -6.071696E-3 ; +assertS FLUX :: 'B2 B1HOM' 1 -6.071662E-03 ; ECHO "test TCDR48 completed" ; END: ; diff --git a/Dragon/data/tdraglib_proc/TCDR49.c2m b/Dragon/data/tdraglib_proc/TCDR49.c2m index 9086450..086bc22 100644 --- a/Dragon/data/tdraglib_proc/TCDR49.c2m +++ b/Dragon/data/tdraglib_proc/TCDR49.c2m @@ -100,7 +100,7 @@ DISCR := SYBILT: ASSMB :: LIBRARY2 := USS: LIBRARY DISCR :: EDIT 2 PASS 2 ARM ; CP := ASM: LIBRARY2 DISCR :: ARM ; CALC := FLU: CP LIBRARY2 DISCR :: TYPE K B1 SIGS ; -assertS CALC :: 'K-INFINITY' 1 1.233258 ; +assertS CALC :: 'K-INFINITY' 1 1.233395 ; DISCR LIBRARY2 CP CALC := DELETE: DISCR LIBRARY2 CP CALC ; *---- * Self-Shielding calculation SALT WITH MULTICELL SURFACIC @@ -118,7 +118,7 @@ DISCR DISCR_FIL := SALT: Fic_SAL :: LIBRARY2 := USS: LIBRARY DISCR DISCR_FIL :: EDIT 2 PASS 2 ARM ; CP := ASM: LIBRARY2 DISCR DISCR_FIL :: EDIT 1 ARM ; CALC := FLU: CP LIBRARY2 DISCR :: TYPE K B1 SIGS ; -assertS CALC :: 'K-INFINITY' 1 1.232764 ; +assertS CALC :: 'K-INFINITY' 1 1.232901 ; ECHO "test TCDR49 completed" ; END: ; QUIT "LIST" . |