diff options
Diffstat (limited to 'Donjon/data/candu6_iram_proc/PdevL.c2m')
| -rw-r--r-- | Donjon/data/candu6_iram_proc/PdevL.c2m | 196 |
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 . |