C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***
C***									Parameter
C***										
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->


FINISH

/CLEAR

/UNITS,USER,0.001,1,1,1,0,1,1,1



radius1=16.5			! Radius der ausschneidet			MAXIMALwert= 17.7 || MinimalWERT= 10
rundung=0.8			! Beschreibt den Verrundungsfaktor
mittelp=10.275			! X-Koordinate für den Mittelpunkt zum ausschneiden

koordix=0.0
koordiy=0.0
radius2=3.9

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***
C***									Preprozessor - Geometrie
C***
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/PREP7

ET,1,SHELL43

MP,EX  , 1, 70e8			!Zu Shell41.
MP,PRXY, 1, 0.34
MP,DENS, 1, 2.75e-6
R, 1 ,2.0,2.0,2.0,2.0

ET,2,SOLID95

MP,EX  , 2, 70e8			!Zu Solid95
MP,PRXY, 2, 0.34
MP,DENS, 2, 2.7e-6
R, 2 ,,

ET,3,CONTA173			! Kontakt
ET,4,TARGE170
ET,5,CONTA171
ET,6,TARGE169
ET,7,

K,1,199.502000, 1.312000			! Oberfläche der Querschnittfläche wird definiert
						! Keypoints werden erzeugt 
K,2,195.968000, 2.650000

K,3,191.918000, 4.112000

K,4,188.080000, 5.494000

K,5,184.038000, 6.954000

K,6,180.002000, 8.422000

K,7,176.162000, 9.816000

K,8,172.124000,11.268000

K,9,168.058000,12.672000

K,10,164.212000,13.942000			! K10

K,11,160.112000,15.228000

K,12,155.990000,16.454000

K,13,152.080000,17.560000

K,14,147.942000,18.660000

K,15,143.792000,19.698000

K,16,139.826000,20.628000

K,17,135.632000,21.548000

K,18,131.648000,22.360000

K,19,127.430000,23.174000

K,20,123.214000,23.948000			! K20

K,21,119.194000,24.646000

K,22,114.970000,25.326000

K,23,110.728000,25.950000

K,24,106.678000,26.490000

K,25,102.432000,26.994000

K,26,98.164000,27.442000

K,27,94.120000,27.808000

K,28,89.832000,28.138000

K,29,85.768000,28.396000

K,30,81.484000,28.618000			! K30

K,31,77.204000,28.734000

K,32,73.158000,28.740000

K,33,68.868000,28.646000

K,34,64.588000,28.440000

K,35,60.546000,28.142000

K,36,56.282000,27.716000

K,37,52.032000,27.182000

K,38,48.024000,26.582000

K,39,43.800000,25.844000

K,40,39.590000,25.004000			! K40

K,41,35.630000,24.116000

K,42,31.478000,23.096000

K,43,27.594000,21.984000

K,44,23.562000,20.590000

K,45,19.626000,18.966000

K,46,15.996000,17.226000

K,47,12.256000,15.174000

K,48, 8.650000,12.910000

K,49, 5.612000,10.404000

K,50, 2.954000, 7.204000			! K50

K,51, 0.958000, 3.556000

K,52, 0.000000,-0.026000

K,53, 1.450000,-3.390000

K,54, 4.706000,-5.146000

K,55, 8.784000,-6.286000

K,56,12.942000,-7.040000

K,57,16.966000,-7.410000

K,58,21.244000,-7.658000

K,59,25.528000,-7.828000

K,60,29.590000,-7.946000			! K60

K,61,33.882000,-8.018000

K,62,38.174000,-8.042000

K,63,42.252000,-8.024000

K,64,48.02400,-7.956000				! K64 = K38 x Wert

K,65,50.828000,-7.840000

K,66,54.920000,-7.722000

K,67,60.546000,-7.592000			! K67 = K35 x Wert

K,68,63.272000,-7.460000

K,69,67.576000,-7.306000

K,70,73.158000,-7.138000			! K70 = K32 x Wert

K,71,75.936000,-6.974000

K,72,80.240000,-6.798000

K,73,84.534000,-6.610000

K,74,88.600000,-6.424000

K,75,92.900000,-6.224000

K,76,97.190000,-6.022000

K,77,101.264000,-5.844000

K,78,105.564000,-5.672000

K,79,109.636000,-5.522000

K,80,113.938000,-5.362000			! K80

K,81,118.236000,-5.204000

K,82,122.300000,-5.050000

K,83,126.598000,-4.876000

K,84,130.886000,-4.688000

K,85,134.952000,-4.500000

K,86,139.252000,-4.300000

K,87,143.554000,-4.092000

K,88,147.626000,-3.890000

K,89,151.916000,-3.670000

K,90,156.202000,-3.448000			! K90
K,91,161.614000,-3.154000
K,92,165.922000,-2.912000
K,93,169.978000,-2.678000
K,94,174.264000,-2.426000
K,95,178.556000,-2.168000
K,96,182.632000,-1.916000
K,97,186.926000,-1.642000
K,98,191.212000,-1.374000
K,99,195.298000,-1.166000
K,100,199.286000,-0.934000			! K100	
K,101,200.000000, 0.000000

K,140,60.546,mittelp			! Erster Kreismittelpunkt Für CURVE-FORM

FLST,3,7,3  				! Obere Linie BSPLINE
FITEM,3,38  
FITEM,3,37  
FITEM,3,36  
FITEM,3,35  
FITEM,3,34  
FITEM,3,33  
FITEM,3,32  
BSPLIN, ,P51X   

LSTR,38,140				! Dreieck zum Mittelpunkt
LSTR,32,140

Circle,140,radius1,,,360,,		! Kreis zum ausschneiden aus Mittelpunkt K140

AL,7,6,5,4
AL,3,2,1

ASBA,2,1,,,,				! Ausschneiden area 2 - area 1 subtract

Lfillt,9,11,rundung,,			! Verrunden links oben andeuten

AL,4,3,2				! Area zum ausschneiden definieren
ASBA,3,1				! Verrundung fertig links oben.	

Lfillt,8,10,rundung,,			! Verrunden rechts andeuten
Al,5,4,3				! Area zum ausschneiden
ASBA,2,1				! Ausschneiden area 2 - area 1 subtract

FLST,3,7,3  				! untere Linine BSPLIN
FITEM,3,64  
FITEM,3,65 
FITEM,3,66 
FITEM,3,67  
FITEM,3,68  
FITEM,3,69  
FITEM,3,70  
BSPLIN, ,P51X  

K,141,60.546,mittelp			! Der Kreismittelpunkt wurde bei der Subtraktion mit entfernt brauch ihn aber wieder.
					! Hab gelesen man kann Hard Points bauen -> Abhilfe xxx7.0UPDATE : HARD POINTS nur auf bestehenden LINIEN und AREA
LSTR,64,141
LSTR,70,141

Circle,141,radius1,,,360,,

AL,6,5,4
AL,14,13,12,7
ASBA,1,2				! 

Lfillet,15,17,rundung,,			! Verrundung 2. links andeuten		
AL,7,6,5
ASBA,4,1				! Verrundung 2. links unten fertig

Lfillet,16,18,rundung,,
AL,6,7,12				! MITTEl CURVE fertig
ASBA,2,1

LSTR,41,59				!1. Strebe von links nach r.
LSTR,29,76
LSTR,17,87				!3. Strebe

