diff options
Diffstat (limited to 'Donjon/data/AFMtest_proc/PdevT.c2m')
| -rwxr-xr-x | Donjon/data/AFMtest_proc/PdevT.c2m | 445 |
1 files changed, 445 insertions, 0 deletions
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 <<Am1>> <<Ap1>> 325.700 440.000 196.3600 245.8900 + DMIX <<mRdi>> <<mNdi>> +ENDROD +* +ROD 2 + ROD-NAME BC#2 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 196.3600 245.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 196.3600 245.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 196.3600 245.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 3 + ROD-NAME BC#3 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 196.3600 245.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 4 + ROD-NAME BC#4 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 196.3600 245.8900 + DMIX <<mRao>> <<mNao>> + MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 196.3600 245.8900 + DMIX <<mRai>> <<mNai>> + MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 196.3600 245.8900 + DMIX <<mRao>> <<mNao>> +ENDROD +* +ROD 5 + ROD-NAME BC#5 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 196.3600 245.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 6 + ROD-NAME BC#6 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 196.3600 245.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 196.3600 245.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 196.3600 245.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 7 + ROD-NAME BC#7 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 196.3600 245.8900 + DMIX <<mRdi>> <<mNdi>> +ENDROD +* +ROD 8 + ROD-NAME BC#8 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am1>> <<Ap1>> 325.700 440.000 276.3600 325.8900 + DMIX <<mRdi>> <<mNdi>> +ENDROD +* +ROD 9 + ROD-NAME BC#9 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 276.3600 325.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 276.3600 325.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 276.3600 325.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 10 + ROD-NAME BC#10 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 276.3600 325.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 11 + ROD-NAME BC#11 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 276.3600 325.8900 + DMIX <<mRao>> <<mNao>> + MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 276.3600 325.8900 + DMIX <<mRai>> <<mNai>> + MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 276.3600 325.8900 + DMIX <<mRao>> <<mNao>> +ENDROD +* +ROD 12 + ROD-NAME BC#12 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 276.3600 325.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 13 + ROD-NAME BC#13 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 276.3600 325.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 276.3600 325.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 276.3600 325.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 14 + ROD-NAME BC#14 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 276.3600 325.8900 + DMIX <<mRdi>> <<mNdi>> +ENDROD +* +ROD 15 + ROD-NAME BC#15 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am1>> <<Ap1>> 325.700 440.000 356.3600 405.8900 + DMIX <<mRdi>> <<mNdi>> +ENDROD +* +ROD 16 + ROD-NAME BC#16 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 356.3600 405.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 356.3600 405.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 356.3600 405.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 17 + ROD-NAME BC#17 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 356.3600 405.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 18 + ROD-NAME BC#18 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 356.3600 405.8900 + DMIX <<mRao>> <<mNao>> + MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 356.3600 405.8900 + DMIX <<mRai>> <<mNai>> + MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 356.3600 405.8900 + DMIX <<mRao>> <<mNao>> +ENDROD +* +ROD 19 + ROD-NAME BC#19 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 356.3600 405.8900 + DMIX <<mRbi>> <<mNbi>> +ENDROD +* +ROD 20 + ROD-NAME BC#20 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 356.3600 405.8900 + DMIX <<mRco>> <<mNco>> + MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 356.3600 405.8900 + DMIX <<mRci>> <<mNci>> + MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 356.3600 405.8900 + DMIX <<mRco>> <<mNco>> +ENDROD +* +ROD 21 + ROD-NAME BC#21 + LEVEL 1.0 + AXIS Y FROM H- + MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 356.3600 405.8900 + DMIX <<mRdi>> <<mNdi>> +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 <<LmU12>> <<LpU12>> <<yM01>> <<yP01>> 146.3600 195.8900 + MAX-FULL <<yful1>> + AXIS Y + LEVEL <<fmean>> RATE 0.670 TIME 60. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 2 + MAXPOS <<LmU12>> <<LpU12>> <<yM02>> <<yP02>> 146.3600 195.8900 + MAX-FULL <<yM02>> + AXIS Y + LEVEL <<fmean>> RATE 0.602 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +* +LZC 3 + MAXPOS <<LmU34>> <<LpU34>> <<yM03>> <<yP03>> 146.3600 195.8900 + MAX-FULL <<yful3>> + AXIS Y + LEVEL <<fmean>> RATE 0.544 TIME 36. + EMPTY-MIX <<m23E>> <<m23M>> + FULL-MIX <<m23F>> <<m23M>> +* +LZC 4 + MAXPOS <<LmU34>> <<LpU34>> <<yM04>> <<yP04>> 146.3600 195.8900 + MAX-FULL <<yM04>> + AXIS Y + LEVEL <<fmean>> RATE 0.622 TIME 36. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 5 + MAXPOS <<LmU34>> <<LpU34>> <<yM05>> <<yP05>> 152.535 202.065 + MAX-FULL <<yM05>> + AXIS Y + LEVEL <<fmean>> RATE 0.585 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +* +LZC 6 + MAXPOS <<LmU56>> <<LpU56>> <<yM06>> <<yP06>> 146.3600 195.8900 + MAX-FULL <<yful1>> + AXIS Y + LEVEL <<fmean>> RATE 0.651 TIME 60. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 7 + MAXPOS <<LmU56>> <<LpU56>> <<yM07>> <<yP07>> 146.3600 195.8900 + MAX-FULL <<yM07>> + AXIS Y + LEVEL <<fmean>> RATE 0.591 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +* +LZC 8 + MAXPOS <<LmU12>> <<LpU12>> <<yM08>> <<yP08>> 406.3600 455.8900 + MAX-FULL <<yful1>> + AXIS Y + LEVEL <<fmean>> RATE 0.634 TIME 60. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 9 + MAXPOS <<LmU12>> <<LpU12>> <<yM09>> <<yP09>> 406.3600 455.8900 + MAX-FULL <<yM09>> + AXIS Y + LEVEL <<fmean>> RATE 0.601 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +* +LZC 10 + MAXPOS <<LmU34>> <<LpU34>> <<yM10>> <<yP10>> 406.3600 455.8900 + MAX-FULL <<yful3>> + AXIS Y + LEVEL <<fmean>> RATE 0.671 TIME 36. + EMPTY-MIX <<m23E>> <<m23M>> + FULL-MIX <<m23F>> <<m23M>> +* +LZC 11 + MAXPOS <<LmU34>> <<LpU34>> <<yM11>> <<yP11>> 406.3600 455.8900 + MAX-FULL <<yM11>> + AXIS Y + LEVEL <<fmean>> RATE 0.619 TIME 36. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 12 + MAXPOS <<LmU34>> <<LpU34>> <<yM12>> <<yP12>> 406.3600 455.8900 + MAX-FULL <<yM12>> + AXIS Y + LEVEL <<fmean>> RATE 0.526 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +* +LZC 13 + MAXPOS <<LmU56>> <<LpU56>> <<yM13>> <<yP13>> 406.3600 455.8900 + MAX-FULL <<yful1>> + AXIS Y + LEVEL <<fmean>> RATE 0.628 TIME 60. + EMPTY-MIX <<m12E>> <<m12M>> + FULL-MIX <<m12F>> <<m12M>> +* +LZC 14 + MAXPOS <<LmU56>> <<LpU56>> <<yM14>> <<yP14>> 406.3600 455.8900 + MAX-FULL <<yM14>> + AXIS Y + LEVEL <<fmean>> RATE 0.601 TIME 36. + EMPTY-MIX <<m01E>> <<m01M>> + FULL-MIX <<m01F>> <<m01M>> +; + +END: ; +QUIT . |