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 /Dragon/data/tdraglib_proc/TCDR45.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/tdraglib_proc/TCDR45.c2m')
| -rw-r--r-- | Dragon/data/tdraglib_proc/TCDR45.c2m | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Dragon/data/tdraglib_proc/TCDR45.c2m b/Dragon/data/tdraglib_proc/TCDR45.c2m new file mode 100644 index 0000000..46710e8 --- /dev/null +++ b/Dragon/data/tdraglib_proc/TCDR45.c2m @@ -0,0 +1,62 @@ +*---- +* TEST CASE TRDR45 +* MIXTURES DEFINED WITH COMB INSTRUCTION +* 172-GROUP JEF2.2 DRAGLIB +* +* REF: none +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LIBRARY ; +MODULE LIB: END: ; +PROCEDURE assertS ; +*---- +* Concentrations given to LIB: +*---- +REAL Ni58 := 3.9171E-3 ; +REAL O16 := 2.3954E-2 ; +REAL H1_H2O := O16 2.0 * ; +REAL B10 := 4.7892E-6 ; +REAL B11 := 1.9157E-5 ; + +*---- +* Using COMB instruction to define MIX 3 +*---- +LIBRARY := LIB: :: + NMIX 3 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 579.9 + Ni58 = Ni58 <<Ni58>> + MIX 2 579.9 + O16 = O16 <<O16>> + H1H2O = H1_H2O <<H1_H2O>> + B10 = B10 <<B10>> + B11 = B11 <<B11>> + MIX 3 + COMB 1 0.01 + 2 0.99 +; +*---- +* Out-of-LIB: dilution +*---- +REAL Ni58dil := Ni58 0.01 * ; +REAL O16dil := O16 0.99 * ; +REAL H1_H2Odil := H1_H2O 0.99 * ; +REAL B10dil := B10 0.99 * ; +REAL B11dil := B11 0.99 * ; +* +assertS LIBRARY :: 'ISOTOPESDENS' 1 <<Ni58>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 2 <<O16>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 3 <<H1_H2O>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 4 <<B10>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 5 <<B11>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 6 <<Ni58dil>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 7 <<O16dil>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 8 <<H1_H2Odil>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 9 <<B10dil>> ; +assertS LIBRARY :: 'ISOTOPESDENS' 10 <<B11dil>> ; +* +ECHO "test TCDR45 completed" ; +END: ; +QUIT "LIST" . |