diff options
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" . |