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/candu6_iram_proc/PdevL.c2m | 196 +++++++++++++++++++++++++++++++++ 1 file changed, 196 insertions(+) create mode 100644 Donjon/data/candu6_iram_proc/PdevL.c2m (limited to 'Donjon/data/candu6_iram_proc/PdevL.c2m') 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 <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 2 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 3 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 4 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 5 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 6 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 7 + MAXPOS <> <> <> <> 152.530 202.060 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 8 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 9 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 10 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 11 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 12 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 13 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> +* + LZC 14 + MAXPOS <> <> <> <> 400.180 449.710 + MAX-FULL <> AXIS Y + LEVEL <> + EMPTY-MIX <> <> + FULL-MIX <> <> + +*-- +* 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 . -- cgit v1.2.3