diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Skin++/data | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Skin++/data')
| -rwxr-xr-x | Skin++/data/_Geo3D.txt | 230 | ||||
| -rwxr-xr-x | Skin++/data/fact.c2m | 19 | ||||
| -rwxr-xr-x | Skin++/data/grep.c2m | 15 | ||||
| -rwxr-xr-x | Skin++/data/pwr2010.c2m | 19 |
4 files changed, 283 insertions, 0 deletions
diff --git a/Skin++/data/_Geo3D.txt b/Skin++/data/_Geo3D.txt new file mode 100755 index 0000000..a9b892d --- /dev/null +++ b/Skin++/data/_Geo3D.txt @@ -0,0 +1,230 @@ +-> 1 12 1 4 <- +MIX + -1 -2 -3 -4 +-> 1 12 0 -1 <- +FC1B +-> 2 12 2 5 <- +MESHY + -1.42875004E+01 -7.28750038E+00 0.00000000E+00 7.28750038E+00 1.42875004E+01 +-> 2 12 2 2 <- +MESHZ + -2.47649994E+01 -7.00000000E+00 +-> 2 12 2 3 <- +OFFCENTER + 3.50000000E+00 0.00000000E+00 0.00000000E+00 +-> 2 12 2 6 <- +RADIUS + 0.00000000E+00 7.22163022E-01 2.16032505E+00 3.60068202E+00 5.16887522E+00 + 6.58748198E+00 +-> 2 12 1 72 <- +MIX + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 +-> 2 12 3 3 <- +SIGNATURE + 4 4 4 +L_GEOM +-> 2 12 1 40 <- +STATE-VECTOR + 23 5 3 4 1 72 11 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> 2 12 1 6 <- +NCODE + 0 0 0 0 0 0 +-> 2 12 2 6 <- +ZCODE + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 +-> 2 12 1 6 <- +ICODE + 0 0 0 0 0 0 +-> 2 12 2 4 <- +MESHX + -2.85750008E+01 -2.15750008E+01 -1.42875004E+01 -7.00000000E+00 +-> -2 0 0 0 <- +-> 1 12 0 -1 <- +MD1B +-> 2 12 2 5 <- +MESHY + -1.42875004E+01 -7.28750038E+00 0.00000000E+00 7.28750038E+00 1.42875004E+01 +-> 2 12 2 2 <- +MESHZ + -2.47649994E+01 -7.00000000E+00 +-> 2 12 1 8 <- +MIX + 11 11 11 11 11 11 11 11 +-> 2 12 3 3 <- +SIGNATURE + 4 4 4 +L_GEOM +-> 2 12 1 40 <- +STATE-VECTOR + 7 0 2 4 1 8 11 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> 2 12 1 6 <- +NCODE + 0 0 0 0 0 0 +-> 2 12 2 6 <- +ZCODE + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 +-> 2 12 1 6 <- +ICODE + 0 0 0 0 0 0 +-> 2 12 2 3 <- +MESHX + -7.00000000E+00 0.00000000E+00 7.00000000E+00 +-> -2 0 0 0 <- +-> 1 12 0 -1 <- +FC1T +-> 2 12 2 5 <- +MESHY + -1.42875004E+01 -7.28750038E+00 0.00000000E+00 7.28750038E+00 1.42875004E+01 +-> 2 12 2 3 <- +MESHZ + -7.00000000E+00 0.00000000E+00 7.00000000E+00 +-> 2 12 2 3 <- +OFFCENTER + 3.50000000E+00 0.00000000E+00 0.00000000E+00 +-> 2 12 2 6 <- +RADIUS + 0.00000000E+00 7.22163022E-01 2.16032505E+00 3.60068202E+00 5.16887522E+00 + 6.58748198E+00 +-> 2 12 1 144 <- +MIX + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 + 1 2 3 4 5 11 1 2 + 3 4 5 11 1 2 3 4 + 5 11 1 2 3 4 5 11 +-> 2 12 3 3 <- +SIGNATURE + 4 4 4 +L_GEOM +-> 2 12 1 40 <- +STATE-VECTOR + 23 5 3 4 2 144 11 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> 2 12 1 6 <- +NCODE + 0 0 0 0 0 0 +-> 2 12 2 6 <- +ZCODE + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 +-> 2 12 1 6 <- +ICODE + 0 0 0 0 0 0 +-> 2 12 2 4 <- +MESHX + -2.85750008E+01 -2.15750008E+01 -1.42875004E+01 -7.00000000E+00 +-> -2 0 0 0 <- +-> 1 12 0 -1 <- +AD1T +-> 2 12 2 5 <- +MESHY + -1.42875004E+01 -7.28750038E+00 0.00000000E+00 7.28750038E+00 1.42875004E+01 +-> 2 12 2 3 <- +MESHZ + -7.00000000E+00 0.00000000E+00 7.00000000E+00 +-> 2 12 2 7 <- +RADIUS + 0.00000000E+00 5.77000022E-01 3.67805004E+00 3.80999994E+00 4.44500017E+00 + 4.75199986E+00 6.37763977E+00 +-> 2 12 1 112 <- +MIX + 12 13 14 15 16 17 11 12 + 13 14 15 16 17 11 12 13 + 14 15 16 17 11 12 13 14 + 15 16 17 11 12 13 14 15 + 16 17 11 12 13 14 15 16 + 17 11 12 13 14 15 16 17 + 11 12 13 14 15 16 17 11 + 12 13 14 15 16 17 11 12 + 13 14 15 16 17 11 12 13 + 14 15 16 17 11 12 13 14 + 15 16 17 11 12 13 14 15 + 16 17 11 12 13 14 15 16 + 17 11 12 13 14 15 16 17 + 11 12 13 14 15 16 17 11 +-> 2 12 3 3 <- +SIGNATURE + 4 4 4 +L_GEOM +-> 2 12 1 40 <- +STATE-VECTOR + 22 6 2 4 2 112 17 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> 2 12 1 6 <- +NCODE + 0 0 0 0 0 0 +-> 2 12 2 6 <- +ZCODE + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 0.00000000E+00 +-> 2 12 1 6 <- +ICODE + 0 0 0 0 0 0 +-> 2 12 2 3 <- +MESHX + -7.00000000E+00 0.00000000E+00 7.00000000E+00 +-> -2 0 0 0 <- +-> 1 12 3 3 <- +SIGNATURE + 4 4 4 +L_GEOM +-> 1 12 1 40 <- +STATE-VECTOR + 7 0 2 1 2 4 17 1 + 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 +-> 1 12 1 6 <- +NCODE + 2 5 2 5 2 5 +-> 1 12 2 6 <- +ZCODE + 1.00000000E+00 0.00000000E+00 1.00000000E+00 0.00000000E+00 1.00000000E+00 + 0.00000000E+00 +-> 1 12 1 6 <- +ICODE + 0 0 0 0 0 0 +-> 1 12 3 12 <- +CELL + 4 4 4 4 4 4 4 4 + 4 4 4 4 +FC1B MD1B FC1T AD1T +-> -1 0 0 0 <- diff --git a/Skin++/data/fact.c2m b/Skin++/data/fact.c2m new file mode 100755 index 0000000..45a6dfd --- /dev/null +++ b/Skin++/data/fact.c2m @@ -0,0 +1,19 @@ + ! + ! Example of a recursive procedure. + ! + ! input to "fact": *n* + ! output from "fact": *n_fact* + ! + INTEGER n n_fact prev_fact ; + :: >>n<< ; + IF n 1 = THEN + EVALUATE n_fact := 1 ; + ELSE + EVALUATE n := n 1 - ; + ! Here, "fact" calls itself + PROCEDURE fact ; + fact :: <<n>> >>prev_fact<< ; + EVALUATE n_fact := n 1 + prev_fact * ; + ENDIF ; + :: <<n_fact>> ; + QUIT " Recursive procedure *fact* XREF " . diff --git a/Skin++/data/grep.c2m b/Skin++/data/grep.c2m new file mode 100755 index 0000000..f79ad30 --- /dev/null +++ b/Skin++/data/grep.c2m @@ -0,0 +1,15 @@ + ! + ! Grep a value in the state-vector of a LCM object + ! + ! input to "grep": *lcm object* + ! output from "grep": *nb_mix* + ! + PARAMETER GEOM :: + ::: LINKED_LIST GEOM ; ; + MODULE GREP: END: ; + INTEGER nb_mix ; + + GREP: GEOM :: GETVAL 'STATE-VECTOR' 7 >>nb_mix<< ; + :: <<nb_mix>> ; + END: ; + QUIT . diff --git a/Skin++/data/pwr2010.c2m b/Skin++/data/pwr2010.c2m new file mode 100755 index 0000000..14d5042 --- /dev/null +++ b/Skin++/data/pwr2010.c2m @@ -0,0 +1,19 @@ + ! + ! Dummy pwr2010 computational scheme + ! + PARAMETER saphyb :: + ::: XSM_FILE saphyb ; ; + MODULE UTL: END: ; + STRING draglib type fuel rod homoge ; + :: >>draglib<< >>type<< >>fuel<< >>rod<< >>homoge<< ; + REAL u235 burnup ; + :: >>u235<< >>burnup<< ; + INTEGER ngroup ; + :: >>ngroup<< ; + + saphyb := UTL: :: CREA 'SIGNATURE' 3 = 'L_SA' 'PHYB' ' ' ; + ECHO "draglib=" draglib " type=" type " fuel=" fuel ; + ECHO "rod=" rod " homoge=" homoge " u235=" u235 ; + ECHO "burnup=" burnup " ngroup=" ngroup ; + + QUIT " Computational scheme *pwr2010* XREF " . |