diff options
Diffstat (limited to 'Dragon/data/rep900_het_gff_proc/CondHet_2gr.c2m')
| -rw-r--r-- | Dragon/data/rep900_het_gff_proc/CondHet_2gr.c2m | 763 |
1 files changed, 763 insertions, 0 deletions
diff --git a/Dragon/data/rep900_het_gff_proc/CondHet_2gr.c2m b/Dragon/data/rep900_het_gff_proc/CondHet_2gr.c2m new file mode 100644 index 0000000..0e1af3a --- /dev/null +++ b/Dragon/data/rep900_het_gff_proc/CondHet_2gr.c2m @@ -0,0 +1,763 @@ +*DECK Condense_2gr +*---- +* Name : CondHet_2gr.c2m +* Type : DRAGON procedure +* Use : Realize the deux groups condensation +* and pin by pin or assembly homogeneization +* Author : R. Chambon +* based on Condense_2gr from R. Vallerent +* +* Procedure called as: +* +* EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO :: +* <<Library>> <<TypeCompo>> ; +* +* Input data : +* FLUX2 : Multigroup Flux +* LIBEQ : Library xs +* TRACKN2 : Tracking of the level 2 geometry +* Output data : +* EDIOBJ : Pin by pin homogenization +* Parameters : +* Library : Name of input cross-section library +* TypeCompo : Type of edition: PinByPin or Assembly + +PARAMETER EDIOBJ FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO :: + EDIT 1 + ::: LINKED_LIST EDIOBJ FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO ; + ; +LINKED_LIST GEOTMP EDIOBJ2 MTRACK ASSMB_HOM ; + +MODULE EDI: BIVACT: TRIVAT: SPH: ABORT: RECOVER: DELETE: END: ; + +STRING Library SelOpt TypeCompo ; + :: >>Library<< >>SelOpt<< >>TypeCompo<< ; + +ECHO "CondHet_2gr" Library SelOpt TypeCompo ; + +STRING NameDirAss NameDirPin NameDirHt1 NameDirHt2 := + 'EDI2A' 'EDI2B' 'EDI2C' 'EDI2D' ; + +STRING namgeohom namgeoht1 namgeoht2 namgeopin := + "GEOHOM" "GEOHT1" "GEOHT2" "GEOPIN" ; +STRING namsphhom namsphht1 namsphht2 namsphpin := + "SPHHOM" "SPHHT1" "SPHHT2" "SPHPIN" ; + +STRING Am242M Pm148M ; +IF Library "CEA05V4_281" = THEN + EVALUATE Am242M Pm148M := 'Am242M' 'Pm148M' ; +ELSEIF Library "DLIBJ3_281" = THEN + EVALUATE Am242M Pm148M := 'Am242m' 'Pm148m' ; +ELSE + ECHO "Invalid parameter : Library" ; + ABORT: ; +ENDIF ; +STRING NameDir SelOptAss ; +INTEGER p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 ; +INTEGER p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 ; +INTEGER p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 ; +INTEGER p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 ; +INTEGER p41 p42 p43 p44 p45 ; +INTEGER iass ipin iht1 iht2 iht3 := + 1 1 1 1 1 ; + +IF TypeCompo "Assembly" = THEN + EVALUATE NameDir := NameDirAss ; + GEOTMP := RECOVER: ALLGEO :: STEP UP <<namgeohom>> ; + ASSMB_HOM := RECOVER: ALLGEO :: STEP UP <<namsphhom>> ; + IF SelOpt "SELE_EDF" = THEN + EVALUATE SelOptAss := 'SELE_FD' ; + ELSE + EVALUATE SelOptAss := SelOpt ; + ENDIF ; +ELSEIF TypeCompo "PinByPin" = THEN +! EVALUATE p1 p2 p3 p4 p5 +! p6 p7 p8 p9 p10 := +! ipin ipin 1 + ipin 2 + ipin 3 + ipin 4 + +! ipin 5 + ipin 6 + ipin 7 + ipin 8 + ipin 9 + ; +! EVALUATE p11 p12 p13 p14 p15 +! p16 p17 p18 p19 p20 := +! ipin 10 + ipin 11 + ipin 12 + ipin 13 + ipin 14 + +! ipin 15 + ipin 16 + ipin 17 + ipin 18 + ipin 19 + ; +! EVALUATE p21 p22 p23 p24 p25 +! p26 p27 p28 p29 p30 := +! ipin 20 + ipin 21 + ipin 22 + ipin 23 + ipin 24 + +! ipin 25 + ipin 26 + ipin 27 + ipin 28 + ipin 29 + ; +! EVALUATE p31 p32 p33 p34 p35 +! p36 p37 p38 p39 p40 := +! ipin 30 + ipin 31 + ipin 32 + ipin 33 + ipin 34 + +! ipin 35 + ipin 36 + ipin 37 + ipin 38 + ipin 39 + ; +! EVALUATE p41 p42 p43 p44 p45 := +! ipin 40 + ipin 41 + ipin 42 + ipin 43 + ipin 44 + ; + EVALUATE NameDir := NameDirPin ; + GEOTMP := RECOVER: ALLGEO :: STEP UP <<namgeopin>> ; + ASSMB_HOM := RECOVER: ALLGEO :: STEP UP <<namsphpin>> ; +ELSEIF TypeCompo "Heter1" = THEN +! EVALUATE p1 p2 p3 p4 p5 +! p6 p7 p8 p9 p10 := +! iht1 iht1 iht1 iht1 iht1 +! iht1 iht1 iht1 iht1 1 + iht1 ; +! EVALUATE p11 p12 p13 p14 p15 +! p16 p17 p18 p19 p20 := +! iht1 iht1 iht1 iht1 iht1 +! iht1 iht1 1 + iht1 iht1 iht1 ; +! EVALUATE p21 p22 p23 p24 p25 +! p26 p27 p28 p29 p30 := +! iht1 iht1 iht1 iht1 1 + iht1 +! iht1 iht1 iht1 iht1 iht1 1 + ; +! EVALUATE p31 p32 p33 p34 p35 +! p36 p37 p38 p39 p40 := +! iht1 iht1 iht1 iht1 iht1 1 + +! iht1 iht1 iht1 iht1 1 + iht1 ; +! EVALUATE p41 p42 p43 p44 p45 := +! iht1 iht1 1 + iht1 iht1 1 + iht1 2 + ; + EVALUATE NameDir := NameDirHt1 ; + GEOTMP := RECOVER: ALLGEO :: STEP UP <<namgeoht1>> ; + ASSMB_HOM := RECOVER: ALLGEO :: STEP UP <<namsphht1>> ; +ELSEIF TypeCompo "Heter2" = THEN + EVALUATE p1 p2 p3 p4 p5 + p6 p7 p8 p9 p10 := + iht2 iht2 iht2 iht2 iht2 + iht2 iht2 iht2 1 + iht2 1 + iht2 ; + EVALUATE p11 p12 p13 p14 p15 + p16 p17 p18 p19 p20 := + iht2 iht2 iht2 iht2 iht2 + iht2 1 + iht2 1 + iht2 iht2 iht2 ; + EVALUATE p21 p22 p23 p24 p25 + p26 p27 p28 p29 p30 := + iht2 iht2 iht2 1 + iht2 1 + iht2 + iht2 iht2 iht2 iht2 1 + iht2 1 + ; + EVALUATE p31 p32 p33 p34 p35 + p36 p37 p38 p39 p40 := + iht2 iht2 iht2 iht2 1 + iht2 1 + + iht2 iht2 iht2 1 + iht2 1 + iht2 ; + EVALUATE p41 p42 p43 p44 p45 := + iht2 1 + iht2 1 + iht2 2 + iht2 2 + iht2 2 + ; + EVALUATE NameDir := NameDirHt2 ; + GEOTMP := RECOVER: ALLGEO :: STEP UP <<namgeoht2>> ; + ASSMB_HOM := RECOVER: ALLGEO :: STEP UP <<namsphht2>> ; +ELSE + ECHO "TypeCompo incorrect: " TypeCompo ; + ABORT: ; +ENDIF ; +* +IF TypeCompo "Assembly" = THEN + EDIOBJ := EDI: FLUX2 LIBEQ TRACKN2 GEON2 GEOTMP :: + EDIT 0 + MICR RES + MERG COMP + COND 19 + SAVE ON <<NameDir>> + MGEO GEOTMP + ADF 'FD_C' MIX 167 ENDM !gap L2 + ADF 'FDCG' MIX 166 167 ENDM !gap L2 and L3 of corner pin + ADF 'FDCP' MIX 166 167 !gap L2 and L3 and + 176 177 178 179 ! C39 water and clad ... + 37 38 39 40 !p45 complete C39 + ENDM +! merge by mixture (see Geo_N2_32H.c2m) + ADF 'FD_B' MIX 165 166 167 ENDM !gap L1, L3 and L2 +! +! or (both tested and give the same results) +! +! merge by mixture +! ADF 'FDBr' REGI 145 146 !p9 gap only +! 317 318 319 !p17 gap only +! 468 469 470 !p24 gap only +! 604 605 606 !p30 gap only +! 711 712 713 !p35 gap only +! 798 799 800 !p39 gap only +! 861 862 863 !p42 gap only +! 902 903 904 !p44 gap only +! 921 922 923 924 !p45 gap only +! ENDR + ; + IF SelOpt 'NONE' <> THEN + MTRACK := TRIVAT: ASSMB_HOM :: DUAL 3 3 EDIT 0 ; + EDIOBJ := SPH: EDIOBJ MTRACK :: + EDIT 0 <<SelOptAss>> ITER 1.0E-5 ; + MTRACK ASSMB_HOM := DELETE: MTRACK ASSMB_HOM ; + ENDIF ; +* +ELSEIF TypeCompo "Heter1" = THEN + EDIOBJ := EDI: FLUX2 LIBEQ TRACKN2 GEON2 GEOTMP :: + EDIT 0 + MICR RES +! merge by mixture (see Geo_N2_32H.c2m) + MERG MIX +! 1 2 3 4 5 6 7 8 9 0 + 1 1 1 1 1 1 1 1 1 1 ! 10 + 1 1 1 1 1 1 1 1 1 1 ! 20 +! C31 + 1 1 1 1 1 1 1 1 2 2 ! 30 +! C38 C39 + 2 2 2 2 2 2 3 3 3 3 ! 40 + 1 1 1 1 1 1 1 1 1 1 ! 50 + 1 1 1 1 1 1 1 1 1 1 ! 60 + 1 1 1 1 1 1 1 1 1 1 ! 70 + 1 1 1 1 1 1 1 1 1 1 ! 70 + 1 1 1 1 1 1 1 1 1 1 ! 90 + 1 1 1 1 1 1 1 1 1 1 !100 + 1 1 1 1 1 1 1 1 1 1 !110 + 1 1 1 1 1 1 1 1 1 1 !120 + 1 1 1 1 1 1 1 1 1 1 !130 + 1 1 1 1 1 1 1 1 1 1 !140 +! C32 ... + 2 2 2 2 2 2 2 2 2 2 !150 + 2 2 2 2 2 2 2 2 2 2 !160 +! ...C37 L1 L3 L2 + 2 2 2 2 2 3 3 0 0 0 !170 +! C31 ... C38 C39 + 0 2 2 2 2 3 3 3 3 !180 +! +! or (both tested and give the same results) +! +! merge by mixture +! MERG REGI +! <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> !7 +! <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p2>> <<p2>> !14 +! <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !21 +! <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !28 +! <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !35 +! <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !42 +! <<p3>> <<p3>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !49 +! <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !56 +! <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p5>> !63 +! <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !70 +! <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !77 +! <<p5>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !84 +! <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !91 +! <<p6>> <<p6>> <<p6>> <<p7>> <<p7>> <<p7>> <<p7>> !98 +! <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !105 +! <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !112 +! <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !119 +! <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !126 +! <<p8>> <<p8>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !133 +! <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !140 +! <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p10>> !147 +! <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !154 +! <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !161 +! <<p10>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !168 +! <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !175 +! <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !182 +! <<p11>> <<p11>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !189 +! <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !196 +! <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !203 +! <<p12>> <<p12>> <<p12>> <<p13>> <<p13>> <<p13>> <<p13>> !210 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !217 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !224 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p14>> <<p14>> <<p14>> !231 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !238 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !245 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p15>> <<p15>> !252 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !259 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !266 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p16>> !273 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !280 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !287 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !294 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !301 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !308 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !315 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p18>> <<p18>> <<p18>> !322 +! <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> !329 +! <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p19>> !336 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !343 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !350 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !357 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !364 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !371 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !378 +! <<p20>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !385 +! <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !392 +! <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !399 +! <<p21>> <<p21>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !406 +! <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !413 +! <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !420 +! <<p22>> <<p22>> <<p22>> <<p23>> <<p23>> <<p23>> <<p23>> !427 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !434 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !441 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p24>> <<p24>> <<p24>> !448 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !455 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !462 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !469 +! <<p24>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !476 +! <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !483 +! <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p26>> <<p26>> !490 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !497 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !504 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p27>> !511 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !518 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !525 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !532 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !539 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !546 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !553 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p29>> !560 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !567 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !574 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !581 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !588 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !595 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !602 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p31>> <<p31>> <<p31>> !609 +! <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> !616 +! <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p32>> !623 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !630 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !637 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !644 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !651 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !658 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !665 +! <<p33>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !672 +! <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !679 +! <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !686 +! <<p34>> <<p34>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !693 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !700 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !707 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p36>> !714 +! <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !721 +! <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !728 +! <<p36>> <<p36>> <<p36>> <<p37>> <<p37>> <<p37>> <<p37>> !735 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !742 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !749 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p38>> <<p38>> <<p38>> !756 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !763 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !770 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p39>> <<p39>> !777 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !784 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !791 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !798 +! <<p39>> <<p39>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !805 +! <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !812 +! <<p40>> <<p40>> <<p40>> <<p40>> <<p41>> <<p41>> <<p41>> !819 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !826 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !833 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p42>> <<p42>> !840 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !847 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !854 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !861 +! <<p42>> <<p42>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !868 +! <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !875 +! <<p43>> <<p43>> <<p43>> <<p43>> <<p44>> <<p44>> <<p44>> !882 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !889 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !896 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !903 +! <<p44>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !910 +! <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !917 +! <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !924 + COND 19 + SAVE ON <<NameDir>> + MGEO GEOTMP + ADF 'FD_B' MIX 165 166 167 ENDM !gap L1 L3 L2 +! merge by mixture (see Geo_N2_32H.c2m) + ADF 'FD_H' MIX 165 166 167 !L1 to L3 + 172 173 174 175 ! C31 to C38 water and clad ... + 29 30 31 32 !p9 complete C31 + 141 142 143 144 !p17 complete C32 + 145 146 147 148 !p24 complete C33 + 149 150 151 152 !p30 complete C34 + 153 154 155 156 !p35 complete C35 + 157 158 159 160 !p39 complete C36 + 161 162 163 164 !p42 complete C37 + 33 34 35 36 !p44 complete C38 + 176 177 178 179 ! C39 water and clad ... + 37 38 39 40 !p45 complete C39 + ENDM +! +! or (both tested and give the same results) +! +! merge by mixture +! ADF 'FDHr' REGI 129 130 131 132 133 134 135 136 137 138 139 140 141 +! 142 143 144 145 146 !p9 complete +! 295 296 297 298 299 300 301 302 303 304 305 306 307 +! 308 309 310 311 312 313 314 315 316 317 318 319 !p17 complete +! 446 447 448 449 450 451 452 453 454 455 456 457 458 +! 459 460 461 462 463 464 465 466 467 468 469 470 !p24 complete +! 582 583 584 585 586 587 588 589 590 591 592 593 594 +! 595 596 597 598 599 600 601 602 603 604 605 606 !p30 complete +! 689 690 691 692 693 694 695 696 697 698 699 700 701 +! 702 703 704 705 706 707 708 709 710 711 712 713 !p35 complete +! 776 777 778 779 780 781 782 783 784 785 786 787 788 +! 789 790 791 792 793 794 795 796 797 798 799 800 !p39 complete +! 839 840 841 842 843 844 845 846 847 848 849 850 851 +! 852 853 854 855 856 857 858 859 860 861 862 863 !p42 complete +! 880 881 882 883 884 885 886 887 888 889 890 891 892 +! 893 894 895 896 897 898 899 900 901 902 903 904 !p44 complete +! 905 906 907 908 909 910 911 912 913 914 915 916 +! 917 918 919 920 921 922 923 924 !p45 complete +! ENDR + ; + IF SelOpt 'NONE' <> THEN + MTRACK := TRIVAT: ASSMB_HOM :: DUAL 3 3 EDIT 0 ; + EDIOBJ := SPH: EDIOBJ MTRACK :: + EDIT 0 <<SelOpt>> ITER 1.0E-5 ; + MTRACK ASSMB_HOM := DELETE: MTRACK ASSMB_HOM ; + ENDIF ; +* +ELSEIF TypeCompo "Heter2" = THEN + EDIOBJ := EDI: FLUX2 LIBEQ TRACKN2 GEON2 GEOTMP :: + EDIT 0 + MICR RES + MERG REGI + <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> !7 + <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p2>> <<p2>> !14 + <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !21 + <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !28 + <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !35 + <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !42 + <<p3>> <<p3>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !49 + <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !56 + <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p5>> !63 + <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !70 + <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !77 + <<p5>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !84 + <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !91 + <<p6>> <<p6>> <<p6>> <<p7>> <<p7>> <<p7>> <<p7>> !98 + <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !105 + <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !112 + <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !119 + <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !126 + <<p8>> <<p8>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !133 + <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !140 + <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p10>> !147 + <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !154 + <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !161 + <<p10>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !168 + <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !175 + <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !182 + <<p11>> <<p11>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !189 + <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !196 + <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !203 + <<p12>> <<p12>> <<p12>> <<p13>> <<p13>> <<p13>> <<p13>> !210 + <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !217 + <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !224 + <<p13>> <<p13>> <<p13>> <<p13>> <<p14>> <<p14>> <<p14>> !231 + <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !238 + <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !245 + <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p15>> <<p15>> !252 + <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !259 + <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !266 + <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p16>> !273 + <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !280 + <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !287 + <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !294 + <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !301 + <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !308 + <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !315 + <<p17>> <<p17>> <<p17>> <<p17>> <<p18>> <<p18>> <<p18>> !322 + <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> !329 + <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p19>> !336 + <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !343 + <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !350 + <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !357 + <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !364 + <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !371 + <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !378 + <<p20>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !385 + <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !392 + <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !399 + <<p21>> <<p21>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !406 + <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !413 + <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !420 + <<p22>> <<p22>> <<p22>> <<p23>> <<p23>> <<p23>> <<p23>> !427 + <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !434 + <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !441 + <<p23>> <<p23>> <<p23>> <<p23>> <<p24>> <<p24>> <<p24>> !448 + <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !455 + <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !462 + <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !469 + <<p24>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !476 + <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !483 + <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p26>> <<p26>> !490 + <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !497 + <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !504 + <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p27>> !511 + <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !518 + <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !525 + <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !532 + <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !539 + <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !546 + <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !553 + <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p29>> !560 + <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !567 + <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !574 + <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !581 + <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !588 + <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !595 + <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !602 + <<p30>> <<p30>> <<p30>> <<p30>> <<p31>> <<p31>> <<p31>> !609 + <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> !616 + <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p32>> !623 + <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !630 + <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !637 + <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !644 + <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !651 + <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !658 + <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !665 + <<p33>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !672 + <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !679 + <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !686 + <<p34>> <<p34>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !693 + <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !700 + <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !707 + <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p36>> !714 + <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !721 + <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !728 + <<p36>> <<p36>> <<p36>> <<p37>> <<p37>> <<p37>> <<p37>> !735 + <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !742 + <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !749 + <<p37>> <<p37>> <<p37>> <<p37>> <<p38>> <<p38>> <<p38>> !756 + <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !763 + <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !770 + <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p39>> <<p39>> !777 + <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !784 + <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !791 + <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !798 + <<p39>> <<p39>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !805 + <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !812 + <<p40>> <<p40>> <<p40>> <<p40>> <<p41>> <<p41>> <<p41>> !819 + <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !826 + <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !833 + <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p42>> <<p42>> !840 + <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !847 + <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !854 + <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !861 + <<p42>> <<p42>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !868 + <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !875 + <<p43>> <<p43>> <<p43>> <<p43>> <<p44>> <<p44>> <<p44>> !882 + <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !889 + <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !896 + <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !903 + <<p44>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !910 + <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !917 + <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !924 + COND 19 + SAVE ON <<NameDir>> + MGEO GEOTMP + ADF 'FD_B' MIX 165 166 167 ENDM !gap L1 L3 L2 + ADF 'FD_H' REGI 113 114 115 116 117 118 119 120 121 122 123 124 125 + 126 127 128 !p8 complete + 129 130 131 132 133 134 135 136 137 138 139 140 141 + 142 143 144 145 146 !p9 complete + 273 274 275 276 277 278 279 280 281 282 283 284 285 + 286 287 288 289 290 291 292 293 294 !p16 complete + 295 296 297 298 299 300 301 302 303 304 305 306 307 + 308 309 310 311 312 313 314 315 316 317 318 319 !p17 complete + 424 425 426 427 428 429 430 431 432 433 434 435 436 + 437 438 439 440 441 442 443 444 445 !p23 complete + 446 447 448 449 450 451 452 453 454 455 456 457 458 + 459 460 461 462 463 464 465 466 467 468 469 470 !p24 complete + 560 561 562 563 564 565 566 567 568 569 570 571 572 + 573 574 575 576 577 578 579 580 581 !p29 complete + 582 583 584 585 586 587 588 589 590 591 592 593 594 + 595 596 597 598 599 600 601 602 603 604 605 606 !p30 complete + 667 668 669 670 671 672 673 674 675 676 677 678 679 + 680 681 682 683 684 685 686 687 688 !p34 complete + 689 690 691 692 693 694 695 696 697 698 699 700 701 + 702 703 704 705 706 707 708 709 710 711 712 713 !p35 complete + 754 755 756 757 758 759 760 761 762 763 764 765 766 + 767 768 769 770 771 772 773 774 775 !p38 complete + 776 777 778 779 780 781 782 783 784 785 786 787 788 + 789 790 791 792 793 794 795 796 797 798 799 800 !p39 complete + 817 818 819 820 821 822 823 824 825 826 827 828 829 + 830 831 832 833 834 835 836 837 838 !p41 complete + 839 840 841 842 843 844 845 846 847 848 849 850 851 + 852 853 854 855 856 857 858 859 860 861 862 863 !p42 complete + 864 865 866 867 868 869 870 871 872 873 874 875 876 + 877 878 879 !p43 complete + 880 881 882 883 884 885 886 887 888 889 890 891 892 + 893 894 895 896 897 898 899 900 901 902 903 904 !p44 complete + 905 906 907 908 909 910 911 912 913 914 915 916 + 917 918 919 920 921 922 923 924 !p45 complete + ENDR + ; + IF SelOpt 'NONE' <> THEN + MTRACK := TRIVAT: ASSMB_HOM :: DUAL 3 3 EDIT 0 ; + EDIOBJ := SPH: EDIOBJ MTRACK :: + EDIT 0 <<SelOpt>> ITER 1.0E-5 ; + MTRACK ASSMB_HOM := DELETE: MTRACK ASSMB_HOM ; + ENDIF ; +* +ELSEIF TypeCompo "PinByPin" = THEN + EDIOBJ := EDI: FLUX2 LIBEQ TRACKN2 GEON2 GEOTMP :: + EDIT 0 + MICR RES + MERG CELL UNFOLD !! Does not work alone because of CELL in the water gap + REMIX 1 2 3 4 5 6 7 8 9 9 + 10 11 12 13 14 15 16 17 17 + 18 19 20 21 22 23 24 24 + 25 26 27 28 29 30 30 + 31 32 33 34 35 35 + 36 37 38 39 39 + 40 41 42 42 + 43 44 44 + 45 45 + 45 +! +! or (both tested and give the same results) +! +! merge by mixture +! MERG REGI +! <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> !7 +! <<p1>> <<p1>> <<p1>> <<p1>> <<p1>> <<p2>> <<p2>> !14 +! <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !21 +! <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> <<p2>> !28 +! <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !35 +! <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> <<p3>> !42 +! <<p3>> <<p3>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !49 +! <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> !56 +! <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p4>> <<p5>> !63 +! <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !70 +! <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> <<p5>> !77 +! <<p5>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !84 +! <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> <<p6>> !91 +! <<p6>> <<p6>> <<p6>> <<p7>> <<p7>> <<p7>> <<p7>> !98 +! <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !105 +! <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> <<p7>> !112 +! <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !119 +! <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> <<p8>> !126 +! <<p8>> <<p8>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !133 +! <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> !140 +! <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p9>> <<p10>> !147 +! <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !154 +! <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> <<p10>> !161 +! <<p10>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !168 +! <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !175 +! <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> <<p11>> !182 +! <<p11>> <<p11>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !189 +! <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !196 +! <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> <<p12>> !203 +! <<p12>> <<p12>> <<p12>> <<p13>> <<p13>> <<p13>> <<p13>> !210 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !217 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> <<p13>> !224 +! <<p13>> <<p13>> <<p13>> <<p13>> <<p14>> <<p14>> <<p14>> !231 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !238 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> !245 +! <<p14>> <<p14>> <<p14>> <<p14>> <<p14>> <<p15>> <<p15>> !252 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !259 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> !266 +! <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p15>> <<p16>> !273 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !280 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !287 +! <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> <<p16>> !294 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !301 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !308 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> <<p17>> !315 +! <<p17>> <<p17>> <<p17>> <<p17>> <<p18>> <<p18>> <<p18>> !322 +! <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> !329 +! <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p18>> <<p19>> !336 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !343 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !350 +! <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> <<p19>> !357 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !364 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !371 +! <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> <<p20>> !378 +! <<p20>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !385 +! <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !392 +! <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> <<p21>> !399 +! <<p21>> <<p21>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !406 +! <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !413 +! <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> <<p22>> !420 +! <<p22>> <<p22>> <<p22>> <<p23>> <<p23>> <<p23>> <<p23>> !427 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !434 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> <<p23>> !441 +! <<p23>> <<p23>> <<p23>> <<p23>> <<p24>> <<p24>> <<p24>> !448 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !455 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !462 +! <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> <<p24>> !469 +! <<p24>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !476 +! <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> !483 +! <<p25>> <<p25>> <<p25>> <<p25>> <<p25>> <<p26>> <<p26>> !490 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !497 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> !504 +! <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p26>> <<p27>> !511 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !518 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !525 +! <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> <<p27>> !532 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !539 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !546 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> !553 +! <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p28>> <<p29>> !560 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !567 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !574 +! <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> <<p29>> !581 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !588 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !595 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> <<p30>> !602 +! <<p30>> <<p30>> <<p30>> <<p30>> <<p31>> <<p31>> <<p31>> !609 +! <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> !616 +! <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p31>> <<p32>> !623 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !630 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !637 +! <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> <<p32>> !644 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !651 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !658 +! <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> <<p33>> !665 +! <<p33>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !672 +! <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !679 +! <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> <<p34>> !686 +! <<p34>> <<p34>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !693 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !700 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> !707 +! <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p35>> <<p36>> !714 +! <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !721 +! <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> <<p36>> !728 +! <<p36>> <<p36>> <<p36>> <<p37>> <<p37>> <<p37>> <<p37>> !735 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !742 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> <<p37>> !749 +! <<p37>> <<p37>> <<p37>> <<p37>> <<p38>> <<p38>> <<p38>> !756 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !763 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> !770 +! <<p38>> <<p38>> <<p38>> <<p38>> <<p38>> <<p39>> <<p39>> !777 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !784 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !791 +! <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> <<p39>> !798 +! <<p39>> <<p39>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !805 +! <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> <<p40>> !812 +! <<p40>> <<p40>> <<p40>> <<p40>> <<p41>> <<p41>> <<p41>> !819 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !826 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> !833 +! <<p41>> <<p41>> <<p41>> <<p41>> <<p41>> <<p42>> <<p42>> !840 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !847 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !854 +! <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> <<p42>> !861 +! <<p42>> <<p42>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !868 +! <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> <<p43>> !875 +! <<p43>> <<p43>> <<p43>> <<p43>> <<p44>> <<p44>> <<p44>> !882 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !889 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !896 +! <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> <<p44>> !903 +! <<p44>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !910 +! <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !917 +! <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> <<p45>> !924 + COND 19 + SAVE ON <<NameDir>> + MGEO GEOTMP + ADF 'FD_B' MIX 165 166 167 ENDM !gap L1 L2 L3 + ADF 'FD_H' MIX 165 166 167 !L1 a L3 + 172 173 174 175 ! C31 a C38 water and clad ... + 29 30 31 32 !p9 complete C31 + 141 142 143 144 !p17 complete C32 + 145 146 147 148 !p24 complete C33 + 149 150 151 152 !p30 complete C34 + 153 154 155 156 !p35 complete C35 + 157 158 159 160 !p39 complete C36 + 161 162 163 164 !p42 complete C37 + 33 34 35 36 !p44 complete C38 + 176 177 178 179 ! C39 water and clad ... + 37 38 39 40 !p45 complete C39 + ENDM + ; + IF SelOpt 'NONE' <> THEN + MTRACK := TRIVAT: ASSMB_HOM :: DUAL 3 3 EDIT 0 ; + EDIOBJ := SPH: EDIOBJ MTRACK :: + EDIT 0 <<SelOpt>> ITER 1.0E-5 ; + MTRACK ASSMB_HOM := DELETE: MTRACK ASSMB_HOM ; + ENDIF ; +* +ENDIF ; + +GEOTMP := DELETE: GEOTMP ; +END: ; +QUIT . |