diff options
Diffstat (limited to 'Dragon/data/VanDerGucht_proc')
40 files changed, 2029 insertions, 0 deletions
diff --git a/Dragon/data/VanDerGucht_proc/svdg0.c2m b/Dragon/data/VanDerGucht_proc/svdg0.c2m new file mode 100644 index 0000000..dd22d1d --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0.c2m @@ -0,0 +1,73 @@ +XSM_FILE XSM1 XSM2 XSM3 XSM4 ; +PROCEDURE svdg0_auto svdg0_shiba svdg0_uss svdg0_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg0_auto ; +* +* TEST SHI: SELF-SHIELDING MODULE. +XSM2 := svdg0_shiba ; +* +* TEST USS: SELF-SHIELDING MODULE WITH SUBG. +XSM3 := svdg0_uss ; +* +* TEST USS: SELF-SHIELDING MODULE WITH RSE. +XSM4 := svdg0_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "SHI: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := .0053 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: PICK AVER >>zaver<< ; +ECHO "USS/SUBG: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 0.175 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM4 :: PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 8.14177E-4 ; +IF zaver 1.0E-3 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" zaver REFVALUE - REFVALUE / ABS ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 XSM3 XSM4 := DELETE: XSM1 XSM2 XSM3 XSM4 ; +ECHO "test svdg0 completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg0_auto.c2m new file mode 100644 index 0000000..0ec82fe --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0_auto.c2m @@ -0,0 +1,33 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 0 U238 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 3 ANIS 1 NMIX 1 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2387001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0_rse.c2m b/Dragon/data/VanDerGucht_proc/svdg0_rse.c2m new file mode 100644 index 0000000..cdf5db4 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0_rse.c2m @@ -0,0 +1,33 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 0 U238 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 1 + RSE 1.0E-4 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2387001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0_shiba.c2m b/Dragon/data/VanDerGucht_proc/svdg0_shiba.c2m new file mode 100644 index 0000000..0041d25 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0_shiba.c2m @@ -0,0 +1,32 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: SHI: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 0 U238' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 3 NGRO 22 ANIS 1 NMIX 1 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := SHI: LIBRARY DISCRF :: EDIT 2 (*NOLJ*) LEVEL 2 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2387001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg0_uss.c2m new file mode 100644 index 0000000..0b994dd --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0_uss.c2m @@ -0,0 +1,32 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 0 U238' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 3 NGRO 22 ANIS 1 NMIX 1 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 (*IRSET 0.0 14*) IRSET PTSL 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 NOTR ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2387001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0c.c2m b/Dragon/data/VanDerGucht_proc/svdg0c.c2m new file mode 100644 index 0000000..ef60b51 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0c.c2m @@ -0,0 +1,55 @@ +XSM_FILE XSM1 XSM2 XSM3 ; +PROCEDURE svdg0c_auto svdg0c_uss svdg0c_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg0c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg0c_uss ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM3 := svdg0c_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS/PTSL: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.478 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 2.62517 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 XSM3 := DELETE: XSM1 XSM2 XSM3 ; +ECHO "test svdg0c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg0c_auto.c2m new file mode 100644 index 0000000..30cca95 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0c_auto.c2m @@ -0,0 +1,34 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 0c U238+Pu240 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 1 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 1 + pu240 = '2407001' 8.7E-04 1 + '16' 7.074E-02 + '1' 5.0E-02 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0c_rse.c2m b/Dragon/data/VanDerGucht_proc/svdg0c_rse.c2m new file mode 100644 index 0000000..023b341 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0c_rse.c2m @@ -0,0 +1,33 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 0c U238+Pu240 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 1 RSE 1.0E-5 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 1 + pu240 = '2407001' 8.7E-04 1 + '16' 7.074E-02 + '1' 5.0E-02 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 PASS 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg0c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg0c_uss.c2m new file mode 100644 index 0000000..90ad33e --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0c_uss.c2m @@ -0,0 +1,33 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 0c U238+Pu240 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 1 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 CORR 1 IRSET PTSL 1 + pu240 = '2407001' 8.7E-04 CORR 1 IRSET PTSL 1 + '16' 7.074E-02 + '1' 5.0E-02 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 PASS 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1.c2m b/Dragon/data/VanDerGucht_proc/svdg1.c2m new file mode 100644 index 0000000..dcad4d8 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1.c2m @@ -0,0 +1,74 @@ +XSM_FILE XSM1 XSM2 XSM3 XSM4 ; +PROCEDURE svdg1_auto svdg1_shiba svdg1_uss svdg1_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg1_auto ; +* +* TEST SHI: SELF-SHIELDING MODULE. +XSM2 := svdg1_shiba ; +* +* TEST USS: SELF-SHIELDING MODULE WITH SUBG. +XSM3 := svdg1_uss ; +* +* TEST USS: SELF-SHIELDING MODULE WITH RSE. +XSM4 := svdg1_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "SHI: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.484 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: PICK AVER >>zaver<< ; +ECHO "USS/SUBG: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 0.345 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM4 :: PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.84331E-1 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 XSM3 XSM4 := DELETE: XSM1 XSM2 XSM3 XSM4 ; +ECHO "test svdg1 completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12.c2m b/Dragon/data/VanDerGucht_proc/svdg12.c2m new file mode 100644 index 0000000..c6d5f73 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12.c2m @@ -0,0 +1,74 @@ +XSM_FILE XSM1 XSM2 XSM3 XSM4 ; +PROCEDURE svdg12_auto svdg12_shiba svdg12_uss svdg12_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg12_auto ; +* +* TEST SHI: SELF-SHIELDING MODULE. +XSM2 := svdg12_shiba ; +* +* TEST USS/PTSL: SELF-SHIELDING MODULE. +XSM3 := svdg12_uss ; +* +* TEST USS/RSE: SELF-SHIELDING MODULE. +XSM4 := svdg12_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: EDIT 2 PICK AVER >>zaver<< ; +ECHO "SHI: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.722 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: EDIT 2 PICK AVER >>zaver<< ; +ECHO "USS/PTSL: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 7.616 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM4 :: EDIT 2 PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 3.54031E-1 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 XSM3 XSM4 := DELETE: XSM1 XSM2 XSM3 XSM4 ; +ECHO "test svdg12 completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg12_auto.c2m new file mode 100644 index 0000000..61347b5 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12_auto.c2m @@ -0,0 +1,57 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89' + EDIT 3 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + '2387001' 2.2E-02 1 + '16' 4.4E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12_rse.c2m b/Dragon/data/VanDerGucht_proc/svdg12_rse.c2m new file mode 100644 index 0000000..888d0b5 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12_rse.c2m @@ -0,0 +1,56 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89' + EDIT 3 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 RSE 1.0E-4 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + '2387001' 2.2E-02 1 + '16' 4.4E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12_shiba.c2m b/Dragon/data/VanDerGucht_proc/svdg12_shiba.c2m new file mode 100644 index 0000000..78df6d0 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12_shiba.c2m @@ -0,0 +1,56 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: SHI: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89' + EDIT 3 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + '2387001' 2.2E-2 1 (*IRSET 0.0 14*) + '16' 4.4E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := SHI: LIBRARY DISCRF :: EDIT 5 (*NOLJ*) LEVEL 2 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m new file mode 100644 index 0000000..6591b91 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m @@ -0,0 +1,56 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89' + EDIT 3 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 (*SUBG*) CALENDF 3 PTSL + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + '2387001' 2.2E-02 1 IRSET PTSL 1 + '16' 4.4E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12c.c2m b/Dragon/data/VanDerGucht_proc/svdg12c.c2m new file mode 100644 index 0000000..3c22ab1 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12c.c2m @@ -0,0 +1,36 @@ +XSM_FILE XSM1 XSM2 ; +PROCEDURE svdg12c_auto svdg12c_uss ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg12c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg12c_uss ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.739 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; + +XSM1 XSM2 := DELETE: XSM1 XSM2 ; +ECHO "test svdg12c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg12c_auto.c2m new file mode 100644 index 0000000..292eb9a --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12c_auto.c2m @@ -0,0 +1,58 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238+Pu240 AVEC GAINE 25-04-89' + EDIT 99 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + u238 = '2387001' 2.2E-02 1 + pu240 = '2407001' 8.7E-04 1 + '16' 4.574E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg12c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg12c_uss.c2m new file mode 100644 index 0000000..b2b126e --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12c_uss.c2m @@ -0,0 +1,57 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238+Pu240 AVEC GAINE 25-04-89' + EDIT 99 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 (*SUBG*) CALENDF 3 PTSL + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 CORR 1 IRSET PTSL 1 + pu240 = '2407001' 8.7E-04 CORR 1 IRSET PTSL 1 + '16' 4.574E-2 + MIX 2 COMB 1 1.0 + MIX 3 COMB 1 1.0 + MIX 4 COMB 1 1.0 + MIX 5 COMB 1 1.0 + MIX 6 COMB 1 1.0 + MIX 7 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX 8 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 5 PASS 5 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 8 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg13_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg13_auto.c2m new file mode 100644 index 0000000..8bba415 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg13_auto.c2m @@ -0,0 +1,72 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 295-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: AUTO: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + SUBG + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 673.6 (*COMB0101*) + U238 = '2384001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := AUTO: LIBRARY TRACK :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg13_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg13_uss.c2m new file mode 100644 index 0000000..615cae1 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg13_uss.c2m @@ -0,0 +1,72 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 295-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: USS: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 673.6 (*COMB0101*) + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg13c.c2m b/Dragon/data/VanDerGucht_proc/svdg13c.c2m new file mode 100644 index 0000000..763505a --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg13c.c2m @@ -0,0 +1,36 @@ +XSM_FILE XSM1 XSM2 ; +PROCEDURE svdg13c_auto svdg13c_uss ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg13c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg13c_uss ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 0.6706 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; + +XSM1 XSM2 := DELETE: XSM1 XSM2 ; +ECHO "test svdg13c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg13c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg13c_auto.c2m new file mode 100644 index 0000000..aed7d43 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg13c_auto.c2m @@ -0,0 +1,69 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: AUTO: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + SUBG + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 673.6 (*COMB0101*) + U235 = '2354001' 7.0803E-4 1 + U238 = '2384001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := AUTO: LIBRARY TRACK :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 U235 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg13c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg13c_uss.c2m new file mode 100644 index 0000000..d6c056e --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg13c_uss.c2m @@ -0,0 +1,69 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: USS: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 673.6 (*COMB0101*) + U235 = '2354001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 U235 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg14c.c2m b/Dragon/data/VanDerGucht_proc/svdg14c.c2m new file mode 100644 index 0000000..1f0c060 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg14c.c2m @@ -0,0 +1,55 @@ +XSM_FILE XSM1 XSM2 XSM3 ; +PROCEDURE svdg14c_auto svdg14c_uss svdg14c_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg14c_auto ; +* +* TEST USS: USS SELF-SHIELDING MODULE. +XSM2 := svdg14c_uss ; +* +* TEST USS: RSE SELF-SHIELDING MODULE. +XSM3 := svdg14c_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS/SUBG: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 2.610 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.206146 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; + +XSM1 XSM2 XSM3 := DELETE: XSM1 XSM2 XSM3 ; +ECHO "test svdg14c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg14c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg14c_auto.c2m new file mode 100644 index 0000000..508cfec --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg14c_auto.c2m @@ -0,0 +1,84 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: AUTO: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + SUBG + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 1 + U238 = '2387001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 1 + U238 = '2387001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0103>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 1 + U238 = '2387001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0104>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 1 + U238 = '2384001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0105>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 1 + U238 = '2384001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0106>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 1 + U238 = '2384001' 2.2604E-2 1 + O16 = '16' 4.6624E-2 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := AUTO: LIBRARY TRACK :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 Pu240 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg14c_rse.c2m b/Dragon/data/VanDerGucht_proc/svdg14c_rse.c2m new file mode 100644 index 0000000..d917c74 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg14c_rse.c2m @@ -0,0 +1,84 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: USS: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + RSE +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0103>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0104>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0105>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0106>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 Pu240 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg14c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg14c_uss.c2m new file mode 100644 index 0000000..e5bf060 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg14c_uss.c2m @@ -0,0 +1,84 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE uo2_295_c5 MODIFIED FOR CESCOL +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: MAC: SYBILT: USS: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.45 0.5748331 0.6770275 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE2>> + ; +TRACK := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG +* + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0102>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0103>> 973.16 (*COMB0101*) + Pu240 = '2407001' 7.0803E-4 CORR 1 + U238 = '2387001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0104>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0105>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<COMB0106>> 673.16 (*COMB0101*) + Pu240 = '2404001' 7.0803E-4 CORR 1 + U238 = '2384001' 2.2604E-2 CORR 1 + O16 = '16' 4.6624E-2 + MIX <<GAIN1>> 600.0 (*GAIN1*) + Zr0 = '91' 4.3241E-2 + MIX <<MODE1>> 574.0 (*MODE1*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + MIX <<MODE2>> 574.0 (*MODE2*) + H1 = '1' 4.6892E-2 + O16 = '16' 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE2>> FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 2 Pu240 U238 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg1_auto.c2m new file mode 100644 index 0000000..a59c867 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1_auto.c2m @@ -0,0 +1,37 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 2 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 4.4E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1_rse.c2m b/Dragon/data/VanDerGucht_proc/svdg1_rse.c2m new file mode 100644 index 0000000..891ec3c --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1_rse.c2m @@ -0,0 +1,36 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 4 ANIS 1 NMIX 2 RSE 1.0E-4 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 4.4E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1_shiba.c2m b/Dragon/data/VanDerGucht_proc/svdg1_shiba.c2m new file mode 100644 index 0000000..93943ee --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1_shiba.c2m @@ -0,0 +1,36 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: SHI: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 2 + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 + '16' 4.4E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := SHI: LIBRARY DISCRF :: EDIT 2 (*NOLJ*) LEVEL 2 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg1_uss.c2m new file mode 100644 index 0000000..11498f4 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1_uss.c2m @@ -0,0 +1,36 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 4 ANIS 1 NMIX 2 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2387001' 2.2E-2 1 IRSET PTSL 1 + '16' 4.4E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 2 PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1c.c2m b/Dragon/data/VanDerGucht_proc/svdg1c.c2m new file mode 100644 index 0000000..6d6ca3c --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1c.c2m @@ -0,0 +1,36 @@ +XSM_FILE XSM1 XSM2 ; +PROCEDURE svdg1c_auto svdg1c_uss ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg1c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg1c_uss ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.382 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 := DELETE: XSM1 XSM2 ; +ECHO "test svdg1c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg1c_auto.c2m new file mode 100644 index 0000000..d0a7e29 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1c_auto.c2m @@ -0,0 +1,38 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 2 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 1 + pu240 = '2407001' 8.7E-04 1 + '16' 4.574E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 2 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg1c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg1c_uss.c2m new file mode 100644 index 0000000..9e1c73e --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg1c_uss.c2m @@ -0,0 +1,37 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*) + R+ REFL + RADIUS 0.0 0.4095 0.7054 + MIX 1 2 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89' + MAXR 2 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 2 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 CORR 1 IRSET PTSL 1 + pu240 = '2407001' 8.7E-04 CORR 1 IRSET PTSL 1 + '16' 4.574E-2 + MIX 2 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 2 PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 2 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg2.c2m b/Dragon/data/VanDerGucht_proc/svdg2.c2m new file mode 100644 index 0000000..6311801 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg2.c2m @@ -0,0 +1,40 @@ +XSM_FILE XSM1 XSM2 ; +PROCEDURE svdg2_auto svdg2_uss ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg2_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg2_uss ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 0.1118 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; +* +XSM1 XSM2 := DELETE: XSM1 XSM2 ; +ECHO "test svdg2 completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg2_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg2_auto.c2m new file mode 100644 index 0000000..e0ece06 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg2_auto.c2m @@ -0,0 +1,33 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'SECOL - BENCHMARK 2 pu240 SANS GAINE 25-04-89' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 5 ANIS 1 NMIX 1 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2407001' 2.2E-2 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2407001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg2_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg2_uss.c2m new file mode 100644 index 0000000..90b7627 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg2_uss.c2m @@ -0,0 +1,32 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: ; +* +BENCH1 := GEO: :: HOMOGE + MIX 1 + ; +DISCRF := SYBILT: BENCH1 :: + TITLE 'CESCOL - BENCHMARK 2 pu240' + MAXR 1 ; +LIBRARY := LIB: :: + EDIT 4 NGRO 22 ANIS 1 NMIX 1 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + '2407001' 2.2E-2 1 (*IRSET 0.0 14*) IRSET PTSL 1 + '16' 6.9E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 NOTR ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 1 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 + SAVE MICR 1 '2407001 1' ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg6c.c2m b/Dragon/data/VanDerGucht_proc/svdg6c.c2m new file mode 100644 index 0000000..7a1e184 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg6c.c2m @@ -0,0 +1,36 @@ +XSM_FILE XSM1 XSM2 ; +PROCEDURE svdg6c_auto svdg6c_uss ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg6c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg6c_uss ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.370 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 := DELETE: XSM1 XSM2 ; +ECHO "test svdg6c completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg6c_auto.c2m b/Dragon/data/VanDerGucht_proc/svdg6c_auto.c2m new file mode 100644 index 0000000..7f32795 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg6c_auto.c2m @@ -0,0 +1,63 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH4 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ; +* +BENCH4 := GEO: :: CAR2D 3 3 (*ASSEMBLAGE 7 X 7*) + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL C1 C2 C3 + C2 C3 + C4 + ::: C1 := GEO: CAR2D 1 1 (*CELLULE HOMOGENE*) + MESHX 0.0 1.25 + MESHY 0.0 1.25 + MIX 4 + ; + ::: C2 := GEO: CARCEL 2 (*CELLULE NORMALE*) + MESHX 0.0 1.25 + MESHY 0.0 1.25 + RADIUS 0.0 0.410 0.455 + MIX 1 2 4 + ; + ::: C3 := GEO: C2 (*CELLULE PERIPHERIQUE*) + MESHX 0.0 1.50 + ; + ::: C4 := GEO: C3 (*CELLULE DE COIN*) + MESHY 0.0 1.50 + RADIUS 0.0 0.510 0.555 + ; +; +DISCRF := SYBILT: BENCH4 :: + TITLE 'SECOL - BENCHMARK 6 U238 EN ASSEMBLAGE 3 X 3 25-04-89' + MAXR 16 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 4 + SUBG + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 1 + pu240 = '2407001' 8.7E-04 1 + '16' 4.574E-2 + MIX 2 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX 4 973.16 + '1' 5.0E-2 + '16' 2.5E-2 + ; +LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 4 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG MIX 1 0 0 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . diff --git a/Dragon/data/VanDerGucht_proc/svdg6c_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg6c_uss.c2m new file mode 100644 index 0000000..64c2084 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg6c_uss.c2m @@ -0,0 +1,62 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST BENCH4 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +* +BENCH4 := GEO: :: CAR2D 3 3 (*ASSEMBLAGE 7 X 7*) + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL C1 C2 C3 + C2 C3 + C4 + ::: C1 := GEO: CAR2D 1 1 (*CELLULE HOMOGENE*) + MESHX 0.0 1.25 + MESHY 0.0 1.25 + MIX 4 + ; + ::: C2 := GEO: CARCEL 2 (*CELLULE NORMALE*) + MESHX 0.0 1.25 + MESHY 0.0 1.25 + RADIUS 0.0 0.410 0.455 + MIX 1 2 4 + ; + ::: C3 := GEO: C2 (*CELLULE PERIPHERIQUE*) + MESHX 0.0 1.50 + ; + ::: C4 := GEO: C3 (*CELLULE DE COIN*) + MESHY 0.0 1.50 + RADIUS 0.0 0.510 0.555 + ; +; +DISCRF := SYBILT: BENCH4 :: + TITLE 'SECOL - BENCHMARK 6 U238 EN ASSEMBLAGE 3 X 3 25-04-89' + MAXR 16 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 4 PTSL (*SUBG*) + MIXS LIB: DRAGON FIL: DUMMYDA + MIX 1 973.16 + u238 = '2387001' 2.2E-02 CORR 1 IRSET PTSL 1 + pu240 = '2407001' 8.7E-04 CORR 1 IRSET PTSL 1 + '16' 4.574E-2 + MIX 2 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX 4 973.16 + '1' 5.0E-2 + '16' 2.5E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 2 PASS 4 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 4 FIXE + 1.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 0.0 0.0 + ; +CP := ASM: LIBRARY2 DISCRF :: PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG MIX 1 0 0 0 + SAVE MICR 2 u238 pu240 ; +QUIT "LIST" . |