Initial commit from Polytechnique Montreal

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 .