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 /Donjon/data/Candu6_proc/SetDevPro.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/Candu6_proc/SetDevPro.c2m')
| -rwxr-xr-x | Donjon/data/Candu6_proc/SetDevPro.c2m | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/Donjon/data/Candu6_proc/SetDevPro.c2m b/Donjon/data/Candu6_proc/SetDevPro.c2m new file mode 100755 index 0000000..eca711b --- /dev/null +++ b/Donjon/data/Candu6_proc/SetDevPro.c2m @@ -0,0 +1,100 @@ +*********************************************************** +* * +* Procedure : SetDevPro.c2m * +* Purpose : Reactor rod-devices specification * +* Author(s) : M. Guyot (2010) * +* * +* CALL : MACRO := SetDevPro MACRO * +* GT ADJ ZCR STRUC ; * +* * +*********************************************************** + +PARAMETER MACRO GT ADJ ZCR STRUC :: + ::: LINKED_LIST + MACRO GT ADJ ZCR STRUC ; ; +MODULE CRE: END: ; + +INTEGER mR1 mR2 mR3 mR4 + mNR1 mNR2 mNR3 mNR4 := + 5 6 7 8 + 11 12 13 14 ; +INTEGER mRai mRao mRbi mRci mRco mRdi + mNRai mNRao mNRbi mNRci mNRco mNRdi := + 5 6 7 8 9 10 + 11 12 13 14 15 16 ; +INTEGER m23M m23E m23F m12M m12E m12F m01M m01E m01F := + 17 18 19 20 21 22 23 24 25 ; +INTEGER mGTR mNGTR mGTS mNGTS mGTZ mNGTZ + mGTD mNGTD mGTL mNGTL := + 26 27 28 29 30 31 + 32 33 34 35 ; +INTEGER mSBR mNSBR mSCR mNSCR mBLR mNBLR + mNTR mNNTR mNTZ mNNTZ mNTS mNNTS + mTSR mNTSR mTSZ mNTSZ mTSS mNTSS := + 36 37 38 39 40 41 + 42 43 44 45 46 47 + 48 49 50 51 52 53 ; + +MACRO := CRE: MACRO GT STRUC ZCR :: + EDIT 0 + READ + + COMPO ZCR MIX <<m23M>> 'NOBL32 1' ENDMIX + MIX <<m23E>> 'BLIQE32 1' ENDMIX + MIX <<m23F>> 'BLIQF32 1' ENDMIX + MIX <<m12M>> 'NOBL21 1' ENDMIX + MIX <<m12E>> 'BLIQE21 1' ENDMIX + MIX <<m12F>> 'BLIQF21 1' ENDMIX + MIX <<m01M>> 'NOBL10 1' ENDMIX + MIX <<m01E>> 'BLIQE10 1' ENDMIX + MIX <<m01F>> 'BLIQF10 1' ENDMIX + + COMPO GT MIX <<mGTR>> 'ADJGT 1' ENDMIX + MIX <<mNGTR>> 'ADJGTREF 1' ENDMIX + MIX <<mGTS>> 'SORGT 1' ENDMIX + MIX <<mNGTS>> 'SORGTREF 1' ENDMIX + MIX <<mGTZ>> 'LZCGT 1' ENDMIX + MIX <<mNGTZ>> 'LZCGTREF 1' ENDMIX + MIX <<mGTD>> 'HFDGT 1' ENDMIX + MIX <<mNGTD>> 'HFDGTREF 1' ENDMIX + MIX <<mGTL>> 'LPIGT 1' ENDMIX + MIX <<mNGTL>> 'LPIGTREF 1' ENDMIX + + COMPO STRUC MIX <<mSBR>> 'ADJSB 1' ENDMIX + MIX <<mNSBR>> 'ADJSBREF 1' ENDMIX + MIX <<mSCR>> 'ADJSC 1' ENDMIX + MIX <<mNSCR>> 'ADJSCREF 1' ENDMIX + MIX <<mBLR>> 'ADJBL 1' ENDMIX + MIX <<mNBLR>> 'ADJBLREF 1' ENDMIX + MIX <<mNTR>> 'ADJNT 1' ENDMIX + MIX <<mNNTR>> 'ADJNTREF 1' ENDMIX + MIX <<mNTZ>> 'LZCNT 1' ENDMIX + MIX <<mNNTZ>> 'LZCNTREF 1' ENDMIX + MIX <<mNTS>> 'SORNT 1' ENDMIX + MIX <<mNNTS>> 'SORNTREF 1' ENDMIX + MIX <<mTSR>> 'ADJTS 1' ENDMIX + MIX <<mNTSR>> 'ADJTSREF 1' ENDMIX + MIX <<mTSZ>> 'LZCTS 1' ENDMIX + MIX <<mNTSZ>> 'LZCTSREF 1' ENDMIX + MIX <<mTSS>> 'SORTS 1' ENDMIX + MIX <<mNTSS>> 'SORTSREF 1' ENDMIX ; + + MACRO := CRE: MACRO ADJ :: + EDIT 0 + READ + + COMPO ADJ MIX <<mRai>> 'BCAINT 1' ENDMIX + MIX <<mNRai>> 'BCAINTRE 1' ENDMIX + MIX <<mRao>> 'BCAOUT 1' ENDMIX + MIX <<mNRao>> 'BCAOUTRE 1' ENDMIX + MIX <<mRbi>> 'BCBINT 1' ENDMIX + MIX <<mNRbi>> 'BCBINTRE 1' ENDMIX + MIX <<mRci>> 'BCCINT 1' ENDMIX + MIX <<mNRci>> 'BCCINTRE 1' ENDMIX + MIX <<mRco>> 'BCCOUT 1' ENDMIX + MIX <<mNRco>> 'BCCOUTRE 1' ENDMIX + MIX <<mRdi>> 'BCDINT 1' ENDMIX + MIX <<mNRdi>> 'BCDINTRE 1' ENDMIX ; + +END: ; +QUIT . |