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 --- Donjon/data/AFMtest_proc/PdevT.c2m | 445 +++++++++++++++++++++++++++++++++++++ 1 file changed, 445 insertions(+) create mode 100755 Donjon/data/AFMtest_proc/PdevT.c2m (limited to 'Donjon/data/AFMtest_proc/PdevT.c2m') diff --git a/Donjon/data/AFMtest_proc/PdevT.c2m b/Donjon/data/AFMtest_proc/PdevT.c2m new file mode 100755 index 0000000..5f4de4c --- /dev/null +++ b/Donjon/data/AFMtest_proc/PdevT.c2m @@ -0,0 +1,445 @@ +!*********************************************************************** +!* PROCEDURE: PdevT ** +!* USAGE: Device descriptions for Gentilly2 reactor ** +!* AUTHOR: E. Varin (96/02/01) ** +!* A. Hebert (11/11/11) (pour DONJON4) ** +!* CALL: ** +!* ** +!* DEVICE INDEX := PdevT INDEX :: fmean ** +!* m23M m12M m01M mNai mNao mNbi mNci mNco mNdi mNobs ; ** +!* ** +!* NOTES: ** +!* Mixture number for device must be set and changed HERE ** +!* fmean = LZC water level ** +!* ** +!* Other integer values are mixture numbers of no ** +!* device ** +!* ** +!*********************************************************************** + + PARAMETER DEVICE INDEX :: + ::: LINKED_LIST DEVICE INDEX ; + ; + + MODULE END: DEVINI: LZC: ; + +!*Declaration et initialisation des variables +!******************************************** +!* MEAN FILLING FOR ZCRS ** + REAL fmean ; + INTEGER m23M m12M m01M mNai mNao mNbi mNci mNco mNdi mNobs nlp ; +!* INSERTION TIME FOR ADJUSTERS ** + + !* FILLINGS FOR ALL ZCRS: ***CHANGE AT YOUR CONVENIENCE *** ** + REAL f01 f02 f03 f04 f05 f06 f07 + f08 f09 f10 f11 f12 f13 f14 ; + + !* DEFINE LATTICE PITCH ** + REAL lp := 28.5750 ; + + !* DEFINE X- X+ ADJUSTER POSITIONS ** + REAL Am1 Ap1 Am2 Ap2 Am3 Ap3 + Am4 Ap4 Am5 Ap5 Am6 Ap6 + Am7 Ap7 := + 197.1125 225.6875 254.2625 282.8375 311.4125 339.9875 + 368.5625 397.1375 425.7125 454.2875 482.8625 511.4375 + 540.0125 568.5875 ; + + !* DEFINE X- X+ LZC POSITIONS ** + REAL LmU12 LpU12 LmU34 LpU34 LmU56 LpU56 := + 197.1125 225.6875 368.5625 397.1375 540.0125 568.5875 ; + +!* DEFINE MIX NUMBERS FOR ZCR BY TYPE: 32 21 10 FOR FULL/EMPTY ** + INTEGER m23E m23F m12E m12F m01E m01F := + 18 19 21 22 24 25 ; + +!* DEFINE MIX NUMBERS FOR BC BY TYPE ** + INTEGER mRai mRao mRbi mRci mRco mRdi := + 5 6 7 8 9 10 ; + INTEGER mRbs := + 26 ; + + REAL yful1 yful3 ; + EVALUATE yful1 yful3 := 170.1827 53.8898 ; + +!* Lecture des arguments de la procedure +!*************************************** + :: >>fmean<< >>m23M<< >>m12M<< >>m01M<< >>mNai<< >>mNao<< >>mNbi<< + >>mNci<< >>mNco<< >>mNdi<< >>mNobs<< ; + +!* FILLINGS FOR ALL ZCRS: ***CHANGE AT YOUR CONVENIENCE *** ** + EVALUATE f01 f02 f03 f04 f05 f06 f07 + f08 f09 f10 f11 f12 f13 f14 := + fmean fmean fmean fmean fmean fmean fmean + fmean fmean fmean fmean fmean fmean fmean ; + +!* Y REFERENCE LENGTHS FOR ZCR ** + REAL yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 := + lp 8.504 * lp 8. * lp 7.489 * lp 7. * lp 7. * ; + +!* Y+ REFERENCE COORDINATES FOR ZCR ** + REAL yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 := + 354.2750 582.8750 239.9750 440.0000 640.0250 ; + +!* Y LENGHTS FOR ALL ZCRS IN G2 ** + REAL L01 L02 L03 L04 L05 L06 L07 + L08 L09 L10 L11 L12 L13 L14 := + yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 yzcL1 yzcL2 + yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 yzcL1 yzcL2 ; + +!* Y+ COORDINATES FOR ALL ZCRS IN G2 ** + REAL yP01 yP02 yP03 yP04 yP05 yP06 yP07 + yP08 yP09 yP10 yP11 yP12 yP13 yP14 := + yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 yzcP1 yzcP2 + yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 yzcP1 yzcP2 ; + +!* Y- COORDINATES FOR ALL ZCRS IN G2 ** + REAL yM01 := yP01 L01 - ; + REAL yM02 := yP02 L02 - ; + REAL yM03 := yP03 L03 - ; + REAL yM04 := yP04 L04 - ; + REAL yM05 := yP05 L05 - ; + REAL yM06 := yP06 L06 - ; + REAL yM07 := yP07 L07 - ; + REAL yM08 := yP08 L08 - ; + REAL yM09 := yP09 L09 - ; + REAL yM10 := yP10 L10 - ; + REAL yM11 := yP11 L11 - ; + REAL yM12 := yP12 L12 - ; + REAL yM13 := yP13 L13 - ; + REAL yM14 := yP14 L14 - ; + +!* Initialisation des devices +!**************************** +DEVICE INDEX := DEVINI: INDEX :: + EDIT 2 NUM-ROD 21 MOVE +* +ROD 1 + ROD-NAME BC#1 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 2 + ROD-NAME BC#2 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 3 + ROD-NAME BC#3 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 4 + ROD-NAME BC#4 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 5 + ROD-NAME BC#5 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 6 + ROD-NAME BC#6 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 196.3600 245.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 7 + ROD-NAME BC#7 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 196.3600 245.8900 + DMIX <> <> +ENDROD +* +ROD 8 + ROD-NAME BC#8 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 9 + ROD-NAME BC#9 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 10 + ROD-NAME BC#10 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 11 + ROD-NAME BC#11 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 12 + ROD-NAME BC#12 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 13 + ROD-NAME BC#13 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 276.3600 325.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 14 + ROD-NAME BC#14 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 276.3600 325.8900 + DMIX <> <> +ENDROD +* +ROD 15 + ROD-NAME BC#15 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 16 + ROD-NAME BC#16 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 17 + ROD-NAME BC#17 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 18 + ROD-NAME BC#18 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 19 + ROD-NAME BC#19 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 554.300 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 20 + ROD-NAME BC#20 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 211.400 297.125 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 297.125 468.575 356.3600 405.8900 + DMIX <> <> + MAXPOS <> <> 468.575 554.300 356.3600 405.8900 + DMIX <> <> +ENDROD +* +ROD 21 + ROD-NAME BC#21 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <> <> 325.700 440.000 356.3600 405.8900 + DMIX <> <> +ENDROD + +*-- +* create rod-devices groups: +*-- + CREATE ROD-GR 1 + GROUP-ID 1 ALL +; + +DEVICE INDEX := LZC: DEVICE INDEX :: + EDIT 1 NUM-LZC 14 +* +LZC 1 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.670 TIME 60. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 2 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.602 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 3 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.544 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 4 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.622 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 5 + MAXPOS <> <> <> <> 152.535 202.065 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.585 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 6 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.651 TIME 60. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 7 + MAXPOS <> <> <> <> 146.3600 195.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.591 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 8 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.634 TIME 60. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 9 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.601 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 10 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.671 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 11 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.619 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 12 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.526 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 13 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.628 TIME 60. + EMPTY-MIX <> <> + FULL-MIX <> <> +* +LZC 14 + MAXPOS <> <> <> <> 406.3600 455.8900 + MAX-FULL <> + AXIS Y + LEVEL <> RATE 0.601 TIME 36. + EMPTY-MIX <> <> + FULL-MIX <> <> +; + +END: ; +QUIT . -- cgit v1.2.3