From bd7171d346ad4f079aa89b2d9fdd6a56aa0a3b1c Mon Sep 17 00:00:00 2001 From: HEBERT Alain Date: Tue, 23 Dec 2025 11:34:01 -0500 Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs" --- Dragon/data/testDuo.x2m | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Dragon/data/testDuo.x2m') diff --git a/Dragon/data/testDuo.x2m b/Dragon/data/testDuo.x2m index c0880e0..7822b20 100644 --- a/Dragon/data/testDuo.x2m +++ b/Dragon/data/testDuo.x2m @@ -59,7 +59,7 @@ CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; CP := DELETE: CP ; -assertS FLUX :: K-EFFECTIVE 1 1.386444 ; +assertS FLUX :: K-EFFECTIVE 1 1.386455 ; *---- * ADJOINT TRANSPORT CALCULATION OF THE FIRST CALCULATION @@ -70,7 +70,7 @@ CP := ASM: MACROT TRACK :: PIJ ; FLUX := FLU: FLUX CP MACROT TRACK :: TYPE K ; CP MACRO MACROT := DELETE: CP MACRO MACROT ; -assertS FLUX :: K-EFFECTIVE 1 1.386444 ; +assertS FLUX :: K-EFFECTIVE 1 1.386455 ; *---- * CONSTRUCT AN EDITION MACROLIB FOR THE FIRST CALCULATION @@ -114,7 +114,7 @@ CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; CP := DELETE: CP ; -assertS FLUX :: K-EFFECTIVE 1 1.383546 ; +assertS FLUX :: K-EFFECTIVE 1 1.383528 ; *---- * ADJOINT TRANSPORT CALCULATION OF THE SECOND CALCULATION @@ -125,7 +125,7 @@ CP := ASM: MACROT TRACK :: PIJ ; FLUX := FLU: FLUX CP MACROT TRACK :: TYPE K ; CP := DELETE: CP ; -assertS FLUX :: K-EFFECTIVE 1 1.383546 ; +assertS FLUX :: K-EFFECTIVE 1 1.383528 ; *---- * CONSTRUCT AN EDITION MACROLIB FOR THE SECOND CALCULATION @@ -157,7 +157,7 @@ ECHO "rhoScat=" rhoScat ; ECHO "rhoNuSigf=" rhoNuSigf ; ECHO "rhoLeak=" rhoLeak ; -EVALUATE REFVALUE := -1.074349E+3 ; +EVALUATE REFVALUE := -1.093944E+03 ; EVALUATE DELTA := rhoNtot0 REFVALUE - REFVALUE / ABS ; IF DELTA 0.01 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -169,7 +169,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := -1.048365E3 ; +EVALUATE REFVALUE := -1.068490E+03 ; EVALUATE DELTA := rhoScat REFVALUE - REFVALUE / ABS ; IF DELTA 0.01 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -181,7 +181,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := -5.738088E1 ; +EVALUATE REFVALUE := -5.744516E+01 ; EVALUATE DELTA := rhoNuSigf REFVALUE - REFVALUE / ABS ; IF DELTA 0.01 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -193,7 +193,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := 1.330732E2 ; +EVALUATE REFVALUE := 1.366547E+02 ; EVALUATE DELTA := rhoLeak REFVALUE - REFVALUE / ABS ; IF DELTA 0.01 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; -- cgit v1.2.3