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 | c4db2987ef7214cb11537e6805bc319807e11866 (patch) | |
| tree | ff7bea851c1ce9685d26fc5080f65fcf9110086b | |
| parent | 0fbdc50700be08e00ecad828d9c99b5c045b382b (diff) | |
| parent | bd7171d346ad4f079aa89b2d9fdd6a56aa0a3b1c (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
See merge request dragon/5.1!38
115 files changed, 523 insertions, 520 deletions
diff --git a/.nea/.gitlab-ci.yml b/.nea/.gitlab-ci.yml index cb72907..424d365 100644 --- a/.nea/.gitlab-ci.yml +++ b/.nea/.gitlab-ci.yml @@ -146,7 +146,7 @@ test_dragon_ubuntu22: script: - cd ${DRAGON_LIB_DIR} # get JEF 2.2 for testing - - wget --no-check-certificate https://git.oecd-nea.org/dragon/libraries/-/raw/main/l_endian/draglibJef2p2.gz + - wget --no-check-certificate https://git.oecd-nea.org/dragon/libraries/-/raw/main/l_endian/draglibJef2p2_v5p1.gz # get JEF 3.1.1 for OpenMP testing - wget --no-check-certificate https://git.oecd-nea.org/dragon/libraries/-/raw/main/l_endian/draglibJeff3p1p1SHEM295_v5p1.gz - cd ${DRAGON_CODE_DIR}/Dragon diff --git a/Donjon/src/DONDRV.F b/Donjon/src/DONDRV.F index ee42c61..1b269d7 100644 --- a/Donjon/src/DONDRV.F +++ b/Donjon/src/DONDRV.F @@ -298,12 +298,6 @@ NAM='A. HEBERT' WRITE(IOUT,1000)HMODUL,COD,DSR,NAM CALL IDET(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) - ELSE IF(HMODUL.EQ.'FPSPH:') THEN - COD='DONJON' - DSR='SINGLE SPH FACTOR FIXED POINT ITERATION' - NAM='A. HEBERT' - WRITE(IOUT,1000)HMODUL,COD,DSR,NAM - CALL FPSPH(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) ELSE DONMOD=.FALSE. DONDRV=KDRDRV(HMODUL,NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) diff --git a/Dragon/data/ASSBLY_CASEA_1level_multicompo.x2m b/Dragon/data/ASSBLY_CASEA_1level_multicompo.x2m index 15f28e2..9fd9676 100644 --- a/Dragon/data/ASSBLY_CASEA_1level_multicompo.x2m +++ b/Dragon/data/ASSBLY_CASEA_1level_multicompo.x2m @@ -239,7 +239,7 @@ ENDWHILE ; ************************************************************************ _MyCompo := MyCompo ; -assertS FLUX2 :: K-INFINITY 1 1.014858 ; +assertS FLUX2 :: K-INFINITY 1 1.014208 ; ECHO "test ASSBLY_CASEA_1level_multicompo completed" ; END: ; diff --git a/Dragon/data/DF_RTBeavrsPwrRefl.access b/Dragon/data/DF_RTBeavrsPwrRefl.access index 748cee3..37189b1 100755 --- a/Dragon/data/DF_RTBeavrsPwrRefl.access +++ b/Dragon/data/DF_RTBeavrsPwrRefl.access @@ -24,15 +24,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then -echo 'gunzipping draglibJef2p2' +echo 'gunzipping draglibJef2p2_v5p1' chmod 755 "$pos" -gunzip "$pos"/draglibJef2p2.gz +gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then -ln -s "$pos"/draglibJef2p2 D172JEF22 +ln -s "$pos"/draglibJef2p2_v5p1 D172JEF22 fi ln -s "$1"/data/ErmBeavrsPwrRefl_proc/*.c2m . ls -l diff --git a/Dragon/data/DF_RTBeavrsPwrRefl.x2m b/Dragon/data/DF_RTBeavrsPwrRefl.x2m index ab267c8..158e926 100644 --- a/Dragon/data/DF_RTBeavrsPwrRefl.x2m +++ b/Dragon/data/DF_RTBeavrsPwrRefl.x2m @@ -404,10 +404,10 @@ WHILE IndexCB 2 <= DO ; ECHO "...IndexCB=" IndexCB ; IF IndexCB 1 = THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.191874 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.191647 ; _VAL_CB1 := OVAL ; ELSEIF IndexCB 2 = THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.190132 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.189905 ; _VAL_CB2 := OVAL ; ENDIF ; FLUX_REF SYSTEM MACRO OVAL := DELETE: FLUX_REF SYSTEM MACRO OVAL ; diff --git a/Dragon/data/ErmBeavrsPwrRefl.access b/Dragon/data/ErmBeavrsPwrRefl.access index 1ebeba1..6be4270 100755 --- a/Dragon/data/ErmBeavrsPwrRefl.access +++ b/Dragon/data/ErmBeavrsPwrRefl.access @@ -24,15 +24,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then -echo 'gunzipping draglibJef2p2' +echo 'gunzipping draglibJef2p2_v5p1' chmod 755 "$pos" -gunzip "$pos"/draglibJef2p2.gz +gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then -ln -s "$pos"/draglibJef2p2 D172JEF22 +ln -s "$pos"/draglibJef2p2_v5p1 D172JEF22 fi ls -l echo $accessname".access script terminated" diff --git a/Dragon/data/ErmBeavrsPwrRefl.x2m b/Dragon/data/ErmBeavrsPwrRefl.x2m index a8f088f..3c54439 100644 --- a/Dragon/data/ErmBeavrsPwrRefl.x2m +++ b/Dragon/data/ErmBeavrsPwrRefl.x2m @@ -465,16 +465,16 @@ WHILE IndexCB 2 <= DO ; ECHO "...CASE=" CASE "IndexCB=" IndexCB ; IF CASE 1 = IndexCB 1 = * THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.178396 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.178190 ; _VAL_CA1_CB1 := OVAL ; ELSEIF CASE 2 = IndexCB 1 = * THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.289101 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.288893 ; _VAL_CA2_CB1 := OVAL ; ELSEIF CASE 1 = IndexCB 2 = * THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.176606 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.176635 ; _VAL_CA1_CB2 := OVAL ; ELSEIF CASE 2 = IndexCB 2 = * THEN - assertS FLUX_REF :: K-EFFECTIVE 1 1.287891 ; + assertS FLUX_REF :: K-EFFECTIVE 1 1.287811 ; _VAL_CA2_CB2 := OVAL ; ENDIF ; FLUX_REF MACRO OVAL := DELETE: FLUX_REF MACRO OVAL ; diff --git a/Dragon/data/OSC_CASEA_1level_rse.x2m b/Dragon/data/OSC_CASEA_1level_rse.x2m index a16c6b3..b365898 100644 --- a/Dragon/data/OSC_CASEA_1level_rse.x2m +++ b/Dragon/data/OSC_CASEA_1level_rse.x2m @@ -257,7 +257,7 @@ ECHO "+++ Burnup=" BUend " Kinf=" Kinf " at step" istep ; ************************************************************************ ENDWHILE ; -assertS FLUX2 :: K-INFINITY 1 0.9157988 ; +assertS FLUX2 :: K-INFINITY 1 1.039912 ; LIBRARY LIBRARY2 := DELETE: LIBRARY LIBRARY2 ; ************************************************************************ @@ -402,7 +402,7 @@ WHILE iBoreStep iBoreMax < DO ENDIF ; ! test no to repeat reference case ENDWHILE ; ! boron loop -assertS FLUX2 :: K-INFINITY 1 0.9157987 ; +assertS FLUX2 :: K-INFINITY 1 1.039912 ; ************************************************************************ * END OF BORON LOOP * ************************************************************************ diff --git a/Dragon/data/OSC_CASEA_2level_rse.x2m b/Dragon/data/OSC_CASEA_2level_rse.x2m index 4fe45c9..fd0a4a4 100644 --- a/Dragon/data/OSC_CASEA_2level_rse.x2m +++ b/Dragon/data/OSC_CASEA_2level_rse.x2m @@ -306,7 +306,7 @@ WHILE istep maxstep < DO ************************************************************************ ENDWHILE ; -assertS FLUX2 :: K-EFFECTIVE 1 0.8989664 ; +assertS FLUX2 :: K-EFFECTIVE 1 1.041865 ; ************************************************************************ * END SECOND LEVEL FLUX CALCULATION * ************************************************************************ diff --git a/Dragon/data/RegtestCNG_mccg.access b/Dragon/data/RegtestCNG_mccg.access index 13d462d..a892798 100755 --- a/Dragon/data/RegtestCNG_mccg.access +++ b/Dragon/data/RegtestCNG_mccg.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ln -s "$1"/data/proc_CNG/*.c2m . ls diff --git a/Dragon/data/RegtestCNG_mccg.x2m b/Dragon/data/RegtestCNG_mccg.x2m index 87fa7f0..8092843 100644 --- a/Dragon/data/RegtestCNG_mccg.x2m +++ b/Dragon/data/RegtestCNG_mccg.x2m @@ -188,7 +188,7 @@ PIJ := ASM: LIBC GEOFLXC TRKFLXC :: FLUXC := FLU: PIJ LIBC GEOFLXC TRKFLXC :: EDIT 1 TYPE K THER 5 5E-5 ; -assertS FLUXC :: 'K-EFFECTIVE' 1 1.323817 ; +assertS FLUXC :: 'K-EFFECTIVE' 1 1.324040 ; * * edition * diff --git a/Dragon/data/TEST_GEO_hex_sect_tspc.x2m b/Dragon/data/TEST_GEO_hex_sect_tspc.x2m index 60c56ad..dc393f2 100644 --- a/Dragon/data/TEST_GEO_hex_sect_tspc.x2m +++ b/Dragon/data/TEST_GEO_hex_sect_tspc.x2m @@ -189,7 +189,7 @@ OUT := EDI: MICRO2 TRACK FLUX TDT_LAT_SECT CP :: MERG COMP COND ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.341990 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.342777 ; ECHO "test TEST_GEO_hex_sect_tspc completed" ; END: ; diff --git a/Dragon/data/TEST_GEO_latt_tspc_S30.x2m b/Dragon/data/TEST_GEO_latt_tspc_S30.x2m index 868ef26..8e03c5d 100644 --- a/Dragon/data/TEST_GEO_latt_tspc_S30.x2m +++ b/Dragon/data/TEST_GEO_latt_tspc_S30.x2m @@ -175,7 +175,7 @@ OUT := EDI: MICRO2 TRACK FLUX ALFR_LATT_b CP :: COND ; -assertS FLUX :: 'K-EFFECTIVE' 1 0.1612311 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.1612761 ; ECHO "test TEST_GEO_latt_tspc_S30 completed" ; END: ; QUIT "LIST" . diff --git a/Dragon/data/fbr_tone.x2m b/Dragon/data/fbr_tone.x2m index e15fc14..bc3fc18 100644 --- a/Dragon/data/fbr_tone.x2m +++ b/Dragon/data/fbr_tone.x2m @@ -40,7 +40,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK :: EDIT 3 TRAN PIJ ; ASB := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: LIBRARY TRACK ASB :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.466248 ; +assertS FLUX :: K-EFFECTIVE 1 1.463941 ; LIBRARY ASB FLUX := DELETE: LIBRARY ASB FLUX ; ECHO "test fbr_tone completed" ; END: ; diff --git a/Dragon/data/lumpSS.x2m b/Dragon/data/lumpSS.x2m index b070c3a..7dd9c4e 100644 --- a/Dragon/data/lumpSS.x2m +++ b/Dragon/data/lumpSS.x2m @@ -200,11 +200,11 @@ WHILE istep maxstep < DO * NON-REGRESSION * ************************************************************ IF istep 1 = THEN - assertS FLUX :: K-EFFECTIVE 1 1.329496 ; + assertS FLUX :: K-EFFECTIVE 1 1.329378 ; ELSEIF istep 2 = THEN - assertS FLUX :: K-EFFECTIVE 1 1.314796 ; + assertS FLUX :: K-EFFECTIVE 1 1.314567 ; ELSEIF istep 3 = THEN - assertS FLUX :: K-EFFECTIVE 1 1.292124 ; + assertS FLUX :: K-EFFECTIVE 1 1.291854 ; ENDIF ; ************************************************************ diff --git a/Dragon/data/pincell_apx.access b/Dragon/data/pincell_apx.access index 3473626..c9325ec 100755 --- a/Dragon/data/pincell_apx.access +++ b/Dragon/data/pincell_apx.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ln -s $1/data/pincell_mco_proc/*.c2m . ls -l diff --git a/Dragon/data/pincell_apx.x2m b/Dragon/data/pincell_apx.x2m index 83ba686..65da8ed 100644 --- a/Dragon/data/pincell_apx.x2m +++ b/Dragon/data/pincell_apx.x2m @@ -232,7 +232,7 @@ WHILE istep maxstep < DO EDIOBJ := DELETE: EDIOBJ ; ENDWHILE ; ! reference burnup loop -assertS FLUX :: K-INFINITY 1 1.224515 ; +assertS FLUX :: K-INFINITY 1 1.224364 ; LIBRARY LIBRARY2 := DELETE: LIBRARY LIBRARY2 ; FLUX := DELETE: FLUX ; diff --git a/Dragon/data/pincell_mco.access b/Dragon/data/pincell_mco.access index ded4cd6..3e0fd03 100755 --- a/Dragon/data/pincell_mco.access +++ b/Dragon/data/pincell_mco.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls -l echo "pincell_mco access script terminated" diff --git a/Dragon/data/pincell_mco.x2m b/Dragon/data/pincell_mco.x2m index d4407a4..8731887 100644 --- a/Dragon/data/pincell_mco.x2m +++ b/Dragon/data/pincell_mco.x2m @@ -257,11 +257,11 @@ WHILE istep maxstep < DO ENDWHILE ; ! reference burnup loop IF iDcaStep_0 1 = THEN - assertS FLUX :: K-INFINITY 1 1.049062 ; + assertS FLUX :: K-INFINITY 1 1.048820 ; ELSEIF iDcaStep_0 2 = THEN - assertS FLUX :: K-INFINITY 1 1.153705 ; + assertS FLUX :: K-INFINITY 1 1.153505 ; ELSEIF iDcaStep_0 3 = THEN - assertS FLUX :: K-INFINITY 1 1.224496 ; + assertS FLUX :: K-INFINITY 1 1.224352 ; ENDIF ; LIBRARY LIBRARY2 := DELETE: LIBRARY LIBRARY2 ; diff --git a/Dragon/data/pincell_mpo.access b/Dragon/data/pincell_mpo.access index 58031e3..9394942 100755 --- a/Dragon/data/pincell_mpo.access +++ b/Dragon/data/pincell_mpo.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ln -s $1/data/pincell_mco_proc/*.c2m . ls -l diff --git a/Dragon/data/pincell_mpo.x2m b/Dragon/data/pincell_mpo.x2m index 8b177fd..7e0b367 100644 --- a/Dragon/data/pincell_mpo.x2m +++ b/Dragon/data/pincell_mpo.x2m @@ -224,7 +224,7 @@ WHILE istep maxstep < DO EDIOBJ := DELETE: EDIOBJ ; ENDWHILE ; ! reference burnup loop -assertS FLUX :: K-INFINITY 1 1.224515 ; +assertS FLUX :: K-INFINITY 1 1.224364 ; LIBRARY LIBRARY2 := DELETE: LIBRARY LIBRARY2 ; FLUX := DELETE: FLUX ; diff --git a/Dragon/data/pincell_sap.access b/Dragon/data/pincell_sap.access index c20082e..3e8900b 100755 --- a/Dragon/data/pincell_sap.access +++ b/Dragon/data/pincell_sap.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ln -s $1/data/pincell_mco_proc/*.c2m . ls -l diff --git a/Dragon/data/pincell_sap.x2m b/Dragon/data/pincell_sap.x2m index ce5599e..5d5dde3 100644 --- a/Dragon/data/pincell_sap.x2m +++ b/Dragon/data/pincell_sap.x2m @@ -232,7 +232,7 @@ WHILE istep maxstep < DO EDIOBJ := DELETE: EDIOBJ ; ENDWHILE ; ! reference burnup loop -assertS FLUX :: K-INFINITY 1 1.224515 ; +assertS FLUX :: K-INFINITY 1 1.224364 ; LIBRARY LIBRARY2 := DELETE: LIBRARY LIBRARY2 ; FLUX := DELETE: FLUX ; diff --git a/Dragon/data/rep900_het_gff_jef2p2.access b/Dragon/data/rep900_het_gff_jef2p2.access index f799133..fc3a9aa 100755 --- a/Dragon/data/rep900_het_gff_jef2p2.access +++ b/Dragon/data/rep900_het_gff_jef2p2.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls echo "rep900_het_gff_jef2p2 access script terminated" diff --git a/Dragon/data/rep900_het_gff_jef2p2.x2m b/Dragon/data/rep900_het_gff_jef2p2.x2m index 9b60d0c..5419f80 100644 --- a/Dragon/data/rep900_het_gff_jef2p2.x2m +++ b/Dragon/data/rep900_het_gff_jef2p2.x2m @@ -291,7 +291,7 @@ WHILE istep maxstep < DO ENDWHILE ; ! reference burnup loop -assertS FLUX2 :: 'K-INFINITY' 1 1.297091 ; +assertS FLUX2 :: 'K-INFINITY' 1 1.297254 ; LIBRARY LIBRARY2 LIBEQ := DELETE: LIBRARY LIBRARY2 LIBEQ ; FLUX1 FLUX2 := DELETE: FLUX1 FLUX2 ; * diff --git a/Dragon/data/sens.access b/Dragon/data/sens.access index 11403ff..1666da7 100755 --- a/Dragon/data/sens.access +++ b/Dragon/data/sens.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls echo "sens access script terminated" diff --git a/Dragon/data/tdraglib.access b/Dragon/data/tdraglib.access index 35c6314..43adfc3 100755 --- a/Dragon/data/tdraglib.access +++ b/Dragon/data/tdraglib.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls -l echo "tdraglib access script terminated" 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" . diff --git a/Dragon/data/testDuo.access b/Dragon/data/testDuo.access index 997acf9..4828c85 100755 --- a/Dragon/data/testDuo.access +++ b/Dragon/data/testDuo.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls echo "testDuo access script terminated" 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 ; diff --git a/Dragon/data/testDuo_B1.access b/Dragon/data/testDuo_B1.access index 4ce8977..d3a1ed6 100755 --- a/Dragon/data/testDuo_B1.access +++ b/Dragon/data/testDuo_B1.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls echo "testDuo_B1 access script terminated" diff --git a/Dragon/data/testDuo_B1.x2m b/Dragon/data/testDuo_B1.x2m index 45002c7..d76f4ee 100644 --- a/Dragon/data/testDuo_B1.x2m +++ b/Dragon/data/testDuo_B1.x2m @@ -60,7 +60,7 @@ FLUX := FLU: CP LIBRARY2 TRACK :: TYPE B B1 SIGS EXTE 1.0E-7 ; GREP: FLUX :: GETVAL 'B2 B1HOM' 1 >>B2<< ; CP := DELETE: CP ; -assertS FLUX :: K-INFINITY 1 1.377848 ; +assertS FLUX :: K-INFINITY 1 1.377865 ; *---- * ADJOINT TRANSPORT CALCULATION OF THE FIRST CALCULATION @@ -116,7 +116,7 @@ FLUX := FLU: CP LIBRARY TRACK :: TYPE B B1 SIGS EXTE 1.0E-7 ; GREP: FLUX :: GETVAL 'B2 B1HOM' 1 >>B2<< ; CP := DELETE: CP ; -assertS FLUX :: K-INFINITY 1 1.374971 ; +assertS FLUX :: K-INFINITY 1 1.374964 ; *---- * ADJOINT TRANSPORT CALCULATION OF THE SECOND CALCULATION @@ -159,7 +159,7 @@ ECHO "rhoScat=" rhoScat ; ECHO "rhoNuSigf=" rhoNuSigf ; ECHO "rhoLeak=" rhoLeak ; -EVALUATE REFVALUE := -5.581822E2 ; +EVALUATE REFVALUE := -5.606881E+02 ; EVALUATE DELTA := rhoNtot0 REFVALUE - ABS ; IF DELTA 1.0 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -171,7 +171,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := -7.100798E2 ; +EVALUATE REFVALUE := -7.184767E+02 ; EVALUATE DELTA := rhoScat REFVALUE - ABS ; IF DELTA 1.0 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -183,7 +183,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := 3.774100E1 ; +EVALUATE REFVALUE := 4.004554E+01 ; EVALUATE DELTA := rhoNuSigf REFVALUE - ABS ; IF DELTA 1.0 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; @@ -195,7 +195,7 @@ ELSE ABORT: ; ENDIF ; -EVALUATE REFVALUE := -1.141487E2 ; +EVALUATE REFVALUE := -1.177568E+02 ; EVALUATE DELTA := rhoLeak REFVALUE - ABS ; IF DELTA 1.0 < THEN PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; diff --git a/Dragon/data/testVVER7.x2m b/Dragon/data/testVVER7.x2m index 7fe3f30..f5b73bf 100644 --- a/Dragon/data/testVVER7.x2m +++ b/Dragon/data/testVVER7.x2m @@ -54,7 +54,7 @@ UTL: COMPO :: STEP UP EDIBU DIR STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 2 ; OUT := COMPO :: STEP UP EDIBU STEP UP MIXTURES STEP AT 1 STEP UP CALCULATIONS STEP AT 2 ; -assertS OUT :: 'K-EFFECTIVE' 1 1.008797 ; +assertS OUT :: 'K-EFFECTIVE' 1 1.009776 ; ECHO "test testVVER7 completed" ; END: ; diff --git a/Dragon/data/tmatxs2.access b/Dragon/data/tmatxs2.access index ff6f14f..21e51de 100755 --- a/Dragon/data/tmatxs2.access +++ b/Dragon/data/tmatxs2.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi if [ -f "$pos"/draglibJeff3p1p1SHEM295_v5p1.gz ] diff --git a/Dragon/data/trowland.access b/Dragon/data/trowland.access index ea5fe2c..0c678c1 100755 --- a/Dragon/data/trowland.access +++ b/Dragon/data/trowland.access @@ -23,15 +23,15 @@ else echo 'use big endian libraries' pos=$1/../../libraries/b_endian fi -if [ -f "$pos"/draglibJef2p2.gz ] +if [ -f "$pos"/draglibJef2p2_v5p1.gz ] then echo 'gunzipping DLIB_J2' chmod 755 "$pos" - gunzip "$pos"/draglibJef2p2.gz + gunzip "$pos"/draglibJef2p2_v5p1.gz fi -if [ -f "$pos"/draglibJef2p2 ] +if [ -f "$pos"/draglibJef2p2_v5p1 ] then - ln -s "$pos"/draglibJef2p2 DLIB_J2 + ln -s "$pos"/draglibJef2p2_v5p1 DLIB_J2 fi ls echo "trowland access script terminated" diff --git a/Dragon/data/trowland_proc/mox_1c_case1.c2m b/Dragon/data/trowland_proc/mox_1c_case1.c2m index 964004c..7a375e8 100644 --- a/Dragon/data/trowland_proc/mox_1c_case1.c2m +++ b/Dragon/data/trowland_proc/mox_1c_case1.c2m @@ -54,7 +54,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.211783 ; +assertS FLUX :: K-EFFECTIVE 1 1.211813 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -89,7 +89,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.214894 ; +assertS FLUX :: K-EFFECTIVE 1 1.215058 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -124,7 +124,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.214438 ; +assertS FLUX :: K-EFFECTIVE 1 1.214667 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -159,7 +159,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.216819 ; +assertS FLUX :: K-EFFECTIVE 1 1.217064 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_1c_case1 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case2.c2m b/Dragon/data/trowland_proc/mox_1c_case2.c2m index 5dbe2da..c3af459 100644 --- a/Dragon/data/trowland_proc/mox_1c_case2.c2m +++ b/Dragon/data/trowland_proc/mox_1c_case2.c2m @@ -54,7 +54,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.196600 ; +assertS FLUX :: K-EFFECTIVE 1 1.196639 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -89,7 +89,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.200151 ; +assertS FLUX :: K-EFFECTIVE 1 1.200324 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -124,7 +124,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.199719 ; +assertS FLUX :: K-EFFECTIVE 1 1.200026 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -160,7 +160,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.202332 ; +assertS FLUX :: K-EFFECTIVE 1 1.202691 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_1c_case2 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case3.c2m b/Dragon/data/trowland_proc/mox_1c_case3.c2m index 5000db5..e765b67 100644 --- a/Dragon/data/trowland_proc/mox_1c_case3.c2m +++ b/Dragon/data/trowland_proc/mox_1c_case3.c2m @@ -54,7 +54,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.254774 ; +assertS FLUX :: K-EFFECTIVE 1 1.254805 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -89,7 +89,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.257776 ; +assertS FLUX :: K-EFFECTIVE 1 1.257941 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -124,7 +124,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.257338 ; +assertS FLUX :: K-EFFECTIVE 1 1.257563 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -161,7 +161,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.259420 ; +assertS FLUX :: K-EFFECTIVE 1 1.259668 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_1c_case3 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case4.c2m b/Dragon/data/trowland_proc/mox_1c_case4.c2m index 4ed936e..e25088a 100644 --- a/Dragon/data/trowland_proc/mox_1c_case4.c2m +++ b/Dragon/data/trowland_proc/mox_1c_case4.c2m @@ -55,7 +55,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.240108 ; +assertS FLUX :: K-EFFECTIVE 1 1.240151 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -91,7 +91,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.243575 ; +assertS FLUX :: K-EFFECTIVE 1 1.243747 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -127,7 +127,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.243140 ; +assertS FLUX :: K-EFFECTIVE 1 1.243456 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -163,7 +163,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.245390 ; +assertS FLUX :: K-EFFECTIVE 1 1.245764 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_1c_case4 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case1.c2m b/Dragon/data/trowland_proc/mox_6c_case1.c2m index b0cff3f..6c7c029 100644 --- a/Dragon/data/trowland_proc/mox_6c_case1.c2m +++ b/Dragon/data/trowland_proc/mox_6c_case1.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.212406 ; +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.217351 ; +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.216483 ; +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.216640 ; +assertS FLUX :: K-EFFECTIVE 1 1.216878 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -199,7 +199,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.219029 ; +assertS FLUX :: K-EFFECTIVE 1 1.219295 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_6c_case1 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case2.c2m b/Dragon/data/trowland_proc/mox_6c_case2.c2m index 29dffc0..91811db 100644 --- a/Dragon/data/trowland_proc/mox_6c_case2.c2m +++ b/Dragon/data/trowland_proc/mox_6c_case2.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.196737 ; +assertS FLUX :: K-EFFECTIVE 1 1.196778 ; 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.202921 ; +assertS FLUX :: K-EFFECTIVE 1 1.202990 ; 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.201930 ; +assertS FLUX :: K-EFFECTIVE 1 1.202079 ; 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.202230 ; +assertS FLUX :: K-EFFECTIVE 1 1.202529 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -199,7 +199,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.204836 ; +assertS FLUX :: K-EFFECTIVE 1 1.205209 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_6c_case2 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case3.c2m b/Dragon/data/trowland_proc/mox_6c_case3.c2m index a339190..9ea4b11 100644 --- a/Dragon/data/trowland_proc/mox_6c_case3.c2m +++ b/Dragon/data/trowland_proc/mox_6c_case3.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.255316 ; +assertS FLUX :: K-EFFECTIVE 1 1.255384 ; 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.260489 ; +assertS FLUX :: K-EFFECTIVE 1 1.260530 ; 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.259171 ; +assertS FLUX :: K-EFFECTIVE 1 1.259336 ; 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.259364 ; +assertS FLUX :: K-EFFECTIVE 1 1.259616 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -199,7 +199,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.261451 ; +assertS FLUX :: K-EFFECTIVE 1 1.261735 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_6c_case3 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case4.c2m b/Dragon/data/trowland_proc/mox_6c_case4.c2m index 92edf56..20fbf8b 100644 --- a/Dragon/data/trowland_proc/mox_6c_case4.c2m +++ b/Dragon/data/trowland_proc/mox_6c_case4.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.240057 ; +assertS FLUX :: K-EFFECTIVE 1 1.240102 ; 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.246576 ; +assertS FLUX :: K-EFFECTIVE 1 1.246666 ; 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.245146 ; +assertS FLUX :: K-EFFECTIVE 1 1.245318 ; 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.245467 ; +assertS FLUX :: K-EFFECTIVE 1 1.245798 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -199,7 +199,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.247720 ; +assertS FLUX :: K-EFFECTIVE 1 1.248117 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test mox_6c_case4 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case5.c2m b/Dragon/data/trowland_proc/mox_6c_case5.c2m index b3b9ef1..8d7b136 100644 --- a/Dragon/data/trowland_proc/mox_6c_case5.c2m +++ b/Dragon/data/trowland_proc/mox_6c_case5.c2m @@ -114,6 +114,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 5 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.209962 ; +assertS CALC :: K-EFFECTIVE 1 1.202269 ; ECHO "test mox_6c_case5 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_proc/uo2_1c_case1.c2m b/Dragon/data/trowland_proc/uo2_1c_case1.c2m index b6d78c6..a0d4186 100644 --- a/Dragon/data/trowland_proc/uo2_1c_case1.c2m +++ b/Dragon/data/trowland_proc/uo2_1c_case1.c2m @@ -46,7 +46,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.383546 ; +assertS FLUX :: K-EFFECTIVE 1 1.383528 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -75,7 +75,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.386392 ; +assertS FLUX :: K-EFFECTIVE 1 1.386455 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -104,7 +104,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.385827 ; +assertS FLUX :: K-EFFECTIVE 1 1.386297 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -133,7 +133,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.385731 ; +assertS FLUX :: K-EFFECTIVE 1 1.385866 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_1c_case1 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case2.c2m b/Dragon/data/trowland_proc/uo2_1c_case2.c2m index 45ad2eb..462a407 100644 --- a/Dragon/data/trowland_proc/uo2_1c_case2.c2m +++ b/Dragon/data/trowland_proc/uo2_1c_case2.c2m @@ -46,7 +46,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.330381 ; +assertS FLUX :: K-EFFECTIVE 1 1.330351 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -75,7 +75,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.333523 ; +assertS FLUX :: K-EFFECTIVE 1 1.333658 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -104,7 +104,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.332833 ; +assertS FLUX :: K-EFFECTIVE 1 1.333404 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -133,7 +133,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.332671 ; +assertS FLUX :: K-EFFECTIVE 1 1.332622 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_1c_case2 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case3.c2m b/Dragon/data/trowland_proc/uo2_1c_case3.c2m index 63a5bd3..0bc0a49 100644 --- a/Dragon/data/trowland_proc/uo2_1c_case3.c2m +++ b/Dragon/data/trowland_proc/uo2_1c_case3.c2m @@ -47,7 +47,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.296387 ; +assertS FLUX :: K-EFFECTIVE 1 1.296384 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -77,7 +77,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.301136 ; +assertS FLUX :: K-EFFECTIVE 1 1.301383 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -107,7 +107,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.300764 ; +assertS FLUX :: K-EFFECTIVE 1 1.307834 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -137,7 +137,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.300509 ; +assertS FLUX :: K-EFFECTIVE 1 1.308285 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_1c_case3 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case4.c2m b/Dragon/data/trowland_proc/uo2_1c_case4.c2m index a491d90..90c3b6d 100644 --- a/Dragon/data/trowland_proc/uo2_1c_case4.c2m +++ b/Dragon/data/trowland_proc/uo2_1c_case4.c2m @@ -46,7 +46,7 @@ LIBRARY := LIB: :: LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; CP := ASM: LIBRARY TRACK :: PIJ ; FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.310755 ; +assertS FLUX :: K-EFFECTIVE 1 1.310745 ; LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; *---- * USS @@ -75,7 +75,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.314775 ; +assertS FLUX :: K-EFFECTIVE 1 1.314615 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -104,7 +104,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.313890 ; +assertS FLUX :: K-EFFECTIVE 1 1.314164 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -133,7 +133,7 @@ LIBRARY2 := USS: LIBRARY TRACK :: CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.313668 ; +assertS FLUX :: K-EFFECTIVE 1 1.313385 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_1c_case4 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case1.c2m b/Dragon/data/trowland_proc/uo2_6c_case1.c2m index b6829e3..75eaf1e 100644 --- a/Dragon/data/trowland_proc/uo2_6c_case1.c2m +++ b/Dragon/data/trowland_proc/uo2_6c_case1.c2m @@ -63,7 +63,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.386497 ; +assertS FLUX :: K-EFFECTIVE 1 1.386467 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 2 @@ -71,7 +71,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.389577 ; +assertS FLUX :: K-EFFECTIVE 1 1.389604 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * USS @@ -106,7 +106,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.387408 ; +assertS FLUX :: K-EFFECTIVE 1 1.387462 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -141,7 +141,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.387702 ; +assertS FLUX :: K-EFFECTIVE 1 1.388190 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -176,7 +176,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.387639 ; +assertS FLUX :: K-EFFECTIVE 1 1.387964 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_6c_case1 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case2.c2m b/Dragon/data/trowland_proc/uo2_6c_case2.c2m index dd80751..3ad6899 100644 --- a/Dragon/data/trowland_proc/uo2_6c_case2.c2m +++ b/Dragon/data/trowland_proc/uo2_6c_case2.c2m @@ -63,7 +63,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.334656 ; +assertS FLUX :: K-EFFECTIVE 1 1.334615 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 2 @@ -71,7 +71,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.337793 ; +assertS FLUX :: K-EFFECTIVE 1 1.337805 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * USS @@ -106,7 +106,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.334885 ; +assertS FLUX :: K-EFFECTIVE 1 1.335009 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -141,7 +141,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.335035 ; +assertS FLUX :: K-EFFECTIVE 1 1.335629 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -176,7 +176,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.334913 ; +assertS FLUX :: K-EFFECTIVE 1 1.335166 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_6c_case2 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case3.c2m b/Dragon/data/trowland_proc/uo2_6c_case3.c2m index 3cda0f1..72a9be6 100644 --- a/Dragon/data/trowland_proc/uo2_6c_case3.c2m +++ b/Dragon/data/trowland_proc/uo2_6c_case3.c2m @@ -63,7 +63,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.299005 ; +assertS FLUX :: K-EFFECTIVE 1 1.299020 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 2 @@ -71,7 +71,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.306005 ; +assertS FLUX :: K-EFFECTIVE 1 1.305848 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * USS @@ -106,7 +106,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.303040 ; +assertS FLUX :: K-EFFECTIVE 1 1.303275 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -141,7 +141,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.303980 ; +assertS FLUX :: K-EFFECTIVE 1 1.316244 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -176,7 +176,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.303796 ; +assertS FLUX :: K-EFFECTIVE 1 1.316225 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_6c_case3 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case4.c2m b/Dragon/data/trowland_proc/uo2_6c_case4.c2m index d57637e..8a41b46 100644 --- a/Dragon/data/trowland_proc/uo2_6c_case4.c2m +++ b/Dragon/data/trowland_proc/uo2_6c_case4.c2m @@ -63,7 +63,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.314095 ; +assertS FLUX :: K-EFFECTIVE 1 1.314097 ; LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; *---- * SHI LEVEL 2 @@ -71,7 +71,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.319513 ; +assertS FLUX :: K-EFFECTIVE 1 1.319498 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * USS @@ -106,7 +106,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.316421 ; +assertS FLUX :: K-EFFECTIVE 1 1.316250 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended @@ -141,7 +141,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: PIJ ; FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; -assertS FLUX :: K-EFFECTIVE 1 1.316549 ; +assertS FLUX :: K-EFFECTIVE 1 1.316831 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; *---- * Ribon extended with correlation @@ -176,7 +176,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.316382 ; +assertS FLUX :: K-EFFECTIVE 1 1.316412 ; LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; ECHO "test uo2_6c_case4 completed" ; END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case5.c2m b/Dragon/data/trowland_proc/uo2_6c_case5.c2m index 91ad0de..2ed562f 100644 --- a/Dragon/data/trowland_proc/uo2_6c_case5.c2m +++ b/Dragon/data/trowland_proc/uo2_6c_case5.c2m @@ -78,6 +78,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 5 GRMIN 45 ; CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.320614 ; +assertS CALC :: K-EFFECTIVE 1 1.306048 ; ECHO "test uo2_6c_case5 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/gd_295_kec1.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/gd_295_kec1.c2m index ef84375..4ac9a35 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/gd_295_kec1.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/gd_295_kec1.c2m @@ -87,5 +87,5 @@ MIX <<COMB0102>> COMB <<COMB0101>> 1.0 (*COMB0102*) LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 0.3288226 ; +assertS CALC :: K-EFFECTIVE 1 0.3291729 ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec1.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec1.c2m index 06c9f2b..5ec04b8 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec1.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec1.c2m @@ -90,7 +90,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.228971 ; +assertS CALC :: K-EFFECTIVE 1 1.228236 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -130,7 +130,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.227709 ; +assertS CALC :: K-EFFECTIVE 1 1.226969 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -171,6 +171,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.229507 ; +assertS CALC :: K-EFFECTIVE 1 1.228751 ; ECHO "test mox_295_kec1 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec2.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec2.c2m index ae2cd66..e71a314 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec2.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec2.c2m @@ -90,7 +90,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.212714 ; +assertS CALC :: K-EFFECTIVE 1 1.211944 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -130,7 +130,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.211497 ; +assertS CALC :: K-EFFECTIVE 1 1.210719 ; * ** Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -171,6 +171,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.212991 ; +assertS CALC :: K-EFFECTIVE 1 1.212279 ; ECHO "test mox_295_kec2 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec3.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec3.c2m index fd4ea3f..6551b23 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec3.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec3.c2m @@ -90,7 +90,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.274984 ; +assertS CALC :: K-EFFECTIVE 1 1.274385 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -130,7 +130,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.273706 ; +assertS CALC :: K-EFFECTIVE 1 1.273102 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -171,6 +171,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.275405 ; +assertS CALC :: K-EFFECTIVE 1 1.274731 ; ECHO "test mox_295_kec3 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec4.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec4.c2m index e51c7d0..4883938 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec4.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec4.c2m @@ -90,7 +90,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.259702 ; +assertS CALC :: K-EFFECTIVE 1 1.259078 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -130,7 +130,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.258466 ; +assertS CALC :: K-EFFECTIVE 1 1.257836 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -171,6 +171,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.259876 ; +assertS CALC :: K-EFFECTIVE 1 1.259302 ; ECHO "test mox_295_kec4 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec5.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec5.c2m index af6d2a1..5b4c322 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec5.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/mox_295_kec5.c2m @@ -135,7 +135,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 NOCO GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.210817 ; +assertS CALC :: K-EFFECTIVE 1 1.210038 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -220,7 +220,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.208753 ; +assertS CALC :: K-EFFECTIVE 1 1.207975 ; * * Resonance spectrum expansion method (ECCO full correlation) LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -306,6 +306,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 NOCO GRMIN 56 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.209550 ; +assertS CALC :: K-EFFECTIVE 1 1.208763 ; ECHO "test mox_295_kec5 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec1.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec1.c2m index 60fe9d6..b06e2f9 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec1.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec1.c2m @@ -84,7 +84,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.388247 ; +assertS CALC :: K-EFFECTIVE 1 1.388194 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -118,7 +118,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.387176 ; +assertS CALC :: K-EFFECTIVE 1 1.387116 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -153,7 +153,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.388969 ; +assertS CALC :: K-EFFECTIVE 1 1.388909 ; * * Autosecol UFG method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -188,6 +188,6 @@ LIBRARY := LIB: :: LIBRARY2 := AUTO: LIBRARY TRACK_SS :: EDIT 3 GRMIN 52 MAXT 60000 SEED 123456 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.387987 ; +assertS CALC :: K-EFFECTIVE 1 1.387933 ; ECHO "test uo2_295_kec1 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec2.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec2.c2m index d5b91d6..7964a64 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec2.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec2.c2m @@ -84,7 +84,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.335245 ; +assertS CALC :: K-EFFECTIVE 1 1.335179 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -118,7 +118,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.334218 ; +assertS CALC :: K-EFFECTIVE 1 1.334141 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -153,6 +153,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.335770 ; +assertS CALC :: K-EFFECTIVE 1 1.335705 ; ECHO "test uo2_295_kec2 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec3.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec3.c2m index 363c0fa..9b3736f 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec3.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec3.c2m @@ -84,7 +84,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.302678 ; +assertS CALC :: K-EFFECTIVE 1 1.302594 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -118,7 +118,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.300903 ; +assertS CALC :: K-EFFECTIVE 1 1.300822 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -153,6 +153,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.303022 ; +assertS CALC :: K-EFFECTIVE 1 1.302951 ; ECHO "test uo2_295_kec3 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec4.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec4.c2m index 45a349d..7e34f66 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec4.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec4.c2m @@ -84,7 +84,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.314612 ; +assertS CALC :: K-EFFECTIVE 1 1.314546 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -118,7 +118,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.313378 ; +assertS CALC :: K-EFFECTIVE 1 1.313296 ; * * Resonance spectrum expansion method LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -153,6 +153,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 3 GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.314974 ; +assertS CALC :: K-EFFECTIVE 1 1.314903 ; ECHO "test uo2_295_kec4 completed" ; QUIT "LIST" . diff --git a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec5.c2m b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec5.c2m index 31e3401..c058645 100644 --- a/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec5.c2m +++ b/Dragon/data/trowland_shem295_jeff3.1_proc/uo2_295_kec5.c2m @@ -99,7 +99,7 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 4 NOCO GRMIN 52 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.301416 ; +assertS CALC :: K-EFFECTIVE 1 1.301334 ; * * Tone's method LIBRARY CP CALC := DELETE: LIBRARY CP CALC ; @@ -148,7 +148,7 @@ LIBRARY := LIB: :: LIBRARY := TONE: LIBRARY TRACK_SS :: EDIT 1 TRAN MXIT 3 SPH GRMIN 52 ; CP := ASM: LIBRARY TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.298397 ; +assertS CALC :: K-EFFECTIVE 1 1.298314 ; * * Resonance spectrum expansion method (ECCO full correlation) LIBRARY LIBRARY2 CP CALC := DELETE: LIBRARY LIBRARY2 CP CALC ; @@ -198,6 +198,6 @@ LIBRARY := LIB: :: LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN PASS 4 NOCO GRMIN 56 ; CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; -assertS CALC :: K-EFFECTIVE 1 1.299549 ; +assertS CALC :: K-EFFECTIVE 1 1.299558 ; ECHO "test uo2_295_kec5 completed" ; QUIT "LIST" . diff --git a/Donjon/src/FPSOUT.f b/Dragon/src/FPSOUT.f index 5d78203..5d78203 100644 --- a/Donjon/src/FPSOUT.f +++ b/Dragon/src/FPSOUT.f diff --git a/Donjon/src/FPSPH.f b/Dragon/src/FPSPH.f index 96db43a..96db43a 100644 --- a/Donjon/src/FPSPH.f +++ b/Dragon/src/FPSPH.f diff --git a/Dragon/src/KDRDRV.F b/Dragon/src/KDRDRV.F index 0aed297..1e63352 100644 --- a/Dragon/src/KDRDRV.F +++ b/Dragon/src/KDRDRV.F @@ -127,6 +127,8 @@ CALL FMT(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) ELSE IF(HMODUL.EQ.'SPH:') THEN CALL SPH(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) + ELSE IF(HMODUL.EQ.'FPSPH:') THEN + CALL FPSPH(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) ELSE IF(HMODUL.EQ.'CFC:') THEN CALL CFC(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) ELSE IF(HMODUL.EQ.'SENS:') THEN diff --git a/Dragon/src/LIBA30.f b/Dragon/src/LIBA30.f index 7c5e47a..8f5043f 100644 --- a/Dragon/src/LIBA30.f +++ b/Dragon/src/LIBA30.f @@ -430,7 +430,7 @@ *---- WRITE(RECNAM,'(9HIsotopes/,A,11H/HomoRates/)') TRIM(HNISOR) IF(.NOT.hdf5_group_exists(IPAP2,TRIM(RECNAM))) THEN - WRITE(HSMG,'(38HLIBA30: missing HomoRates in group ,A,1H.)') + WRITE(HSMG,'(35HLIBA30: missing HomoRates in group ,A,1H.)') 1 TRIM(RECNAM) CALL XABORT(HSMG) ENDIF diff --git a/Dragon/src/XDRCRE.f b/Dragon/src/XDRCRE.f index 7c0d1c0..455fe80 100644 --- a/Dragon/src/XDRCRE.f +++ b/Dragon/src/XDRCRE.f @@ -164,6 +164,9 @@ ELSE IF(NAMMOD .EQ. 'SPH: ') THEN USE='Superhomogenization (SPH) calculation' AUT='A. Hebert' + ELSE IF(NAMMOD .EQ. 'FPSPH:') THEN + USE='Single SPH factor fixed point iteration' + AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'CFC: ') THEN USE='Construction of a feedback database for CANDU reactors' AUT='M. T. Sissaoui' diff --git a/PyGan/data/testVVER.py b/PyGan/data/testVVER.py index 39e09ce..b9d5a47 100644 --- a/PyGan/data/testVVER.py +++ b/PyGan/data/testVVER.py @@ -52,11 +52,11 @@ Keff_conv = pyCOMPO['EDIBU']['MIXTURES'][0]['CALCULATIONS'][0]['K-INFINITY'] print("testVVER: step 1 converged K-effective=", Keff_conv) Microlib = pyCOMPO['EDIBU']['MIXTURES'][0]['CALCULATIONS'][0] Microlib.lib() -assertS(Microlib,'K-EFFECTIVE', 0, 1.269919) +assertS(Microlib,'K-EFFECTIVE', 0, 1.269933) Keff_conv = pyCOMPO['EDIBU']['MIXTURES'][0]['CALCULATIONS'][2]['K-INFINITY'] print("testVVER: step 3 converged K-effective=", Keff_conv) Microlib = pyCOMPO['EDIBU']['MIXTURES'][0]['CALCULATIONS'][2] Microlib.lib() -assertS(Microlib,'K-EFFECTIVE', 0, 1.271938) +assertS(Microlib,'K-EFFECTIVE', 0, 1.271787) print("test testVVER completed") diff --git a/doc/IGE335/Section3.00.tex b/doc/IGE335/Section3.00.tex index 2fdfdcb..7417738 100644 --- a/doc/IGE335/Section3.00.tex +++ b/doc/IGE335/Section3.00.tex @@ -15,6 +15,7 @@ transport calculation. \input{Section3.08.tex} % structure (dragonE) \input{Section3.09.tex} % structure (dragonD) \input{Section3.10.tex} % structure (dragonSPH) +\input{Section3.11.tex} % structure (dragonSPH_Picard) \input{Section3.14.tex} % structure (dragonI) \input{Sect3.14MRG.tex} % structure (dragonMRG) \input{Section3.18.tex} % structure (dragonTLM) diff --git a/doc/IGE335/Section3.11.tex b/doc/IGE335/Section3.11.tex index ce553d8..13c5693 100644 --- a/doc/IGE335/Section3.11.tex +++ b/doc/IGE335/Section3.11.tex @@ -1,105 +1,96 @@ -\subsection{The {\tt CRE:} module}\label{sect:CREData} +\subsection{The \texttt{FPSPH:} module} -The {\tt CRE:} module is used to create or modify an extended {\sc macrolib} (type {\tt L\_MACROLIB}) containing set of interpolated nuclear properties from a {\sc compo} linked list or {\sc xsm} file (type {\tt L\_COMPO}) . The calling specifications are: - -\begin{DataStructure}{Structure \dstr{CRE:}} -\dusa{NAME1} \moc{:=} \moc{CRE:} $[$ \dusa{NAME1} $]$ $[[$ \dusa{NAME2} $]]$ \moc{::} \dstr{create\_data} -\end{DataStructure} - -\noindent where -\begin{ListeDeDescription}{mmmmmmmm} - -\item[\dusa{NAME1}] {\tt character*12} name of the linked list or {\sc xsm} file (type {\tt L\_MACROLIB}) containing the extended {\sc macrolib}. If \dusa{NAME1} appears on the RHS, the information previously stored in \dusa{NAME1} is kept. - -\item[\dusa{NAME2}] {\tt character*12} name of the linked list or {\sc xsm} file (type {\tt L\_COMPO}) containing a single {\sc compo}. - -\item[\dstr{create\_data}] structure containing the data to module {\tt CRE:}. - -\end{ListeDeDescription} +The {\tt FPSPH:} module performs a single SPH iteration. This module is intended to be used in a {\tt REPEAT UNTIL} +loop, implemented in CLE-2000 macro-language, where the macro calculation is explicitely called, as depicted in +Fig.~\ref{fig:fig_fpsph}. \vskip 0.2cm -\subsubsection{Data input for module {\tt CRE:}} +\begin{figure}[h!] +\begin{center} +\includegraphics[scale=0.85]{fpsph.eps} +\caption{Fixed point SPH iterations.}\label{fig:fig_fpsph} +\end{center} +\end{figure} -\begin{DataStructure}{Structure \dstr{create\_data}} -$[$ \moc{EDIT} \dusa{iprint} $]$ \\ -$[$ \moc{NMIX} \dusa{nmixt} $]$ \\ -\moc{READ} $[[$ \moc{COMPO} \dusa{NAME2} \dstr{interp\_data} $]]$ +The calling specifications are: + +\begin{DataStructure}{Structure \moc{FPSPH:}} +\dusa{OPTIM} \moc{:=} \moc{FPSPH:} $[$ \dusa{OPTIM} $]$ \dusa{MACROLIB} \dusa{MACROREF} \moc{::} \dstr{fpsph\_data} \end{DataStructure} -\goodbreak \noindent where -\begin{ListeDeDescription}{mmmmmmmm} - -\item[\moc{EDIT}] key word used to set \dusa{iprint}. - -\item[\dusa{iprint}] index used to control the printing in module {\tt -CRE:}. =0 for no print; =1 for minimum printing (default value); Larger values produce increasing amounts of output. -\item[\moc{NMIX}] key word used to define the number of material mixtures. This data is given if and only if \dusa{NAME1} is created. +\begin{ListeDeDescription}{mmmmmmmm} -\item[\dusa{nmixt}] the maximum number of material mixtures (a material mixture is characterized by a distinct set of macroscopic cross sections). +\item[\dusa{OPTIM}] \texttt{character*12} name of the \dds{optimize} object ({\tt L\_OPTIMIZE} signature) containing the +SPH factors. At the first call, object \dusa{OPTIM} must appear on LHS to receive its initial values. On subsequent calls, object +\dusa{OPTIM} must appear on both LHS and RHS to be able to update the previous values. -\item[\moc{READ}] key word used to read the {\sc macrolib} specifications (burnup, neutron exposure, number densities) from the input data file. +\item[\dusa{MACROLIB}] \texttt{character*12} name of the read-only extended \dds{macrolib} object ({\tt L\_MACROLIB} signature) containing the +macroscopic cross sections used by the macro-calculation and fluxes produced by the macro-calculation. -\item[\moc{COMPO}] key word used to select a {\sc compo} and to set the interpolation information. +\item[\dusa{MACROREF}] \texttt{character*12} name of the read-only extended \dds{macrolib} object ({\tt L\_MACROLIB} signature) containing the +reference macroscopic cross sections and fluxes. -\item[\dusa{NAME2}] {\tt character*12} name of the linked list or {\sc xsm} file (type {\tt L\_COMPO}) containing the selected {\sc compo}. +\item[\dstr{fpsph\_data}] structure containing the data to the module \texttt{FPSPH:} (see Sect.~\ref{sect:lnsr_data}). -\item[\dstr{interp\_data}] structure containing the interpolation data. This structure is defined as \end{ListeDeDescription} +\clearpage -\begin{DataStructure}{Structure \dstr{interp\_data}} -$[[$ \moc{MIX} \dusa{matnum} \dusa{HTYPE}$~[$ \moc{DERIV} $]$ \\ -$[$ $\{$ \moc{BURNUP} \dusa{burn} $|$ \moc{N/KB} \dusa{xnkb} $|$ \moc{T-BURNUP} \dusa{burn0} \dusa{burn1} $|$ \moc{T-N/KB} \dusa{xnkb0} \dusa{xnkb1} $\}$ $]$ \\ -$[$ \moc{MICRO} $\{$ $[[$ \dusa{HISO} $\{$ \dusa{conc} $|$ \moc{*} $\}$ $]]~$ $|$ \moc{ALL} $\}$ $]$ \\ -\moc{ENDMIX} $]]$ -\end{DataStructure} +\subsubsection{Data input for module \texttt{FPSPH:}}\label{sect:lnsr_data} -\goodbreak +\begin{DataStructure}{Structure \moc{fpsph\_data}} +$[$ \moc{EDIT} \dusa{iprint} $]$ \\ +$[~$\moc{SPH} $\{$ \moc{PN} $|$ \moc{SN} $\}~]$ \\ +$[$ \moc{GRPMIN} \dusa{ngr1} $]~[$ \moc{GRPMAX} \dusa{ngr2} $]$\\ +$[$ \moc{OUT-STEP-EPS} \dusa{$\epsilon_{ext}$} \\ +$[$ \moc{VAR-VAL-MIN} \dusa{varmin} $]~[$ \moc{VAR-VAL-MAX} \dusa{varmax} $]$ \\ +$[$ \moc{OUT-CONV-TST} {\tt >>} \dusa{$l_{conv}$} {\tt <<} $[$ {\tt >>} \dusa{$rms_{conv}$} {\tt <<} $]~]$ \\ +; +\end{DataStructure} \noindent where \begin{ListeDeDescription}{mmmmmmmm} -\item[\moc{MIX}] key word used to set \dusa{matnum}. - -\item[\dusa{matnum}] identifier for the material mixture to be created. The maximum number of identifiers permitted is \dusa{nmixt} and the maximum value that \dusa{matnum} may have is \dusa{nmixt}. - -\item[\dusa{HTYPE}] name of the material mixture. Each name refers to a type of nuclear data that is stored on a directory in the {\sc compo} linked list or {\sc xsm} file. \dusa{HTYPE} is a {\tt character*12} name built from the concatenation {\sl HCOMPO//HIORD} where \dusa{HCOMPO} is an {\sc ascii} name with a maximum of 8 characters and {\sl HIORD} is a four digit suffix with value {\tt '~~~1'}, {\tt '~~~2'}, {\tt '~~~3'}, etc., indicating the material mixture index. +\item[\moc{EDIT}] keyword used to set \dusa{iprint}. -\item[\moc{DERIV}] key word used to compute the derivative of the {\sc macrolib} information with respect to \dusa{burn}, \dusa{xnkb}, \dusa{burn1} or \dusa{xnkb1}. By default, the {\sc macrolib} information is not differentiated. +\item[\dusa{iprint}] index used to control the printing in module. -\item[\moc{BURNUP}] key word used to perform a single interpolation and to set the burnup value \dusa{burn}. By default, the {\sc macrolib} information is computed for $burn=xnkb=0.0$. +\item[\moc{PN}] keyword to activate a calculation of heterogeneous SPH factors of diffusion, PN or SPN type. -\item[\dusa{burn}] value of the burnup in MW day per tonne of initial heavy elements. +\item[\moc{SN}] keyword to activate a calculation of heterogeneous SPH factors of PIJ, IC, SN or MOC type. +This is the default option. -\item[\moc{N/KB}] key word used to perform a single interpolation and to set the neutron exposure value \dusa{xnkb}. +\item[\moc{GRPMIN}] keyword used to set the first energy group where SPH correction is applied. By default, +the first energy group index is used. -\item[\dusa{xnkb}] value of the neutron exposure in neutron/kb. +\item[\dusa{ngr1}] minimum energy group index where SPH correction is applied. -\item[\moc{T-BURNUP}] key word used to perform a time averaged {\sc macrolib} evaluation and to set the burnup values \dusa{burn0} and \dusa{burn1}. +\item[\moc{GRPMAX}] keyword used to set the last energy group where SPH correction is applied. By default, +the total number of energy groups in \dusa{MACROLIB} is used. -\item[\dusa{burn0}] initial value of the burnup in MW day per tonne of initial heavy elements. +\item[\dusa{ngr2}] maximum energy group index where SPH correction is applied. -\item[\dusa{burn1}] final value of the burnup in MW day per tonne of initial heavy elements. +\item[\moc{OUT-STEP-EPS}] keyword used to set the tolerance of SPH iteration convergence inside module {\tt FPSPH:} (default value +is $1.0 \times 10^{-4}$). -\item[\moc{T-N/KB}] key word used to perform a time averaged {\sc macrolib} evaluation and to set the neutron exposure values \dusa{xnkb0} and \dusa{xnkb1}. +\item[\dusa{$\epsilon_{ext}$}] tolerance value (real or double precision). -\item[\dusa{xnkb0}] initial value of the neutron exposure in neutron/kb. +\item[\moc{VAR-VAL-MIN}] keyword to specify the minimum values of the SPH factors. These values can also be set in a previous call +to module {\tt GRAD:}. -\item[\dusa{xnkb1}] final value of the neutron exposure in neutron/kb. +\item[\dusa{varmin}] single real value used for all SPH factors. -\item[\moc{MICRO}] key word used to set the number densities of the extracted isotopes present in the {\sc compo} linked list or {\sc xsm} file. By default, the extracted isotopes are not added to the resulting {\sc macrolib}. +\item[\moc{VAR-VAL-MAX}] keyword to specify the maximum values of the SPH factors. These values can also be set in a previous call +to module {\tt GRAD:}. -\item[\dusa{HISO}] {\tt character*12} name of an extracted isotope. +\item[\dusa{varmax}] single real value used for all SPH factors. -\item[\dusa{conc}] user-defined value of the number density (in $10^{24}$ particles per ${\rm cm}^3$) of the extracted isotope. +\item[\moc{OUT-CONV-TST}] keyword used to determine if the SPH convergence has been reached. -\item[\moc{*}] the value of the number density for isotope \dusa{HISO} is recovered from the {\sc compo}. +\item[\dusa{$l_{conv}$}] $=1$ means that SPH convergence has been reached; $=0$ otherwise. -\item[\moc{ALL}] all the values for the number densities are recovered from the {\sc compo}. - -\item[\moc{ENDMIX}] end of specification key word for the material mixture. +\item[\dusa{$rms_{conv}$}] RMS error of the converged SPH factors. \end{ListeDeDescription} - -\eject +\clearpage diff --git a/doc/IGE344/Figures/fpsph.eps b/doc/IGE335/fpsph.eps Binary files differindex 1b9baed..1b9baed 100644 --- a/doc/IGE344/Figures/fpsph.eps +++ b/doc/IGE335/fpsph.eps diff --git a/doc/IGE344/Modules.tex b/doc/IGE344/Modules.tex index d7ce026..10b0597 100644 --- a/doc/IGE344/Modules.tex +++ b/doc/IGE344/Modules.tex @@ -87,8 +87,6 @@ about the generalized perturbation theory can be found in Sect. 5.3 of Ref.~\cit \input{SectPLQ} \vskip 1.0cm \input{SectLNSR} -\vskip 1.0cm -\input{SectFPSPH} \section{PIN-POWER RECONSTRUCTION MODULES}\label{sect:modesc6} diff --git a/doc/IGE344/SectFPSPH.tex b/doc/IGE344/SectFPSPH.tex deleted file mode 100644 index ec95bea..0000000 --- a/doc/IGE344/SectFPSPH.tex +++ /dev/null @@ -1,106 +0,0 @@ -\subsection{The \texttt{FPSPH:} module} - -The {\tt FPSPH:} module performs a single fixed-point (aka. Picard) or Newton SPH iteration. This module is intended to be used in -a {\tt REPEAT UNTIL} loop, implemented in CLE-2000 macro-language, where the macro calculation is explicitely called, as depicted -in Figs.~\ref{fig:fig_fpsph} and~\ref{fig:fig_fnewton}. - -\vskip 0.2cm - -\begin{figure}[h!] -\begin{center} -\includegraphics[scale=0.85]{Figures/fpsph.eps} -\caption{Fixed point SPH iterations.}\label{fig:fig_fpsph} -\end{center} -\end{figure} - -\begin{figure}[h!] -\begin{center} -\includegraphics[scale=0.85]{Figures/flow_newton.eps} -\caption{Newton SPH iterations.}\label{fig:fig_fnewton} -\end{center} -\end{figure} - -\clearpage - -The calling specifications are: - -\begin{DataStructure}{Structure \moc{FPSPH:}} -\dusa{OPTIM} \moc{:=} \moc{FPSPH:} $[$ \dusa{OPTIM} $]$ \dusa{MACROLIB} \dusa{MACROREF} \moc{::} \dstr{fpsph\_data} -\end{DataStructure} - -\noindent where - -\begin{ListeDeDescription}{mmmmmmmm} - -\item[\dusa{OPTIM}] \texttt{character*12} name of the \dds{optimize} object ({\tt L\_OPTIMIZE} signature) containing the -SPH factors. At the first call, object \dusa{OPTIM} must appear on LHS to receive its initial values. On subsequent calls, object -\dusa{OPTIM} must appear on both LHS and RHS to be able to update the previous values. - -\item[\dusa{MACROLIB}] \texttt{character*12} name of the read-only extended \dds{macrolib} object ({\tt L\_MACROLIB} signature) containing the -macroscopic cross sections used by the macro-calculation and fluxes produced by the macro-calculation. - -\item[\dusa{MACROREF}] \texttt{character*12} name of the read-only extended \dds{macrolib} object ({\tt L\_MACROLIB} signature) containing the -reference macroscopic cross sections and fluxes. - -\item[\dstr{fpsph\_data}] structure containing the data to the module \texttt{FPSPH:} (see Sect.~\ref{sect:lnsr_data}). - -\end{ListeDeDescription} -\vskip 0.2cm - -\subsubsection{Data input for module \texttt{FPSPH:}}\label{sect:lnsr_data} - -\begin{DataStructure}{Structure \moc{fpsph\_data}} -$[$ \moc{EDIT} \dusa{iprint} $]$ \\ -$[~$\moc{SPH} $\{$ \moc{PN} $|$ \moc{SN} $\}~]$ \\ -$[$ \moc{GRPMIN} \dusa{ngr1} $]~[$ \moc{GRPMAX} \dusa{ngr2} $]$\\ -$[$ \moc{OUT-STEP-EPS} \dusa{$\epsilon_{ext}$} \\ -$[$ \moc{VAR-VAL-MIN} \dusa{varmin} $]~[$ \moc{VAR-VAL-MAX} \dusa{varmax} $]$ \\ -$[$ \moc{OUT-CONV-TST} {\tt >>} \dusa{$l_{conv}$} {\tt <<} $[$ {\tt >>} \dusa{$rms_{conv}$} {\tt <<} $]~]$ \\ -; -\end{DataStructure} - -\noindent where -\begin{ListeDeDescription}{mmmmmmmm} - -\item[\moc{EDIT}] keyword used to set \dusa{iprint}. - -\item[\dusa{iprint}] index used to control the printing in module. - -\item[\moc{PN}] keyword to activate a calculation of heterogeneous SPH factors of diffusion, PN or SPN type. - -\item[\moc{SN}] keyword to activate a calculation of heterogeneous SPH factors of PIJ, IC, SN or MOC type. -This is the default option. - -\item[\moc{GRPMIN}] keyword used to set the first energy group where SPH correction is applied. By default, -the first energy group index is used. - -\item[\dusa{ngr1}] minimum energy group index where SPH correction is applied. - -\item[\moc{GRPMAX}] keyword used to set the last energy group where SPH correction is applied. By default, -the total number of energy groups in \dusa{MACROLIB} is used. - -\item[\dusa{ngr2}] maximum energy group index where SPH correction is applied. - -\item[\moc{OUT-STEP-EPS}] keyword used to set the tolerance of SPH iteration convergence inside module {\tt FPSPH:} (default value -is $1.0 \times 10^{-4}$). - -\item[\dusa{$\epsilon_{ext}$}] tolerance value (real or double precision). - -\item[\moc{VAR-VAL-MIN}] keyword to specify the minimum values of the SPH factors. These values can also be set in a previous call -to module {\tt GRAD:}. - -\item[\dusa{varmin}] single real value used for all SPH factors. - -\item[\moc{VAR-VAL-MAX}] keyword to specify the maximum values of the SPH factors. These values can also be set in a previous call -to module {\tt GRAD:}. - -\item[\dusa{varmax}] single real value used for all SPH factors. - -\item[\moc{OUT-CONV-TST}] keyword used to determine if the SPH convergence has been reached. - -\item[\dusa{$l_{conv}$}] $=1$ means that SPH convergence has been reached; $=0$ otherwise. - -\item[\dusa{$rms_{conv}$}] RMS error of the converged SPH factors. - -\end{ListeDeDescription} -\clearpage diff --git a/doc/IGE344/SectGRAD.tex b/doc/IGE344/SectGRAD.tex index 7ebcafd..2d9d99c 100644 --- a/doc/IGE344/SectGRAD.tex +++ b/doc/IGE344/SectGRAD.tex @@ -12,6 +12,19 @@ control variables and with \dusa{ncst} constraints. The total number of system c \vskip 0.08cm +The {\tt GRAD:} module can be used to perform a {\sl Newtonian} search of SPH factors, as depicted in Fig.~\ref{fig:fig_fnewton}. + +\vskip 0.2cm + +\begin{figure}[h!] +\begin{center} +\includegraphics[scale=0.85]{Figures/flow_newton.eps} +\caption{Newton SPH iterations.}\label{fig:fig_fnewton} +\end{center} +\end{figure} + +\vskip 0.08cm + The calling specifications are: \begin{DataStructure}{Structure \moc{GRAD:}} |