LSTR,41,42				! Ab hier beginnt der Abschnitt für die Verrrundung#1
KBETW,59,41,0,RATI,0.85,		! Super Befehl, erstellt einen KP zwsichen 2 KP(hier 59,41 im "Verhältniss z.b 0.75
A,112,41,42				! Dreiecksfläche
K,113,30.85,19.3			! Neuer KEYPOINT für den KREIS zum ausschneiden der Strebe
Circle,113,radius2,,,360,,		! 		
AL,21,22,23,24
ASBA,1,2				! Verrundung#1 fertig 


LSTR,59,60				! Verrundung#2 gegenüber ganz links beginnt hier
KBETW,59,41,0,RATI,0.15,
A,42,59,60				! 
K,114,29.9,-4.1
Circle,114,radius2,,,360,,
AL,21,22,23,24
ASBA,1,2				! Verrundung#2 fertig

LSTR,28,29				! Verrundung#3 (von 6)
KBETW,76,29,0,RATI,0.85,
A,29,28,42				! Dreiecksfläche
K,115,90.9,24.5,			! Punkt zum kreisauflegen
Circle,115,radius2,,,360,,
AL,14,19,20
AL,21,22,23,24,
ASBA,1,2				! Verrundung#3 fertig

LSTR,76,75				! Verrundung#4 Anfang
KBETW,76,29,0,RATI,0.15,
A,28,76,75
K,125,92.2,-2.4,
Circle,125,radius2,,,360,,
AL,21,22,23,24
ASBA,1,2				! Verrundung#4 ende

LSTR,17,16				! Verrundung#5 
KBETW,87,17,0,RATI,0.85
A,16,17,28
K,127,140.60,16.85,
Circle,127,radius2,,,360,,
AL,21,22,23,24
ASBA,1,2				! Verrundung#5 ende

LSTR,87,86				! Verrundung#6 
KBETW,87,17,0,RATI,0.15,
A,16,86,87
K,129,138.6,-0.48,
Circle,129,radius2,,,400,,
AL,21,22,23,24
ASBA,1,2				! Verrundung#6 ende

C***

K,150,199.502000, 1.312000,-1500			! Oberfläche der Querschnittfläche wird definiert
							! Keypoints werden erzeugt 
K,151,195.968000, 2.650000,-1500

K,152,191.918000, 4.112000,-1500

K,153,188.080000, 5.494000,-1500

K,154,184.038000, 6.954000,-1500

K,155,180.002000, 8.422000,-1500

K,156,176.162000, 9.816000,-1500

K,157,172.124000,11.268000,-1500

K,158,168.058000,12.672000,-1500

K,159,164.212000,13.942000,-1500			! K10

K,160,160.112000,15.228000,-1500

K,161,155.990000,16.454000,-1500

K,162,152.080000,17.560000,-1500

K,163,147.942000,18.660000,-1500

K,164,143.792000,19.698000,-1500

K,165,139.724066,20.6503604,-1500			! verbogen dass er auf 117 passt

K,166,135.632000,21.548000,-1500

K,167,131.648000,22.360000,-1500

K,168,127.430000,23.174000,-1500

K,169,123.214000,23.948000,-1500			! K20

K,170,119.194000,24.646000,-1500

K,171,114.970000,25.326000,-1500

K,172,110.728000,25.950000,-1500

K,173,106.678000,26.490000,-1500

K,174,102.432000,26.994000,-1500

K,175,98.164000,27.442000,-1500

K,176,94.120000,27.808000,-1500

K,177,89.5431013,28.1563405,-1500			! verbogen dass er auf 122 passt

K,178,85.768000,28.396000,-1500

K,179,81.484000,28.618000,-1500				! K30

K,180,77.204000,28.734000,-1500

K,181,73.158000,28.740000,-1500

K,182,68.868000,28.646000,-1500

K,183,64.588000,28.440000,-1500

K,184,60.546000,28.142000,-1500

K,185,56.282000,27.716000,-1500

K,186,52.032000,27.182000,-1500

K,187,48.024000,26.582000,-1500

K,188,43.800000,25.844000,-1500

K,189,39.590000,25.004000,-1500				! K40

K,190,35.630000,24.116000,-1500

K,191,31.60279213,23.12665703,-1500			! verbogen auf 118

K,192,27.594000,21.984000,-1500

K,193,23.562000,20.590000,-1500

K,194,19.626000,18.966000,-1500

K,195,15.996000,17.226000,-1500

K,196,12.256000,15.174000,-1500

K,197, 8.650000,12.910000,-1500

K,198, 5.612000,10.404000,-1500

K,199, 2.954000,7.204000,-1500				! K50
	
K,200, 0.958000, 3.556000,-1500

K,201, 0.000000,-0.026000,-1500

K,202, 1.450000,-3.390000,-1500

K,203, 4.706000,-5.146000,-1500

K,204, 8.784000,-6.286000,-1500

K,205,12.942000,-7.040000,-1500

K,206,16.966000,-7.410000,-1500

K,207,21.244000,-7.658000,-1500

K,208,25.528000,-7.828000,-1500

K,209,29.18714255,-7.9342971,-1500			! K60	verbogen auf 120

K,210,33.882000,-8.018000,-1500

K,211,38.174000,-8.042000,-1500

K,212,42.252000,-8.024000,-1500

K,213,48.02400,-7.956000,-1500				! K64 = K38 x Wert

K,214,50.828000,-7.840000,-1500

K,215,54.920000,-7.722000,-1500

K,216,60.546000,-7.592000,-1500				! K67 = K35 x Wert

K,217,63.272000,-7.460000,-1500

K,218,67.576000,-7.306000,-1500
	
K,219,73.158000,-7.138000,-1500				! K70 = K32 x Wert

K,220,75.936000,-6.974000,-1500

K,221,80.240000,-6.798000,-1500

K,222,84.534000,-6.610000,-1500

K,223,88.600000,-6.424000,-1500

K,224,92.98614974,-6.219943532,-1500			! verbogen auf 124

K,225,97.190000,-6.022000,-1500

K,226,101.264000,-5.844000,-1500

K,227,105.564000,-5.672000,-1500

K,228,109.636000,-5.522000,-1500

K,229,113.938000,-5.362000,-1500					! K80

K,230,118.236000,-5.204000,-1500

K,231,122.300000,-5.050000,-1500

K,232,126.598000,-4.876000,-1500

K,233,130.886000,-4.688000,-1500

K,234,134.952000,-4.500000,-1500

K,235,139.425632,-4.29160498,-1500			! verbogen auf 130

K,236,143.554000,-4.092000,-1500

K,237,147.626000,-3.890000,-1500

K,238,151.916000,-3.670000,-1500

K,239,156.202000,-3.448000,-1500			! K90

K,240,161.614000,-3.154000,-1500

K,241,165.922000,-2.912000,-1500

K,242,169.978000,-2.678000,-1500

K,243,174.264000,-2.426000,-1500

K,244,178.556000,-2.168000,-1500

K,245,182.632000,-1.916000,-1500

K,246,186.926000,-1.642000,-1500

K,247,191.212000,-1.374000,-1500

K,248,195.298000,-1.166000,-1500

K,249,199.286000,-0.934000,-1500			! K100

K,250,200.000000, 0.000000,-1500

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***
C***								Shell und EXTRUDE / VSWEEP
C***
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

A,1,2,151,150

*DO,I,1,13
	A,1+I,2+I,151+I,150+I			! Komplett außenrum bedecken mit SHell
*ENDDO

A,15,116,165,164
A,116,17,166,165

*DO,I,16,25
 	A,1+I,2+I,151+I,150+I			! Zweite Schleife bis zum nächsten Solid
*ENDDO

A,27,122,177,176
A,122,29,178,177

*DO,I,28,30
 	A,1+I,2+I,151+I,150+I
*ENDDO

A,32,33,182,181,				! Flächen "auf" dem oberen großen Solid
A,33,34,183,182
A,34,35,184,183
A,35,36,185,184
A,36,37,186,185
A,37,38,187,186

*DO,I,37,39
 	A,1+I,2+I,151+I,150+I
*ENDDO

A,41,118,191,190

A,118,43,192,191

*DO,I,42,56					!linke Seite fertig 
	A,1+I,2+I,151+I,150+I
*ENDDO

A,58,59,208,207
A,59,120,209,208
A,120,61,210,209

*DO,I,60,62
	A,1+I,2+I,151+I,150+I
*ENDDO

A,64,65,214,213
A,65,66,215,214
A,66,67,216,215
A,67,68,217,216
A,68,69,218,217
A,69,70,219,218

*DO,I,69,72
	A,1+I,2+I,151+I,150+I
*ENDDO

A,74,117,224,223
A,117,76,225,224			! mitten unten fertig

*DO,I,75,83
	A,1+I,2+I,151+I,150+I
*ENDDO

A,85,112,235,234
A,112,87,236,235

*DO,I,86,99
	A,1+I,2+I,151+I,150+I
*ENDDO

A,101,1,150,250


C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

*GET,koordix,KP,112,LOC,x			! Hilfsabschnitt um Punkte per Hand zu vereinen
*GET,koordiy,KP,112,LOC,y			! NUMMRG,ALL ist ein Befehl er dies automatisch machen würde

/output,'WASISTMIT117.txt'

/com, %koordix%
/com, %koordiy%

/output

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

VEXT,9,,,,,-1500,,
VEXT,7,,,,,-1500,,
VEXT,3,,,,,-1500,,
VEXT,5,,,,,-1500,,
VEXT,6,,,,,-1500,,
VEXT,4,,,,,-1500,,
VEXT,8,,,,,-1500,,
VEXT,10,,,,,-1500,,



C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

A,138,119,121,141			! Streben nochmal zu AREA
A,86,123,124,252	
A,42,126,128,256

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

					!###############


ASEl,S,AREA,,4				! MESH der VOLUMEN

LESIZE,4 ,,,8 , , , , ,1
LESIZE,15,,,6 , , , , ,1
LESIZE,16,,,6 , , , , ,1
LESIZE,384,,,5 , , , , ,1		! Bestimmt aufteilung in Z-Richtung	

AMESH,all
VATT,2,2,2
VSWEEP,6

ASEl,S,AREA,,3

LESIZE,351,,,8 , , , , ,1		! Vorbereitung V3 großes Unten					
LESIZE,345 ,,,6 , , , , ,1
LESIZE,350,,,6 , , , , ,1
LESIZE,352,,,5 , , , , ,1

AMESH,all
VATT,2,2,2
VSWEEp,3

ALLSEL

ASEL, , , ,       6 
AMESH,6

ASEL, , , ,      93 			
AMESh,93

ASEl,,,,10
AMESH,10

ASEl,,,,118
AMESH,118

VSEL,,,,1
VATT,2,2,2,,, 
VSWEEP,1

VSEL,,,,2
VATT,2,2,2,,, 
VSWEEP,2

VSEL,,,,4
VATT,2,2,2,,, 
VSWEEP,4

VSEL,,,,5
VATT,2,2,2,,, 
VSWEEP,5

VSEL,,,,7
VATT,2,2,2,,, 
VSWEEP,7

VSEL,,,,8
VATT,2,2,2,,, 
VSWEEP,8

ACLEAR,       6 
ACLEAR,      10 
ACLEAR,      93 
ACLEAR,     118 

ALLSEL
ASEL,ALL					! SHELL NETZ

AATT,1,1,1,,

ESIZE,80					! ESIZE

AMESH,ALL

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->


FLST,2,2,5,ORDE,2   
FITEM,2,92  
FITEM,2,-93 
ACLEAR,P51X 
FLST,5,2,5,ORDE,2   
FITEM,5,92  
FITEM,5,-93 
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
MSHKEY,2
AMESH,_Y1   
MSHKEY,0
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  


C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

ALLSEL


C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #1
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,3 
REAL,3  
ET,8,170
ET,9,175
R,3,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,9,4,0
KEYOPT,9,5,0
KEYOPT,9,7,0
KEYOPT,9,8,0
KEYOPT,9,9,0
KEYOPT,9,10,2   
KEYOPT,9,11,0   
KEYOPT,9,12,5   
KEYOPT,9,2,2
KEYOPT,8,5,0
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,1724   
NSEL,A,,,1762   
NSEL,A,,,2136   
NSEL,A,,,2137   
NSEL,A,,,2138   
NSEL,A,,,2139   
NSEL,A,,,2140   
NSEL,A,,,2532   
NSEL,A,,,2533   
NSEL,A,,,2534   
NSEL,A,,,2601   
NSEL,A,,,2606   
NSEL,A,,,2607   
NSEL,A,,,2608   
NSEL,A,,,2609   
NSEL,A,,,2610   
NSEL,A,,,2869   
NSEL,A,,,2870   
NSEL,A,,,2871   
NSEL,A,,,2872   
NSEL,A,,,2873   
NSEL,A,,,2899   
NSEL,A,,,2900   
NSEL,A,,,2901   
NSEL,A,,,2902   
NSEL,A,,,2903   
NSEL,A,,,8855   
NSEL,A,,,8856   
NSEL,A,,,8857   
NSEL,A,,,8858   
NSEL,A,,,8859   
NSEL,A,,,8860   
NSEL,A,,,8861   
NSEL,A,,,8862   
NSEL,A,,,8863   
NSEL,A,,,8864   
NSEL,A,,,8865   
NSEL,A,,,8866   
NSEL,A,,,8867   
NSEL,A,,,8868   
NSEL,A,,,8869   
NSEL,A,,,8870   
NSEL,A,,,8871   
NSEL,A,,,8872   
NSEL,A,,,8873   
NSEL,A,,,8874   
NSEL,A,,,8875   
NSEL,A,,,8876   
NSEL,A,,,8877   
NSEL,A,,,8878   
NSEL,A,,,8879   
NSEL,A,,,8880   
NSEL,A,,,8881   
NSEL,A,,,8882   
NSEL,A,,,8883   
NSEL,A,,,8884   
NSEL,A,,,8885   
NSEL,A,,,8886   
NSEL,A,,,8887   
NSEL,A,,,8888   
NSEL,A,,,8889   
NSEL,A,,,8890   
NSEL,A,,,8891   
NSEL,A,,,8892   
NSEL,A,,,8893   
NSEL,A,,,8994   
NSEL,A,,,8995   
NSEL,A,,,8996   
NSEL,A,,,8997   
NSEL,A,,,8998   
NSEL,A,,,8999   
NSEL,A,,,9000   
NSEL,A,,,9001   
NSEL,A,,,9002   
NSEL,A,,,9003   
NSEL,A,,,9004   
NSEL,A,,,9005   
NSEL,A,,,9006   
NSEL,A,,,9007   
NSEL,A,,,9008   
NSEL,A,,,9009   
NSEL,A,,,9010   
NSEL,A,,,9011   
NSEL,A,,,9012   
NSEL,A,,,9013   
NSEL,A,,,9014   
NSEL,A,,,9015   
NSEL,A,,,9016   
NSEL,A,,,9017   
NSEL,A,,,9018   
NSEL,A,,,9019   
NSEL,A,,,9020   
NSEL,A,,,9021   
NSEL,A,,,9022   
NSEL,A,,,9023   
NSEL,A,,,9024   
NSEL,A,,,9025   
NSEL,A,,,9026   
NSEL,A,,,9027   
NSEL,A,,,9028   
NSEL,A,,,9029   
NSEL,A,,,9030   
NSEL,A,,,9031   
NSEL,A,,,9032   
CM,_TARGET,NODE 
TYPE,8  
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,3  
ASEL,A,,,118
ASEL,A,,,119
ASEL,A,,,120
ASEL,A,,,121
ASEL,A,,,122
ASEL,A,,,123
ASEL,A,,,124
ASEL,A,,,125
CM,_CONTACT,AREA
TYPE,9  
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,3  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,8  
ESEL,A,TYPE,,9  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,8  
ESEL,A,TYPE,,9  
ESEL,R,REAL,,3  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,3  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  


C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #2
C*** #################################################2222222222
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,4 
REAL,4  
ET,10,170   
ET,11,175   
R,4,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,11,4,0   
KEYOPT,11,5,0   
KEYOPT,11,7,0   
KEYOPT,11,8,0   
KEYOPT,11,9,0   
KEYOPT,11,10,2  
KEYOPT,11,11,0  
KEYOPT,11,12,5  
KEYOPT,11,2,2   
KEYOPT,10,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,1  
NSEL,A,,,36 
NSEL,A,,,334
NSEL,A,,,335
NSEL,A,,,336
NSEL,A,,,337
NSEL,A,,,338
NSEL,A,,,339
NSEL,A,,,340
NSEL,A,,,341
NSEL,A,,,342
NSEL,A,,,343
NSEL,A,,,344
NSEL,A,,,345
NSEL,A,,,346
NSEL,A,,,347
NSEL,A,,,413
NSEL,A,,,860
NSEL,A,,,861
NSEL,A,,,862
NSEL,A,,,863
NSEL,A,,,864
NSEL,A,,,877
NSEL,A,,,878
NSEL,A,,,879
NSEL,A,,,880
NSEL,A,,,881
NSEL,A,,,882
NSEL,A,,,883
NSEL,A,,,884
NSEL,A,,,885
NSEL,A,,,886
NSEL,A,,,9501   
NSEL,A,,,9502   
NSEL,A,,,9503   
NSEL,A,,,9504   
NSEL,A,,,9505   
NSEL,A,,,9506   
NSEL,A,,,9507   
NSEL,A,,,9508   
NSEL,A,,,9509   
NSEL,A,,,9510   
NSEL,A,,,9511   
NSEL,A,,,9512   
NSEL,A,,,9513   
NSEL,A,,,9514   
NSEL,A,,,9515   
NSEL,A,,,9516   
NSEL,A,,,9517   
NSEL,A,,,9518   
NSEL,A,,,9519   
NSEL,A,,,9520   
NSEL,A,,,9521   
NSEL,A,,,9522   
NSEL,A,,,9523   
NSEL,A,,,9524   
NSEL,A,,,9525   
NSEL,A,,,9526   
NSEL,A,,,9527   
NSEL,A,,,9528   
NSEL,A,,,9529   
NSEL,A,,,9530   
NSEL,A,,,9531   
NSEL,A,,,9532   
NSEL,A,,,9533   
NSEL,A,,,9534   
NSEL,A,,,9535   
NSEL,A,,,9536   
NSEL,A,,,9537   
NSEL,A,,,9538   
NSEL,A,,,9539   
NSEL,A,,,9640   
NSEL,A,,,9641   
NSEL,A,,,9642   
NSEL,A,,,9643   
NSEL,A,,,9644   
NSEL,A,,,9645   
NSEL,A,,,9646   
NSEL,A,,,9647   
NSEL,A,,,9648   
NSEL,A,,,9649   
NSEL,A,,,9650   
NSEL,A,,,9651   
NSEL,A,,,9652   
NSEL,A,,,9653   
NSEL,A,,,9654   
NSEL,A,,,9655   
NSEL,A,,,9656   
NSEL,A,,,9657   
NSEL,A,,,9658   
NSEL,A,,,9659   
NSEL,A,,,9660   
NSEL,A,,,9661   
NSEL,A,,,9662   
NSEL,A,,,9663   
NSEL,A,,,9664   
NSEL,A,,,9665   
NSEL,A,,,9666   
NSEL,A,,,9667   
NSEL,A,,,9668   
NSEL,A,,,9669   
NSEL,A,,,9670   
NSEL,A,,,9671   
NSEL,A,,,9672   
NSEL,A,,,9673   
NSEL,A,,,9674   
NSEL,A,,,9675   
NSEL,A,,,9676   
NSEL,A,,,9677   
NSEL,A,,,9678   
CM,_TARGET,NODE 
TYPE,10 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,4  
ASEL,A,,,134
ASEL,A,,,135
ASEL,A,,,136
ASEL,A,,,137
ASEL,A,,,138
ASEL,A,,,139
ASEL,A,,,140
ASEL,A,,,141
CM,_CONTACT,AREA
TYPE,11 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,4  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,10 
ESEL,A,TYPE,,11 
ESEL,R,REAL,,4  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,10 
ESEL,A,TYPE,,11 
ESEL,R,REAL,,4  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,4  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #3
C*** #################################################33333333333333
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,5 
REAL,5  
ET,12,170   
ET,13,175   
R,5,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,13,4,0   
KEYOPT,13,5,0   
KEYOPT,13,7,0   
KEYOPT,13,8,0   
KEYOPT,13,9,0   
KEYOPT,13,10,2  
KEYOPT,13,11,0  
KEYOPT,13,12,5  
KEYOPT,13,2,2   
KEYOPT,12,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,5545   
NSEL,A,,,5546   
NSEL,A,,,5550   
NSEL,A,,,5697   
NSEL,A,,,5698   
NSEL,A,,,5699   
NSEL,A,,,5700   
NSEL,A,,,5701   
NSEL,A,,,5702   
NSEL,A,,,5703   
NSEL,A,,,5704   
NSEL,A,,,5705   
NSEL,A,,,5706   
NSEL,A,,,5707   
NSEL,A,,,5708   
NSEL,A,,,5709   
NSEL,A,,,5710   
NSEL,A,,,5711   
NSEL,A,,,5712   
NSEL,A,,,5713   
NSEL,A,,,5714   
NSEL,A,,,5715   
NSEL,A,,,5716   
NSEL,A,,,5717   
NSEL,A,,,5718   
NSEL,A,,,5719   
NSEL,A,,,5720   
NSEL,A,,,5721   
NSEL,A,,,5722   
NSEL,A,,,5723   
NSEL,A,,,5724   
NSEL,A,,,5725   
NSEL,A,,,5726   
NSEL,A,,,5917   
NSEL,A,,,5918   
NSEL,A,,,5919   
NSEL,A,,,5920   
NSEL,A,,,5921   
NSEL,A,,,5922   
NSEL,A,,,5923   
NSEL,A,,,5924   
NSEL,A,,,5925   
NSEL,A,,,5926   
NSEL,A,,,5927   
NSEL,A,,,5928   
NSEL,A,,,5929   
NSEL,A,,,5930   
NSEL,A,,,5931   
NSEL,A,,,6042   
NSEL,A,,,6043   
NSEL,A,,,6044   
NSEL,A,,,6045   
NSEL,A,,,6046   
NSEL,A,,,6047   
NSEL,A,,,6048   
NSEL,A,,,6049   
NSEL,A,,,6050   
NSEL,A,,,6051   
NSEL,A,,,6052   
NSEL,A,,,6053   
NSEL,A,,,6054   
NSEL,A,,,6055   
NSEL,A,,,6056   
NSEL,A,,,6057   
NSEL,A,,,6058   
NSEL,A,,,6059   
NSEL,A,,,6060   
NSEL,A,,,6061   
NSEL,A,,,6062   
NSEL,A,,,6063   
NSEL,A,,,6064   
NSEL,A,,,6065   
NSEL,A,,,6066   
NSEL,A,,,6067   
NSEL,A,,,6068   
NSEL,A,,,6069   
NSEL,A,,,6070   
NSEL,A,,,6071   
NSEL,A,,,6082   
NSEL,A,,,6083   
NSEL,A,,,6084   
NSEL,A,,,6085   
NSEL,A,,,6086   
NSEL,A,,,6087   
NSEL,A,,,6088   
NSEL,A,,,6089   
NSEL,A,,,6090   
NSEL,A,,,6091   
NSEL,A,,,6092   
NSEL,A,,,6093   
NSEL,A,,,6094   
NSEL,A,,,6095   
NSEL,A,,,6096   
NSEL,A,,,9033   
NSEL,A,,,9034   
NSEL,A,,,9035   
NSEL,A,,,9036   
NSEL,A,,,9037   
NSEL,A,,,9038   
NSEL,A,,,9039   
NSEL,A,,,9040   
NSEL,A,,,9041   
NSEL,A,,,9042   
NSEL,A,,,9043   
NSEL,A,,,9044   
NSEL,A,,,9045   
NSEL,A,,,9046   
NSEL,A,,,9047   
NSEL,A,,,9048   
NSEL,A,,,9049   
NSEL,A,,,9050   
NSEL,A,,,9051   
NSEL,A,,,9052   
NSEL,A,,,9053   
NSEL,A,,,9054   
NSEL,A,,,9055   
NSEL,A,,,9056   
NSEL,A,,,9057   
NSEL,A,,,9058   
NSEL,A,,,9059   
NSEL,A,,,9060   
NSEL,A,,,9061   
NSEL,A,,,9062   
NSEL,A,,,9063   
NSEL,A,,,9064   
NSEL,A,,,9065   
NSEL,A,,,9066   
NSEL,A,,,9067   
NSEL,A,,,9068   
NSEL,A,,,9069   
NSEL,A,,,9070   
NSEL,A,,,9071   
NSEL,A,,,9072   
NSEL,A,,,9073   
NSEL,A,,,9074   
NSEL,A,,,9075   
NSEL,A,,,9076   
NSEL,A,,,9077   
NSEL,A,,,9078   
NSEL,A,,,9079   
NSEL,A,,,9080   
NSEL,A,,,9081   
NSEL,A,,,9082   
NSEL,A,,,9083   
NSEL,A,,,9084   
NSEL,A,,,9085   
NSEL,A,,,9086   
NSEL,A,,,9087   
NSEL,A,,,9088   
NSEL,A,,,9089   
NSEL,A,,,9090   
NSEL,A,,,9100   
NSEL,A,,,9101   
NSEL,A,,,9102   
NSEL,A,,,9103   
NSEL,A,,,9104   
NSEL,A,,,9105   
NSEL,A,,,9106   
NSEL,A,,,9107   
NSEL,A,,,9108   
NSEL,A,,,9109   
NSEL,A,,,9110   
NSEL,A,,,9111   
NSEL,A,,,9112   
NSEL,A,,,9113   
NSEL,A,,,9114   
NSEL,A,,,9115   
NSEL,A,,,9116   
NSEL,A,,,9117   
NSEL,A,,,9118   
NSEL,A,,,9119   
CM,_TARGET,NODE 
TYPE,12 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,5  
ASEL,A,,,126
ASEL,A,,,127
ASEL,A,,,128
ASEL,A,,,129
CM,_CONTACT,AREA
TYPE,13 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,5  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,12 
ESEL,A,TYPE,,13 
ESEL,R,REAL,,5  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,12 
ESEL,A,TYPE,,13 
ESEL,R,REAL,,5  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,5  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!* 

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #4
C*** #################################################4444444444444444
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,6 
REAL,6  
ET,14,170   
ET,15,175   
R,6,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,15,4,0   
KEYOPT,15,5,0   
KEYOPT,15,7,0   
KEYOPT,15,8,0   
KEYOPT,15,9,0   
KEYOPT,15,10,2  
KEYOPT,15,11,0  
KEYOPT,15,12,5  
KEYOPT,15,2,2   
KEYOPT,14,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,3968   
NSEL,A,,,3969   
NSEL,A,,,3972   
NSEL,A,,,6490   
NSEL,A,,,6491   
NSEL,A,,,6492   
NSEL,A,,,6493   
NSEL,A,,,6494   
NSEL,A,,,6495   
NSEL,A,,,6496   
NSEL,A,,,6497   
NSEL,A,,,6498   
NSEL,A,,,6499   
NSEL,A,,,6500   
NSEL,A,,,6501   
NSEL,A,,,6502   
NSEL,A,,,6503   
NSEL,A,,,6504   
NSEL,A,,,6505   
NSEL,A,,,6506   
NSEL,A,,,6507   
NSEL,A,,,6508   
NSEL,A,,,6509   
NSEL,A,,,6510   
NSEL,A,,,6511   
NSEL,A,,,6512   
NSEL,A,,,6513   
NSEL,A,,,6514   
NSEL,A,,,6515   
NSEL,A,,,6516   
NSEL,A,,,6517   
NSEL,A,,,6654   
NSEL,A,,,6655   
NSEL,A,,,6656   
NSEL,A,,,6657   
NSEL,A,,,6658   
NSEL,A,,,6659   
NSEL,A,,,6660   
NSEL,A,,,6661   
NSEL,A,,,6662   
NSEL,A,,,6663   
NSEL,A,,,6664   
NSEL,A,,,6665   
NSEL,A,,,6666   
NSEL,A,,,6667   
NSEL,A,,,6767   
NSEL,A,,,6768   
NSEL,A,,,6769   
NSEL,A,,,6770   
NSEL,A,,,6771   
NSEL,A,,,6772   
NSEL,A,,,6773   
NSEL,A,,,6774   
NSEL,A,,,6775   
NSEL,A,,,6776   
NSEL,A,,,6777   
NSEL,A,,,6778   
NSEL,A,,,6779   
NSEL,A,,,6780   
NSEL,A,,,6781   
NSEL,A,,,6782   
NSEL,A,,,6783   
NSEL,A,,,6784   
NSEL,A,,,6785   
NSEL,A,,,6786   
NSEL,A,,,6787   
NSEL,A,,,6788   
NSEL,A,,,6789   
NSEL,A,,,6790   
NSEL,A,,,6791   
NSEL,A,,,6792   
NSEL,A,,,6793   
NSEL,A,,,6794   
NSEL,A,,,6799   
NSEL,A,,,6800   
NSEL,A,,,6801   
NSEL,A,,,6802   
NSEL,A,,,6803   
NSEL,A,,,6804   
NSEL,A,,,6805   
NSEL,A,,,6806   
NSEL,A,,,6807   
NSEL,A,,,6808   
NSEL,A,,,6809   
NSEL,A,,,6810   
NSEL,A,,,6811   
NSEL,A,,,6812   
NSEL,A,,,9400   
NSEL,A,,,9401   
NSEL,A,,,9402   
NSEL,A,,,9403   
NSEL,A,,,9404   
NSEL,A,,,9405   
NSEL,A,,,9406   
NSEL,A,,,9407   
NSEL,A,,,9408   
NSEL,A,,,9409   
NSEL,A,,,9410   
NSEL,A,,,9411   
NSEL,A,,,9412   
NSEL,A,,,9413   
NSEL,A,,,9414   
NSEL,A,,,9415   
NSEL,A,,,9416   
NSEL,A,,,9417   
NSEL,A,,,9418   
NSEL,A,,,9419   
NSEL,A,,,9420   
NSEL,A,,,9421   
NSEL,A,,,9422   
NSEL,A,,,9423   
NSEL,A,,,9424   
NSEL,A,,,9425   
NSEL,A,,,9426   
NSEL,A,,,9427   
NSEL,A,,,9428   
NSEL,A,,,9429   
NSEL,A,,,9430   
NSEL,A,,,9431   
NSEL,A,,,9432   
NSEL,A,,,9433   
NSEL,A,,,9434   
NSEL,A,,,9435   
NSEL,A,,,9436   
NSEL,A,,,9437   
NSEL,A,,,9438   
NSEL,A,,,9439   
NSEL,A,,,9440   
NSEL,A,,,9441   
NSEL,A,,,9442   
NSEL,A,,,9443   
NSEL,A,,,9444   
NSEL,A,,,9445   
NSEL,A,,,9446   
NSEL,A,,,9447   
NSEL,A,,,9448   
NSEL,A,,,9449   
NSEL,A,,,9450   
NSEL,A,,,9451   
NSEL,A,,,9452   
NSEL,A,,,9453   
NSEL,A,,,9454   
NSEL,A,,,9455   
NSEL,A,,,9456   
NSEL,A,,,9457   
NSEL,A,,,9461   
NSEL,A,,,9462   
NSEL,A,,,9463   
NSEL,A,,,9464   
NSEL,A,,,9465   
NSEL,A,,,9466   
NSEL,A,,,9467   
NSEL,A,,,9468   
NSEL,A,,,9469   
NSEL,A,,,9470   
NSEL,A,,,9471   
NSEL,A,,,9472   
NSEL,A,,,9473   
NSEL,A,,,9474   
NSEL,A,,,9475   
NSEL,A,,,9476   
NSEL,A,,,9477   
NSEL,A,,,9478   
NSEL,A,,,9479   
NSEL,A,,,9480   
CM,_TARGET,NODE 
TYPE,14 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,6  
ASEL,A,,,130
ASEL,A,,,131
ASEL,A,,,132
ASEL,A,,,133
CM,_CONTACT,AREA
TYPE,15 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,6  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,14 
ESEL,A,TYPE,,15 
ESEL,R,REAL,,6  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,14 
ESEL,A,TYPE,,15 
ESEL,R,REAL,,6  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,6  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #5
C*** #################################################5555555555555555555555555555
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,7 
REAL,7  
ET,16,170   
ET,17,175   
R,7,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,17,4,0   
KEYOPT,17,5,0   
KEYOPT,17,7,0   
KEYOPT,17,8,0   
KEYOPT,17,9,0   
KEYOPT,17,10,2  
KEYOPT,17,11,0  
KEYOPT,17,12,5  
KEYOPT,17,2,2   
KEYOPT,16,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,4882   
NSEL,A,,,4883   
NSEL,A,,,4888   
NSEL,A,,,5079   
NSEL,A,,,5080   
NSEL,A,,,5081   
NSEL,A,,,5082   
NSEL,A,,,5083   
NSEL,A,,,5084   
NSEL,A,,,5085   
NSEL,A,,,5086   
NSEL,A,,,5087   
NSEL,A,,,5088   
NSEL,A,,,5089   
NSEL,A,,,5090   
NSEL,A,,,5091   
NSEL,A,,,5092   
NSEL,A,,,5093   
NSEL,A,,,5094   
NSEL,A,,,5095   
NSEL,A,,,5096   
NSEL,A,,,5097   
NSEL,A,,,5098   
NSEL,A,,,5099   
NSEL,A,,,5100   
NSEL,A,,,5101   
NSEL,A,,,5102   
NSEL,A,,,5103   
NSEL,A,,,5104   
NSEL,A,,,5105   
NSEL,A,,,5106   
NSEL,A,,,5107   
NSEL,A,,,5108   
NSEL,A,,,5255   
NSEL,A,,,5256   
NSEL,A,,,5257   
NSEL,A,,,5258   
NSEL,A,,,5259   
NSEL,A,,,5260   
NSEL,A,,,5261   
NSEL,A,,,5262   
NSEL,A,,,5263   
NSEL,A,,,5264   
NSEL,A,,,5265   
NSEL,A,,,5266   
NSEL,A,,,5267   
NSEL,A,,,5268   
NSEL,A,,,5269   
NSEL,A,,,5382   
NSEL,A,,,5383   
NSEL,A,,,5384   
NSEL,A,,,5385   
NSEL,A,,,5386   
NSEL,A,,,5387   
NSEL,A,,,5388   
NSEL,A,,,5389   
NSEL,A,,,5390   
NSEL,A,,,5391   
NSEL,A,,,5392   
NSEL,A,,,5393   
NSEL,A,,,5394   
NSEL,A,,,5395   
NSEL,A,,,5396   
NSEL,A,,,5397   
NSEL,A,,,5398   
NSEL,A,,,5399   
NSEL,A,,,5400   
NSEL,A,,,5401   
NSEL,A,,,5402   
NSEL,A,,,5403   
NSEL,A,,,5404   
NSEL,A,,,5405   
NSEL,A,,,5406   
NSEL,A,,,5407   
NSEL,A,,,5408   
NSEL,A,,,5409   
NSEL,A,,,5410   
NSEL,A,,,5411   
NSEL,A,,,5420   
NSEL,A,,,5421   
NSEL,A,,,5422   
NSEL,A,,,5423   
NSEL,A,,,5424   
NSEL,A,,,5425   
NSEL,A,,,5426   
NSEL,A,,,5427   
NSEL,A,,,5428   
NSEL,A,,,5429   
NSEL,A,,,5430   
NSEL,A,,,5431   
NSEL,A,,,5432   
NSEL,A,,,5433   
NSEL,A,,,5434   
NSEL,A,,,8793   
NSEL,A,,,8794   
NSEL,A,,,8795   
NSEL,A,,,8796   
NSEL,A,,,8797   
NSEL,A,,,8798   
NSEL,A,,,8799   
NSEL,A,,,8800   
NSEL,A,,,8801   
NSEL,A,,,8802   
NSEL,A,,,8803   
NSEL,A,,,8804   
NSEL,A,,,8805   
NSEL,A,,,8806   
NSEL,A,,,8807   
NSEL,A,,,8808   
NSEL,A,,,8809   
NSEL,A,,,8810   
NSEL,A,,,8811   
NSEL,A,,,8812   
NSEL,A,,,8813   
NSEL,A,,,8814   
NSEL,A,,,8815   
NSEL,A,,,8816   
NSEL,A,,,8817   
NSEL,A,,,8818   
NSEL,A,,,8819   
NSEL,A,,,8820   
NSEL,A,,,8821   
NSEL,A,,,8822   
NSEL,A,,,8823   
NSEL,A,,,8824   
NSEL,A,,,8825   
NSEL,A,,,8826   
NSEL,A,,,8827   
NSEL,A,,,8828   
NSEL,A,,,8829   
NSEL,A,,,8830   
NSEL,A,,,8835   
NSEL,A,,,8836   
NSEL,A,,,8837   
NSEL,A,,,8838   
NSEL,A,,,8839   
NSEL,A,,,8840   
NSEL,A,,,8841   
NSEL,A,,,8842   
NSEL,A,,,8843   
NSEL,A,,,8844   
NSEL,A,,,8845   
NSEL,A,,,8846   
NSEL,A,,,8847   
NSEL,A,,,8848   
NSEL,A,,,8849   
NSEL,A,,,8850   
NSEL,A,,,8851   
NSEL,A,,,8852   
NSEL,A,,,8853   
NSEL,A,,,8854   
CM,_TARGET,NODE 
TYPE,16 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,7  
ASEL,A,,,114
ASEL,A,,,115
ASEL,A,,,116
ASEL,A,,,117
CM,_CONTACT,AREA
TYPE,17 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,7  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,16 
ESEL,A,TYPE,,17 
ESEL,R,REAL,,7  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,16 
ESEL,A,TYPE,,17 
ESEL,R,REAL,,7  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,7  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  


C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #6
C*** #################################################666666666666666666666666666666666
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,8 
REAL,8  
ET,18,170   
ET,19,175   
R,8,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,19,4,0   
KEYOPT,19,5,0   
KEYOPT,19,7,0   
KEYOPT,19,8,0   
KEYOPT,19,9,0   
KEYOPT,19,10,2  
KEYOPT,19,11,0  
KEYOPT,19,12,5  
KEYOPT,19,2,2   
KEYOPT,18,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,7088   
NSEL,A,,,7089   
NSEL,A,,,7090   
NSEL,A,,,7091   
NSEL,A,,,7092   
NSEL,A,,,7093   
NSEL,A,,,7094   
NSEL,A,,,7095   
NSEL,A,,,7096   
NSEL,A,,,7097   
NSEL,A,,,7098   
NSEL,A,,,7099   
NSEL,A,,,7100   
NSEL,A,,,7101   
NSEL,A,,,7102   
NSEL,A,,,7103   
NSEL,A,,,7104   
NSEL,A,,,7105   
NSEL,A,,,7106   
NSEL,A,,,7107   
NSEL,A,,,7108   
NSEL,A,,,7109   
NSEL,A,,,7110   
NSEL,A,,,7111   
NSEL,A,,,7112   
NSEL,A,,,7113   
NSEL,A,,,7114   
NSEL,A,,,7115   
NSEL,A,,,7116   
NSEL,A,,,7117   
NSEL,A,,,7264   
NSEL,A,,,7265   
NSEL,A,,,7266   
NSEL,A,,,7267   
NSEL,A,,,7268   
NSEL,A,,,7269   
NSEL,A,,,7270   
NSEL,A,,,7271   
NSEL,A,,,7272   
NSEL,A,,,7273   
NSEL,A,,,7274   
NSEL,A,,,7275   
NSEL,A,,,7276   
NSEL,A,,,7277   
NSEL,A,,,7278   
NSEL,A,,,7493   
NSEL,A,,,7494   
NSEL,A,,,7495   
NSEL,A,,,7496   
NSEL,A,,,7497   
NSEL,A,,,7498   
NSEL,A,,,7499   
NSEL,A,,,7500   
NSEL,A,,,7501   
NSEL,A,,,7502   
NSEL,A,,,7503   
NSEL,A,,,7504   
NSEL,A,,,7505   
NSEL,A,,,7506   
NSEL,A,,,7507   
NSEL,A,,,7508   
NSEL,A,,,7509   
NSEL,A,,,7510   
NSEL,A,,,7511   
NSEL,A,,,7512   
NSEL,A,,,7513   
NSEL,A,,,7514   
NSEL,A,,,7515   
NSEL,A,,,7516   
NSEL,A,,,7517   
NSEL,A,,,7518   
NSEL,A,,,7519   
NSEL,A,,,7520   
NSEL,A,,,7521   
NSEL,A,,,7522   
NSEL,A,,,7523   
NSEL,A,,,7524   
NSEL,A,,,7525   
NSEL,A,,,7526   
NSEL,A,,,7527   
NSEL,A,,,7528   
NSEL,A,,,7529   
NSEL,A,,,7530   
NSEL,A,,,7531   
NSEL,A,,,7532   
NSEL,A,,,7533   
NSEL,A,,,7534   
NSEL,A,,,7535   
NSEL,A,,,7536   
NSEL,A,,,7537   
NSEL,A,,,7542   
NSEL,A,,,7546   
NSEL,A,,,7549   
NSEL,A,,,9719   
NSEL,A,,,9720   
NSEL,A,,,9721   
NSEL,A,,,9722   
NSEL,A,,,9723   
NSEL,A,,,9724   
NSEL,A,,,9725   
NSEL,A,,,9726   
NSEL,A,,,9727   
NSEL,A,,,9728   
NSEL,A,,,9729   
NSEL,A,,,9730   
NSEL,A,,,9731   
NSEL,A,,,9732   
NSEL,A,,,9733   
NSEL,A,,,9734   
NSEL,A,,,9735   
NSEL,A,,,9736   
NSEL,A,,,9737   
NSEL,A,,,9738   
NSEL,A,,,9739   
NSEL,A,,,9740   
NSEL,A,,,9741   
NSEL,A,,,9742   
NSEL,A,,,9743   
NSEL,A,,,9744   
NSEL,A,,,9745   
NSEL,A,,,9746   
NSEL,A,,,9747   
NSEL,A,,,9748   
NSEL,A,,,9749   
NSEL,A,,,9750   
NSEL,A,,,9751   
NSEL,A,,,9752   
NSEL,A,,,9753   
NSEL,A,,,9754   
NSEL,A,,,9755   
NSEL,A,,,9756   
NSEL,A,,,9757   
NSEL,A,,,9758   
NSEL,A,,,9759   
NSEL,A,,,9760   
NSEL,A,,,9761   
NSEL,A,,,9762   
NSEL,A,,,9763   
NSEL,A,,,9764   
NSEL,A,,,9765   
NSEL,A,,,9766   
NSEL,A,,,9767   
NSEL,A,,,9768   
NSEL,A,,,9769   
NSEL,A,,,9770   
NSEL,A,,,9771   
NSEL,A,,,9772   
NSEL,A,,,9773   
NSEL,A,,,9774   
NSEL,A,,,9775   
NSEL,A,,,9776   
NSEL,A,,,9784   
NSEL,A,,,9785   
NSEL,A,,,9786   
NSEL,A,,,9787   
NSEL,A,,,9788   
NSEL,A,,,9789   
NSEL,A,,,9790   
NSEL,A,,,9791   
NSEL,A,,,9792   
NSEL,A,,,9793   
NSEL,A,,,9794   
NSEL,A,,,9795   
NSEL,A,,,9796   
NSEL,A,,,9797   
NSEL,A,,,9798   
NSEL,A,,,9799   
NSEL,A,,,9800   
NSEL,A,,,9801   
NSEL,A,,,9802   
NSEL,A,,,9803   
CM,_TARGET,NODE 
TYPE,18 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,8  
ASEL,A,,,142
ASEL,A,,,143
ASEL,A,,,144
ASEL,A,,,145
CM,_CONTACT,AREA
TYPE,19 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,8  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,18 
ESEL,A,TYPE,,19 
ESEL,R,REAL,,8  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,18 
ESEL,A,TYPE,,19 
ESEL,R,REAL,,8  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,8  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #7
C*** #################################################7777777777777777777777777
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,9 
REAL,9  
ET,20,170   
ET,21,175   
R,9,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,21,4,0   
KEYOPT,21,5,0   
KEYOPT,21,7,0   
KEYOPT,21,8,0   
KEYOPT,21,9,0   
KEYOPT,21,10,2  
KEYOPT,21,11,0  
KEYOPT,21,12,5  
KEYOPT,21,2,2   
KEYOPT,20,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,4068   
NSEL,A,,,4069   
NSEL,A,,,4073   
NSEL,A,,,4220   
NSEL,A,,,4221   
NSEL,A,,,4222   
NSEL,A,,,4223   
NSEL,A,,,4224   
NSEL,A,,,4225   
NSEL,A,,,4226   
NSEL,A,,,4227   
NSEL,A,,,4228   
NSEL,A,,,4229   
NSEL,A,,,4230   
NSEL,A,,,4231   
NSEL,A,,,4232   
NSEL,A,,,4233   
NSEL,A,,,4234   
NSEL,A,,,4235   
NSEL,A,,,4236   
NSEL,A,,,4237   
NSEL,A,,,4238   
NSEL,A,,,4239   
NSEL,A,,,4240   
NSEL,A,,,4241   
NSEL,A,,,4242   
NSEL,A,,,4243   
NSEL,A,,,4244   
NSEL,A,,,4245   
NSEL,A,,,4246   
NSEL,A,,,4247   
NSEL,A,,,4248   
NSEL,A,,,4249   
NSEL,A,,,4352   
NSEL,A,,,4353   
NSEL,A,,,4354   
NSEL,A,,,4355   
NSEL,A,,,4356   
NSEL,A,,,4357   
NSEL,A,,,4358   
NSEL,A,,,4359   
NSEL,A,,,4360   
NSEL,A,,,4361   
NSEL,A,,,4362   
NSEL,A,,,4363   
NSEL,A,,,4364   
NSEL,A,,,4365   
NSEL,A,,,4366   
NSEL,A,,,4565   
NSEL,A,,,4566   
NSEL,A,,,4567   
NSEL,A,,,4568   
NSEL,A,,,4569   
NSEL,A,,,4570   
NSEL,A,,,4571   
NSEL,A,,,4572   
NSEL,A,,,4573   
NSEL,A,,,4574   
NSEL,A,,,4575   
NSEL,A,,,4576   
NSEL,A,,,4577   
NSEL,A,,,4578   
NSEL,A,,,4579   
NSEL,A,,,4580   
NSEL,A,,,4581   
NSEL,A,,,4582   
NSEL,A,,,4583   
NSEL,A,,,4584   
NSEL,A,,,4585   
NSEL,A,,,4586   
NSEL,A,,,4587   
NSEL,A,,,4588   
NSEL,A,,,4589   
NSEL,A,,,4590   
NSEL,A,,,4591   
NSEL,A,,,4592   
NSEL,A,,,4593   
NSEL,A,,,4594   
NSEL,A,,,4601   
NSEL,A,,,4602   
NSEL,A,,,4603   
NSEL,A,,,4604   
NSEL,A,,,4605   
NSEL,A,,,4606   
NSEL,A,,,4607   
NSEL,A,,,4608   
NSEL,A,,,4609   
NSEL,A,,,4610   
NSEL,A,,,4611   
NSEL,A,,,4612   
NSEL,A,,,4613   
NSEL,A,,,4614   
NSEL,A,,,4615   
NSEL,A,,,8529   
NSEL,A,,,8530   
NSEL,A,,,8531   
NSEL,A,,,8532   
NSEL,A,,,8533   
NSEL,A,,,8534   
NSEL,A,,,8535   
NSEL,A,,,8536   
NSEL,A,,,8537   
NSEL,A,,,8538   
NSEL,A,,,8539   
NSEL,A,,,8540   
NSEL,A,,,8541   
NSEL,A,,,8542   
NSEL,A,,,8543   
NSEL,A,,,8544   
NSEL,A,,,8545   
NSEL,A,,,8546   
NSEL,A,,,8547   
NSEL,A,,,8548   
NSEL,A,,,8549   
NSEL,A,,,8550   
NSEL,A,,,8551   
NSEL,A,,,8552   
NSEL,A,,,8553   
NSEL,A,,,8554   
NSEL,A,,,8555   
NSEL,A,,,8556   
NSEL,A,,,8557   
NSEL,A,,,8558   
NSEL,A,,,8559   
NSEL,A,,,8560   
NSEL,A,,,8561   
NSEL,A,,,8562   
NSEL,A,,,8563   
NSEL,A,,,8564   
NSEL,A,,,8565   
NSEL,A,,,8566   
NSEL,A,,,8567   
NSEL,A,,,8568   
NSEL,A,,,8569   
NSEL,A,,,8570   
NSEL,A,,,8571   
NSEL,A,,,8572   
NSEL,A,,,8573   
NSEL,A,,,8574   
NSEL,A,,,8575   
NSEL,A,,,8576   
NSEL,A,,,8577   
NSEL,A,,,8578   
NSEL,A,,,8579   
NSEL,A,,,8580   
NSEL,A,,,8581   
NSEL,A,,,8582   
NSEL,A,,,8583   
NSEL,A,,,8584   
NSEL,A,,,8585   
NSEL,A,,,8586   
NSEL,A,,,8593   
NSEL,A,,,8594   
NSEL,A,,,8595   
NSEL,A,,,8596   
NSEL,A,,,8597   
NSEL,A,,,8598   
NSEL,A,,,8599   
NSEL,A,,,8600   
NSEL,A,,,8601   
NSEL,A,,,8602   
NSEL,A,,,8603   
NSEL,A,,,8604   
NSEL,A,,,8605   
NSEL,A,,,8606   
NSEL,A,,,8607   
NSEL,A,,,8608   
NSEL,A,,,8609   
NSEL,A,,,8610   
NSEL,A,,,8611   
NSEL,A,,,8612   
CM,_TARGET,NODE 
TYPE,20 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,9  
ASEL,A,,,110
ASEL,A,,,111
ASEL,A,,,112
ASEL,A,,,113
CM,_CONTACT,AREA
TYPE,21 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,9  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,20 
ESEL,A,TYPE,,21 
ESEL,R,REAL,,9  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,20 
ESEL,A,TYPE,,21 
ESEL,R,REAL,,9  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,9  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C***				MPC				MPC			MPC			MPC #8
C*** #################################################888888888888888888888888888888888888
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0   
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,10
REAL,10 
ET,22,170   
ET,23,175   
R,10,,,1.0,0.1,0,   
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
RMORE,10.0  
KEYOPT,23,4,0   
KEYOPT,23,5,0   
KEYOPT,23,7,0   
KEYOPT,23,8,0   
KEYOPT,23,9,0   
KEYOPT,23,10,2  
KEYOPT,23,11,0  
KEYOPT,23,12,5  
KEYOPT,23,2,2   
KEYOPT,22,5,0   
! Generate the target surface   
NSEL,NONE   
NSEL,A,,,3982   
NSEL,A,,,3986   
NSEL,A,,,3987   
NSEL,A,,,3988   
NSEL,A,,,3989   
NSEL,A,,,3990   
NSEL,A,,,3991   
NSEL,A,,,3992   
NSEL,A,,,3993   
NSEL,A,,,3994   
NSEL,A,,,3995   
NSEL,A,,,3996   
NSEL,A,,,3997   
NSEL,A,,,3998   
NSEL,A,,,3999   
NSEL,A,,,4000   
NSEL,A,,,4023   
NSEL,A,,,4027   
NSEL,A,,,7829   
NSEL,A,,,7830   
NSEL,A,,,7831   
NSEL,A,,,7832   
NSEL,A,,,7833   
NSEL,A,,,7834   
NSEL,A,,,7835   
NSEL,A,,,7836   
NSEL,A,,,7837   
NSEL,A,,,7838   
NSEL,A,,,7839   
NSEL,A,,,7840   
NSEL,A,,,7841   
NSEL,A,,,7842   
NSEL,A,,,7843   
NSEL,A,,,7844   
NSEL,A,,,7845   
NSEL,A,,,7846   
NSEL,A,,,7847   
NSEL,A,,,7848   
NSEL,A,,,7849   
NSEL,A,,,7850   
NSEL,A,,,7851   
NSEL,A,,,7852   
NSEL,A,,,7853   
NSEL,A,,,7854   
NSEL,A,,,7855   
NSEL,A,,,7856   
NSEL,A,,,7857   
NSEL,A,,,7858   
NSEL,A,,,7961   
NSEL,A,,,7962   
NSEL,A,,,7963   
NSEL,A,,,7964   
NSEL,A,,,7965   
NSEL,A,,,7966   
NSEL,A,,,7967   
NSEL,A,,,7968   
NSEL,A,,,7969   
NSEL,A,,,7970   
NSEL,A,,,7971   
NSEL,A,,,7972   
NSEL,A,,,7973   
NSEL,A,,,7974   
NSEL,A,,,7975   
NSEL,A,,,8127   
NSEL,A,,,8128   
NSEL,A,,,8129   
NSEL,A,,,8130   
NSEL,A,,,8131   
NSEL,A,,,8132   
NSEL,A,,,8133   
NSEL,A,,,8134   
NSEL,A,,,8135   
NSEL,A,,,8136   
NSEL,A,,,8137   
NSEL,A,,,8138   
NSEL,A,,,8139   
NSEL,A,,,8140   
NSEL,A,,,8141   
NSEL,A,,,8142   
NSEL,A,,,8143   
NSEL,A,,,8144   
NSEL,A,,,8145   
NSEL,A,,,8146   
NSEL,A,,,8147   
NSEL,A,,,8148   
NSEL,A,,,8149   
NSEL,A,,,8150   
NSEL,A,,,8151   
NSEL,A,,,8152   
NSEL,A,,,8153   
NSEL,A,,,8154   
NSEL,A,,,8155   
NSEL,A,,,8156   
NSEL,A,,,8160   
NSEL,A,,,8161   
NSEL,A,,,8162   
NSEL,A,,,8163   
NSEL,A,,,8164   
NSEL,A,,,8165   
NSEL,A,,,8166   
NSEL,A,,,8167   
NSEL,A,,,8168   
NSEL,A,,,8169   
NSEL,A,,,8170   
NSEL,A,,,8171   
NSEL,A,,,8172   
NSEL,A,,,8173   
NSEL,A,,,8174   
NSEL,A,,,9952   
NSEL,A,,,9953   
NSEL,A,,,9954   
NSEL,A,,,9955   
NSEL,A,,,9956   
NSEL,A,,,9957   
NSEL,A,,,9958   
NSEL,A,,,9959   
NSEL,A,,,9960   
NSEL,A,,,9961   
NSEL,A,,,9962   
NSEL,A,,,9963   
NSEL,A,,,9964   
NSEL,A,,,9965   
NSEL,A,,,9966   
NSEL,A,,,9967   
NSEL,A,,,9968   
NSEL,A,,,9969   
NSEL,A,,,9970   
NSEL,A,,,9973   
NSEL,A,,,9981   
NSEL,A,,,9986   
NSEL,A,,,9987   
NSEL,A,,,9988   
NSEL,A,,,9989   
NSEL,A,,,9990   
NSEL,A,,,9991   
NSEL,A,,,9992   
NSEL,A,,,9993   
NSEL,A,,,9994   
NSEL,A,,,9995   
NSEL,A,,,9996   
NSEL,A,,,9997   
NSEL,A,,,9998   
NSEL,A,,,9999   
NSEL,A,,,10000  
NSEL,A,,,10001  
NSEL,A,,,10002  
NSEL,A,,,10003  
NSEL,A,,,10004  
NSEL,A,,,10005  
NSEL,A,,,10304  
NSEL,A,,,10305  
NSEL,A,,,10306  
NSEL,A,,,10307  
NSEL,A,,,10308  
NSEL,A,,,10309  
NSEL,A,,,10310  
NSEL,A,,,10311  
NSEL,A,,,10312  
NSEL,A,,,10313  
NSEL,A,,,10314  
NSEL,A,,,10315  
NSEL,A,,,10316  
NSEL,A,,,10317  
CM,_TARGET,NODE 
TYPE,22 
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,10 
ASEL,A,,,146
ASEL,A,,,147
ASEL,A,,,148
ASEL,A,,,149
CM,_CONTACT,AREA
TYPE,23 
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008) 
ESURF   
*SET,_REALID,10 
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,22 
ESEL,A,TYPE,,23 
ESEL,R,REAL,,10 
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,22 
ESEL,A,TYPE,,23 
ESEL,R,REAL,,10 
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,1.08222638492,1 
/REP,FAST   
!*  
CM,_CWZ_EL,ELEM 
CM,_CWZ_ND,NODE 
CM,_CWZ_KP,KP   
CM,_CWZ_LN,LINE 
CM,_CWZ_AR,AREA 
CM,_CWZ_VL,VOLU 
ESEL,NONE   
ESEL,A,REAL,,9  
ESEL,R,ENAME,,169,177   
NSLE
KSLN,S  
LSLK,S,1
ASLL,S,1
CM,_CWZ_EL_UE,ELEM  
NSLE
ESLN
ESEL,U,ENAME,,169,177   
CMSEL,A,_CWZ_EL_UE  
CNCHECK 
CMDEL,_CWZ_EL_UE
CMSEL,S,_CWZ_EL 
CMDEL,_CWZ_EL   
CMSEL,S,_CWZ_ND 
CMDEL,_CWZ_ND   
CMSEL,S,_CWZ_KP 
CMDEL,_CWZ_KP   
CMSEL,S,_CWZ_LN 
CMDEL,_CWZ_LN   
CMSEL,S,_CWZ_AR 
CMDEL,_CWZ_AR   
CMSEL,S,_CWZ_VL 
CMDEL,_CWZ_VL   
!*  

FINISH

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

C***								Contact pair ENDE

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

C***							Modalanalyse - Solution

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->
C*** 
  /Solution

  LSEL,NONE
  LSEL,S,LOC,Z,0
  NSLL,S,1
  D,ALL,ALL,0

  ALLSEL

  Antype,MODAL
  MODOPT,LANB,8,
  MXPAND,8,

  SOLVE

 FINISH

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->

C***								copypasta

C*** <->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<-><->-<->


 /POST1


 /OUTPUT,'RESULTAT.txt'

 SET,LIST

 /OUTPUT


C*** Animation

/VIEW,  1,  0.732941499706E-01,  0.989361286462E-01,  0.992390855474
/ANG,   1,  0.304982211121  
/REPLO  
/DIST,1,1.08222638492,1 
/REP,FAST   
/DIST,1,1.08222638492,1 
/REP,FAST   
/DIST,1,1.08222638492,1 
/REP,FAST   
/DIST,1,1.08222638492,1 
/REP,FAST  


 SET,,1			! Einlesen der Eigenfrequenz n	
 PLDISP,1			! Deformiertes + Undeformiertes Shape
 ANMODE,,,,1		! Animiert
		
 FINISH