Initial commit from Polytechnique Montreal

1 files changed, 196 insertions, 0 deletions

diff --git a/Donjon/data/candu6_iram_proc/PdevL.c2m b/Donjon/data/candu6_iram_proc/PdevL.c2m
new file mode 100644
index 0000000..9fba7d5
--- /dev/null
+++ b/Donjon/data/candu6_iram_proc/PdevL.c2m
@@ -0,0 +1,196 @@
+*==============================================================*
+* Procedure :  PdevL.c2m                                       *
+* Purpose   :  LZC-devices descriptions using DONJON-4         *
+* Author    :  D. Sekki (07/07)                                *
+*==============================================================*
+PARAMETER  DEVICE INDEX ::
+                        ::: LINKED_LIST DEVICE INDEX ; ;
+MODULE     END: LZC: ;
+STRING     Lbl ;
+REAL       yFul1 yFul2 ;
+
+ :: >>Lbl<< ;
+
+REAL fmean := 0.5 ;  ! filling level
+REAL lp := 28.5750 ; ! lattice pitch
+*--
+* X- and X+ positions:
+*--
+REAL LmU12     LpU12     LmU34     LpU34    LmU56     LpU56  :=
+   197.1125  225.6875  368.5625  397.1375 540.0125  568.5875 ;
+*--
+* devices mixture numbers:
+*--
+INTEGER m23M m23E m23F m12M m12E m12F m01M m01E m01F :=
+         17   18   19   20   21   22   23   24   25  ; 
+*--
+* Y reference lengths:
+*--
+REAL  yL1         yL2      yL3         yL4      yL5   :=
+    lp 8.504 *  lp 8. *  lp 7.489 *  lp 7. *  lp 7. * ;
+*--
+* Y lengths for all LZC:
+*--
+REAL L01   L02   L03   L04   L05   L06   L07
+     L08   L09   L10   L11   L12   L13   L14  :=
+     yL1   yL2   yL3   yL4   yL5   yL1   yL2
+     yL1   yL2   yL3   yL4   yL5   yL1   yL2  ;
+*--
+* Y+ reference coordinates:
+*--
+REAL yP1      yP2      yP3      yP4      yP5    :=
+   354.2750 582.8750 239.9750 440.0000 640.0250 ;
+*--
+* Y+ coordinates for all LZC:
+*--
+REAL yP01  yP02  yP03  yP04  yP05  yP06  yP07
+     yP08  yP09  yP10  yP11  yP12  yP13  yP14 :=
+     yP1   yP2   yP3   yP4   yP5   yP1   yP2
+     yP1   yP2   yP3   yP4   yP5   yP1   yP2  ;
+*--
+* Y- coordinates for all LZC:
+*--
+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 - ;
+*--
+* maximum filling-level coordinate:
+*--
+IF Lbl "DONJON" = THEN
+  EVALUATE  yFul1 yFul2 := 170.1827  53.8898 ;
+ELSE
+  IF Lbl "HQ" = THEN
+    EVALUATE  yFul1 yFul2 := 111.275   25.975 ;
+  ELSE
+    IF Lbl "OPTEX" = THEN
+      EVALUATE  yFul1 yFul2 := 125.675   68.525 ;
+    ELSE
+      ECHO "WRONG OPTION " Lbl ;
+    ENDIF ;
+  ENDIF ;
+ENDIF ;
+*--
+* liquid zone controllers descriptions:
+*--
+
+  DEVICE INDEX := LZC: DEVICE INDEX :: EDIT 1 NUM-LZC 14
+
+  LZC 1
+    MAXPOS  <<LmU12>> <<LpU12>>  <<yM01>> <<yP01>>  152.530 202.060
+    MAX-FULL <<yFul1>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 2
+    MAXPOS  <<LmU12>> <<LpU12>>  <<yM02>> <<yP02>>  152.530 202.060
+    MAX-FULL <<yM02>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+*
+  LZC 3
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM03>> <<yP03>>  152.530 202.060
+    MAX-FULL <<yFul2>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m23E>> <<m23M>>
+    FULL-MIX  <<m23F>> <<m23M>>
+*
+  LZC 4
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM04>> <<yP04>>  152.530 202.060
+    MAX-FULL <<yM04>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 5
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM05>> <<yP05>>  152.530  202.060
+    MAX-FULL <<yM05>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+*
+  LZC 6
+    MAXPOS  <<LmU56>> <<LpU56>>  <<yM06>> <<yP06>>  152.530 202.060
+    MAX-FULL <<yFul1>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 7
+    MAXPOS  <<LmU56>> <<LpU56>>  <<yM07>> <<yP07>>  152.530 202.060
+    MAX-FULL <<yM07>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+*
+  LZC 8
+    MAXPOS  <<LmU12>> <<LpU12>>  <<yM08>> <<yP08>>  400.180 449.710
+    MAX-FULL <<yFul1>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 9
+    MAXPOS  <<LmU12>> <<LpU12>>  <<yM09>> <<yP09>>  400.180 449.710
+    MAX-FULL <<yM09>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+*
+  LZC 10
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM10>> <<yP10>>  400.180 449.710
+    MAX-FULL <<yFul2>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m23E>> <<m23M>>
+    FULL-MIX  <<m23F>> <<m23M>>
+*
+  LZC 11
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM11>> <<yP11>>  400.180 449.710
+    MAX-FULL <<yM11>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 12
+    MAXPOS  <<LmU34>> <<LpU34>>  <<yM12>> <<yP12>>  400.180 449.710
+    MAX-FULL <<yM12>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+*
+  LZC 13
+    MAXPOS  <<LmU56>> <<LpU56>>  <<yM13>> <<yP13>>  400.180 449.710
+    MAX-FULL <<yFul1>>  AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m12E>> <<m12M>>
+    FULL-MIX  <<m12F>> <<m12M>>
+*
+  LZC 14
+    MAXPOS  <<LmU56>> <<LpU56>>  <<yM14>> <<yP14>>  400.180 449.710
+    MAX-FULL <<yM14>>   AXIS Y
+    LEVEL  <<fmean>>
+    EMPTY-MIX <<m01E>> <<m01M>>
+    FULL-MIX  <<m01F>> <<m01M>>
+
+*--
+* create lzc-devices groups:
+*--
+
+  CREATE LZC-GR 2
+  GROUP-ID 1  LZC-ID  1 2 6 7 8 9 13 14
+  GROUP-ID 2  LZC-ID  3 4 5 10 11 12 ;
+
+END: ;
+QUIT .