diff options
Diffstat (limited to 'Trivac/data/SPNtst_proc/SPNtst7_tri.c2m')
| -rwxr-xr-x | Trivac/data/SPNtst_proc/SPNtst7_tri.c2m | 61 |
1 files changed, 61 insertions, 0 deletions
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: ; |