From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Dragon/data/proc_CNG/LCNG_U2_nDf.c2m | 271 +++++++++++++++++++++++++++++++++++ 1 file changed, 271 insertions(+) create mode 100644 Dragon/data/proc_CNG/LCNG_U2_nDf.c2m (limited to 'Dragon/data/proc_CNG/LCNG_U2_nDf.c2m') diff --git a/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m new file mode 100644 index 0000000..4ee621a --- /dev/null +++ b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m @@ -0,0 +1,271 @@ +*---------- +* Definition des parametres de la procedure +* +PARAMETER Biblio :: + EDIT 1 + ::: LINKED_LIST Biblio ; + ; +REAL + TempComb TempCalo + TempPres TempMode TempCala + ; +STRING + LibName + ; +INTEGER + CF11 CF12 CF13 CF14 + CF21i CF22i CF23i CF24i + CF31i CF32i CF33i CF34i + CF41i CF42i CF43i CF44i + CF21e CF22e CF23e CF24e + CF31e CF32e CF33e CF34e + CF41e CF42e CF43e CF44e + VF11 VF12 VF13 VF14 + VF21i VF22i VF23i VF24i + VF31i VF32i VF33i VF34i + VF41i VF42i VF43i VF44i + VF21e VF22e VF23e VF24e + VF31e VF32e VF33e VF34e + VF41e VF42e VF43e VF44e + COOL PT HEG CT + MOD SH VOID + ; +* +* reccupere information transferee a la procedure +* +:: + >>TempComb<< >>TempCalo<< + >>TempPres<< + >>TempMode<< >>TempCala<< + >>LibName<< + >>CF11<< >>CF12<< >>CF13<< >>CF14<< + + >>CF21i<< >>CF22i<< >>CF23i<< >>CF24i<< + >>CF31i<< >>CF32i<< >>CF33i<< >>CF34i<< + >>CF41i<< >>CF42i<< >>CF43i<< >>CF44i<< + + >>CF21e<< >>CF22e<< >>CF23e<< >>CF24e<< + >>CF31e<< >>CF32e<< >>CF33e<< >>CF34e<< + >>CF41e<< >>CF42e<< >>CF43e<< >>CF44e<< + + >>VF11<< >>VF12<< >>VF13<< >>VF14<< + + >>VF21i<< >>VF22i<< >>VF23i<< >>VF24i<< + >>VF31i<< >>VF32i<< >>VF33i<< >>VF34i<< + >>VF41i<< >>VF42i<< >>VF43i<< >>VF44i<< + + >>VF21e<< >>VF22e<< >>VF23e<< >>VF24e<< + >>VF31e<< >>VF32e<< >>VF33e<< >>VF34e<< + >>VF41e<< >>VF42e<< >>VF43e<< >>VF44e<< + + >>COOL<< >>PT<< >>HEG<< >>CT<< + >>MOD<< >>SH<< >>VOID<< + ; +* +* Structures de donnees locales et +* modules et parametres +* +MODULE + LIB: + ; +STRING IsoU5 IsoU8 IsoO16 IsoH1 + IsoD2 IsoB10 IsoZr IsoFe4 + IsoFe6 IsoFe7 IsoFe8 IsoCr0 + IsoCr2 IsoCr3 IsoCr4 IsoNi8 + IsoNi0 IsoNi1 IsoNi2 IsoNi4 + IsoNb IsoHe4 IsoDy0 IsoDy1 + IsoDy2 IsoDy3 IsoDy4 + := + "U235" "U238" "O16" "H1_H2O" + "H2_D2O" "B10" "Zr0" "Fe54" + "Fe56" "Fe57" "Fe58" "Cr50" + "Cr52" "Cr53" "Cr54" "Ni58" + "Ni60" "Ni61" "Ni62" "Ni64" + "Nb93" "He4" "Dy160" "Dy161" + "Dy162" "Dy163" "Dy164" + ; +REAL + Ftemp Ctemp Mtemp PTtemp CTtemp := + TempComb 273. + + TempCalo 273. + + TempMode 273. + + TempPres 273. + + TempCala 273. + + ; +ECHO "Temperature combustible =" TempComb "C" ; +ECHO "Temperature caloporteur =" TempCalo "C" ; +* +* section efficace microscopiques de LibName +* +Biblio := LIB: :: + EDIT 1 + NMIX <> + CTRA APOL + PTSL + ANIS 2 + MIXS LIB: DRAGON FIL: <> +* caloporteur +*--- + MIX <> <> + H1 = <> 4.7720E-02 + O16 = <> 2.3860E-02 +* tube de pression +*--- + MIX <> <> + ZR = <> 4.1780E-02 2 IRSET PTSL NONE + NB = <> 1.0877E-03 + FE4 = <> 1.9854E-06 + FE6 = <> 3.0055E-05 + FE7 = <> 6.8192E-07 + FE8 = <> 8.9171E-08 + CR0 = <> 2.7556E-07 + CR2 = <> 5.1102E-06 + CR3 = <> 5.6848E-07 + CR4 = <> 1.3891E-07 + NI8 = <> 1.6108E-06 + NI0 = <> 5.9980E-07 + NI1 = <> 2.5647E-08 + NI2 = <> 8.0447E-08 + NI4 = <> 1.9850E-08 + B10 = <> 9.5090E-08 +* gap d'helium +*--- + MIX <> <> + HE4 = <> 2.0877E-04 +* tube de calandre +*--- + MIX <> <> + ZR = <> 4.2364E-02 2 IRSET PTSL NONE + FE4 = <> 5.7861E-06 + FE6 = <> 8.7588E-05 + FE7 = <> 1.9873E-06 + FE8 = <> 2.5991E-07 + CR0 = <> 3.4408E-06 + CR2 = <> 6.3805E-05 + CR3 = <> 7.0983E-06 + CR4 = <> 1.7342E-06 + NI8 = <> 2.5562E-05 + NI0 = <> 9.5185E-06 + NI1 = <> 4.0700E-07 + NI2 = <> 1.2765E-06 + NI4 = <> 3.1510E-07 + B10 = <> 2.3551E-07 +* moderateur +*--- + MIX <> <> + H1 = <> 6.4950E-05 + D2 = <> 6.4886E-02 + O16 = <> 3.2398E-02 +* crayon 1e anneau +*--- + MIX <> <> + O16 = <> 4.5117E-02 + U5 = <> 1.6252E-04 1 IRSET PTSL NONE + U8 = <> 2.2396E-02 1 IRSET PTSL NONE + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. +* crayon 2e anneau +*--- + MIX <> <> + O16 = <> 4.5124E-02 + U5 = <> 4.5689E-04 1 IRSET PTSL NONE + U8 = <> 2.2105E-02 1 IRSET PTSL NONE + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. +* crayons 3e anneau +*--- + MIX <> <> + O16 = <> 4.3808E-02 + U5 = <> 4.4357E-04 1 IRSET PTSL NONE + U8 = <> 2.1461E-02 1 IRSET PTSL NONE + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. +* crayons 4e anneau +*--- + MIX <> <> + O16 = <> 4.3808E-02 + U5 = <> 4.4357E-04 1 IRSET PTSL NONE + U8 = <> 2.1461E-02 1 IRSET PTSL NONE + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. + MIX <> COMB <> 1. +* gaine crayon +*--- + MIX <> <> + ZR = <> 4.9656E-02 2 IRSET PTSL NONE + FE4 = <> 1.0341E-05 + FE6 = <> 1.5654E-04 + FE7 = <> 3.5509E-06 + FE8 = <> 4.6451E-07 + CR0 = <> 3.9532E-06 + CR2 = <> 7.3306E-05 + CR3 = <> 8.1553E-06 + CR4 = <> 1.9925E-06 + NI8 = <> 3.7378E-06 + NI0 = <> 1.3918E-06 + NI1 = <> 5.9514E-08 + NI2 = <> 1.8668E-07 + NI4 = <> 4.6062E-08 + B10 = <> 2.7058E-07 +* void +*--- + MIX <> <> + H1 = <> 6.6918E-05 + O16 = <> 3.3459E-05 + ; +* +* terminer execution +* +QUIT "LIST" . -- cgit v1.2.3