diff options
Diffstat (limited to 'Trivac/data')
102 files changed, 11101 insertions, 0 deletions
diff --git a/Trivac/data/DIFtst.x2m b/Trivac/data/DIFtst.x2m new file mode 100644 index 0000000..1588d4a --- /dev/null +++ b/Trivac/data/DIFtst.x2m @@ -0,0 +1,13 @@ +* Regression tests for Diffusion capabilities in Bivac and Trivac. +* A. Hebert, 2006 +* +PROCEDURE iaea2d iaea3d iaea_hexa iaea_hexb monju_diff pertdiff vv1k3d ; +* +iaea2d ; +iaea3d ; +iaea_hexa ; +iaea_hexb ; +monju_diff ; +pertdiff ; +vv1k3d ; +QUIT "LIST" . diff --git a/Trivac/data/DIFtst_proc/iaea2d.c2m b/Trivac/data/DIFtst_proc/iaea2d.c2m new file mode 100755 index 0000000..9dc01ea --- /dev/null +++ b/Trivac/data/DIFtst_proc/iaea2d.c2m @@ -0,0 +1,125 @@ +*---- +* TEST CASE iaea2d +* IAEA 2D BENCHMARK IN DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: OUT: DELETE: + END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* BIVAC +*---- +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029094 ; +EDIT := OUT: FLUX TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +TRACK SYSTEM FLUX EDIT := DELETE: TRACK SYSTEM FLUX EDIT ; +* +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.032310 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* TRIVAC +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029094 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028690 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.032310 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 MCFD 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028690 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +ECHO "test iaea2d completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/iaea3d.c2m b/Trivac/data/DIFtst_proc/iaea3d.c2m new file mode 100755 index 0000000..b88125d --- /dev/null +++ b/Trivac/data/DIFtst_proc/iaea3d.c2m @@ -0,0 +1,157 @@ +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX EDIT REF ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.0000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.5000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFFX 1.500E+00 4.00000E-01 + TOTAL 3.000E-02 1.30000E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 1.0000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + MIX 5 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 5.5000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028981 ; +EDIT := OUT: FLUX TRACK MACRO IAEA3D :: + EDIT 2 INTG + (*PLANE NB 1*) + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 + 0 0 0 0 + 0 0 0 + 0 0 + 0 + (*PLANE NB 2*) + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + (*PLANE NB 3*) + 30 31 32 33 34 35 36 37 0 + 38 39 40 41 42 43 44 0 + 45 46 47 48 49 50 0 + 51 52 53 54 0 0 + 55 56 57 0 0 + 58 0 0 0 + 0 0 0 + 0 0 + 0 + (*PLANE NB 4*) + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 + 0 0 0 0 + 0 0 0 + 0 0 + 0 + ; +TRACK SYSTEM FLUX EDIT := DELETE: TRACK SYSTEM FLUX EDIT ; +* +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 PRIM 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029308 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 MCFD 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028842 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +ECHO "test iaea3d completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/iaea_hexa.c2m b/Trivac/data/DIFtst_proc/iaea_hexa.c2m new file mode 100755 index 0000000..443cf1d --- /dev/null +++ b/Trivac/data/DIFtst_proc/iaea_hexa.c2m @@ -0,0 +1,176 @@ +LINKED_LIST HEX MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +HEX := GEO: :: HEX 16 + EDIT 2 + HBC S30 ALBE 0.0 + SIDE 11.5470054 + MIX + 3 + 2 + 2 3 + 2 2 + 3 2 2 + 2 2 2 + 1 1 1 1 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 8.0E-02 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 8.5E-02 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 1.3E-01 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + ; +*---- +* BIVAC +*---- +HEX := GEO: HEX :: + SPLITH 0 SPLITL 0 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 MCFD ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9917505 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 0 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9610498 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 1 SPLITL 0 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 MCFD ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9822278 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 1 SPLITL 0 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9709085 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 1 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9782231 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 2 ; +TRACK := BIVACT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 5000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9775723 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* TRIVAC +*---- +HEX := GEO: HEX :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9917505 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 2 MAXR 500 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9610475 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9822259 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9709070 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 2 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).' + EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 4 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9780799 ; +ECHO "test iaea_hexa completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/iaea_hexb.c2m b/Trivac/data/DIFtst_proc/iaea_hexb.c2m new file mode 100755 index 0000000..47a42f9 --- /dev/null +++ b/Trivac/data/DIFtst_proc/iaea_hexb.c2m @@ -0,0 +1,72 @@ +LINKED_LIST HEX MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: DELETE: END: ; +PROCEDURE assertS ; +* +HEX := GEO: :: HEX 20 + EDIT 2 + HBC S30 ALBE 0.0 + SIDE 11.5470054 + MIX + 3 + 2 + 2 3 + 2 2 + 3 2 2 + 2 2 2 + 1 1 1 1 + 4 4 4 4 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 8.0E-02 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 8.5E-02 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.5E+00 4.0E-01 + TOTAL 3.0E-02 1.3E-01 + NUSIGF 0.0E+00 1.35E-01 + H-FACTOR 0.0E+00 5.6E-02 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 1.5E+00 4.0E-01 + TOTAL 4.0E-02 1.0E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +HEX := GEO: HEX :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE B (WITH REFLECTOR).' + EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +EDIT := OUT: FLUX HEX MACRO TRACK :: + EDIT 2 INTG IN ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.009611 ; +TRACK SYSTEM FLUX EDIT := DELETE: TRACK SYSTEM FLUX EDIT ; +* +HEX := GEO: HEX :: + SPLITH 0 SPLITL 2 ; +TRACK := TRIVAT: HEX :: + TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE B (WITH REFLECTOR).' + EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + ADI 2 EDIT 2 ; +EDIT := OUT: FLUX HEX MACRO TRACK :: + EDIT 2 INTG IN ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.005512 ; +ECHO "test iaea_hexb completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/monju_diff.c2m b/Trivac/data/DIFtst_proc/monju_diff.c2m new file mode 100755 index 0000000..45b8d1d --- /dev/null +++ b/Trivac/data/DIFtst_proc/monju_diff.c2m @@ -0,0 +1,348 @@ +LINKED_LIST HEX2D HEX3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 5 NIFI 1 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + DIFF 2.540E+00 1.724E+00 1.264E+00 + TOTAL 3.09865E-02 9.490E-03 7.333E-03 + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + SCAT 1 1 (*1->1*) 0.0 + 2 2 (*2->2*) 0.0 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 0.0 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + MIX 2 (* ACTIVE OUTER CORE *) + DIFF 2.548E+00 1.725E+00 1.269E+00 + TOTAL 3.12138E-02 9.875E-03 8.099E-03 + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + SCAT 1 1 (*1->1*) 0.0 + 2 2 (*2->2*) 0.0 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 0.0 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + MIX 3 (* RADIAL/AXIAL BLANKET *) + DIFF 2.173E+00 1.439E+00 1.026E+00 + TOTAL 3.79308E-02 1.1843E-02 7.611E-03 + NUSIGF 8.631E-03 5.995E-04 1.381E-03 + H-FACTOR 8.631E-03 5.995E-04 1.381E-03 + SCAT 1 1 (*1->1*) 0.0 + 2 2 (*2->2*) 0.0 (*1->2*) 3.288E-02 + 3 3 (*3->3*) 0.0 (*2->3*) 1.000E-02 (*1->3*) 7.468E-04 + MIX 4 (* CONTROL ROD *) + DIFF 2.500E+00 1.681E+00 1.269E+00 + TOTAL 2.32803E-02 1.2727E-02 1.497E-02 + SCAT 1 1 (*1->1*) 0.0 + 2 2 (*2->2*) 0.0 (*1->2*) 2.185E-02 + 3 3 (*3->3*) 0.0 (*2->3*) 9.379E-03 (*1->3*) 2.163E-04 + MIX 5 (* SODIUM CHANNEL *) + DIFF 4.805E+00 3.262E+00 2.431E+00 + TOTAL 1.152508E-02 3.64874E-03 3.072E-04 + SCAT 1 1 (*1->1*) 0.0 + 2 2 (*2->2*) 0.0 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 0.0 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + ; +* +HEX2D := GEO: :: HEX 133 + EDIT 2 + HBC R120 VOID + SIDE 6.67417 + MIX + 4 + 1 1 + 1 1 1 1 + 1 4 1 1 4 1 + 1 1 1 1 1 1 1 1 + 4 1 1 1 1 4 1 1 1 1 + 1 1 1 4 1 1 1 1 1 4 1 1 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + ; +* +HEX3D := GEO: :: HEXZ 133 4 + EDIT 2 + HBC R120 VOID + SIDE 6.67417 + Z- VOID Z+ VOID + MESHZ 0.0 30.0 79.0 123.0 158.0 + SPLITZ 1 2 2 1 + MIX + (* UPPER BLANKET *) + 4 + 3 3 + 3 3 3 3 + 3 4 3 3 4 3 + 3 3 3 3 3 3 3 3 + 4 3 3 3 3 4 3 3 3 3 + 3 3 3 4 3 3 3 3 3 4 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* UPPER INNER/OUTER CORE *) + 4 + 1 1 + 1 1 1 1 + 1 4 1 1 4 1 + 1 1 1 1 1 1 1 1 + 4 1 1 1 1 4 1 1 1 1 + 1 1 1 4 1 1 1 1 1 4 1 1 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* LOWER INNER/OUTER CORE *) + 4 + 1 1 + 1 1 1 1 + 1 4 1 1 4 1 + 1 1 1 1 1 1 1 1 + 5 1 1 1 1 5 1 1 1 1 + 1 1 1 5 1 1 1 1 1 5 1 1 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* LOWER BLANKET *) + 4 + 3 3 + 3 3 3 3 + 3 4 3 3 4 3 + 3 3 3 3 3 3 3 3 + 5 3 3 3 3 5 3 3 3 3 + 3 3 3 5 3 3 3 3 3 5 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + ; +*---- +* Mesh-corner finite differences +*---- +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 0 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.145389 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 1 SPLITL 0 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.151643 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.145392 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.151643 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.007556 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 PRIM (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.012467 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* Mesh-centered finite differences +*---- +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 0 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.167697 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 1 SPLITL 0 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.156221 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.167697 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.156212 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 0 SPLITL 0 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.066331 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 1 SPLITL 0 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 5000 MCFD (*IELEM=*) 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.057418 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* Thomas-Raviart-Schneider +*---- +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 1 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.152478 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 2 ; +TRACK := BIVACT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.153644 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 2 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.153649 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX2D := GEO: HEX2D :: + SPLITH 0 SPLITL 1 ; +TRACK := TRIVAT: HEX2D :: + TITLE 'TEST 2D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.154039 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 0 SPLITL 1 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029397 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +HEX3D := GEO: HEX3D :: + SPLITH 0 SPLITL 2 ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 30000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.030225 ; +ECHO "test monju_diff completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/pertdiff.c2m b/Trivac/data/DIFtst_proc/pertdiff.c2m new file mode 100755 index 0000000..2196541 --- /dev/null +++ b/Trivac/data/DIFtst_proc/pertdiff.c2m @@ -0,0 +1,243 @@ +*----- +* GPT TEST pertdiff +*----- +LINKED_LIST IAEA MACRO_REF MACRO_0 DMACRO TRACK SYSTEM_REF FLUX DSYSTEM + DSOUR DASOUR DFLUX SYSTEM_0 FLUX2 EDIT ADFLUX MACRO ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: DELTA: GPTFLU: OUT: + END: ADD: UTL: STAT: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +* +* REFERENCE CASE: +MACRO_REF := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.900000E+00 4.400000E-01 + TOTAL 3.012000E-02 8.303201E-02 + NUSIGF 0.000000E+00 1.650000E-01 + H-FACTOR 0.000000E+00 1.650000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 2.912000E-02 1.260320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +* +* UNPERTURBED CASE: +MACRO_0 := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.003199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 1.300320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +* +* PERTURBATION: +DMACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 4.000000E-01 4.000000E-02 + TOTAL 0.000000E+00 3.000000E-03 + NUSIGF 0.000000E+00 3.000000E-02 + H-FACTOR 0.000000E+00 3.000000E-02 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 2 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 3 + TOTAL -9.999999E-04 -4.000001E-03 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 4 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + ; +*---- +* MCFD1 case, Livolant iteration +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)' + EDIT 5 MAXR 1156 + MCFD 1 ; +SYSTEM_REF := TRIVAA: MACRO_REF TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_REF TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.113392 ; +FLUX := DELETE: FLUX ; +* +SYSTEM_0 := TRIVAA: MACRO_0 TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_0 TRACK :: EDIT 2 ADJ ; +DSYSTEM := TRIVAA: MACRO_0 TRACK DMACRO :: EDIT 5 PERT ; +DSOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ; +DFLUX := GPTFLU: DSOUR FLUX SYSTEM_0 TRACK :: EDIT 2 EXPLICIT + FROM-TO 1 1 ; +assertS DFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +DASOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ADJ ; +ADFLUX := GPTFLU: DASOUR FLUX SYSTEM_0 TRACK :: EDIT 2 IMPLICIT + FROM-TO 1 1 ; +assertS ADFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +* Reset the perturbation flag of DSYSTEM to 0 so that it can be added. +DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ; +SYSTEM_0 := ADD: SYSTEM_0 DSYSTEM ; +MACRO := ADD: MACRO_0 DMACRO ; +* +STAT: SYSTEM_REF SYSTEM_0 ; +STAT: MACRO_REF MACRO ; +FLUX2 := FLUD: SYSTEM_0 TRACK MACRO :: EDIT 2 ; +assertS FLUX2 :: 'K-EFFECTIVE' 1 1.113392 ; +EDIT := OUT: FLUX2 TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +TRACK SYSTEM_REF FLUX DSYSTEM DSOUR DASOUR DFLUX SYSTEM_0 FLUX2 +EDIT ADFLUX MACRO +:= DELETE: +TRACK SYSTEM_REF FLUX DSYSTEM DSOUR DASOUR DFLUX SYSTEM_0 FLUX2 +EDIT ADFLUX MACRO ; +*---- +* RAVIART-THOMAS DUAL 1 2 case, Livolant iteration +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)' + EDIT 5 MAXR 1156 + DUAL 1 2 ; +SYSTEM_REF := TRIVAA: MACRO_REF TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_REF TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.113392 ; +FLUX := DELETE: FLUX ; +* +SYSTEM_0 := TRIVAA: MACRO_0 TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_0 TRACK :: EDIT 2 ADJ ; +DSYSTEM := TRIVAA: MACRO_0 TRACK DMACRO :: EDIT 5 PERT ; +DSOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ; +DFLUX := GPTFLU: DSOUR FLUX SYSTEM_0 TRACK :: EDIT 2 EXPLICIT + FROM-TO 1 1 ; +assertS DFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +DASOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ADJ ; +ADFLUX := GPTFLU: DASOUR FLUX SYSTEM_0 TRACK :: EDIT 2 IMPLICIT + FROM-TO 1 1 ; +assertS ADFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +* Reset the perturbation flag of DSYSTEM to 0 so that it can be added. +DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ; +SYSTEM_0 := ADD: SYSTEM_0 DSYSTEM ; +MACRO := ADD: MACRO_0 DMACRO ; +* +STAT: SYSTEM_REF SYSTEM_0 ; +STAT: MACRO_REF MACRO ; +FLUX2 := FLUD: SYSTEM_0 TRACK MACRO :: EDIT 2 ; +assertS FLUX2 :: 'K-EFFECTIVE' 1 1.113392 ; +EDIT := OUT: FLUX2 TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +TRACK SYSTEM_REF FLUX DSYSTEM DSOUR DASOUR DFLUX SYSTEM_0 FLUX2 +EDIT ADFLUX MACRO +:= DELETE: +TRACK SYSTEM_REF FLUX DSYSTEM DSOUR DASOUR DFLUX SYSTEM_0 FLUX2 +EDIT ADFLUX MACRO ; +*---- +* RAVIART-THOMAS DUAL 1 2 case, GMRES iteration +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)' + EDIT 5 MAXR 1156 + DUAL 1 2 ; +SYSTEM_REF := TRIVAA: MACRO_REF TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_REF TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.113392 ; +FLUX := DELETE: FLUX ; +* +SYSTEM_0 := TRIVAA: MACRO_0 TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM_0 TRACK :: EDIT 2 ADJ ; +DSYSTEM := TRIVAA: MACRO_0 TRACK DMACRO :: EDIT 5 PERT ; +DSOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ; +DFLUX := GPTFLU: DSOUR FLUX SYSTEM_0 TRACK :: EDIT 2 GMRES 10 EXPLICIT + FROM-TO 1 1 ; +assertS DFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +DASOUR := DELTA: FLUX SYSTEM_0 DSYSTEM TRACK :: EDIT 2 ADJ ; +ADFLUX := GPTFLU: DASOUR FLUX SYSTEM_0 TRACK :: EDIT 2 GMRES 10 IMPLICIT + FROM-TO 1 1 ; +assertS ADFLUX :: 'K-EFFECTIVE' 1 1.032713 ; +* Reset the perturbation flag of DSYSTEM to 0 so that it can be added. +DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ; +SYSTEM_0 := ADD: SYSTEM_0 DSYSTEM ; +MACRO := ADD: MACRO_0 DMACRO ; +* +STAT: SYSTEM_REF SYSTEM_0 ; +STAT: MACRO_REF MACRO ; +FLUX2 := FLUD: SYSTEM_0 TRACK MACRO :: EDIT 2 ; +assertS FLUX2 :: 'K-EFFECTIVE' 1 1.113392 ; +EDIT := OUT: FLUX2 TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +ECHO "test pertdiff completed" ; +END: ; diff --git a/Trivac/data/DIFtst_proc/vv1k3d.c2m b/Trivac/data/DIFtst_proc/vv1k3d.c2m new file mode 100755 index 0000000..683ada5 --- /dev/null +++ b/Trivac/data/DIFtst_proc/vv1k3d.c2m @@ -0,0 +1,173 @@ +*------------------------ +* Benchmark VV1K3D +* +* Reference: A. Bernal, A. Hebert, J. E. Roman, R. Miro and G. Verdu, +* "A Krylov-Schur solution of the eigenvalue problem for the neutron +* diffusion equation discretized with the Raviart-Thomas method," J. of +* Nuclear Science and Technology, Vol. 54, No. 10, 1085-1094 (2017). +*------------------------ +LINKED_LIST GEOM XSEC TRACK SYSTEM FLUX RESU ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: END: ABORT: ; +PROCEDURE assertS ; + +GEOM := GEO: :: + HEXZ 169 10 + EDIT 2 + Z- ZERO Z+ ZERO HBC COMPLETE ZERO + MESHZ 0. 20. 40. 60. 80. 100. 120. 140. 160. 180. 200. + SIDE 13.6255 + SPLITL 1 + MIX + ! PLANE 1 + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 2 + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 3 + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 4 + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 5 + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 6 + 2 1 1 1 1 1 1 1 3 1 3 1 3 1 3 1 3 1 3 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 7 + 2 1 1 1 1 1 1 1 3 1 3 1 3 1 3 1 3 1 3 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 8 + 2 1 1 1 1 1 1 1 3 1 3 1 3 1 3 1 3 1 3 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 9 + 2 1 1 1 1 1 1 1 3 1 3 1 3 1 3 1 3 1 3 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ! PLANE 10 + 2 1 1 1 1 1 1 1 3 1 3 1 3 1 3 1 3 1 3 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 + ; + +XSEC := MAC: :: + EDIT 2 + NGRO 2 NIFI 1 NMIX 5 + READ INPUT + MIX 1 + TOTAL 2.48836E-02 6.73049E-2 + NUSIGF 4.81619E-3 8.46154E-2 + DIFF 1.38320 3.86277E-1 + CHI 1. 0. + SCAT 1 1 0. + 1 1 1.64977E-2 + MIX 2 + TOTAL 2.62865E-02 8.10328E-2 + NUSIGF 4.66953E-3 8.52264E-2 + DIFF 1.38299 3.89403E-1 + CHI 1. 0. + SCAT 1 1 0. + 1 1 1.47315E-2 + MIX 3 + TOTAL 2.45662E-02 8.44801E-2 + NUSIGF 6.04889E-3 1.19428E-1 + DIFF 1.39522 3.86225E-1 + CHI 1. 0. + SCAT 1 1 0. + 1 1 1.56219E-2 + MIX 4 + TOTAL 2.60117E-02 9.89671E-2 + NUSIGF 5.91507E-3 1.20497E-1 + DIFF 1.39446 3.87723E-1 + CHI 1. 0. + SCAT 1 1 0. + 1 1 1.40185E-2 + MIX 5 + TOTAL 2.46141E-02 8.93878E-2 + NUSIGF 6.40256E-3 1.29281E-1 + DIFF 1.39506 3.84492E-1 + CHI 1. 0. + SCAT 1 1 0. + 1 1 1.54981E-2 + ; + +TRACK := TRIVAT: GEOM :: + EDIT 2 + TITL 'VV1K3D' + MAXR 10000 DUAL 2 1 + ; + +SYSTEM := TRIVAA: XSEC TRACK :: EDIT 3 ; + +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 6 EXTE 30 1.0E-8 + ; + +RESU := OUT: FLUX SYSTEM TRACK XSEC GEOM :: + EDIT 2 + MODE 1 POWR 1.0 INTG MIX + ; + +assertS FLUX :: 'K-EFFECTIVE' 1 1.005450 ; +ECHO "test vv1k3d completed" ; +END: ; diff --git a/Trivac/data/Ktests.x2m b/Trivac/data/Ktests.x2m new file mode 100644 index 0000000..6e898ab --- /dev/null +++ b/Trivac/data/Ktests.x2m @@ -0,0 +1,351 @@ +********************************************* +* NON REGRESSION TESTS FOR KINETICS * +* Author: D.Sekki (04/2008) * +********************************************* +PROCEDURE assertS ptrack1 pbivac1 pdrive1 + pdrive2 pdrive3 pdrive4 pdrive5 pdrive6 + pdrive7 pdrive8 pdrive9 pdrive10 pdrive11 + pdrive12 pdrive13 pdrive14 pdrive15 pdrive16 + pdrive17 pdrive18 pdrive19 pdrive20 pdrive21 + pdrive22 pdrive23 pdrive24 pdrive25 pdrive26 + pdrive27 pdrive28 pdrive29 pdrive30 pdrive31 + pspn_bivac pspn_trivac mcfd1 dual12_biv dual12_tri + prim12_biv prim12_tri spn12_biv spn12_tri dual13_biv + prim13_biv lmw2D ; + +MODULE DELETE: END: ; +LINKED_LIST MACRO TRACK SYSTEM FLUX ; +INTEGER maxItr MaxReg := 10 1000 ; +INTEGER degre quadr nadi ; +REAL precf := 1.0E-6 ; +STRING method ; +* +ECHO " ***** Ktest01 *****" ; +EVALUATE method := "MCFD" ; +EVALUATE degre quadr nadi := 1 1 1 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.997770 ; +pdrive1 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest01 completed" ; +* +ECHO " ***** Ktest02 *****" ; +EVALUATE degre := 2 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ; +pdrive2 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest02 completed" ; +* +ECHO " ***** Ktest03 *****" ; +EVALUATE method := "PRIM" ; +EVALUATE degre := 1 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9979774 ; +pdrive3 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest03 completed" ; +* +ECHO " ***** Ktest04 *****" ; +EVALUATE degre := 2 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977074 ; +pdrive4 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest04 completed" ; +* +ECHO " ***** Ktest05 *****" ; +EVALUATE method := "DUAL" ; +EVALUATE degre quadr := 1 1 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976563 ; +pdrive5 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest05 completed" ; +* +ECHO " ***** Ktest06 *****" ; +EVALUATE degre quadr := 1 2 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.99777007 ; +pdrive6 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest06 completed" ; +* +ECHO " ***** Ktest07 *****" ; +EVALUATE degre quadr := 1 3 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976792 ; +pdrive7 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest07 completed" ; +* +ECHO " ***** Ktest08 *****" ; +EVALUATE degre quadr := 2 1 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977172 ; +pdrive8 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest08 completed" ; +* +ECHO " ***** Ktest09 *****" ; +EVALUATE degre quadr := 2 2 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ; +pdrive9 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest09 completed" ; +* +ECHO " ***** Ktest10 *****" ; +EVALUATE degre quadr := 2 3 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977345 ; +pdrive10 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest10 completed" ; +* +ECHO " ***** Ktest11 *****" ; +EVALUATE degre quadr := 3 1 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977306 ; +pdrive11 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest11 completed" ; +* +ECHO " ***** Ktest12 *****" ; +EVALUATE degre quadr := 3 2 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977283 ; +pdrive12 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest12 completed" ; +* +ECHO " ***** Ktest13 *****" ; +EVALUATE degre quadr := 3 3 ; +MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977332 ; +pdrive13 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest13 completed" ; +* +ECHO " ***** Ktest14 *****" ; +EVALUATE method := "PRIM" ; +EVALUATE degre quadr := 1 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977993 ; +pdrive14 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest14 completed" ; +* +ECHO " ***** Ktest15 *****" ; +EVALUATE degre quadr := 1 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9979696 ; +pdrive15 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest15 completed" ; +* +ECHO " ***** Ktest16 *****" ; +EVALUATE degre quadr := 1 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976777 ; +pdrive16 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest16 completed" ; +* +ECHO " ***** Ktest17 *****" ; +EVALUATE degre quadr := 2 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977984 ; +pdrive17 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest17 completed" ; +* +ECHO " ***** Ktest18 *****" ; +EVALUATE degre quadr := 2 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977235 ; +pdrive18 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest18 completed" ; +* +ECHO " ***** Ktest19 *****" ; +EVALUATE degre quadr := 2 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977491 ; +pdrive19 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest19 completed" ; +* +ECHO " ***** Ktest20 *****" ; +EVALUATE degre quadr := 3 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +*assertS FLUX :: 'K-EFFECTIVE' 1 0.9978661 ; +pdrive20 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest20 completed" ; +* +ECHO " ***** Ktest21 *****" ; +EVALUATE degre quadr := 3 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> 1.0E-5 ; +*assertS FLUX :: 'K-EFFECTIVE' 1 0.99770 ; +pdrive21 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest21 completed" ; +* +ECHO " ***** Ktest22 *****" ; +EVALUATE degre quadr := 3 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +*assertS FLUX :: 'K-EFFECTIVE' 1 0.99765 ; +pdrive22 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest22 completed" ; +* +ECHO " ***** Ktest23 *****" ; +EVALUATE method := "DUAL" ; +EVALUATE degre quadr := 1 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976563 ; +pdrive23 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest23 completed" ; +* +ECHO " ***** Ktest24 *****" ; +EVALUATE degre quadr := 1 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977701 ; +pdrive24 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest24 completed" ; +* +ECHO " ***** Ktest25 *****" ; +EVALUATE degre quadr := 1 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976793 ; +pdrive25 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest25 completed" ; +* +ECHO " ***** Ktest26 *****" ; +EVALUATE degre quadr := 2 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977170 ; +pdrive26 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest26 completed" ; +* +ECHO " ***** Ktest27 *****" ; +EVALUATE degre quadr := 2 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ; +pdrive27 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest27 completed" ; +* +ECHO " ***** Ktest28 *****" ; +EVALUATE degre quadr := 2 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977344 ; +pdrive28 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest28 completed" ; +* +ECHO " ***** Ktest29 *****" ; +EVALUATE degre quadr := 3 1 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977307 ; +pdrive29 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest29 completed" ; +* +ECHO " ***** Ktest30 *****" ; +EVALUATE degre quadr := 3 2 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977284 ; +pdrive30 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest30 completed" ; +* +ECHO " ***** Ktest31 *****" ; +EVALUATE degre quadr := 3 3 ; +MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>> + <<method>> <<degre>> <<quadr>> <<precf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977333 ; +pdrive31 MACRO TRACK SYSTEM FLUX :: + <<maxItr>> <<precf>> <<nadi>> ; +MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ; +ECHO "Ktest31 completed" ; +* +pspn_bivac ; +pspn_trivac ; +mcfd1 ; +dual12_biv ; +dual12_tri ; +prim12_biv ; +prim12_tri ; +spn12_biv ; +spn12_tri ; +dual13_biv ; +prim13_biv ; +lmw2D ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/assertS2.c2m b/Trivac/data/Ktests_proc/assertS2.c2m new file mode 100755 index 0000000..2066d84 --- /dev/null +++ b/Trivac/data/Ktests_proc/assertS2.c2m @@ -0,0 +1,32 @@ +* +* Assert procedure for non-regression testing +* Recover a value from a real array +* Author: A. Hebert +* +PARAMETER LCMNAM :: ::: LINKED_LIST LCMNAM ; ; +CHARACTER KEY ; +INTEGER ISET IPOS ; +REAL REFVALUE ; +:: >>KEY<< >>IPOS<< >>REFVALUE<< ; +INTEGER ITYLCM ; +REAL VALUE DELTA ; +MODULE GREP: ABORT: END: ; +* +GREP: LCMNAM :: TYPE <<KEY>> >>ITYLCM<< ; +IF ITYLCM 2 = THEN + GREP: LCMNAM :: GETVAL <<KEY>> <<IPOS>> >>VALUE<< ; +ELSE + PRINT "assertS2: INVALID TYPE=" ITYLCM ; + ABORT: ; +ENDIF ; +EVALUATE DELTA := VALUE REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-3 < THEN + PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + PRINT "------------" ; + PRINT "TEST FAILURE" ; + PRINT "------------" ; + PRINT "REFERENCE=" REFVALUE " CALCULATED=" VALUE ; + ABORT: ; +ENDIF ; +END: ; diff --git a/Trivac/data/Ktests_proc/dual12_biv.c2m b/Trivac/data/Ktests_proc/dual12_biv.c2m new file mode 100755 index 0000000..0ada58d --- /dev/null +++ b/Trivac/data/Ktests_proc/dual12_biv.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 DUAL 1 2 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 10 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977701 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := BIVACA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.188076 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578693E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.566191 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600593E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.785692 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.643316E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.910200 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.028781E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.719470 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.188469E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225747 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577780E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.594242 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598913E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.795113 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641382E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.905498 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.027946E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.702715 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.186118E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test dual12_biv completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/dual12_tri.c2m b/Trivac/data/Ktests_proc/dual12_tri.c2m new file mode 100755 index 0000000..ee8c061 --- /dev/null +++ b/Trivac/data/Ktests_proc/dual12_tri.c2m @@ -0,0 +1,181 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 DUAL 1 2 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 5 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977700 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := TRIVAA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.188061 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578695E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.566028 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600593E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.785574 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.643309E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.910440 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.028784E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.719877 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.188491E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225754 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577782E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.5943015 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598914E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.795137 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641384E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.905773 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.027955E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.703376 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.186155E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics with exponential transformation +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX TEXP CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225750 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577782E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.541330 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.597840E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.761252 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.637990E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.854255 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.025769E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.593970 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.179521E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test dual12_tri completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/dual13_biv.c2m b/Trivac/data/Ktests_proc/dual13_biv.c2m new file mode 100755 index 0000000..39111df --- /dev/null +++ b/Trivac/data/Ktests_proc/dual13_biv.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 DUAL 1 3 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 10 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976777 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := BIVACA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.177870 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.579441E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.544497 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600461E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.756687 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641601E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.834703 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.026161E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.549758 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.178988E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.210341 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578560E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.571491 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598836E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.765748 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.639743E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.830195 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.025364E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.534057 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.176772E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test dual13_biv completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/lmw2D.c2m b/Trivac/data/Ktests_proc/lmw2D.c2m new file mode 100755 index 0000000..b79b180 --- /dev/null +++ b/Trivac/data/Ktests_proc/lmw2D.c2m @@ -0,0 +1,134 @@ +*---- +* TEST CASE LMW 2D +* +* REF: G. Greenman, "A Quasi-Static Flux Synthesis Temporal Integration +* Scheme for an Analytic Nodal Method," Nuclear Engineer's Thesis, +* Massachusetts Institute of Technology, Department of Nuclear +* Engineering (May 1980). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LMW TRACK MACRO1 SYSTEM1 MACRO2 SYSTEM2 FLUX KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: INIKIN: KINSOL: GREP: DELETE: + END: ; +REAL fnorm sigt1 sigt2 ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +LMW := GEO: :: CAR2D 6 6 + X- REFL X+ ZERO + Y- REFL Y+ ZERO + MIX 1 1 1 2 3 4 + 1 1 1 1 3 4 + 1 1 5 1 3 4 + 6 1 1 3 3 4 + 3 3 3 3 4 4 + 4 4 4 4 4 0 + MESHX 0.0 10. 30. 50. 70. 90. 110. + MESHY 0.0 10. 30. 50. 70. 90. 110. + SPLITX 2 2 2 2 2 2 + SPLITY 2 2 2 2 2 2 + ; +MACRO1 := MAC: :: + EDIT 0 NGRO 2 NMIX 6 + READ INPUT + MIX 1 + DIFF 1.423910E+00 3.563060E-01 + TOTAL 2.795756E-02 8.766216E-02 + NUSIGF 6.477691E-03 1.127328E-01 + H-FACTOR 2.591070E-03 4.509310E-02 + SCAT 1 1 0.0 2 2 0.0 0.175555E-01 + OVERV 0.800E-07 4.000E-06 + MIX 2 + DIFF 1.423910E+00 3.563060E-01 + TOTAL 2.850756E-02 9.146219E-02 + NUSIGF 6.477691E-03 1.127328E-01 + H-FACTOR 2.591070E-03 4.509310E-02 + SCAT 1 1 0.0 2 2 0.0 0.175555E-01 + OVERV 0.800E-07 4.000E-06 + MIX 3 + DIFF 1.425610E+00 3.505740E-01 + TOTAL 2.817031E-02 9.925634E-02 + NUSIGF 7.503282E-03 1.378004E-01 + H-FACTOR 3.001310E-03 5.512106E-02 + SCAT 1 1 0.0 2 2 0.0 0.171777E-01 + OVERV 0.800E-07 4.000E-06 + MIX 4 + DIFF 1.634220E+00 2.640020E-01 + TOTAL 3.025750E-02 4.936351E-02 + SCAT 1 1 0.0 2 2 0.0 0.275969E-01 + OVERV 0.800E-07 4.000E-06 + MIX 5 + DIFF 1.423910E+00 3.563060E-01 + TOTAL 2.795756E-02 8.766216E-02 + NUSIGF 6.477691E-03 1.127328E-01 + H-FACTOR 2.591070E-03 4.509310E-02 + SCAT 1 1 0.0 2 2 0.0 0.175555E-01 + OVERV 0.800E-07 4.000E-06 + MIX 6 + DIFF 1.423910E+00 3.563060E-01 + TOTAL 2.850756E-02 9.146217E-02 + NUSIGF 6.477691E-03 1.127328E-01 + H-FACTOR 2.591070E-03 4.509310E-02 + SCAT 1 1 0.0 2 2 0.0 0.175555E-01 + OVERV 0.800E-07 4.000E-06 + ; +TRACK := TRIVAT: LMW :: + TITLE 'LMW 2-D BENCHMARK' + EDIT 1 MAXR 144 MCFD 2 ; +SYSTEM1 := TRIVAA: MACRO1 TRACK :: + EDIT 1 UNIT ; +FLUX := FLUD: SYSTEM1 TRACK :: + EDIT 1 EXTE 5.0E-7 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.014803 ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO1 TRACK SYSTEM1 FLUX :: EDIT 1 + NDEL 6 + BETA 0.000247 0.0013845 0.001222 0.0026455 0.000832 0.000169 + LAMBDA 0.0127 0.0317 0.115 0.311 1.40 3.87 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM POWER-INI 1.0E4 ; +EVALUATE sigt1 := 2.850756E-02 ; +EVALUATE sigt2 := 9.146217E-02 ; +WHILE TIME 26.7 <= DO + EVALUATE sigt1 := sigt1 5.5E-4 0.1 26.7 / * - ; + EVALUATE sigt2 := sigt2 3.8E-3 0.1 26.7 / * - ; + MACRO2 := MAC: MACRO1 :: + EDIT 0 + READ INPUT + MIX 6 + TOTAL <<sigt1>> <<sigt2>> + ; + SYSTEM2 := TRIVAA: MACRO2 TRACK :: + EDIT 1 UNIT ; + KINET := KINSOL: KINET MACRO2 TRACK SYSTEM2 MACRO1 SYSTEM1 :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" "sigt=" sigt1 sigt2 ; + IF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 1.008753E+04 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 1.063990E+04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 1.176902E+04 ; + ELSEIF TIME 15.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 1.352433E+04 ; + ELSEIF TIME 20.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 1.621938E+04 ; + ELSEIF TIME 25.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 2.047011E+04 ; + ELSEIF TIME 26.7 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'E-POW' 1 2.245449E+04 ; + ENDIF ; + MACRO1 SYSTEM1 := DELETE: MACRO1 SYSTEM1 ; + MACRO1 := MACRO2 ; + SYSTEM1 := SYSTEM2 ; + MACRO2 SYSTEM2 := DELETE: MACRO2 SYSTEM2 ; +ENDWHILE ; +ECHO "test lmw2D completed" ; diff --git a/Trivac/data/Ktests_proc/mcfd1.c2m b/Trivac/data/Ktests_proc/mcfd1.c2m new file mode 100755 index 0000000..c6d6dc3 --- /dev/null +++ b/Trivac/data/Ktests_proc/mcfd1.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 MCFD 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 5 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977700 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := TRIVAA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.188090 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578696E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.566190 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600596E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.785799 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.643324E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.910452 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.028794E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.720171 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.188520E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225784 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577782E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.594336 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598917E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.795216 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641390E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.905920 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.027960E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.703890 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.186170E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test mcfd1 completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/pbivac1.c2m b/Trivac/data/Ktests_proc/pbivac1.c2m new file mode 100755 index 0000000..c35d70f --- /dev/null +++ b/Trivac/data/Ktests_proc/pbivac1.c2m @@ -0,0 +1,53 @@ +********************************************* +* Procedure : pbivac1.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +LINKED_LIST GEOM ; +INTEGER MaxReg degre quadr ; +STRING method ; +REAL precf ; + :: >>MaxReg<< >>method<< >>degre<< + >>quadr<< >>precf<< ; +GEOM := GEO: :: CAR1D 10 EDIT 0 + X- ZERO X+ ZERO + MIX 2 1 1 1 1 3 3 3 3 2 + MESHX 0.0 40.0 117.5 195.0 272.5 + 350.0 427.5 505.0 582.5 660.0 700.0 ; +MACRO := MAC: :: + EDIT 0 NGRO 2 NMIX 3 NIFI 1 READ INPUT + MIX 1 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 + MIX 2 + DIFF 1.310E+00 8.695E-01 + TOTAL 1.018E-02 2.117E-04 + SCAT 1 1 0.0 2 2 0.0 1.018E-02 + OVERV 1.000E-07 5.000E-06 + CHI 0.000E+00 0.000E+00 + MIX 3 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 ; +IF method "PRIM" = THEN + TRACK := BIVACT: GEOM :: EDIT 0 + MAXR <<MaxReg>> PRIM <<degre>> <<quadr>> ; +ELSEIF method "DUAL" = THEN + TRACK := BIVACT: GEOM :: EDIT 0 + MAXR <<MaxReg>> DUAL <<degre>> <<quadr>> ; +ENDIF ; +GEOM := DELETE: GEOM ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<precf>> ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive1.c2m b/Trivac/data/Ktests_proc/pdrive1.c2m new file mode 100755 index 0000000..43757a2 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive1.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive1.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904582 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904598 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904598 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904586 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904587 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904593 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904587 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive10.c2m b/Trivac/data/Ktests_proc/pdrive10.c2m new file mode 100755 index 0000000..39123f8 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive10.c2m @@ -0,0 +1,64 @@ +********************************************** +* Procedure : pdrive10.c2m * +* Author : D. Sekki (04/2008) * +********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888216 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888180 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888175 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888201 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888203 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888177 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888206 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive11.c2m b/Trivac/data/Ktests_proc/pdrive11.c2m new file mode 100755 index 0000000..b0258f9 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive11.c2m @@ -0,0 +1,64 @@ +********************************************** +* Procedure : pdrive11.c2m * +* Author : D. Sekki (04/2008) * +********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889244 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889208 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889203 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889230 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889232 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889208 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889234 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive12.c2m b/Trivac/data/Ktests_proc/pdrive12.c2m new file mode 100755 index 0000000..d47a0a3 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive12.c2m @@ -0,0 +1,64 @@ +********************************************** +* Procedure : pdrive12.c2m * +* Author : D. Sekki (04/2008) * +********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889977 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889953 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889949 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889967 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889967 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889951 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889971 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive13.c2m b/Trivac/data/Ktests_proc/pdrive13.c2m new file mode 100755 index 0000000..5eb7df5 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive13.c2m @@ -0,0 +1,64 @@ +********************************************** +* Procedure : pdrive12.c2m * +* Author : D. Sekki (04/2008) * +********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888332 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888304 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888303 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888320 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888321 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888303 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888323 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive14.c2m b/Trivac/data/Ktests_proc/pdrive14.c2m new file mode 100755 index 0000000..3e451ac --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive14.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive14.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845584 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845590 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845584 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845588 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845586 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845586 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4845585 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive15.c2m b/Trivac/data/Ktests_proc/pdrive15.c2m new file mode 100755 index 0000000..94532b2 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive15.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive15.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829199 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829211 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829207 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829203 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829202 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829209 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829203 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive16.c2m b/Trivac/data/Ktests_proc/pdrive16.c2m new file mode 100755 index 0000000..c15f5ae --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive16.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive16.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859930 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859936 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859936 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859934 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859930 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859934 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859930 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive17.c2m b/Trivac/data/Ktests_proc/pdrive17.c2m new file mode 100755 index 0000000..0574acb --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive17.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive17.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882090 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882090 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882049 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882074 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882075 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882053 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4882078 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive18.c2m b/Trivac/data/Ktests_proc/pdrive18.c2m new file mode 100755 index 0000000..c28dd8e --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive18.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive18.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876639 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876589 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876586 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876618 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876619 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876589 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876623 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive19.c2m b/Trivac/data/Ktests_proc/pdrive19.c2m new file mode 100755 index 0000000..992e43b --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive19.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive19.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888009 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888015 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888014 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888016 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888013 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888015 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888013 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive2.c2m b/Trivac/data/Ktests_proc/pdrive2.c2m new file mode 100755 index 0000000..76325b8 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive2.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive2.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897438 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897424 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897425 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897434 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897432 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897423 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897433 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive20.c2m b/Trivac/data/Ktests_proc/pdrive20.c2m new file mode 100755 index 0000000..9e53e8f --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive20.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive20.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887055 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887069 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887065 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887059 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887061 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887066 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4887059 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive21.c2m b/Trivac/data/Ktests_proc/pdrive21.c2m new file mode 100755 index 0000000..8f38853 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive21.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive21.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886411 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886402 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886402 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886408 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886408 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886404 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4886409 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive22.c2m b/Trivac/data/Ktests_proc/pdrive22.c2m new file mode 100755 index 0000000..2808361 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive22.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive22.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888202 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888218 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888215 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888207 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888209 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888222 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888206 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive23.c2m b/Trivac/data/Ktests_proc/pdrive23.c2m new file mode 100755 index 0000000..47a55d9 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive23.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive23.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892994 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892987 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892987 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892992 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892991 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892991 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892993 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive24.c2m b/Trivac/data/Ktests_proc/pdrive24.c2m new file mode 100755 index 0000000..287de96 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive24.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive24.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904588 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904595 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904588 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904592 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904591 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904591 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904593 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive25.c2m b/Trivac/data/Ktests_proc/pdrive25.c2m new file mode 100755 index 0000000..363bf35 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive25.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive25.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859924 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859906 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859906 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859921 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859920 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859912 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859923 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive26.c2m b/Trivac/data/Ktests_proc/pdrive26.c2m new file mode 100755 index 0000000..0642bfa --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive26.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive26.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893553 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893517 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893513 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893538 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893540 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893517 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893543 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive27.c2m b/Trivac/data/Ktests_proc/pdrive27.c2m new file mode 100755 index 0000000..305207c --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive27.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive27.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897433 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897431 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897434 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897430 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897431 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897433 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897431 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive28.c2m b/Trivac/data/Ktests_proc/pdrive28.c2m new file mode 100755 index 0000000..cbb867c --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive28.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive28.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888221 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888187 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888183 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888206 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888207 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888189 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888212 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive29.c2m b/Trivac/data/Ktests_proc/pdrive29.c2m new file mode 100755 index 0000000..6809b75 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive29.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive29.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889259 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889212 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889212 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889241 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889243 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889215 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889245 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive3.c2m b/Trivac/data/Ktests_proc/pdrive3.c2m new file mode 100755 index 0000000..0fd2626 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive3.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive3.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829195 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829196 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829195 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829198 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829197 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829203 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4829195 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive30.c2m b/Trivac/data/Ktests_proc/pdrive30.c2m new file mode 100755 index 0000000..59f4b12 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive30.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive30.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889975 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889945 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889942 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889964 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889964 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889945 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4889967 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive31.c2m b/Trivac/data/Ktests_proc/pdrive31.c2m new file mode 100755 index 0000000..b0a4141 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive31.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive31.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888332 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888293 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888293 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888316 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888316 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888293 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4888321 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive4.c2m b/Trivac/data/Ktests_proc/pdrive4.c2m new file mode 100755 index 0000000..690f3c2 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive4.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive4.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876611 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876562 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876555 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876591 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876590 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876561 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4876594 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive5.c2m b/Trivac/data/Ktests_proc/pdrive5.c2m new file mode 100755 index 0000000..5e68502 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive5.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive5.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892997 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892993 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892992 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892995 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892994 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892995 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4892998 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive6.c2m b/Trivac/data/Ktests_proc/pdrive6.c2m new file mode 100755 index 0000000..0703d1f --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive6.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive6.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904578 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904590 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904584 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904582 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904583 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904590 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4904582 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive7.c2m b/Trivac/data/Ktests_proc/pdrive7.c2m new file mode 100755 index 0000000..dad9c52 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive7.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive7.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859928 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859923 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859924 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859927 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859926 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859923 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859928 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive8.c2m b/Trivac/data/Ktests_proc/pdrive8.c2m new file mode 100755 index 0000000..68e5d34 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive8.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive8.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893550 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893501 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893495 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893531 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893532 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893501 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4893536 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pdrive9.c2m b/Trivac/data/Ktests_proc/pdrive9.c2m new file mode 100755 index 0000000..4d37325 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive9.c2m @@ -0,0 +1,64 @@ +********************************************* +* Procedure : pdrive9.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897435 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897433 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897433 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897435 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897435 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897431 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4897436 ; +KINET := DELETE: KINET ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pkinet1.c2m b/Trivac/data/Ktests_proc/pkinet1.c2m new file mode 100755 index 0000000..e4b79ac --- /dev/null +++ b/Trivac/data/Ktests_proc/pkinet1.c2m @@ -0,0 +1,45 @@ +*********************************************** +* Procedure : pkinet1.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PARAMETER KINET2 MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST KINET2 MACRO TRACK SYSTEM FLUX ; ; +MODULE INIKIN: KINSOL: BIVACA: TRIVAA: GREP: DELETE: END: ; +LINKED_LIST SYSTEMP KINET1 ; +INTEGER itr iedit nDel := 0 0 6 ; +REAL delta := 0.01 ; +INTEGER ity maxItr nadi ; +STRING fTemp pTemp ; +REAL precf ; + :: >>fTemp<< >>pTemp<< >>maxItr<< + >>precf<< >>nadi<< ; +GREP: SYSTEM :: GETVAL 'STATE-VECTOR' 4 >>ity<< ; +KINET1 := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 1 + NDEL <<nDel>> + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +IF ity 1 = THEN + SYSTEMP := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +ELSEIF ity 2 = ity 3 = + THEN + SYSTEMP := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +ELSE + ECHO "Unknown type=" ity ; +ENDIF ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE iedit := 1 ; + ENDIF ; + KINET1 := KINSOL: KINET1 MACRO TRACK SYSTEMP :: + EDIT <<iedit>> DELTA <<delta>> + SCHEME FLUX <<fTemp>> PREC <<pTemp>> + EXTE <<precf>> ADI <<nadi>> ; +ENDWHILE ; +KINET2 := KINET1 ; +KINET1 SYSTEMP := DELETE: KINET1 SYSTEMP ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pkinet2.c2m b/Trivac/data/Ktests_proc/pkinet2.c2m new file mode 100755 index 0000000..188a4ba --- /dev/null +++ b/Trivac/data/Ktests_proc/pkinet2.c2m @@ -0,0 +1,45 @@ +*********************************************** +* Procedure : pkinet2.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PARAMETER KINET2 MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST KINET2 MACRO TRACK SYSTEM FLUX ; ; +MODULE INIKIN: KINSOL: BIVACA: TRIVAA: GREP: DELETE: END: ; +LINKED_LIST SYSTEMP KINET1 ; +INTEGER itr iedit nDel := 0 0 6 ; +REAL delta := 0.01 ; +INTEGER ity maxItr nadi ; +STRING fTemp pTemp ; +REAL precf ttf ; + :: >>fTemp<< >>pTemp<< >>maxItr<< + >>ttf<< >>precf<< >>nadi<< ; +GREP: SYSTEM :: GETVAL 'STATE-VECTOR' 4 >>ity<< ; +KINET1 := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 1 + NDEL <<nDel>> + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +IF ity 1 = THEN + SYSTEMP := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +ELSEIF ity 2 = ity 3 = + THEN + SYSTEMP := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +ELSE + ECHO "Unknown type=" ity ; +ENDIF ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE iedit := 1 ; + ENDIF ; + KINET1 := KINSOL: KINET1 MACRO TRACK SYSTEMP :: + EDIT <<iedit>> DELTA <<delta>> + SCHEME FLUX <<fTemp>> <<ttf>> PREC <<pTemp>> + EXTE <<precf>> ADI <<nadi>> ; +ENDWHILE ; +KINET2 := KINET1 ; +KINET1 SYSTEMP := DELETE: KINET1 SYSTEMP ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pkinet3.c2m b/Trivac/data/Ktests_proc/pkinet3.c2m new file mode 100755 index 0000000..69ee2aa --- /dev/null +++ b/Trivac/data/Ktests_proc/pkinet3.c2m @@ -0,0 +1,45 @@ +*********************************************** +* Procedure : pkinet3.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PARAMETER KINET2 MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST KINET2 MACRO TRACK SYSTEM FLUX ; ; +MODULE INIKIN: KINSOL: BIVACA: TRIVAA: GREP: DELETE: END: ; +LINKED_LIST SYSTEMP KINET1 ; +INTEGER itr iedit nDel := 0 0 6 ; +REAL delta := 0.01 ; +INTEGER ity maxItr nadi ; +STRING fTemp pTemp ; +REAL precf ttp ; + :: >>fTemp<< >>pTemp<< >>maxItr<< + >>ttp<< >>precf<< >>nadi<< ; +GREP: SYSTEM :: GETVAL 'STATE-VECTOR' 4 >>ity<< ; +KINET1 := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 1 + NDEL <<nDel>> + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +IF ity 1 = THEN + SYSTEMP := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +ELSEIF ity 2 = ity 3 = + THEN + SYSTEMP := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +ELSE + ECHO "Unknown type=" ity ; +ENDIF ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE iedit := 1 ; + ENDIF ; + KINET1 := KINSOL: KINET1 MACRO TRACK SYSTEMP :: + EDIT <<iedit>> DELTA <<delta>> + SCHEME FLUX <<fTemp>> PREC <<pTemp>> <<ttp>> + EXTE <<precf>> ADI <<nadi>> ; +ENDWHILE ; +KINET2 := KINET1 ; +KINET1 SYSTEMP := DELETE: KINET1 SYSTEMP ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pkinet4.c2m b/Trivac/data/Ktests_proc/pkinet4.c2m new file mode 100755 index 0000000..773794d --- /dev/null +++ b/Trivac/data/Ktests_proc/pkinet4.c2m @@ -0,0 +1,45 @@ +*********************************************** +* Procedure : pkinet4.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PARAMETER KINET2 MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST KINET2 MACRO TRACK SYSTEM FLUX ; ; +MODULE INIKIN: KINSOL: BIVACA: TRIVAA: GREP: DELETE: END: ; +LINKED_LIST SYSTEMP KINET1 ; +INTEGER itr iedit nDel := 0 0 6 ; +REAL delta := 0.01 ; +INTEGER ity maxItr nadi ; +STRING fTemp pTemp ; +REAL precf ttf ttp ; + :: >>fTemp<< >>pTemp<< >>maxItr<< + >>ttf<< >>ttp<< >>precf<< >>nadi<< ; +GREP: SYSTEM :: GETVAL 'STATE-VECTOR' 4 >>ity<< ; +KINET1 := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 1 + NDEL <<nDel>> + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +IF ity 1 = THEN + SYSTEMP := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +ELSEIF ity 2 = ity 3 = + THEN + SYSTEMP := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +ELSE + ECHO "Unknown type=" ity ; +ENDIF ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE iedit := 1 ; + ENDIF ; + KINET1 := KINSOL: KINET1 MACRO TRACK SYSTEMP :: + EDIT <<iedit>> DELTA <<delta>> + SCHEME FLUX <<fTemp>> <<ttf>> PREC <<pTemp>> <<ttp>> + EXTE <<precf>> ADI <<nadi>> ; +ENDWHILE ; +KINET2 := KINET1 ; +KINET1 SYSTEMP := DELETE: KINET1 SYSTEMP ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/prim12_biv.c2m b/Trivac/data/Ktests_proc/prim12_biv.c2m new file mode 100755 index 0000000..9ed15cb --- /dev/null +++ b/Trivac/data/Ktests_proc/prim12_biv.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 PRIM 1 2 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 14 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9979773 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := BIVACA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.177547 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.576650E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.546373 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.597720E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.760290 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.639034E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.849041 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.026313E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.586319 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.180539E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.208907 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.575763E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.572505 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.596084E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.770055 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.637151E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.844549 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.025502E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.570360 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.178262E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test prim12_biv completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/prim12_tri.c2m b/Trivac/data/Ktests_proc/prim12_tri.c2m new file mode 100755 index 0000000..26caf9b --- /dev/null +++ b/Trivac/data/Ktests_proc/prim12_tri.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 PRIM 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 14 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9979773 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := TRIVAA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.177440 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.576575E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.545814 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.597623E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.759351 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.638877E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.845741 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.026191E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.577717 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.180071E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.208721 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.575688E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.571855 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.595987E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.769088 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.637003E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.841198 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.025387E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.561928 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.177817E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test prim12_tri completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/prim13_biv.c2m b/Trivac/data/Ktests_proc/prim13_biv.c2m new file mode 100755 index 0000000..da77802 --- /dev/null +++ b/Trivac/data/Ktests_proc/prim13_biv.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTORS 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTORS 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + TOTAL 8.154E-03 4.0800E-03 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 PRIM 1 3 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 14 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9976777 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := BIVACA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.177896 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.579482E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.544617 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600674E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.756835 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.642089E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.834877 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.026524E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.550276 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.179992E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 5.0E-7 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.210350 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578590E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.571531 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.599043E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.765806 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.640217E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.830335 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.025722E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.534404 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.177749E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test prim13_biv completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/pspn_bivac.c2m b/Trivac/data/Ktests_proc/pspn_bivac.c2m new file mode 100755 index 0000000..1982a10 --- /dev/null +++ b/Trivac/data/Ktests_proc/pspn_bivac.c2m @@ -0,0 +1,165 @@ +*********************************************** +* Procedure : pspn_bivac.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PROCEDURE assertS assertS2 ; +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: END: + DELETE: INIKIN: KINSOL: ; +REAL epsf prec := 1.E-5 1.E-5 ; +REAL delta := 0.01 ; +INTEGER itr maxItr edit := 0 5 0 ; +* +ECHO " ***** test SPN_bivac *****" ; +GEOM := GEO: :: CAR1D 10 + EDIT 1 + X- ZERO X+ ZERO + MIX 2 1 1 1 1 3 3 3 3 2 + MESHX 0.0 40.0 117.5 195.0 272.5 350.0 + 427.5 505.0 582.5 660.0 700.0 + ; +MACRO := MAC: :: + EDIT 1 NGRO 2 NMIX 3 NIFI 1 READ INPUT + MIX 1 + DIFF 1.264E+00 9.328E-01 + NTOT0 2.63713E-01 3.57347E-01 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 2.55559E-1 2 2 3.53247E-1 7.368E-03 + CHI 1.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 8.695E-01 + NTOT0 2.54453E-01 3.83362E-01 + SCAT 1 1 2.44273E-2 2 2 3.8315E-1 1.018E-02 + CHI 0.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 9.328E-01 + NTOT0 2.63713E-01 3.57347E-01 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 2.55559E-1 2 2 3.53247E-1 7.368E-03 + CHI 1.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + ; +ECHO " ** TEST01 **" ; +TRACK := BIVACT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973652 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998629 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST02 **" ; +TRACK := BIVACT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973654 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 99 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +EVALUATE itr edit := 0 0 ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT 99 DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998600 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST03 **" ; +TRACK := BIVACT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973683 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +EVALUATE itr edit := 0 0 ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998046 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST04 **" ; +TRACK := BIVACT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973684 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +EVALUATE itr edit := 0 0 ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998035 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO "test pspn_bivac completed" ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/pspn_trivac.c2m b/Trivac/data/Ktests_proc/pspn_trivac.c2m new file mode 100755 index 0000000..5b69558 --- /dev/null +++ b/Trivac/data/Ktests_proc/pspn_trivac.c2m @@ -0,0 +1,165 @@ +*********************************************** +* Procedure : pspn_trivac.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PROCEDURE assertS assertS2 ; +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: END: + DELETE: INIKIN: KINSOL: ; +REAL epsf prec := 1.E-5 1.E-5 ; +REAL delta := 0.01 ; +INTEGER itr maxItr edit := 0 5 0 ; +* +ECHO " ***** test SPN_trivac *****" ; +GEOM := GEO: :: CAR1D 10 + EDIT 1 + X- ZERO X+ ZERO + MIX 2 1 1 1 1 3 3 3 3 2 + MESHX 0.0 40.0 117.5 195.0 272.5 350.0 + 427.5 505.0 582.5 660.0 700.0 + ; +MACRO := MAC: :: + EDIT 1 NGRO 2 NMIX 3 NIFI 1 READ INPUT + MIX 1 + DIFF 1.264E+00 9.328E-01 + NTOT0 2.63713E-01 3.57347E-01 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 2.55559E-1 2 2 3.53247E-1 7.368E-03 + CHI 1.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 8.695E-01 + NTOT0 2.54453E-01 3.83362E-01 + SCAT 1 1 2.44273E-2 2 2 3.8315E-1 1.018E-02 + CHI 0.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 9.328E-01 + NTOT0 2.63713E-01 3.57347E-01 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 2.55559E-1 2 2 3.53247E-1 7.368E-03 + CHI 1.000E+00 0.000E+00 + OVERV 1.000E-07 5.000E-06 + ; +ECHO " ** TEST01 **" ; +TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973652 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ADI 1 ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998574 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST02 **" ; +TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973654 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NGRP 2 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +EVALUATE itr edit := 0 0 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ADI 1 ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4998592 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST03 **" ; +TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973683 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +EVALUATE itr edit := 0 0 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ADI 1 ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4997817 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO " ** TEST04 **" ; +TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR 1000 DUAL 1 2 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<epsf>> ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9973685 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: + EDIT 1 NGRP 2 NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +FLUX SYSTEM := DELETE: FLUX SYSTEM ; +EVALUATE itr edit := 0 0 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE edit := 1 ; + ENDIF ; + KINET := KINSOL: KINET MACRO TRACK SYSTEM :: + EDIT <<edit>> DELTA <<delta>> + SCHEME FLUX IMPLIC PREC IMPLIC + EXTE <<prec>> ADI 1 ; +ENDWHILE ; +assertS2 KINET :: 'CTRL-FLUX' 1 0.4997701 ; +TRACK SYSTEM KINET := DELETE: TRACK SYSTEM KINET ; +ECHO "test pspn_trivac completed" ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/ptrack1.c2m b/Trivac/data/Ktests_proc/ptrack1.c2m new file mode 100755 index 0000000..cb925a6 --- /dev/null +++ b/Trivac/data/Ktests_proc/ptrack1.c2m @@ -0,0 +1,56 @@ +********************************************* +* Procedure : ptrack1.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +LINKED_LIST GEOM ; +INTEGER MaxReg degre quadr ; +STRING method ; +REAL precf ; + :: >>MaxReg<< >>method<< >>degre<< + >>quadr<< >>precf<< ; +GEOM := GEO: :: CAR1D 10 EDIT 0 + X- ZERO X+ ZERO + MIX 2 1 1 1 1 3 3 3 3 2 + MESHX 0.0 40.0 117.5 195.0 272.5 + 350.0 427.5 505.0 582.5 660.0 700.0 ; +MACRO := MAC: :: + EDIT 0 NGRO 2 NMIX 3 NIFI 1 READ INPUT + MIX 1 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 + MIX 2 + DIFF 1.310E+00 8.695E-01 + TOTAL 1.018E-02 2.117E-04 + SCAT 1 1 0.0 2 2 0.0 1.018E-02 + OVERV 1.000E-07 5.000E-06 + CHI 0.000E+00 0.000E+00 + MIX 3 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 ; +IF method "MCFD" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> MCFD <<degre>> ; +ELSEIF method "PRIM" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> PRIM <<degre>> ; +ELSEIF method "DUAL" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> DUAL <<degre>> <<quadr>> ; +ENDIF ; +GEOM := DELETE: GEOM ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<precf>> ; +END: ; +QUIT . diff --git a/Trivac/data/Ktests_proc/spn12_biv.c2m b/Trivac/data/Ktests_proc/spn12_biv.c2m new file mode 100755 index 0000000..f71d22a --- /dev/null +++ b/Trivac/data/Ktests_proc/spn12_biv.c2m @@ -0,0 +1,144 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: INIKIN: KINSOL: DELETE: + ABORT: GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 0.26371308 0.357347055 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.2555591 2 2 0.353247055 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 0.25445293 0.383362085 + SCAT 1 1 0.244272926 2 2 0.383150385 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + DIFF 1.264E+00 0.9328E+00 + TOTAL 0.26371308 0.357347055 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.2555591 2 2 0.353247055 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + SCAT 1 1 0.2555591 2 2 0.353267055 7.368E-03 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 SPN 5 DUAL 1 2 ; +SYSTEM := BIVACA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 10 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977710 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := BIVACA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.188082 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578685E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.565907 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600578E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.785577 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.643291E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.910073 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.028769E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.718225 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.188425E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225744 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577772E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.594166 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598901E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.795070 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641363E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.905173 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.027936E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.701928 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.186075E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test spn12_biv completed" ; +END: ; diff --git a/Trivac/data/Ktests_proc/spn12_tri.c2m b/Trivac/data/Ktests_proc/spn12_tri.c2m new file mode 100755 index 0000000..7a309f1 --- /dev/null +++ b/Trivac/data/Ktests_proc/spn12_tri.c2m @@ -0,0 +1,141 @@ +*---- +* TEST CASE ene6103 +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.12 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO MACROP TRACK SYSTEM SYSTEMP FLUX EDIT KINET ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: INIKIN: KINSOL: DELETE: + GREP: END: ; +REAL FNORM ; +REAL TIME := 0.0 ; +PROCEDURE assertS assertS2 ; +* +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 3 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 3 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.26371308 0.357347055 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.2555591 2 2 0.353247055 7.368E-03 + OVERV 1.000E-07 5.000E-06 + MIX 2 + TOTAL 0.25445293 0.383362085 + SCAT 1 1 0.244272926 2 2 0.383150385 1.0180E-02 + OVERV 1.000E-07 5.000E-06 + MIX 3 + TOTAL 0.26371308 0.357347055 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.2555591 2 2 0.353247055 7.368E-03 + OVERV 1.000E-07 5.000E-06 + ; +*---- +* Steady-state calculation +*---- +MACROP := MAC: MACRO :: + EDIT 2 + READ INPUT + MIX 1 + SCAT 1 1 0.2555591 2 2 0.353267055 7.368E-03 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 18 SPN 5 DUAL 1 2 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 EXTE 5.0E-7 ; +GREP: FLUX :: STEP UP FLUX GETVAL 2 5 >>FNORM<< ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9977710 ; +EVALUATE FNORM := 1.0 FNORM / ; +ECHO "Flux normalization factor=" FNORM ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: EDIT 2 INTG IN ; +SYSTEMP := TRIVAA: MACROP TRACK :: EDIT 5 UNIT ; +*---- +* Implicit space-time kinetics +*---- +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX IMPLIC PREC IMPLIC EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.188039 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.578685E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.566022 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.600580E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.785571 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.643299E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.910040 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.028771E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.718654 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.188432E-04 ; + ENDIF ; +ENDWHILE ; +KINET := DELETE: KINET ; +*---- +* Crank-Nicholson space-time kinetics +*---- +EVALUATE TIME := 0.0 ; +KINET := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 6 + NDEL 6 + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 + NORM <<FNORM>> ; +WHILE TIME 10.0 <= DO + KINET := KINSOL: KINET MACROP TRACK SYSTEMP :: + EDIT 5 DELTA 0.1 + SCHEME FLUX CRANK PREC CRANK EXTE 1.0E-6 ; + GREP: KINET :: GETVAL 'TOTAL-TIME' 1 >>TIME<< ; + ECHO "TIME=" TIME "S" ; + IF TIME 0.1 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.225741 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.577772E-05 ; + ELSEIF TIME 0.5 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.594181 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.598901E-05 ; + ELSEIF TIME 1.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 1.795036 ; + assertS2 KINET :: 'CTRL-PREC' 1 9.641365E-05 ; + ELSEIF TIME 5.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 2.905191 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.027933E-04 ; + ELSEIF TIME 10.0 - ABS 1.0E-3 < THEN + assertS2 KINET :: 'CTRL-FLUX' 1 4.702049 ; + assertS2 KINET :: 'CTRL-PREC' 1 1.186075E-04 ; + ENDIF ; +ENDWHILE ; +ECHO "test spn12_tri completed" ; +END: ; diff --git a/Trivac/data/NodalTests.access b/Trivac/data/NodalTests.access new file mode 100755 index 0000000..d5863aa --- /dev/null +++ b/Trivac/data/NodalTests.access @@ -0,0 +1,5 @@ +#!/bin/sh +echo access NodalTests.access +ln -s "$1"/data/NodalTests_proc/_iaea2d_ref.txt . +ln -s "$1"/data/NodalTests_proc/_iaea3d_ref.txt . +ls -l diff --git a/Trivac/data/NodalTests.x2m b/Trivac/data/NodalTests.x2m new file mode 100644 index 0000000..0450045 --- /dev/null +++ b/Trivac/data/NodalTests.x2m @@ -0,0 +1,12 @@ +* Regression tests for Nodal Expansion and Analytic Nodal methods. +* A. Hebert, 2023 +* +PROCEDURE prob5p3_nem hansen_anm iaea2d_anm iaea2d_anm_u hansen3d_anm iaea3d_anm ; +* +prob5p3_nem ; +hansen_anm ; +iaea2d_anm ; +iaea2d_anm_u ; +hansen3d_anm ; +iaea3d_anm ; +QUIT "LIST" . diff --git a/Trivac/data/NodalTests_proc/_iaea2d_ref.txt b/Trivac/data/NodalTests_proc/_iaea2d_ref.txt new file mode 100755 index 0000000..fd3c43d --- /dev/null +++ b/Trivac/data/NodalTests_proc/_iaea2d_ref.txt @@ -0,0 +1,209 @@ +-> 1 12 3 3 <- +SIGNATURE + 4 4 4 +L_MACROLIB +-> 1 12 3 3 <- +LINK.FLUX + 4 4 4 +FLUX +-> 1 12 3 18 <- +TITLE + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 +IAEA-2D BENCHMARK +-> 1 12 2 1 <- +K-EFFECTIVE + 1.02958465E+00 +-> 1 12 2 29 <- +VOLUME + 9.99999924E+01 4.00000000E+02 4.00000031E+02 3.99999969E+02 3.99999969E+02 + 3.99999969E+02 4.00000000E+02 3.99999939E+02 4.00000000E+02 8.00000000E+02 + 8.00000000E+02 8.00000000E+02 8.00000000E+02 7.99999878E+02 8.00000000E+02 + 4.00000000E+02 7.99999939E+02 7.99999939E+02 7.99999939E+02 8.00000000E+02 + 8.00000000E+02 4.00000000E+02 7.99999939E+02 7.99999939E+02 7.99999939E+02 + 4.00000000E+02 7.99999939E+02 7.99999939E+02 4.00000000E+02 +-> 1 12 10 2 <- +GROUP +-> 2 0 0 -1 <- 00000001 +-> 3 12 2 29 <- +FLUX-INTG + 1.83240682E-01 9.45745707E-01 1.03592014E+00 8.74001741E-01 6.00335240E-01 + 6.77002370E-01 6.65336609E-01 4.59925085E-01 1.02355075E+00 2.10922694E+00 + 1.87639201E+00 1.54641283E+00 1.47992098E+00 1.34998763E+00 8.98342788E-01 + 1.04731488E+00 1.91781247E+00 1.68190646E+00 1.52349412E+00 1.31551135E+00 + 7.53766358E-01 8.51207376E-01 1.39626360E+00 1.28819692E+00 1.02132046E+00 + 4.60759878E-01 9.38432217E-01 6.52677953E-01 3.16714704E-01 +-> 3 12 2 29 <- +NTOT0 + 3.01200002E-02 3.01199984E-02 3.01200021E-02 3.01199984E-02 3.01200002E-02 + 3.01199965E-02 3.01200002E-02 3.01200002E-02 3.01200002E-02 3.01200002E-02 + 3.01199984E-02 3.01200040E-02 3.01200021E-02 3.01199984E-02 3.01200002E-02 + 3.01199965E-02 3.01200021E-02 3.01200021E-02 3.01200021E-02 3.01199928E-02 + 3.01200002E-02 3.01199984E-02 3.01200040E-02 3.01199928E-02 3.01200021E-02 + 3.01199984E-02 3.01200040E-02 3.01199947E-02 3.01199965E-02 +-> 3 12 2 29 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 29 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 29 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 29 <- +DIFF + 1.49999988E+00 1.49999988E+00 1.50000000E+00 1.49999988E+00 1.50000000E+00 + 1.50000000E+00 1.49999988E+00 1.50000000E+00 1.50000000E+00 1.49999976E+00 + 1.49999988E+00 1.49999976E+00 1.50000000E+00 1.50000000E+00 1.50000000E+00 + 1.49999976E+00 1.50000012E+00 1.49999988E+00 1.50000000E+00 1.49999976E+00 + 1.50000000E+00 1.49999988E+00 1.50000000E+00 1.49999964E+00 1.50000000E+00 + 1.50000000E+00 1.50000000E+00 1.49999976E+00 1.50000012E+00 +-> 3 12 2 29 <- +CHI + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 +-> 3 12 2 29 <- +SCAT00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 1 29 <- +IPOS00 + 1 2 3 4 5 6 7 8 + 9 10 11 12 13 14 15 16 + 17 18 19 20 21 22 23 24 + 25 26 27 28 29 +-> 3 12 1 29 <- +NJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 +-> 3 12 1 29 <- +IJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 +-> -3 0 0 0 <- +-> 2 0 0 -1 <- 00000002 +-> 3 12 2 29 <- +FLUX-INTG + 3.11688073E-02 2.19027013E-01 2.43153676E-01 2.02572703E-01 1.02115162E-01 + 1.56630158E-01 1.56563178E-01 1.26530647E-01 2.40010858E-01 4.95082736E-01 + 4.40015793E-01 3.58127177E-01 3.47063750E-01 3.18456858E-01 2.46612728E-01 + 2.45828107E-01 4.50152993E-01 3.94780010E-01 3.58506620E-01 3.26656938E-01 + 2.31947765E-01 1.99622989E-01 3.23725551E-01 3.03505510E-01 2.83421040E-01 + 7.87635297E-02 2.29491115E-01 1.99960411E-01 9.79118422E-02 +-> 3 12 2 29 <- +NTOT0 + 1.30032003E-01 8.50320011E-02 8.50319862E-02 8.50319937E-02 1.30032003E-01 + 8.50320086E-02 8.50320011E-02 8.00319985E-02 8.50320011E-02 8.50320011E-02 + 8.50320011E-02 8.50320086E-02 8.50320160E-02 8.50320086E-02 8.00319910E-02 + 8.50320011E-02 8.50320011E-02 8.50320011E-02 8.50319937E-02 8.00319985E-02 + 8.00320059E-02 8.50319937E-02 8.50320011E-02 8.50320011E-02 8.00319836E-02 + 1.30031988E-01 8.00319985E-02 8.00319985E-02 8.00319836E-02 +-> 3 12 2 29 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 29 <- +NUSIGF + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.35000005E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.34999990E-01 1.35000005E-01 + 1.34999990E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000035E-01 + 1.34999990E-01 1.34999990E-01 1.35000005E-01 1.35000005E-01 1.34999990E-01 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.35000005E-01 + 1.34999990E-01 1.35000020E-01 1.34999990E-01 1.34999990E-01 +-> 3 12 2 29 <- +H-FACTOR + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.35000005E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.34999990E-01 1.35000005E-01 + 1.34999990E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000035E-01 + 1.34999990E-01 1.34999990E-01 1.35000005E-01 1.35000005E-01 1.34999990E-01 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.35000005E-01 + 1.34999990E-01 1.35000020E-01 1.34999990E-01 1.34999990E-01 +-> 3 12 2 29 <- +DIFF + 4.00000036E-01 4.00000036E-01 3.99999976E-01 4.00000006E-01 4.00000036E-01 + 4.00000006E-01 4.00000006E-01 4.00000006E-01 4.00000006E-01 4.00000006E-01 + 4.00000006E-01 4.00000036E-01 4.00000006E-01 3.99999976E-01 4.00000006E-01 + 3.99999976E-01 3.99999976E-01 4.00000006E-01 4.00000006E-01 3.99999976E-01 + 4.00000036E-01 3.99999976E-01 4.00000006E-01 4.00000036E-01 3.99999976E-01 + 3.99999976E-01 3.99999976E-01 3.99999946E-01 4.00000006E-01 +-> 3 12 2 29 <- +CHI + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 58 <- +SCAT00 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999958E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999958E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999958E-02 0.00000000E+00 1.99999996E-02 +-> 3 12 1 29 <- +IPOS00 + 1 3 5 7 9 11 13 15 + 17 19 21 23 25 27 29 31 + 33 35 37 39 41 43 45 47 + 49 51 53 55 57 +-> 3 12 1 29 <- +NJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 +-> 3 12 1 29 <- +IJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 +-> -3 0 0 0 <- +-> 1 12 1 40 <- +STATE-VECTOR + 2 29 1 1 0 0 0 0 + 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> -1 0 0 0 <- diff --git a/Trivac/data/NodalTests_proc/_iaea3d_ref.txt b/Trivac/data/NodalTests_proc/_iaea3d_ref.txt new file mode 100755 index 0000000..b018e6b --- /dev/null +++ b/Trivac/data/NodalTests_proc/_iaea3d_ref.txt @@ -0,0 +1,858 @@ +-> 1 12 3 3 <- +SIGNATURE + 4 4 4 +L_MACROLIB +-> 1 12 3 3 <- +LINK.FLUX + 4 4 4 +FLUX +-> 1 12 3 18 <- +TITLE + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 +TEST IAEA 3D +-> 1 12 2 1 <- +K-EFFECTIVE + 1.02906919E+00 +-> 1 12 2 180 <- +VOLUME + 2.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 8.00000000E+03 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 1.60000000E+04 0.00000000E+00 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 0.00000000E+00 8.00000000E+03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.60000000E+04 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 + 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 + 2.08000000E+05 2.08000000E+05 1.04000000E+05 2.08000000E+05 2.08000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 1.04000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 + 1.04000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 0.00000000E+00 + 1.04000000E+05 2.08000000E+05 2.08000000E+05 0.00000000E+00 1.04000000E+05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 8.00000000E+03 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 + 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 + 6.40000000E+04 6.40000000E+04 3.20000000E+04 6.40000000E+04 6.40000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 3.20000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 + 3.20000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 0.00000000E+00 + 3.20000000E+04 6.40000000E+04 6.40000000E+04 0.00000000E+00 3.20000000E+04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 8.00000000E+03 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 1.60000000E+04 0.00000000E+00 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 0.00000000E+00 8.00000000E+03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 1 12 10 2 <- +GROUP +-> 2 0 0 -1 <- 00000001 +-> 3 12 2 180 <- +FLUX-INTG + 5.71020704E-04 2.72326218E-03 2.93249497E-03 2.51123426E-03 1.86738931E-03 + 1.94488931E-03 1.85996760E-03 1.24997983E-03 2.80833308E-04 2.90950760E-03 + 5.96786756E-03 5.32760425E-03 4.44434350E-03 4.18626470E-03 3.75615223E-03 + 2.43655243E-03 5.35517174E-04 2.96828174E-03 5.42195560E-03 4.75043152E-03 + 4.26885067E-03 3.58506246E-03 2.02271785E-03 4.04772349E-04 2.41337856E-03 + 3.99678247E-03 3.60784447E-03 2.76526250E-03 9.34833137E-04 1.40689168E-04 + 1.41825795E-03 2.61504925E-03 1.75640569E-03 4.05061321E-04 0.00000000E+00 + 8.58835469E-04 6.26730325E-04 1.12665890E-04 0.00000000E+00 6.34668904E-05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.61184549E-01 8.31909120E-01 9.12006319E-01 7.71921039E-01 5.33859253E-01 + 6.06543183E-01 5.98402560E-01 4.14475411E-01 6.87620565E-02 8.99805903E-01 + 1.85451519E+00 1.65671146E+00 1.37530315E+00 1.32540739E+00 1.21401703E+00 + 8.09495032E-01 1.31358787E-01 9.19719100E-01 1.69347954E+00 1.49656081E+00 + 1.36446762E+00 1.18286407E+00 6.79044425E-01 9.94384885E-02 7.54287124E-01 + 1.24451578E+00 1.15478289E+00 9.18427527E-01 2.42360875E-01 2.89605167E-02 + 4.12150711E-01 8.42772484E-01 5.87215841E-01 9.84976515E-02 0.00000000E+00 + 2.84860492E-01 1.62407458E-01 2.32569259E-02 0.00000000E+00 1.30339395E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.72896050E-02 8.80552977E-02 9.60530639E-02 8.51884261E-02 6.49017021E-02 + 8.05687904E-02 8.26326683E-02 5.82519844E-02 9.72322095E-03 9.11231712E-02 + 1.77328706E-01 1.75499722E-01 1.66178748E-01 1.75077483E-01 1.67271823E-01 + 1.13599651E-01 1.85530931E-02 7.07085729E-02 1.68984219E-01 1.80128470E-01 + 1.79661483E-01 1.62433088E-01 9.49545354E-02 1.40064880E-02 8.26165676E-02 + 1.52876750E-01 1.53015181E-01 1.25920117E-01 3.37054878E-02 4.06858372E-03 + 5.29819988E-02 1.13454811E-01 8.06682333E-02 1.36466604E-02 0.00000000E+00 + 3.89016978E-02 2.23599784E-02 3.22396727E-03 0.00000000E+00 1.80056377E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.37942993E-04 1.17099681E-03 1.28293515E-03 1.16491644E-03 9.61378333E-04 + 1.20731280E-03 1.25774799E-03 8.72946403E-04 1.98413647E-04 1.19683624E-03 + 2.31784745E-03 2.37934897E-03 2.38492154E-03 2.61574681E-03 2.53501395E-03 + 1.69811398E-03 3.77717341E-04 9.16812220E-04 2.28276197E-03 2.59139598E-03 + 2.67661666E-03 2.40990217E-03 1.40246027E-03 2.84357142E-04 1.14574714E-03 + 2.21091788E-03 2.26687151E-03 1.85092015E-03 6.42712286E-04 9.83072241E-05 + 7.97913293E-04 1.65047252E-03 1.17476564E-03 2.76240404E-04 0.00000000E+00 + 5.59959735E-04 4.20291268E-04 7.67235033E-05 0.00000000E+00 4.28119383E-05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NTOT0 + 3.99999991E-02 3.99999991E-02 3.99999954E-02 3.99999991E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 + 3.99999954E-02 3.99999954E-02 3.99999954E-02 3.99999954E-02 3.99999991E-02 + 3.99999991E-02 4.00000066E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 4.00000028E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 3.99999954E-02 + 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 3.99999991E-02 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.00000012E-02 2.99999993E-02 3.00000049E-02 3.00000031E-02 2.99999993E-02 + 2.99999937E-02 3.00000012E-02 2.99999993E-02 3.99999991E-02 2.99999956E-02 + 3.00000012E-02 2.99999956E-02 3.00000031E-02 3.00000031E-02 3.00000012E-02 + 3.00000012E-02 3.99999917E-02 2.99999975E-02 3.00000012E-02 3.00000031E-02 + 3.00000031E-02 2.99999975E-02 2.99999975E-02 3.99999954E-02 2.99999993E-02 + 3.00000012E-02 2.99999993E-02 2.99999993E-02 3.99999954E-02 4.00000066E-02 + 3.00000031E-02 2.99999975E-02 3.00000031E-02 3.99999954E-02 0.00000000E+00 + 2.99999937E-02 4.00000028E-02 3.99999991E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.99999975E-02 2.99999975E-02 3.00000031E-02 2.99999937E-02 2.99999975E-02 + 2.99999975E-02 2.99999993E-02 2.99999993E-02 4.00000028E-02 2.99999937E-02 + 3.00000031E-02 2.99999956E-02 2.99999956E-02 3.00000031E-02 2.99999975E-02 + 3.00000068E-02 3.99999917E-02 3.00000031E-02 2.99999993E-02 3.00000012E-02 + 3.00000049E-02 2.99999975E-02 3.00000012E-02 3.99999991E-02 2.99999975E-02 + 3.00000012E-02 3.00000031E-02 3.00000012E-02 4.00000066E-02 3.99999991E-02 + 2.99999993E-02 3.00000012E-02 2.99999975E-02 3.99999917E-02 0.00000000E+00 + 2.99999993E-02 3.99999991E-02 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999991E-02 3.99999991E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 + 3.99999954E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 4.00000066E-02 3.99999954E-02 4.00000066E-02 3.99999991E-02 3.99999991E-02 + 4.00000103E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 4.00000028E-02 + 3.99999954E-02 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999954E-02 + 3.99999954E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 3.99999917E-02 4.00000028E-02 0.00000000E+00 + 3.99999991E-02 4.00000028E-02 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +DIFFX + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.50000000E+00 1.50000012E+00 1.50000012E+00 1.50000012E+00 1.49999988E+00 + 1.49999988E+00 1.50000000E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.49999988E+00 1.50000000E+00 1.50000012E+00 1.50000024E+00 1.50000012E+00 + 1.50000024E+00 2.00000000E+00 1.50000024E+00 1.50000012E+00 1.50000024E+00 + 1.50000036E+00 1.50000012E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.50000012E+00 1.50000000E+00 1.50000012E+00 2.00000000E+00 2.00000000E+00 + 1.50000012E+00 1.50000000E+00 1.50000024E+00 2.00000000E+00 0.00000000E+00 + 1.49999976E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.50000000E+00 1.49999988E+00 1.50000000E+00 1.49999988E+00 1.50000000E+00 + 1.50000012E+00 1.49999988E+00 1.49999988E+00 2.00000000E+00 1.49999988E+00 + 1.50000012E+00 1.50000000E+00 1.50000000E+00 1.50000000E+00 1.49999988E+00 + 1.50000036E+00 2.00000000E+00 1.50000012E+00 1.50000000E+00 1.49999988E+00 + 1.50000024E+00 1.49999988E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.50000000E+00 1.50000012E+00 1.50000000E+00 2.00000000E+00 2.00000000E+00 + 1.50000000E+00 1.50000012E+00 1.50000000E+00 2.00000000E+00 0.00000000E+00 + 1.50000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +CHI + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 +-> 3 12 2 180 <- +SCAT00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 1 180 <- +IPOS00 + 1 2 3 4 5 6 7 8 + 9 10 11 12 13 14 15 16 + 17 18 19 20 21 22 23 24 + 25 26 27 28 29 30 31 32 + 33 34 35 36 37 38 39 40 + 41 42 43 44 45 46 47 48 + 49 50 51 52 53 54 55 56 + 57 58 59 60 61 62 63 64 + 65 66 67 68 69 70 71 72 + 73 74 75 76 77 78 79 80 + 81 82 83 84 85 86 87 88 + 89 90 91 92 93 94 95 96 + 97 98 99 100 101 102 103 104 + 105 106 107 108 109 110 111 112 + 113 114 115 116 117 118 119 120 + 121 122 123 124 125 126 127 128 + 129 130 131 132 133 134 135 136 + 137 138 139 140 141 142 143 144 + 145 146 147 148 149 150 151 152 + 153 154 155 156 157 158 159 160 + 161 162 163 164 165 166 167 168 + 169 170 171 172 173 174 175 176 + 177 178 179 180 +-> 3 12 1 180 <- +NJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 +-> 3 12 1 180 <- +IJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 +-> -3 0 0 0 <- +-> 2 0 0 -1 <- 00000002 +-> 3 12 2 180 <- +FLUX-INTG + 1.35874702E-03 6.41399063E-03 6.86526252E-03 5.91126457E-03 4.44348995E-03 + 4.58322605E-03 4.34298301E-03 2.98009859E-03 1.06041634E-03 6.82287524E-03 + 1.39617948E-02 1.24910967E-02 1.04676727E-02 9.81318112E-03 8.75626411E-03 + 5.80114964E-03 2.01755320E-03 6.91447593E-03 1.26839653E-02 1.11199021E-02 + 9.97017696E-03 8.35003424E-03 4.93765809E-03 1.55153335E-03 5.65661862E-03 + 9.40090511E-03 8.42958502E-03 6.58577122E-03 3.41956643E-03 6.64999417E-04 + 3.36389383E-03 6.13787398E-03 4.28760890E-03 1.58377620E-03 0.00000000E+00 + 2.10322277E-03 2.30411394E-03 5.30580815E-04 0.00000000E+00 3.02664499E-04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.74830461E-02 1.93086118E-01 2.14527681E-01 1.79296479E-01 9.10245553E-02 + 1.40643910E-01 1.41111419E-01 1.14249647E-01 1.62614971E-01 2.11446717E-01 + 4.36206460E-01 3.89331281E-01 3.19198072E-01 3.11495960E-01 2.86984950E-01 + 2.22656488E-01 3.09305578E-01 2.16203198E-01 3.98325324E-01 3.52027178E-01 + 3.21768463E-01 2.94322789E-01 2.09315807E-01 2.38247186E-01 1.77270457E-01 + 2.89164245E-01 2.72649407E-01 2.55369872E-01 5.06152570E-01 1.14257723E-01 + 7.06193373E-02 2.06538767E-01 1.80229515E-01 2.45508507E-01 0.00000000E+00 + 8.82223845E-02 3.38780731E-01 9.08144116E-02 0.00000000E+00 5.19515015E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.95848213E-03 2.05709040E-02 2.27558576E-02 1.99096818E-02 1.11088175E-02 + 1.88334510E-02 1.96448993E-02 1.61864422E-02 2.30635628E-02 2.15373114E-02 + 4.14299369E-02 4.14887145E-02 3.88436951E-02 4.14729863E-02 3.98629978E-02 + 3.14984135E-02 4.38204817E-02 1.21766739E-02 3.94755937E-02 4.26963978E-02 + 4.27081585E-02 4.07387838E-02 2.94797067E-02 3.36636193E-02 1.95343252E-02 + 3.57695520E-02 3.64141054E-02 3.53127308E-02 7.06387088E-02 1.60778891E-02 + 9.11563355E-03 2.80183703E-02 2.49532256E-02 3.41383554E-02 0.00000000E+00 + 1.21446736E-02 4.68237959E-02 1.26159396E-02 0.00000000E+00 7.19367526E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.25206852E-04 2.55112164E-03 2.98401178E-03 2.53863120E-03 9.10874456E-04 + 2.63816561E-03 2.92888843E-03 2.07866915E-03 7.49194121E-04 2.72608176E-03 + 5.06269466E-03 5.42316586E-03 5.20692999E-03 6.03748439E-03 5.89645840E-03 + 4.03820630E-03 1.42308022E-03 8.98367725E-04 4.98806266E-03 6.03765948E-03 + 6.23246795E-03 5.60197374E-03 3.41954664E-03 1.08994939E-03 2.61369138E-03 + 4.84346831E-03 5.21748420E-03 4.40046703E-03 2.35112896E-03 4.64594486E-04 + 7.53429718E-04 3.55573255E-03 2.86026974E-03 1.08063826E-03 0.00000000E+00 + 1.34101941E-03 1.54464040E-03 3.61362909E-04 0.00000000E+00 2.04255586E-04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NTOT0 + 9.99999978E-03 9.99999978E-03 9.99999885E-03 9.99999978E-03 9.99999978E-03 + 9.99999978E-03 9.99999978E-03 9.99999791E-03 9.99999885E-03 9.99999885E-03 + 1.00000007E-02 1.00000007E-02 9.99999978E-03 1.00000007E-02 9.99999885E-03 + 9.99999978E-03 9.99999978E-03 1.00000016E-02 9.99999978E-03 9.99999885E-03 + 9.99999978E-03 9.99999978E-03 9.99999978E-03 9.99999978E-03 9.99999978E-03 + 1.00000007E-02 1.00000007E-02 1.00000007E-02 9.99999978E-03 9.99999885E-03 + 9.99999978E-03 9.99999885E-03 9.99999978E-03 9.99999885E-03 0.00000000E+00 + 1.00000007E-02 1.00000007E-02 1.00000007E-02 0.00000000E+00 1.00000007E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.29999980E-01 8.50000009E-02 8.50000009E-02 8.49999934E-02 1.29999995E-01 + 8.50000009E-02 8.50000009E-02 7.99999982E-02 1.00000007E-02 8.50000158E-02 + 8.49999934E-02 8.50000083E-02 8.50000083E-02 8.50000009E-02 8.50000158E-02 + 7.99999833E-02 9.99999791E-03 8.50000009E-02 8.49999934E-02 8.49999934E-02 + 8.49999860E-02 8.00000057E-02 8.00000057E-02 9.99999885E-03 8.50000009E-02 + 8.50000083E-02 8.49999860E-02 7.99999982E-02 9.99999978E-03 9.99999791E-03 + 1.30000010E-01 7.99999982E-02 7.99999982E-02 9.99999698E-03 0.00000000E+00 + 8.00000057E-02 9.99999978E-03 9.99999978E-03 0.00000000E+00 9.99999978E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.30000010E-01 8.49999934E-02 8.49999934E-02 8.50000009E-02 1.29999995E-01 + 8.50000009E-02 8.50000083E-02 7.99999982E-02 9.99999978E-03 8.50000009E-02 + 8.50000083E-02 8.50000083E-02 8.50000009E-02 8.49999860E-02 8.50000083E-02 + 7.99999982E-02 9.99999978E-03 1.29999995E-01 8.49999934E-02 8.49999785E-02 + 8.50000083E-02 8.00000057E-02 7.99999982E-02 1.00000007E-02 8.50000158E-02 + 8.49999934E-02 8.50000009E-02 7.99999908E-02 9.99999978E-03 9.99999885E-03 + 1.29999995E-01 7.99999908E-02 8.00000057E-02 1.00000007E-02 0.00000000E+00 + 7.99999908E-02 9.99999978E-03 9.99999885E-03 0.00000000E+00 9.99999885E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 5.49999997E-02 9.99999978E-03 9.99999978E-03 9.99999978E-03 5.49999923E-02 + 1.00000007E-02 1.00000007E-02 9.99999885E-03 1.00000007E-02 9.99999978E-03 + 9.99999978E-03 9.99999978E-03 9.99999885E-03 9.99999978E-03 1.00000007E-02 + 9.99999978E-03 9.99999978E-03 5.49999960E-02 9.99999885E-03 9.99999978E-03 + 1.00000007E-02 9.99999978E-03 1.00000007E-02 1.00000007E-02 9.99999978E-03 + 9.99999978E-03 1.00000007E-02 9.99999978E-03 9.99999885E-03 9.99999978E-03 + 5.49999997E-02 1.00000007E-02 9.99999978E-03 9.99999978E-03 0.00000000E+00 + 9.99999978E-03 9.99999978E-03 1.00000007E-02 0.00000000E+00 1.00000016E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.35000005E-01 + 1.35000020E-01 1.35000020E-01 1.35000020E-01 0.00000000E+00 1.35000005E-01 + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.34999990E-01 + 1.34999990E-01 0.00000000E+00 1.35000005E-01 1.34999990E-01 1.34999990E-01 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 1.35000020E-01 + 1.35000035E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.34999990E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.34999976E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 + 1.35000005E-01 0.00000000E+00 1.34999990E-01 1.34999990E-01 1.34999976E-01 + 1.35000005E-01 1.34999990E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.34999990E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.35000005E-01 + 1.35000020E-01 1.35000020E-01 1.35000020E-01 0.00000000E+00 1.35000005E-01 + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.34999990E-01 + 1.34999990E-01 0.00000000E+00 1.35000005E-01 1.34999990E-01 1.34999990E-01 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 1.35000020E-01 + 1.35000035E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.34999990E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.34999976E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 + 1.35000005E-01 0.00000000E+00 1.34999990E-01 1.34999990E-01 1.34999976E-01 + 1.35000005E-01 1.34999990E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.34999990E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +DIFFX + 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 3.00000012E-01 + 3.00000042E-01 3.00000012E-01 3.00000042E-01 2.99999982E-01 2.99999982E-01 + 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999952E-01 2.99999982E-01 + 3.00000012E-01 2.99999982E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 + 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 0.00000000E+00 + 3.00000012E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000042E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999976E-01 4.00000006E-01 4.00000036E-01 3.99999946E-01 4.00000006E-01 + 4.00000006E-01 4.00000006E-01 4.00000006E-01 3.00000012E-01 4.00000036E-01 + 3.99999976E-01 4.00000036E-01 3.99999946E-01 4.00000006E-01 3.99999976E-01 + 3.99999946E-01 2.99999982E-01 4.00000036E-01 3.99999976E-01 3.99999976E-01 + 4.00000036E-01 4.00000036E-01 4.00000036E-01 3.00000012E-01 4.00000036E-01 + 4.00000006E-01 3.99999946E-01 3.99999976E-01 2.99999952E-01 2.99999982E-01 + 4.00000036E-01 3.99999976E-01 4.00000066E-01 2.99999982E-01 0.00000000E+00 + 4.00000036E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000012E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 4.00000036E-01 3.99999946E-01 3.99999976E-01 4.00000036E-01 3.99999946E-01 + 4.00000006E-01 4.00000006E-01 4.00000006E-01 2.99999982E-01 4.00000006E-01 + 4.00000095E-01 3.99999917E-01 4.00000036E-01 4.00000006E-01 4.00000006E-01 + 3.99999976E-01 3.00000012E-01 3.99999946E-01 3.99999946E-01 3.99999887E-01 + 4.00000036E-01 3.99999976E-01 3.99999976E-01 3.00000012E-01 4.00000006E-01 + 3.99999976E-01 4.00000006E-01 3.99999976E-01 3.00000012E-01 2.99999982E-01 + 4.00000006E-01 3.99999976E-01 4.00000036E-01 2.99999982E-01 0.00000000E+00 + 4.00000006E-01 3.00000012E-01 2.99999982E-01 0.00000000E+00 2.99999982E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.99999982E-01 3.00000042E-01 2.99999982E-01 3.00000012E-01 2.99999982E-01 + 3.00000042E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 + 3.00000012E-01 2.99999982E-01 2.99999982E-01 2.99999982E-01 2.99999982E-01 + 3.00000012E-01 3.00000042E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000042E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 + 2.99999982E-01 2.99999982E-01 3.00000012E-01 3.00000042E-01 3.00000012E-01 + 2.99999952E-01 3.00000101E-01 2.99999952E-01 3.00000012E-01 0.00000000E+00 + 3.00000012E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000042E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +CHI + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 +-> 3 12 2 332 <- +SCAT00 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000028E-02 + 0.00000000E+00 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999958E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999958E-02 0.00000000E+00 2.00000033E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000033E-02 + 0.00000000E+00 3.99999917E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 2.00000051E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000033E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000051E-02 0.00000000E+00 3.99999917E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 3.99999917E-02 0.00000000E+00 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000028E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 4.00000066E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 4.00000066E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 4.00000103E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999917E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 +-> 3 12 1 180 <- +IPOS00 + 1 3 5 7 9 11 13 15 + 17 19 21 23 25 27 29 31 + 33 35 37 39 41 43 45 47 + 49 51 53 55 57 59 61 63 + 65 67 69 70 72 74 76 77 + 79 80 81 82 83 84 86 88 + 90 92 94 96 98 100 102 104 + 106 108 110 112 114 116 118 120 + 122 124 126 128 130 132 134 136 + 138 140 142 144 146 148 150 152 + 153 155 157 159 160 162 163 164 + 165 166 167 169 171 173 175 177 + 179 181 183 185 187 189 191 193 + 195 197 199 201 203 205 207 209 + 211 213 215 217 219 221 223 225 + 227 229 231 233 235 236 238 240 + 242 243 245 246 247 248 249 250 + 252 254 256 258 260 262 264 266 + 268 270 272 274 276 278 280 282 + 284 286 288 290 292 294 296 298 + 300 302 304 306 308 310 312 314 + 316 318 319 321 323 325 326 328 + 329 330 331 332 +-> 3 12 1 180 <- +NJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 1 2 2 2 1 2 + 1 1 1 1 1 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 1 + 2 2 2 1 2 1 1 1 + 1 1 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 1 2 2 2 + 1 2 1 1 1 1 1 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 1 2 2 2 1 2 1 + 1 1 1 1 +-> 3 12 1 180 <- +IJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 +-> -3 0 0 0 <- +-> 1 12 1 40 <- +STATE-VECTOR + 2 180 1 1 0 0 0 0 + 2 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> -1 0 0 0 <- diff --git a/Trivac/data/NodalTests_proc/hansen3d_anm.c2m b/Trivac/data/NodalTests_proc/hansen3d_anm.c2m new file mode 100755 index 0000000..a946be9 --- /dev/null +++ b/Trivac/data/NodalTests_proc/hansen3d_anm.c2m @@ -0,0 +1,91 @@ +*---- +* TEST CASE hansen3d_anm in 3D +* +* REF: A. Hebert, "Application of the Hermite Method to Finite Element +* Reactor Calculations", Nucl. Sci. Eng., 91, 34-58 (1985). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST HANSEN MACRO TRACK FLUX EDIT ; +MODULE GEO: MAC: NSST: NSSF: DELETE: END: ; +PROCEDURE assertS ; +* +HANSEN := GEO: :: CAR3D 2 2 2 + EDIT 2 + X- ZERO X+ REFL + Y- ZERO Y+ REFL + Z- ZERO Z+ REFL + MESHX 0.0 20.0 40.0 + MESHY 0.0 20.0 40.0 + MESHZ 0.0 20.0 40.0 + MIX 1 1 + 1 1 + + 1 1 + 1 2 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 2 NIFI 1 + READ INPUT + MIX 1 (*reflector*) + DIFF 1.2 0.15 + TOTAL 0.101 0.02 + NUSIGF 0.0 0.0 + CHI 0.0 0.0 + SCAT 1 1 0.0 2 2 0.0 0.1 + MIX 2 (*fuel*) + DIFF 1.5 0.4 + TOTAL 0.0623 0.2 + NUSIGF 0.0 0.218 + CHI 1.0 0.0 + SCAT 1 1 0.0 2 2 0.0 0.06 +; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 3D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8399094 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 2 2 + SPLITY 2 2 + SPLITZ 2 2 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 3D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8358487 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 3 3 + SPLITY 3 3 + SPLITZ 3 3 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 3D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8358188 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 4 4 + SPLITY 4 4 + SPLITZ 4 4 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 2D 2-group' + EDIT 5 MAXR 600 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8358015 ; +ECHO "test hansen3d_anm completed" ; + +END: ; diff --git a/Trivac/data/NodalTests_proc/hansen_anm.c2m b/Trivac/data/NodalTests_proc/hansen_anm.c2m new file mode 100755 index 0000000..892dbc4 --- /dev/null +++ b/Trivac/data/NodalTests_proc/hansen_anm.c2m @@ -0,0 +1,83 @@ +*---- +* TEST CASE hansen_ANM +* +* REF: A. Hebert, "Application of the Hermite Method to Finite Element +* Reactor Calculations", Nucl. Sci. Eng., 91, 34-58 (1985). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST HANSEN MACRO TRACK FLUX EDIT ; +MODULE GEO: MAC: NSST: NSSF: DELETE: END: ; +PROCEDURE assertS ; +* +HANSEN := GEO: :: CAR2D 2 2 + EDIT 2 + X- ZERO X+ REFL + Y- ZERO Y+ REFL + MESHX 0.0 20.0 40.0 + MESHY 0.0 20.0 40.0 + MIX 1 1 + 1 2 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 2 NIFI 1 + READ INPUT + MIX 1 (*reflector*) + DIFF 1.2 0.15 + TOTAL 0.101 0.02 + NUSIGF 0.0 0.0 + CHI 0.0 0.0 + SCAT 1 1 0.0 2 2 0.0 0.1 + MIX 2 (*fuel*) + DIFF 1.5 0.4 + TOTAL 0.0623 0.2 + NUSIGF 0.0 0.218 + CHI 1.0 0.0 + SCAT 1 1 0.0 2 2 0.0 0.06 +; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 2D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8988201 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 2 2 + SPLITY 2 2 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 2D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8974792 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 3 3 + SPLITY 3 3 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 2D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8974611 ; +TRACK FLUX := DELETE: TRACK FLUX ; + +HANSEN := GEO: HANSEN :: + SPLITX 4 4 + SPLITY 4 4 + ; +TRACK := NSST: HANSEN :: + TITLE 'test Hansen 2D 2-group' + EDIT 5 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 4 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.8974545 ; +ECHO "test hansen_anm completed" ; + +END: ; diff --git a/Trivac/data/NodalTests_proc/iaea2d_anm.c2m b/Trivac/data/NodalTests_proc/iaea2d_anm.c2m new file mode 100755 index 0000000..4312be9 --- /dev/null +++ b/Trivac/data/NodalTests_proc/iaea2d_anm.c2m @@ -0,0 +1,105 @@ +*---- +* TEST CASE iaea2d_anm +* IAEA 2D BENCHMARK IN DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK FLUX EDIT REF ; +MODULE GEO: MAC: NSST: NSSF: OUT: DELETE: ABORT: ERROR: END: ; +SEQ_ASCII _iaea2d_ref :: FILE './_iaea2d_ref.txt' ; +PROCEDURE assertS ; +* +REF := _iaea2d_ref :: EDIT 0 ; +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- REFL Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 10.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* NSS +*---- +TRACK := NSST: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 1 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +EDIT := OUT: FLUX TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +ERROR: REF EDIT ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029615 ; +TRACK FLUX EDIT := DELETE: TRACK FLUX EDIT ; + +IAEA := GEO: IAEA :: + SPLITX 1 2 2 2 2 2 2 2 2 + ; +TRACK := NSST: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 1 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +EDIT := OUT: FLUX TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +ERROR: REF EDIT ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029604 ; +ECHO "test iaea2d_anm completed" ; +END: ; diff --git a/Trivac/data/NodalTests_proc/iaea2d_anm_u.c2m b/Trivac/data/NodalTests_proc/iaea2d_anm_u.c2m new file mode 100755 index 0000000..9e26b5f --- /dev/null +++ b/Trivac/data/NodalTests_proc/iaea2d_anm_u.c2m @@ -0,0 +1,102 @@ +*---- +* TEST CASE iaea2d_anm_u +* IAEA 2D BENCHMARK WITH UPSCATTERING IN DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +* ANALYTIC NODAL METHOD +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK FLUX EDIT REF ; +MODULE GEO: MAC: NSST: NSSF: OUT: DELETE: ABORT: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- REFL Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 10.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 2 2 0.2E-02 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 2 2 0.2E-02 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 2 2 0.2E-02 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* NSS +*---- +TRACK := NSST: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 1 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 2 NUPD 100 1.0E-7 THER 50 1.0E-4 EXTE 100 1.0E-5 LEAK quadratic ; +EDIT := OUT: FLUX TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.045564 ; +TRACK FLUX EDIT := DELETE: TRACK FLUX EDIT ; + +IAEA := GEO: IAEA :: + SPLITX 1 2 2 2 2 2 2 2 2 + ; +TRACK := NSST: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 1 MAXR 500 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 2 NUPD 100 1.0E-7 THER 50 1.0E-4 EXTE 100 1.0E-5 LEAK quadratic ; +EDIT := OUT: FLUX TRACK MACRO IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.045552 ; +ECHO "test iaea2d_anm_u completed" ; +END: ; diff --git a/Trivac/data/NodalTests_proc/iaea3d_anm.c2m b/Trivac/data/NodalTests_proc/iaea3d_anm.c2m new file mode 100755 index 0000000..7a7902f --- /dev/null +++ b/Trivac/data/NodalTests_proc/iaea3d_anm.c2m @@ -0,0 +1,124 @@ +*---- +* TEST CASE iaea3d_anm +* +* REF: Argonne Code Center: Benchmark Problem Book, ANL-7416, Suppl. 2, +* ID11-42, pp. 277, Argonne National Laboratory (1977). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK FLUX EDIT REF ; +MODULE GEO: MAC: NSST: NSSF: OUT: ERROR: DELETE: END: ; +SEQ_ASCII _iaea3d_ref :: FILE './_iaea3d_ref.txt' ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- REFL Y+ DIAG + Z- VOID Z+ VOID + MESHX 10.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 6 2 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.0000E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.5000E-02 + NUSIGF 0.000E+00 1.3500E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.000E-02 1.30000E-01 + NUSIGF 0.000E+00 1.35000E-01 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 1.0000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 5.5000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +REF := _iaea3d_ref :: EDIT 1 ; + +TRACK := NSST: IAEA3D :: + TITLE 'test IAEA3D 2-group' + EDIT 2 MAXR 5000 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029131 ; +EDIT := OUT: FLUX TRACK MACRO IAEA3D :: + EDIT 2 INTG IN + ; +ERROR: REF EDIT ; +TRACK FLUX EDIT := DELETE: TRACK FLUX EDIT ; +IAEA3D := GEO: IAEA3D :: + SPLITX 1 2 2 2 2 2 2 2 2 +; +TRACK := NSST: IAEA3D :: + TITLE 'test IAEA3D 2-group' + EDIT 2 MAXR 5000 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029111 ; +EDIT := OUT: FLUX TRACK MACRO IAEA3D :: + EDIT 2 INTG IN + ; +ERROR: REF EDIT ; +ECHO "test iaea3d_anm completed" ; +END: ; diff --git a/Trivac/data/NodalTests_proc/prob5p3_nem.c2m b/Trivac/data/NodalTests_proc/prob5p3_nem.c2m new file mode 100755 index 0000000..f895037 --- /dev/null +++ b/Trivac/data/NodalTests_proc/prob5p3_nem.c2m @@ -0,0 +1,164 @@ +*---- +* TEST CASE prob5p3_nem +* +* REF: A. Hebert, "Applied Reactor Physics", Presses Internationales +* Polytechnique, Problem 5.3 (2009). +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK FLUX ; +MODULE GEO: MAC: NSST: NSSF: DELETE: END: ; +PROCEDURE assertS ; +*---- +* Macroscopic cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 2 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.264E+00 0.9328E+00 + TOTAL 8.154E-03 4.1000E-03 + NUSIGF 0.000E+00 4.5620E-03 + CHI 1.000E+00 0.000E+00 + H-FACTOR 0.000E+00 4.5620E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + MIX 2 + DIFF 1.310E+00 0.8695E+00 + TOTAL 1.018E-02 2.1170E-04 + SCAT 1 1 0.0 2 2 0.0 1.0180E-02 + ; +*---- +* Steady-state calculations with the Nodal Expansion Method +*---- +GEOM := GEO: :: CAR1D 4 + X- ZERO X+ ZERO + MIX 2 1 1 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9977308 ; +TRACK FLUX := DELETE: TRACK FLUX ; +* +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 CMFD ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9976518 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +* +GEOM := GEO: :: CAR1D 4 + X- VOID X+ VOID + MIX 2 1 1 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9977973 ; +TRACK FLUX := DELETE: TRACK FLUX ; +* +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 CMFD ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9977070 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +* +GEOM := GEO: :: CAR1D 4 + X- ALBE 0.85 X+ ALBE 0.95 + MIX 2 1 1 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9988235 ; +TRACK FLUX := DELETE: TRACK FLUX ; +* +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 CMFD ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9986206 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +* +GEOM := GEO: :: CAR1D 2 + X- VOID X+ REFL + MIX 2 1 + MESHX 0.0 40.0 350.0 + SPLITX 1 4 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9977973 ; +TRACK FLUX := DELETE: TRACK FLUX ; +* +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 CMFD ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9977079 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +* +MACRO := MAC: MACRO :: + ALBP 2 0.8 0.9 0.7 0.75 + ; +GEOM := GEO: :: CAR1D 4 + X- ALBE 1 X+ ALBE 2 + MIX 2 1 1 2 + MESHX 0.0 40.0 350.0 660.0 700.0 + SPLITX 1 4 4 1 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9983991 ; +TRACK FLUX := DELETE: TRACK FLUX ; +* +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 HYPE 2 CMFD ; +FLUX := NSSF: TRACK MACRO :: EDIT 1 EXTE 1000 1.0E-7 ; +assertS FLUX :: K-EFFECTIVE 1 0.9982761 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +*---- +* Steady-state calculations with the Analytic Nodal Method +*---- +GEOM := GEO: :: CAR1D 3 + X- ZERO X+ ZERO + MIX 2 1 2 + MESHX 0.0 40.0 660.0 700.0 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 99 MAXR 20 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: K-EFFECTIVE 1 0.99773398 ; +GEOM TRACK FLUX := DELETE: GEOM TRACK FLUX ; +* +GEOM := GEO: :: CAR1D 3 + X- ALBE 1 X+ ALBE 2 + MIX 2 1 2 + MESHX 0.0 40.0 660.0 700.0 + ; +TRACK := NSST: GEOM :: + TITLE 'BENCHMARK ENE6103' + EDIT 2 MAXR 20 ANM ; +FLUX := NSSF: TRACK MACRO :: + EDIT 1 NUPD 100 1.0E-7 EXTE 100 1.0E-5 LEAK quadratic ; +assertS FLUX :: K-EFFECTIVE 1 0.9984057 ; +ECHO "test prob5p3_nem completed" ; +END: ; diff --git a/Trivac/data/SPNtst.x2m b/Trivac/data/SPNtst.x2m new file mode 100644 index 0000000..33f8b65 --- /dev/null +++ b/Trivac/data/SPNtst.x2m @@ -0,0 +1,32 @@ +* Regression tests for SPN capabilities in Trivac. +* A. Hebert, 2006 +* +PROCEDURE SPNtst1_biv SPNtst1_tri SPNtst2_biv SPNtst2_tri +SPNtst2d_biv SPNtst2d_tri SPNtst3_biv SPNtst3_tri +SPNtst3d_biv SPNtst3d_tri SPNtst4_biv SPNtst4_tri +SPNtst5_tri SPNtst5d_tri SPNtst6_tri SPNtst7_biv SPNtst7_tri +SPNtst8_tri SPNtst9_biv SPNtst9_tri iaea2d_iram pertdiff_p1 ; +* +SPNtst1_biv ; +SPNtst1_tri ; +SPNtst2_biv ; +SPNtst2_tri ; +SPNtst2d_biv ; +SPNtst2d_tri ; +SPNtst3_biv ; +SPNtst3_tri ; +SPNtst3d_biv ; +SPNtst3d_tri ; +SPNtst4_biv ; +SPNtst4_tri ; +SPNtst5_tri ; +SPNtst5d_tri ; +SPNtst6_tri ; +SPNtst7_biv ; +SPNtst7_tri ; +SPNtst8_tri ; +SPNtst9_biv ; +SPNtst9_tri ; +iaea2d_iram ; +pertdiff_p1 ; +QUIT "LIST" . diff --git a/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m new file mode 100755 index 0000000..568d7a8 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m @@ -0,0 +1,72 @@ +*---- +* TEST CASE SPNtst1_biv +* SLAB 1D BENCHMARK -- PN THEORY IN BIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +SEQ_ASCII nse1DP1_ref ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR1D 5 + X- REFL X+ VOID + MIX 1 1 2 2 3 + MESHX 0.0 20.0 40.0 80.0 120.0 160.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 1 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.042745 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.003082 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.058975 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026264 ; +ECHO "test SPNtst1_biv completed" ; +END: ; +QUIT "LIST" . diff --git a/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m new file mode 100755 index 0000000..659b7a7 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m @@ -0,0 +1,73 @@ +*---- +* TEST CASE SPNtst1_tri +* SLAB 1D BENCHMARK -- PN THEORY IN TRIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +SEQ_ASCII nse1DP1_ref ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR1D 5 + X- REFL X+ VOID + MIX 1 1 2 2 3 + MESHX 0.0 20.0 40.0 80.0 120.0 160.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 1 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.042745 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.003082 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.058975 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026264 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +ECHO "test SPNtst1_tri completed" ; +END: ; +QUIT "LIST" . diff --git a/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m new file mode 100755 index 0000000..3b1fc19 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst2_biv +* CARTESIAN 2D BENCHMARK +* SPN THEORY IN BIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.8 + SCAT 1 1 0.7 + 1 1 0.0 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + SCAT 1 1 0.99 + 1 1 0.495 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9304934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9305934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.012244 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.011836 ; +ECHO "test SPNtst2_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m new file mode 100755 index 0000000..19491c8 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst2_tri +* CARTESIAN 2D BENCHMARK +* SPN THEORY IN TRIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.8 + SCAT 1 1 0.7 + 1 1 0.0 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + SCAT 1 1 0.99 + 1 1 0.495 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9304934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9305934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.012244 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.011836 ; +ECHO "test SPNtst2_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m new file mode 100755 index 0000000..f502de2 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m @@ -0,0 +1,57 @@ +*---- +* TEST CASE SPNtst2d_biv +* CARTESIAN 2D BENCHMARK -- DIFFUSION THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +SEQ_ASCII LMFBR_ref OBJ10 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.8 + DIFF 0.4166666667 + SCAT 1 1 0.7 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + DIFF 0.3333333333 + SCAT 1 1 0.99 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 1 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148997 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 3 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148576 ; +ECHO "test SPNtst2d_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m new file mode 100755 index 0000000..390a2b7 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m @@ -0,0 +1,57 @@ +*---- +* TEST CASE SPNtst2d_tri +* CARTESIAN 2D BENCHMARK -- DIFFUSION THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +SEQ_ASCII LMFBR_ref OBJ10 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.8 + DIFF 0.4166666667 + SCAT 1 1 0.7 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + DIFF 0.3333333333 + SCAT 1 1 0.99 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148997 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 3 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148576 ; +ECHO "test SPNtst2d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m new file mode 100755 index 0000000..ae73549 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m @@ -0,0 +1,86 @@ +*---- +* TEST CASE SPNtst3_biv +* IAEA 2D BENCHMARK -- SPN THEORY IN BIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + (*SPLITX 2 2 2 2 2 2 2 2 2*) + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028754 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029099 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029274 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029545 ; +ECHO "test SPNtst3_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m new file mode 100755 index 0000000..a5d5366 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m @@ -0,0 +1,85 @@ +*---- +* TEST CASE SPNtst3_tri +* IAEA 2D BENCHMARK -- SPN THEORY IN TRIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028754 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029099 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029274 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029545 ; +ECHO "test SPNtst3_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m new file mode 100755 index 0000000..05dfe02 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst3d_biv +* IAEA 2D BENCHMARK -- DIFFUSION THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + (*SPLITX 2 2 2 2 2 2 2 2 2*) + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0287611485 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +END: ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685486 ; +ECHO "test SPNtst3d_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m new file mode 100755 index 0000000..6ede58d --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m @@ -0,0 +1,70 @@ +*---- +* TEST CASE SPNtst3d_tri +* IAEA 2D BENCHMARK -- DIFFUSION THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0287611485 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +END: ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685486 ; +ECHO "test SPNtst3d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m new file mode 100755 index 0000000..7e1d168 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m @@ -0,0 +1,89 @@ +*---- +* TEST CASE SPNtst4_biv +* IAEA 2D BENCHMARK -- SPN THEORY IN BIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026757 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027114 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027302 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027580 ; +ECHO "test SPNtst4_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m new file mode 100755 index 0000000..86a6c9b --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m @@ -0,0 +1,89 @@ +*---- +* TEST CASE SPNtst4_tri +* IAEA 2D BENCHMARK -- SPN THEORY IN TRIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026757 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027114 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027302 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027580 ; +ECHO "test SPNtst4_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m new file mode 100755 index 0000000..92b9a0c --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m @@ -0,0 +1,127 @@ +*---- +* TEST CASE SPNtst5_tri +* IAEA 3D BENCHMARK -- SPN THEORY (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027945 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0289810896 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028504 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029465 ; +ECHO "test SPNtst5_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m new file mode 100755 index 0000000..497fd80 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m @@ -0,0 +1,109 @@ +*---- +* TEST CASE SPNtst5d_tri +* IAEA 3D BENCHMARK -- DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027945 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0289810896 ; +ECHO "test SPNtst5d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m new file mode 100755 index 0000000..fa9324d --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m @@ -0,0 +1,132 @@ +*---- +* TEST CASE SPNtst6_tri +* IAEA 3D BENCHMARK -- SPN THEORY (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.025408 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026429 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026004 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026932 ; +ECHO "test SPNtst6_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m new file mode 100755 index 0000000..f57ba50 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m @@ -0,0 +1,61 @@ +*---- +* TEST CASE SPNtst7_biv +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEX 16 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + SPLITL 2 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := BIVACT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 3 + SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: + EDIT 2 INTG + 1 2 3 4 5 + 6 7 8 9 10 + 11 12 13 14 15 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000329 ; +ECHO "test SPNtst7_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m new file mode 100755 index 0000000..a11f6b5 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m @@ -0,0 +1,61 @@ +*---- +* TEST CASE SPNtst7_tri +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEX 16 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + SPLITL 2 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 3 + SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 10 EXTE 300 5.0E-6 ACCE 4 3 ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: + EDIT 2 INTG + 1 2 3 4 5 + 6 7 8 9 10 + 11 12 13 14 15 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000333 ; +ECHO "test SPNtst7_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m new file mode 100755 index 0000000..a3b24c6 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst8_tri +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEXZ 16 3 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + Z- REFL Z+ VOID + MESHZ 0.0 50.0 60.0 70.0 + SPLITL 1 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + 2 + 2 + 2 2 + 2 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + 3 + 3 + 3 3 + 3 3 + 3 3 3 + 3 3 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 1 + SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 4 EXTE 300 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.760959 ; +ECHO "test SPNtst8_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m new file mode 100755 index 0000000..bf7c273 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst9_biv +* CARTESIAN 3-GROUP BENCHMARK -- SIMPLIFIED PN THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: ERROR: END: ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 5 5 + X- REFL X+ VOID + Y- REFL Y+ VOID + MIX 1 1 2 2 3 + 1 1 2 2 3 + 2 2 2 2 3 + 2 2 2 3 3 + 3 3 3 3 0 + MESHX 0.0 40.0 80.0 120.0 160.0 200.0 + MESHY 0.0 40.0 80.0 120.0 160.0 200.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + SPLITY <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + TOTAL 1.31234E-01 1.93349E-01 2.63713E-01 + SCAT 1 1 (*1->1*) 1.00247E-01 + 2 2 (*2->2*) 1.83859E-01 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 2.56380E-01 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + 1 1 (*1->1*) 1.00247E-02 + 2 2 (*2->2*) 1.83859E-02 (*1->2*) 2.544E-03 + 3 3 (*3->3*) 2.56380E-02 (*2->3*) 6.551E-04 (*1->3*) 5.625E-05 + MIX 2 (* ACTIVE OUTER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + TOTAL 1.30822E-01 1.93237E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 9.96078E-02 + 2 2 (*2->2*) 1.83362E-01 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 2.54575E-01 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + 1 1 (*1->1*) 9.96078E-03 + 2 2 (*2->2*) 1.83362E-02 (*1->2*) 2.497E-03 + 3 3 (*3->3*) 2.54575E-02 (*2->3*) 6.341E-04 (*1->3*) 5.548E-05 + MIX 3 (* SODIUM CHANNEL *) + TOTAL 6.93722E-02 1.02187E-01 1.37118E-01 + SCAT 1 1 (*1->1*) 5.78471E-02 + 2 2 (*2->2*) 9.85380E-02 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 1.36811E-01 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + 1 1 (*1->1*) 5.78471E-03 + 2 2 (*2->2*) 9.85380E-03 (*1->2*) 1.130E-03 + 3 3 (*3->3*) 1.36811E-02 (*2->3*) 3.571E-04 (*1->3*) 6.718E-06 + ; +TRACK := BIVACT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 3 (*ICOL=*) 1 + SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.5197747 ; +ECHO "test SPNtst9_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m new file mode 100755 index 0000000..250acaa --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst9_tri +* CARTESIAN 3-GROUP BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: ERROR: END: ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 5 5 + X- REFL X+ VOID + Y- REFL Y+ VOID + MIX 1 1 2 2 3 + 1 1 2 2 3 + 2 2 2 2 3 + 2 2 2 3 3 + 3 3 3 3 0 + MESHX 0.0 40.0 80.0 120.0 160.0 200.0 + MESHY 0.0 40.0 80.0 120.0 160.0 200.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + SPLITY <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + TOTAL 1.31234E-01 1.93349E-01 2.63713E-01 + SCAT 1 1 (*1->1*) 1.00247E-01 + 2 2 (*2->2*) 1.83859E-01 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 2.56380E-01 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + 1 1 (*1->1*) 1.00247E-02 + 2 2 (*2->2*) 1.83859E-02 (*1->2*) 2.544E-03 + 3 3 (*3->3*) 2.56380E-02 (*2->3*) 6.551E-04 (*1->3*) 5.625E-05 + MIX 2 (* ACTIVE OUTER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + TOTAL 1.30822E-01 1.93237E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 9.96078E-02 + 2 2 (*2->2*) 1.83362E-01 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 2.54575E-01 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + 1 1 (*1->1*) 9.96078E-03 + 2 2 (*2->2*) 1.83362E-02 (*1->2*) 2.497E-03 + 3 3 (*3->3*) 2.54575E-02 (*2->3*) 6.341E-04 (*1->3*) 5.548E-05 + MIX 3 (* SODIUM CHANNEL *) + TOTAL 6.93722E-02 1.02187E-01 1.37118E-01 + SCAT 1 1 (*1->1*) 5.78471E-02 + 2 2 (*2->2*) 9.85380E-02 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 1.36811E-01 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + 1 1 (*1->1*) 5.78471E-03 + 2 2 (*2->2*) 9.85380E-03 (*1->2*) 1.130E-03 + 3 3 (*3->3*) 1.36811E-02 (*2->3*) 3.571E-04 (*1->3*) 6.718E-06 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 3 (*ICOL=*) 1 + SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.5197747 ; +ECHO "test SPNtst9_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/iaea2d_iram.c2m b/Trivac/data/SPNtst_proc/iaea2d_iram.c2m new file mode 100755 index 0000000..0768f6f --- /dev/null +++ b/Trivac/data/SPNtst_proc/iaea2d_iram.c2m @@ -0,0 +1,132 @@ +*---- +* TEST CASE iaea2d_iram +* IAEA 2D BENCHMARK IN DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: OUT: DELETE: + END: ABORT: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* BIVAC +*---- +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.032315 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028691 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 2 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9690545 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* TRIVAC +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029765 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 3 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 MCFD 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685930 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685487 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9694149 ; +ECHO "test iaea2d_iram completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/pertdiff_p1.c2m b/Trivac/data/SPNtst_proc/pertdiff_p1.c2m new file mode 100755 index 0000000..0b4b2d2 --- /dev/null +++ b/Trivac/data/SPNtst_proc/pertdiff_p1.c2m @@ -0,0 +1,148 @@ +*----- +* GPT TEST pertdiff_p1 +*----- +LINKED_LIST IAEA MACRO MACROT TRACK SYSTEM SYSTEMT FLUX DMACRO DSYSTEM + DSOUR DASOUR DFLUX MACRO2 SYSTEM2 FLUX2 EDIT ADFLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: DELTA: GPTFLU: OUT: + END: ADD: STAT: UTL: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +* +* REFERENCE CASE: +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.900000E+00 4.400000E-01 + TOTAL 3.012000E-02 8.303201E-02 + NUSIGF 0.000000E+00 1.650000E-01 + H-FACTOR 0.000000E+00 1.650000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 2.912000E-02 1.260320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)' + EDIT 5 MAXR 1156 + DUAL 2 2 + SPN DIFF 1 SCAT 2 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.096281 ; +MACROT := MACRO ; +SYSTEMT := SYSTEM ; +FLUX := DELETE: FLUX ; +SYSTEM := DELETE: SYSTEM ; +MACRO := DELETE: MACRO ; +* +* UNPERTURBED CASE: +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.003199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 1.300320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADJ ; +DMACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 4.000000E-01 4.000000E-02 + TOTAL 0.000000E+00 3.000000E-03 + NUSIGF 0.000000E+00 3.000000E-02 + H-FACTOR 0.000000E+00 3.000000E-02 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 2 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 3 + TOTAL -9.999999E-04 -4.000001E-03 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 4 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + ; +DSYSTEM := TRIVAA: MACRO TRACK DMACRO :: EDIT 5 DERI ; +UTL: DSYSTEM :: DUMP ; + +DSOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ; +DFLUX := GPTFLU: DSOUR FLUX SYSTEM TRACK :: EDIT 2 EXPLICIT + FROM-TO 1 1 ; +assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ; +DASOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ADJ ; +ADFLUX := GPTFLU: DASOUR FLUX SYSTEM TRACK :: EDIT 2 IMPLICIT + FROM-TO 1 1 ; + +assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ; +* Reset the perturbation flag of DSYSTEM to 0 so that it can be added. +DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ; +SYSTEM2 := SYSTEM ; +MACRO2 := MACRO ; +SYSTEM2 := ADD: SYSTEM2 DSYSTEM ; +MACRO2 := ADD: MACRO2 DMACRO ; +STAT: SYSTEMT SYSTEM2 ; +STAT: MACROT MACRO2 ; +FLUX2 := FLUD: SYSTEM2 TRACK MACRO2 :: EDIT 2 ; +assertS FLUX2 :: 'K-EFFECTIVE' 1 1.094982 ; +EDIT := OUT: FLUX2 TRACK MACRO2 IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +ECHO "test pertdiff_p1 completed" ; +END: ; diff --git a/Trivac/data/_iaea3d_ref.txt b/Trivac/data/_iaea3d_ref.txt new file mode 100755 index 0000000..b018e6b --- /dev/null +++ b/Trivac/data/_iaea3d_ref.txt @@ -0,0 +1,858 @@ +-> 1 12 3 3 <- +SIGNATURE + 4 4 4 +L_MACROLIB +-> 1 12 3 3 <- +LINK.FLUX + 4 4 4 +FLUX +-> 1 12 3 18 <- +TITLE + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 +TEST IAEA 3D +-> 1 12 2 1 <- +K-EFFECTIVE + 1.02906919E+00 +-> 1 12 2 180 <- +VOLUME + 2.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 8.00000000E+03 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 1.60000000E+04 0.00000000E+00 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 0.00000000E+00 8.00000000E+03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.60000000E+04 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 + 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 1.04000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 + 2.08000000E+05 2.08000000E+05 1.04000000E+05 2.08000000E+05 2.08000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 1.04000000E+05 + 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 + 1.04000000E+05 2.08000000E+05 2.08000000E+05 2.08000000E+05 0.00000000E+00 + 1.04000000E+05 2.08000000E+05 2.08000000E+05 0.00000000E+00 1.04000000E+05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 8.00000000E+03 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 + 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 3.20000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 + 6.40000000E+04 6.40000000E+04 3.20000000E+04 6.40000000E+04 6.40000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 3.20000000E+04 + 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 + 3.20000000E+04 6.40000000E+04 6.40000000E+04 6.40000000E+04 0.00000000E+00 + 3.20000000E+04 6.40000000E+04 6.40000000E+04 0.00000000E+00 3.20000000E+04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 8.00000000E+03 1.60000000E+04 1.60000000E+04 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 8.00000000E+03 + 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 1.60000000E+04 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 1.60000000E+04 0.00000000E+00 + 8.00000000E+03 1.60000000E+04 1.60000000E+04 0.00000000E+00 8.00000000E+03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 1 12 10 2 <- +GROUP +-> 2 0 0 -1 <- 00000001 +-> 3 12 2 180 <- +FLUX-INTG + 5.71020704E-04 2.72326218E-03 2.93249497E-03 2.51123426E-03 1.86738931E-03 + 1.94488931E-03 1.85996760E-03 1.24997983E-03 2.80833308E-04 2.90950760E-03 + 5.96786756E-03 5.32760425E-03 4.44434350E-03 4.18626470E-03 3.75615223E-03 + 2.43655243E-03 5.35517174E-04 2.96828174E-03 5.42195560E-03 4.75043152E-03 + 4.26885067E-03 3.58506246E-03 2.02271785E-03 4.04772349E-04 2.41337856E-03 + 3.99678247E-03 3.60784447E-03 2.76526250E-03 9.34833137E-04 1.40689168E-04 + 1.41825795E-03 2.61504925E-03 1.75640569E-03 4.05061321E-04 0.00000000E+00 + 8.58835469E-04 6.26730325E-04 1.12665890E-04 0.00000000E+00 6.34668904E-05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.61184549E-01 8.31909120E-01 9.12006319E-01 7.71921039E-01 5.33859253E-01 + 6.06543183E-01 5.98402560E-01 4.14475411E-01 6.87620565E-02 8.99805903E-01 + 1.85451519E+00 1.65671146E+00 1.37530315E+00 1.32540739E+00 1.21401703E+00 + 8.09495032E-01 1.31358787E-01 9.19719100E-01 1.69347954E+00 1.49656081E+00 + 1.36446762E+00 1.18286407E+00 6.79044425E-01 9.94384885E-02 7.54287124E-01 + 1.24451578E+00 1.15478289E+00 9.18427527E-01 2.42360875E-01 2.89605167E-02 + 4.12150711E-01 8.42772484E-01 5.87215841E-01 9.84976515E-02 0.00000000E+00 + 2.84860492E-01 1.62407458E-01 2.32569259E-02 0.00000000E+00 1.30339395E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.72896050E-02 8.80552977E-02 9.60530639E-02 8.51884261E-02 6.49017021E-02 + 8.05687904E-02 8.26326683E-02 5.82519844E-02 9.72322095E-03 9.11231712E-02 + 1.77328706E-01 1.75499722E-01 1.66178748E-01 1.75077483E-01 1.67271823E-01 + 1.13599651E-01 1.85530931E-02 7.07085729E-02 1.68984219E-01 1.80128470E-01 + 1.79661483E-01 1.62433088E-01 9.49545354E-02 1.40064880E-02 8.26165676E-02 + 1.52876750E-01 1.53015181E-01 1.25920117E-01 3.37054878E-02 4.06858372E-03 + 5.29819988E-02 1.13454811E-01 8.06682333E-02 1.36466604E-02 0.00000000E+00 + 3.89016978E-02 2.23599784E-02 3.22396727E-03 0.00000000E+00 1.80056377E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.37942993E-04 1.17099681E-03 1.28293515E-03 1.16491644E-03 9.61378333E-04 + 1.20731280E-03 1.25774799E-03 8.72946403E-04 1.98413647E-04 1.19683624E-03 + 2.31784745E-03 2.37934897E-03 2.38492154E-03 2.61574681E-03 2.53501395E-03 + 1.69811398E-03 3.77717341E-04 9.16812220E-04 2.28276197E-03 2.59139598E-03 + 2.67661666E-03 2.40990217E-03 1.40246027E-03 2.84357142E-04 1.14574714E-03 + 2.21091788E-03 2.26687151E-03 1.85092015E-03 6.42712286E-04 9.83072241E-05 + 7.97913293E-04 1.65047252E-03 1.17476564E-03 2.76240404E-04 0.00000000E+00 + 5.59959735E-04 4.20291268E-04 7.67235033E-05 0.00000000E+00 4.28119383E-05 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NTOT0 + 3.99999991E-02 3.99999991E-02 3.99999954E-02 3.99999991E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 + 3.99999954E-02 3.99999954E-02 3.99999954E-02 3.99999954E-02 3.99999991E-02 + 3.99999991E-02 4.00000066E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 4.00000028E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 3.99999954E-02 + 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 3.99999991E-02 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.00000012E-02 2.99999993E-02 3.00000049E-02 3.00000031E-02 2.99999993E-02 + 2.99999937E-02 3.00000012E-02 2.99999993E-02 3.99999991E-02 2.99999956E-02 + 3.00000012E-02 2.99999956E-02 3.00000031E-02 3.00000031E-02 3.00000012E-02 + 3.00000012E-02 3.99999917E-02 2.99999975E-02 3.00000012E-02 3.00000031E-02 + 3.00000031E-02 2.99999975E-02 2.99999975E-02 3.99999954E-02 2.99999993E-02 + 3.00000012E-02 2.99999993E-02 2.99999993E-02 3.99999954E-02 4.00000066E-02 + 3.00000031E-02 2.99999975E-02 3.00000031E-02 3.99999954E-02 0.00000000E+00 + 2.99999937E-02 4.00000028E-02 3.99999991E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.99999975E-02 2.99999975E-02 3.00000031E-02 2.99999937E-02 2.99999975E-02 + 2.99999975E-02 2.99999993E-02 2.99999993E-02 4.00000028E-02 2.99999937E-02 + 3.00000031E-02 2.99999956E-02 2.99999956E-02 3.00000031E-02 2.99999975E-02 + 3.00000068E-02 3.99999917E-02 3.00000031E-02 2.99999993E-02 3.00000012E-02 + 3.00000049E-02 2.99999975E-02 3.00000012E-02 3.99999991E-02 2.99999975E-02 + 3.00000012E-02 3.00000031E-02 3.00000012E-02 4.00000066E-02 3.99999991E-02 + 2.99999993E-02 3.00000012E-02 2.99999975E-02 3.99999917E-02 0.00000000E+00 + 2.99999993E-02 3.99999991E-02 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999991E-02 3.99999991E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 + 3.99999954E-02 4.00000028E-02 3.99999991E-02 3.99999991E-02 3.99999991E-02 + 4.00000066E-02 3.99999954E-02 4.00000066E-02 3.99999991E-02 3.99999991E-02 + 4.00000103E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 4.00000028E-02 + 3.99999954E-02 3.99999991E-02 3.99999954E-02 4.00000028E-02 3.99999954E-02 + 3.99999954E-02 3.99999954E-02 3.99999991E-02 4.00000028E-02 3.99999991E-02 + 3.99999991E-02 3.99999954E-02 3.99999917E-02 4.00000028E-02 0.00000000E+00 + 3.99999991E-02 4.00000028E-02 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +DIFFX + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.50000000E+00 1.50000012E+00 1.50000012E+00 1.50000012E+00 1.49999988E+00 + 1.49999988E+00 1.50000000E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.49999988E+00 1.50000000E+00 1.50000012E+00 1.50000024E+00 1.50000012E+00 + 1.50000024E+00 2.00000000E+00 1.50000024E+00 1.50000012E+00 1.50000024E+00 + 1.50000036E+00 1.50000012E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.50000012E+00 1.50000000E+00 1.50000012E+00 2.00000000E+00 2.00000000E+00 + 1.50000012E+00 1.50000000E+00 1.50000024E+00 2.00000000E+00 0.00000000E+00 + 1.49999976E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.50000000E+00 1.49999988E+00 1.50000000E+00 1.49999988E+00 1.50000000E+00 + 1.50000012E+00 1.49999988E+00 1.49999988E+00 2.00000000E+00 1.49999988E+00 + 1.50000012E+00 1.50000000E+00 1.50000000E+00 1.50000000E+00 1.49999988E+00 + 1.50000036E+00 2.00000000E+00 1.50000012E+00 1.50000000E+00 1.49999988E+00 + 1.50000024E+00 1.49999988E+00 1.50000012E+00 2.00000000E+00 1.49999988E+00 + 1.50000000E+00 1.50000012E+00 1.50000000E+00 2.00000000E+00 2.00000000E+00 + 1.50000000E+00 1.50000012E+00 1.50000000E+00 2.00000000E+00 0.00000000E+00 + 1.50000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 + 2.00000000E+00 2.00000000E+00 2.00000000E+00 0.00000000E+00 2.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +CHI + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 +-> 3 12 2 180 <- +SCAT00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 1 180 <- +IPOS00 + 1 2 3 4 5 6 7 8 + 9 10 11 12 13 14 15 16 + 17 18 19 20 21 22 23 24 + 25 26 27 28 29 30 31 32 + 33 34 35 36 37 38 39 40 + 41 42 43 44 45 46 47 48 + 49 50 51 52 53 54 55 56 + 57 58 59 60 61 62 63 64 + 65 66 67 68 69 70 71 72 + 73 74 75 76 77 78 79 80 + 81 82 83 84 85 86 87 88 + 89 90 91 92 93 94 95 96 + 97 98 99 100 101 102 103 104 + 105 106 107 108 109 110 111 112 + 113 114 115 116 117 118 119 120 + 121 122 123 124 125 126 127 128 + 129 130 131 132 133 134 135 136 + 137 138 139 140 141 142 143 144 + 145 146 147 148 149 150 151 152 + 153 154 155 156 157 158 159 160 + 161 162 163 164 165 166 167 168 + 169 170 171 172 173 174 175 176 + 177 178 179 180 +-> 3 12 1 180 <- +NJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 +-> 3 12 1 180 <- +IJJS00 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 +-> -3 0 0 0 <- +-> 2 0 0 -1 <- 00000002 +-> 3 12 2 180 <- +FLUX-INTG + 1.35874702E-03 6.41399063E-03 6.86526252E-03 5.91126457E-03 4.44348995E-03 + 4.58322605E-03 4.34298301E-03 2.98009859E-03 1.06041634E-03 6.82287524E-03 + 1.39617948E-02 1.24910967E-02 1.04676727E-02 9.81318112E-03 8.75626411E-03 + 5.80114964E-03 2.01755320E-03 6.91447593E-03 1.26839653E-02 1.11199021E-02 + 9.97017696E-03 8.35003424E-03 4.93765809E-03 1.55153335E-03 5.65661862E-03 + 9.40090511E-03 8.42958502E-03 6.58577122E-03 3.41956643E-03 6.64999417E-04 + 3.36389383E-03 6.13787398E-03 4.28760890E-03 1.58377620E-03 0.00000000E+00 + 2.10322277E-03 2.30411394E-03 5.30580815E-04 0.00000000E+00 3.02664499E-04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.74830461E-02 1.93086118E-01 2.14527681E-01 1.79296479E-01 9.10245553E-02 + 1.40643910E-01 1.41111419E-01 1.14249647E-01 1.62614971E-01 2.11446717E-01 + 4.36206460E-01 3.89331281E-01 3.19198072E-01 3.11495960E-01 2.86984950E-01 + 2.22656488E-01 3.09305578E-01 2.16203198E-01 3.98325324E-01 3.52027178E-01 + 3.21768463E-01 2.94322789E-01 2.09315807E-01 2.38247186E-01 1.77270457E-01 + 2.89164245E-01 2.72649407E-01 2.55369872E-01 5.06152570E-01 1.14257723E-01 + 7.06193373E-02 2.06538767E-01 1.80229515E-01 2.45508507E-01 0.00000000E+00 + 8.82223845E-02 3.38780731E-01 9.08144116E-02 0.00000000E+00 5.19515015E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.95848213E-03 2.05709040E-02 2.27558576E-02 1.99096818E-02 1.11088175E-02 + 1.88334510E-02 1.96448993E-02 1.61864422E-02 2.30635628E-02 2.15373114E-02 + 4.14299369E-02 4.14887145E-02 3.88436951E-02 4.14729863E-02 3.98629978E-02 + 3.14984135E-02 4.38204817E-02 1.21766739E-02 3.94755937E-02 4.26963978E-02 + 4.27081585E-02 4.07387838E-02 2.94797067E-02 3.36636193E-02 1.95343252E-02 + 3.57695520E-02 3.64141054E-02 3.53127308E-02 7.06387088E-02 1.60778891E-02 + 9.11563355E-03 2.80183703E-02 2.49532256E-02 3.41383554E-02 0.00000000E+00 + 1.21446736E-02 4.68237959E-02 1.26159396E-02 0.00000000E+00 7.19367526E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.25206852E-04 2.55112164E-03 2.98401178E-03 2.53863120E-03 9.10874456E-04 + 2.63816561E-03 2.92888843E-03 2.07866915E-03 7.49194121E-04 2.72608176E-03 + 5.06269466E-03 5.42316586E-03 5.20692999E-03 6.03748439E-03 5.89645840E-03 + 4.03820630E-03 1.42308022E-03 8.98367725E-04 4.98806266E-03 6.03765948E-03 + 6.23246795E-03 5.60197374E-03 3.41954664E-03 1.08994939E-03 2.61369138E-03 + 4.84346831E-03 5.21748420E-03 4.40046703E-03 2.35112896E-03 4.64594486E-04 + 7.53429718E-04 3.55573255E-03 2.86026974E-03 1.08063826E-03 0.00000000E+00 + 1.34101941E-03 1.54464040E-03 3.61362909E-04 0.00000000E+00 2.04255586E-04 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NTOT0 + 9.99999978E-03 9.99999978E-03 9.99999885E-03 9.99999978E-03 9.99999978E-03 + 9.99999978E-03 9.99999978E-03 9.99999791E-03 9.99999885E-03 9.99999885E-03 + 1.00000007E-02 1.00000007E-02 9.99999978E-03 1.00000007E-02 9.99999885E-03 + 9.99999978E-03 9.99999978E-03 1.00000016E-02 9.99999978E-03 9.99999885E-03 + 9.99999978E-03 9.99999978E-03 9.99999978E-03 9.99999978E-03 9.99999978E-03 + 1.00000007E-02 1.00000007E-02 1.00000007E-02 9.99999978E-03 9.99999885E-03 + 9.99999978E-03 9.99999885E-03 9.99999978E-03 9.99999885E-03 0.00000000E+00 + 1.00000007E-02 1.00000007E-02 1.00000007E-02 0.00000000E+00 1.00000007E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.29999980E-01 8.50000009E-02 8.50000009E-02 8.49999934E-02 1.29999995E-01 + 8.50000009E-02 8.50000009E-02 7.99999982E-02 1.00000007E-02 8.50000158E-02 + 8.49999934E-02 8.50000083E-02 8.50000083E-02 8.50000009E-02 8.50000158E-02 + 7.99999833E-02 9.99999791E-03 8.50000009E-02 8.49999934E-02 8.49999934E-02 + 8.49999860E-02 8.00000057E-02 8.00000057E-02 9.99999885E-03 8.50000009E-02 + 8.50000083E-02 8.49999860E-02 7.99999982E-02 9.99999978E-03 9.99999791E-03 + 1.30000010E-01 7.99999982E-02 7.99999982E-02 9.99999698E-03 0.00000000E+00 + 8.00000057E-02 9.99999978E-03 9.99999978E-03 0.00000000E+00 9.99999978E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.30000010E-01 8.49999934E-02 8.49999934E-02 8.50000009E-02 1.29999995E-01 + 8.50000009E-02 8.50000083E-02 7.99999982E-02 9.99999978E-03 8.50000009E-02 + 8.50000083E-02 8.50000083E-02 8.50000009E-02 8.49999860E-02 8.50000083E-02 + 7.99999982E-02 9.99999978E-03 1.29999995E-01 8.49999934E-02 8.49999785E-02 + 8.50000083E-02 8.00000057E-02 7.99999982E-02 1.00000007E-02 8.50000158E-02 + 8.49999934E-02 8.50000009E-02 7.99999908E-02 9.99999978E-03 9.99999885E-03 + 1.29999995E-01 7.99999908E-02 8.00000057E-02 1.00000007E-02 0.00000000E+00 + 7.99999908E-02 9.99999978E-03 9.99999885E-03 0.00000000E+00 9.99999885E-03 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 5.49999997E-02 9.99999978E-03 9.99999978E-03 9.99999978E-03 5.49999923E-02 + 1.00000007E-02 1.00000007E-02 9.99999885E-03 1.00000007E-02 9.99999978E-03 + 9.99999978E-03 9.99999978E-03 9.99999885E-03 9.99999978E-03 1.00000007E-02 + 9.99999978E-03 9.99999978E-03 5.49999960E-02 9.99999885E-03 9.99999978E-03 + 1.00000007E-02 9.99999978E-03 1.00000007E-02 1.00000007E-02 9.99999978E-03 + 9.99999978E-03 1.00000007E-02 9.99999978E-03 9.99999885E-03 9.99999978E-03 + 5.49999997E-02 1.00000007E-02 9.99999978E-03 9.99999978E-03 0.00000000E+00 + 9.99999978E-03 9.99999978E-03 1.00000007E-02 0.00000000E+00 1.00000016E-02 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.35000005E-01 + 1.35000020E-01 1.35000020E-01 1.35000020E-01 0.00000000E+00 1.35000005E-01 + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.34999990E-01 + 1.34999990E-01 0.00000000E+00 1.35000005E-01 1.34999990E-01 1.34999990E-01 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 1.35000020E-01 + 1.35000035E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.34999990E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.34999976E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 + 1.35000005E-01 0.00000000E+00 1.34999990E-01 1.34999990E-01 1.34999976E-01 + 1.35000005E-01 1.34999990E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.34999990E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 1.34999990E-01 1.35000005E-01 + 1.35000020E-01 1.35000020E-01 1.35000020E-01 0.00000000E+00 1.35000005E-01 + 1.35000005E-01 1.34999990E-01 1.34999976E-01 1.35000005E-01 1.34999990E-01 + 1.34999990E-01 0.00000000E+00 1.35000005E-01 1.34999990E-01 1.34999990E-01 + 1.35000005E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 1.35000020E-01 + 1.35000035E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.34999990E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.34999990E-01 1.35000005E-01 1.35000020E-01 1.34999976E-01 + 1.35000020E-01 1.35000005E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 1.35000005E-01 + 1.35000005E-01 0.00000000E+00 1.34999990E-01 1.34999990E-01 1.34999976E-01 + 1.35000005E-01 1.34999990E-01 1.34999990E-01 0.00000000E+00 1.35000020E-01 + 1.34999990E-01 1.35000020E-01 1.35000005E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 1.35000005E-01 1.35000020E-01 0.00000000E+00 0.00000000E+00 + 1.35000005E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +DIFFX + 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 3.00000012E-01 + 3.00000042E-01 3.00000012E-01 3.00000042E-01 2.99999982E-01 2.99999982E-01 + 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999952E-01 2.99999982E-01 + 3.00000012E-01 2.99999982E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000012E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 + 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 0.00000000E+00 + 3.00000012E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000042E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999976E-01 4.00000006E-01 4.00000036E-01 3.99999946E-01 4.00000006E-01 + 4.00000006E-01 4.00000006E-01 4.00000006E-01 3.00000012E-01 4.00000036E-01 + 3.99999976E-01 4.00000036E-01 3.99999946E-01 4.00000006E-01 3.99999976E-01 + 3.99999946E-01 2.99999982E-01 4.00000036E-01 3.99999976E-01 3.99999976E-01 + 4.00000036E-01 4.00000036E-01 4.00000036E-01 3.00000012E-01 4.00000036E-01 + 4.00000006E-01 3.99999946E-01 3.99999976E-01 2.99999952E-01 2.99999982E-01 + 4.00000036E-01 3.99999976E-01 4.00000066E-01 2.99999982E-01 0.00000000E+00 + 4.00000036E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000012E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 4.00000036E-01 3.99999946E-01 3.99999976E-01 4.00000036E-01 3.99999946E-01 + 4.00000006E-01 4.00000006E-01 4.00000006E-01 2.99999982E-01 4.00000006E-01 + 4.00000095E-01 3.99999917E-01 4.00000036E-01 4.00000006E-01 4.00000006E-01 + 3.99999976E-01 3.00000012E-01 3.99999946E-01 3.99999946E-01 3.99999887E-01 + 4.00000036E-01 3.99999976E-01 3.99999976E-01 3.00000012E-01 4.00000006E-01 + 3.99999976E-01 4.00000006E-01 3.99999976E-01 3.00000012E-01 2.99999982E-01 + 4.00000006E-01 3.99999976E-01 4.00000036E-01 2.99999982E-01 0.00000000E+00 + 4.00000006E-01 3.00000012E-01 2.99999982E-01 0.00000000E+00 2.99999982E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2.99999982E-01 3.00000042E-01 2.99999982E-01 3.00000012E-01 2.99999982E-01 + 3.00000042E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 + 3.00000012E-01 2.99999982E-01 2.99999982E-01 2.99999982E-01 2.99999982E-01 + 3.00000012E-01 3.00000042E-01 3.00000012E-01 3.00000012E-01 3.00000012E-01 + 3.00000042E-01 3.00000012E-01 3.00000012E-01 2.99999982E-01 3.00000012E-01 + 2.99999982E-01 2.99999982E-01 3.00000012E-01 3.00000042E-01 3.00000012E-01 + 2.99999952E-01 3.00000101E-01 2.99999952E-01 3.00000012E-01 0.00000000E+00 + 3.00000012E-01 3.00000012E-01 3.00000042E-01 0.00000000E+00 3.00000042E-01 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 180 <- +CHI + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 + 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 1.00000000E+00 +-> 3 12 2 332 <- +SCAT00 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000028E-02 + 0.00000000E+00 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999958E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 1.99999958E-02 0.00000000E+00 2.00000033E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000033E-02 + 0.00000000E+00 3.99999917E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 2.00000051E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000033E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 1.99999996E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000014E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999977E-02 0.00000000E+00 2.00000051E-02 0.00000000E+00 3.99999917E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 2.00000014E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999977E-02 + 0.00000000E+00 2.00000014E-02 0.00000000E+00 4.00000066E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 2.00000014E-02 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 3.99999917E-02 0.00000000E+00 + 0.00000000E+00 1.99999977E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 4.00000028E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 4.00000066E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 4.00000066E-02 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 4.00000103E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 3.99999954E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 + 3.99999954E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 3.99999991E-02 0.00000000E+00 + 3.99999991E-02 0.00000000E+00 3.99999954E-02 0.00000000E+00 3.99999917E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 0.00000000E+00 3.99999991E-02 + 0.00000000E+00 4.00000028E-02 0.00000000E+00 4.00000028E-02 0.00000000E+00 + 0.00000000E+00 3.99999991E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 0.00000000E+00 +-> 3 12 1 180 <- +IPOS00 + 1 3 5 7 9 11 13 15 + 17 19 21 23 25 27 29 31 + 33 35 37 39 41 43 45 47 + 49 51 53 55 57 59 61 63 + 65 67 69 70 72 74 76 77 + 79 80 81 82 83 84 86 88 + 90 92 94 96 98 100 102 104 + 106 108 110 112 114 116 118 120 + 122 124 126 128 130 132 134 136 + 138 140 142 144 146 148 150 152 + 153 155 157 159 160 162 163 164 + 165 166 167 169 171 173 175 177 + 179 181 183 185 187 189 191 193 + 195 197 199 201 203 205 207 209 + 211 213 215 217 219 221 223 225 + 227 229 231 233 235 236 238 240 + 242 243 245 246 247 248 249 250 + 252 254 256 258 260 262 264 266 + 268 270 272 274 276 278 280 282 + 284 286 288 290 292 294 296 298 + 300 302 304 306 308 310 312 314 + 316 318 319 321 323 325 326 328 + 329 330 331 332 +-> 3 12 1 180 <- +NJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 1 2 2 2 1 2 + 1 1 1 1 1 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 1 + 2 2 2 1 2 1 1 1 + 1 1 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 1 2 2 2 + 1 2 1 1 1 1 1 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 1 2 2 2 1 2 1 + 1 1 1 1 +-> 3 12 1 180 <- +IJJS00 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 + 2 2 2 2 +-> -3 0 0 0 <- +-> 1 12 1 40 <- +STATE-VECTOR + 2 180 1 1 0 0 0 0 + 2 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> -1 0 0 0 <- diff --git a/Trivac/data/assertS.c2m b/Trivac/data/assertS.c2m new file mode 100755 index 0000000..b5b6a58 --- /dev/null +++ b/Trivac/data/assertS.c2m @@ -0,0 +1,36 @@ +* +* Assert procedure for non-regression testing +* Recover a value from a real array +* Author: A. Hebert +* +PARAMETER LCMNAM :: ::: LINKED_LIST LCMNAM ; ; +CHARACTER KEY ; +INTEGER ISET IPOS ; +REAL REFVALUE ; +:: >>KEY<< >>IPOS<< >>REFVALUE<< ; +INTEGER ITYLCM ; +REAL VALUE DELTA ; +DOUBLE PRECISION DVALUE ; +MODULE GREP: ABORT: END: ; +* +GREP: LCMNAM :: TYPE <<KEY>> >>ITYLCM<< ; +IF ITYLCM 2 = THEN + GREP: LCMNAM :: GETVAL <<KEY>> <<IPOS>> >>VALUE<< ; +ELSEIF ITYLCM 4 = THEN + GREP: LCMNAM :: GETVAL <<KEY>> <<IPOS>> >>DVALUE<< ; + EVALUATE VALUE := DVALUE D_TO_R ; +ELSE + PRINT "assertS: INVALID TYPE=" ITYLCM ; + ABORT: ; +ENDIF ; +EVALUATE DELTA := VALUE REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-5 < THEN + PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + PRINT "------------" ; + PRINT "TEST FAILURE" ; + PRINT "------------" ; + PRINT "REFERENCE=" REFVALUE " CALCULATED=" VALUE ; + ABORT: ; +ENDIF ; +END: ; diff --git a/Trivac/data/assertV.c2m b/Trivac/data/assertV.c2m new file mode 100755 index 0000000..7b8ee3d --- /dev/null +++ b/Trivac/data/assertV.c2m @@ -0,0 +1,32 @@ +* +* Assert procedure for non-regression testing +* Recover a value from a list of real arrays +* Author: A. Hebert +* +PARAMETER LCMNAM :: ::: LINKED_LIST LCMNAM ; ; +CHARACTER KEY ; +INTEGER ISET IPOS ; +REAL REFVALUE ; +:: >>KEY<< >>ISET<< >>IPOS<< >>REFVALUE<< ; +INTEGER ITYLCM ; +REAL VALUE DELTA ; +MODULE GREP: ABORT: END: ; +* +GREP: LCMNAM :: TYPE <<KEY>> >>ITYLCM<< ; +IF ITYLCM 10 = THEN + GREP: LCMNAM :: STEP UP <<KEY>> GETVAL <<ISET>> <<IPOS>> >>VALUE<< ; +ELSE + PRINT "assertV: INVALID TYPE=" ITYLCM ; + ABORT: ; +ENDIF ; +EVALUATE DELTA := VALUE REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-5 < THEN + PRINT "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + PRINT "------------" ; + PRINT "TEST FAILURE" ; + PRINT "------------" ; + PRINT "REFERENCE=" REFVALUE " CALCULATED=" VALUE ; + ABORT: ; +ENDIF ; +END: ; diff --git a/Trivac/data/iaea3d.access b/Trivac/data/iaea3d.access new file mode 100755 index 0000000..e56bd7f --- /dev/null +++ b/Trivac/data/iaea3d.access @@ -0,0 +1,4 @@ +#!/bin/sh +echo access iaea3d.access +ln -s "$1"/data/_iaea3d_ref.txt . +ls -l diff --git a/Trivac/data/iaea3d.save b/Trivac/data/iaea3d.save new file mode 100755 index 0000000..fca08a6 --- /dev/null +++ b/Trivac/data/iaea3d.save @@ -0,0 +1,22 @@ +#!/bin/sh +# +if [ $# = 0 ] + then + echo "usage: iaea3d.save directory" 1>&2 + exit 1 +fi +echo access iaea3d.save +MACH=`uname -s` +Sysx="`echo $MACH | cut -b -6`" +if [ $Sysx = "CYGWIN" ]; then + MACH=`uname -o` +elif [ $Sysx = "AIX" ]; then + MACH=`uname -s` +else + MACH=`uname -sm | sed 's/[ ]/_/'` +fi +ls -l +mv AIFLUD $1/"$MACH"/AIFLUiaea_d33 +mv AIFLUP $1/"$MACH"/AIFLUiaea_p3 +mv AIFLUM $1/"$MACH"/AIFLUiaea_m3 +echo "iaea3d.save completed" diff --git a/Trivac/data/iaea3d.x2m b/Trivac/data/iaea3d.x2m new file mode 100644 index 0000000..0b872fb --- /dev/null +++ b/Trivac/data/iaea3d.x2m @@ -0,0 +1,138 @@ +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX EDIT REF IFLU ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: ERROR: END: VAL: DELETE: ; +MODULE ABORT: ; +SEQ_ASCII _iaea3d_ref :: FILE './_iaea3d_ref.txt' ; +SEQ_ASCII AIFLUD AIFLUP AIFLUM :: + FILE './AIFLUD' './AIFLUP' './AIFLUM' ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.0000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.5000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFFX 1.500E+00 4.00000E-01 + TOTAL 3.000E-02 1.30000E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 1.0000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + MIX 5 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 5.5000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 40500 DUAL 3 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 1.0E-7 1000 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028980 ; +EDIT := OUT: FLUX TRACK MACRO IAEA3D :: + EDIT 2 INTG IN + ; +REF := _iaea3d_ref :: EDIT 99 ; +ERROR: REF EDIT ; + +IFLU := VAL: TRACK FLUX :: + EDIT 2 + DIM 3 10.0 10.0 20.0 + ; +AIFLUD := IFLU ; + +TRACK SYSTEM FLUX IFLU := DELETE: TRACK SYSTEM FLUX IFLU ; + +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 PRIM 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +IFLU := VAL: TRACK FLUX :: + EDIT 2 + DIM 3 10.0 10.0 20.0 + ; +AIFLUP := IFLU ; + +TRACK SYSTEM FLUX IFLU := DELETE: TRACK SYSTEM FLUX IFLU ; + +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 MCFD 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +IFLU := VAL: TRACK FLUX :: + EDIT 2 + DIM 3 10.0 10.0 20.0 + ; +AIFLUM := IFLU ; + +END: ; diff --git a/Trivac/data/monju3D_spn.x2m b/Trivac/data/monju3D_spn.x2m new file mode 100644 index 0000000..f504b11 --- /dev/null +++ b/Trivac/data/monju3D_spn.x2m @@ -0,0 +1,121 @@ +*---- +* Monju 3D benchmark in SP3 approximation +*---- +LINKED_LIST HEX3D MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: GREP: END: ; +PROCEDURE assertS ; +INTEGER IVAL ; +* +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 5 NIFI 1 ANIS 1 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + TOTAL 1.31234E-01 1.93349E-01 2.63713E-01 + SCAT 1 1 (*1->1*) 1.00247E-01 + 2 2 (*2->2*) 1.83859E-01 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 2.56380E-01 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + MIX 2 (* ACTIVE OUTER CORE *) + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + TOTAL 1.30822E-01 1.93237E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 9.96078E-02 + 2 2 (*2->2*) 1.83362E-01 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 2.54575E-01 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + MIX 3 (* RADIAL/AXIAL BLANKET *) + NUSIGF 8.631E-03 5.995E-04 1.381E-03 + H-FACTOR 8.631E-03 5.995E-04 1.381E-03 + TOTAL 1.53398E-01 2.31642E-01 3.24886E-01 + SCAT 1 1 (*1->1*) 1.15467E-01 + 2 2 (*2->2*) 2.19799E-01 (*1->2*) 3.288E-02 + 3 3 (*3->3*) 3.17275E-01 (*2->3*) 1.000E-02 (*1->3*) 7.468E-04 + MIX 4 (* CONTROL ROD *) + TOTAL 1.33333E-01 1.98295E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 1.10053E-01 + 2 2 (*2->2*) 1.85568E-01 (*1->2*) 2.185E-02 + 3 3 (*3->3*) 2.47704E-01 (*2->3*) 9.379E-03 (*1->3*) 2.163E-04 + MIX 5 (* SODIUM CHANNEL *) + TOTAL 6.93722E-02 1.02187E-01 1.37118E-01 + SCAT 1 1 (*1->1*) 5.78471E-02 + 2 2 (*2->2*) 9.85380E-02 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 1.36811E-01 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + ; +* +HEX3D := GEO: :: HEXZ 133 4 + EDIT 2 + HBC R120 VOID + SIDE 6.67417 + Z- VOID Z+ VOID + MESHZ 0.0 30.0 79.0 123.0 158.0 + SPLITZ 1 2 2 1 + SPLITL 1 + MIX + (* UPPER BLANKET *) + 4 + 3 3 + 3 3 3 3 + 3 4 3 3 4 3 + 3 3 3 3 3 3 3 3 + 4 3 3 3 3 4 3 3 3 3 + 3 3 3 4 3 3 3 3 3 4 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* UPPER INNER/OUTER CORE *) + 4 + 1 1 + 1 1 1 1 + 1 4 1 1 4 1 + 1 1 1 1 1 1 1 1 + 4 1 1 1 1 4 1 1 1 1 + 1 1 1 4 1 1 1 1 1 4 1 1 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* LOWER INNER/OUTER CORE *) + 4 + 1 1 + 1 1 1 1 + 1 4 1 1 4 1 + 1 1 1 1 1 1 1 1 + 5 1 1 1 1 5 1 1 1 1 + 1 1 1 5 1 1 1 1 1 5 1 1 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + (* LOWER BLANKET *) + 4 + 3 3 + 3 3 3 3 + 3 4 3 3 4 3 + 3 3 3 3 3 3 3 3 + 5 3 3 3 3 5 3 3 3 3 + 3 3 3 5 3 3 3 3 3 5 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 0 + ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST 3D FBR MONJU (3 GROUPS).' + EDIT 2 MAXR 8000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 + SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 EXTE 300 1.0E-6 ; +EDIT := OUT: FLUX HEX3D MACRO TRACK :: + EDIT 2 INTG IN ; +GREP: TRACK :: GETVAL 'STATE-VECTOR' 2 >>IVAL<< ; +PRINT "nb of unkn =" IVAL ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.038084 ; +ECHO "test monju3D_spn completed" ; +END: ; diff --git a/Trivac/data/multigroup_albedo_2d.x2m b/Trivac/data/multigroup_albedo_2d.x2m new file mode 100644 index 0000000..1661af6 --- /dev/null +++ b/Trivac/data/multigroup_albedo_2d.x2m @@ -0,0 +1,115 @@ +*---- +* TEST CASE multigroup_albedo_2d.x2m +* MACROLIB-DEFINED CROSS SECTIONS AND ALBEDOS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOMETRY MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: DELETE: + END: ; +PROCEDURE assertS ; +* +GEOMETRY := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ ALBE 1 + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + ALBP 1 0.3 0.7 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + NUSIGF 0.000E+00 1.35000E-02 + H-FACTOR 0.000E+00 1.35000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* BIVAC +*---- +TRACK := BIVACT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 DUAL 2 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.103389 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := BIVACT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 PRIM 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.127118 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* TRIVAC +*---- +TRACK := TRIVAT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 DUAL 2 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.103389 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 DUAL 2 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.098498 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 PRIM 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.127115 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +TRACK := TRIVAT: GEOMETRY :: + TITLE '2D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 2 MAXR 81 MCFD 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.098498 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +ECHO "test multigroup_albedo_2d completed" ; +END: ; diff --git a/Trivac/data/multigroup_albedo_3d.x2m b/Trivac/data/multigroup_albedo_3d.x2m new file mode 100644 index 0000000..fbfc6e4 --- /dev/null +++ b/Trivac/data/multigroup_albedo_3d.x2m @@ -0,0 +1,129 @@ +*---- +* TEST CASE multigroup_albedo_3d.x2m +* MACROLIB-DEFINED CROSS SECTIONS AND ALBEDOS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOMETRY MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: END: UTL: DELETE: ; +PROCEDURE assertS ; +* +GEOMETRY := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ ALBE 1 + Y- SYME Y+ DIAG + Z- ALBE 2 Z+ ALBE 3 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + ALBP 3 0.2 0.2 + 0.4 0.4 + 0.6 0.6 + READ INPUT + MIX 1 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.0000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFFX 1.500E+00 4.0000E-01 + TOTAL 3.000E-02 8.5000E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFFX 1.500E+00 4.00000E-01 + TOTAL 3.000E-02 1.30000E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 1.0000E-02 + NUSIGF 0.000E+00 1.35000E-02 + H-FACTOR 0.000E+00 1.35000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + MIX 5 + DIFFX 2.000E+00 3.0000E-01 + TOTAL 4.000E-02 5.5000E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; + +UTL: MACRO :: DIR IMPR STATE-VECTOR * ; + +TRACK := TRIVAT: GEOMETRY :: + TITLE '3D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 5 MAXR 405 DUAL 3 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.100502 ; + +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; + +TRACK := TRIVAT: GEOMETRY :: + TITLE '3D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 5 MAXR 405 PRIM 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.103704 ; + +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; + +TRACK := TRIVAT: GEOMETRY :: + TITLE '3D GEOMETRY WITH MULTIGROUP ALBEDOS' + EDIT 5 MAXR 405 MCFD 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.097387 ; +ECHO "test multigroup_albedo_3d completed" ; +END: ; diff --git a/Trivac/data/takedaM4_spn.x2m b/Trivac/data/takedaM4_spn.x2m new file mode 100644 index 0000000..0c6dc70 --- /dev/null +++ b/Trivac/data/takedaM4_spn.x2m @@ -0,0 +1,236 @@ +*------------------------ +* Benchmark Takeda Model 4 Case 1, rods withdraw +* +* Author : Charlotte Bay +* Date : October 2012 +*------------------------ +LINKED_LIST HEX3D TRACK MACRO SYSTEM FLUX EDIT ; +MODULE UTL: GEO: TRIVAT: MAC: TRIVAA: FLUD: OUT: GREP: END: ; +REAL Keff ; +PROCEDURE assertS ; +*---- +* Input geometry +*---- +HEX3D := GEO: :: HEXZ 169 5 + EDIT 2 + HBC COMPLETE VOID + SIDE 7.50 + Z- VOID Z+ VOID + MESHZ 0.0 45.0 65.0 125.0 145.0 190.0 + SPLITZ 4 2 6 2 4 + SPLITL 2 (*3*2^2 LOSANGES PAR HEXAGONE*) + MIX + (* COUCHE N.1 : Steel*) + 2 + 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.2 : Axial Blkt & Axial Refl*) + 11 + 11 11 11 11 11 11 + 10 2 10 2 10 2 10 2 10 2 10 2 + 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.3 : TestZone*) + 1 + 1 1 1 1 1 1 + 4 3 4 3 4 3 4 3 4 3 4 3 ! ici 3 = SodiumRod + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.4 : Axial Blkt & Axial Refl*) + 11 + 11 11 11 11 11 11 + 10 3 10 3 10 3 10 3 10 3 10 3 + 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.5 : Steel*) + 2 + 2 2 2 2 2 2 + 2 3 2 3 2 3 2 3 2 3 2 3 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + ; +TRACK := TRIVAT: HEX3D :: + TITLE 'TEST TAKEDA MODEL 4 CASE 1 (4 GROUPS).' + EDIT 2 MAXR 40000 DUAL (*THOMAS-RAVIART-SCHNEIDER METHOD*) + (*IELEM=*) 2 (*POL PARABOLIQUES*) + (*ICOL=*) 3 (*QUADR GAUSS-LEGENDRE*) + SPN 5 +; +*---- +* Input cross sections +*---- +MACRO := MAC: :: + EDIT 2 NGRO 4 NMIX 11 NIFI 1 + READ INPUT + MIX 1 (*TestZone*) + TOTAL 1.24526E-1 2.01025E-1 2.86599E-1 3.68772E-1 + NUSIGF 1.79043E-2 1.59961E-2 2.40856E-2 7.33104E-2 + CHI 0.908564 0.087307 0.004129 0.0 + SCAT 1 1 1.05964E-1 + 2 2 1.89370E-1 1.12738E-2 + 3 3 2.70207E-1 3.64847E-3 1.46192E-4 + 4 4 3.18960E-1 1.80479E-3 1.06888E-6 9.62178E-7 + MIX 2 (*Steel*) + TOTAL 9.83638E-2 1.35140E-1 2.24749E-1 2.83117E-1 + SCAT 1 1 9.06050E-2 + 2 2 1.30581E-1 7.42377E-3 + 3 3 2.19547E-1 4.35250E-3 1.18163E-4 + 4 4 2.80707E-1 4.64594E-3 3.41675E-7 8.25890E-7 + MIX 3 (*SodiumRod*) + TOTAL 7.27587E-2 1.00218E-1 1.60703E-1 1.51576E-1 + SCAT 1 1 6.63634E-2 + 2 2 9.61236E-2 6.23393E-3 + 3 3 1.56016E-1 4.01375E-3 7.02121E-5 + 4 4 1.50368E-1 4.49111E-3 1.26939E-7 4.16388E-7 + MIX 4 (*DriverWOMod*) + TOTAL 1.40226E-1 2.28245E-1 3.25806E-1 4.18327E-1 + NUSIGF 1.59878E-2 1.64446E-2 2.71451E-2 8.45807E-2 + CHI 0.908564 0.087307 0.004129 0.0 + SCAT 1 1 1.19887E-1 + 2 2 2.15213E-1 1.30790E-2 + 3 3 3.06885E-1 4.00117E-3 1.59938E-4 + 4 4 3.60906E-1 1.67341E-3 1.82716E-6 1.07166E-6 + MIX 5 (*DriverWMod*) + TOTAL 1.41428E-1 2.45394E-1 3.98255E-1 4.35990E-1 + NUSIGF 1.01663E-2 9.46359E-3 1.87325E-2 8.25335E-2 + CHI 0.908564 0.087307 0.004129 0.0 + SCAT 1 1 1.14337E-1 + 2 2 2.12006E-1 2.09664E-2 + 3 3 3.52093E-1 2.67269E-2 1.39132E-3 + 4 4 3.70872E-1 3.29030E-2 1.08186E-3 6.10281E-5 + MIX 6 (*ReflWOMod*) + TOTAL 1.59346E-1 2.16355E-1 3.48692E-1 6.24249E-1 + SCAT 1 1 1.47969E-1 + 2 2 2.10410E-1 1.06607E-2 + 3 3 3.42085E-1 5.46711E-3 2.49956E-4 + 4 4 6.19306E-1 5.36879E-3 1.00157E-6 1.82565E-6 + MIX 7 (*ReflWMod*) + TOTAL 1.39164E-1 2.46993E-1 4.52425E-1 5.36256E-1 + SCAT 1 1 1.05911E-1 + 2 2 1.84820E-1 2.96485E-2 + 3 3 3.73072E-1 5.91780E-2 3.06502E-3 + 4 4 5.12103E-1 7.81326E-2 2.69229E-3 1.41697E-4 + MIX 8 (*KNK1Reflector*) + TOTAL 1.51644E-1 1.42382E-1 1.65132E-1 8.04845E-1 + SCAT 1 1 1.38427E-1 + 2 2 1.37502E-1 1.23901E-2 + 3 3 1.60722E-1 4.41927E-3 3.66930E-4 + 4 4 7.98932E-1 3.33075E-3 1.63280E-6 1.69036E-6 + MIX 9 (*SodiumSteel*) + TOTAL 9.65097E-2 9.87095E-2 1.34200E-1 4.12670E-1 + SCAT 1 1 8.83550E-2 + 2 2 9.52493E-2 7.73409E-3 + 3 3 1.30756E-1 3.22568E-3 1.94719E-4 + 4 4 4.09632E-1 2.90481E-3 7.98494E-7 8.89615E-7 + MIX 10 (*AxialReflector*) + TOTAL 1.32933E-1 1.78531E-1 2.83151E-1 4.62167E-1 + SCAT 1 1 1.22995E-1 + 2 2 1.73095E-1 9.41231E-3 + 3 3 2.77194E-1 5.09881E-3 1.93791E-4 + 4 4 4.58598E-1 5.09601E-3 7.05075E-7 1.39307E-6 + MIX 11 (*AxialBlanket*) + TOTAL 1.40462E-1 2.25534E-1 3.27065E-1 3.41224E-1 + NUSIGF 2.96101E-3 6.56171E-5 1.14630E-4 4.93483E-4 + CHI 0.908564 0.087307 0.004129 0.0 + SCAT 1 1 1.23805E-1 + 2 2 2.17260E-1 1.45483E-2 + 3 3 3.17948E-1 6.78885E-3 1.70276E-4 + 4 4 3.31281E-1 4.38782E-3 6.04793E-6 9.37083E-7 + ; +*---- +* Flux solution +*---- +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 2 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 6 EXTE 300 1.0E-6 ; +EDIT := OUT: FLUX HEX3D MACRO TRACK :: + EDIT 2 INTG + (* COUCHE N.1 : Steel*) + 2 + 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.2 : Axial Blkt & Axial Refl*) + 11 + 11 11 11 11 11 11 + 10 2 10 2 10 2 10 2 10 2 10 2 + 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.3 : TestZone*) + 1 + 1 1 1 1 1 1 + 4 3 4 3 4 3 4 3 4 3 4 3 ! ici 3 = SodiumRod + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.4 : Axial Blkt & Axial Refl*) + 11 + 11 11 11 11 11 11 + 10 3 10 3 10 3 10 3 10 3 10 3 + 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + (* COUCHE N.5 : Steel*) + 2 + 2 2 2 2 2 2 + 2 3 2 3 2 3 2 3 2 3 2 3 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 + 8 8 8 8 8 8 + 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 + 9 9 9 9 9 9 9 9 9 9 9 9 + ; +GREP: FLUX :: GETVAL 'K-EFFECTIVE' 1 >>Keff<< ; +ECHO "Keff=" Keff ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.090485 ; +ECHO "test takedaM4_spn completed" ; +END: ; |