/prep7
!
! trim coil bracket load input
!
! for iota=0.19scenario (from P.16 of NCSX-CALC-133-001-00)
!
lf = 1.0	! load factor
tx11 = lf*(-90)
tx12 = lf*(-712)
tx13 = lf*(-1088)
tx14 = lf*1061
!
tx21 = lf*(-490)
tx22 = lf*1325
tx23 = lf*(-1732)
tx24 = lf*1016
!
tx31 = lf*(-1311)
tx32 = lf*956
tx33 = lf*(-1048)
tx34 = lf*1699
!
tx41 = lf*(-1088)
tx42 = lf*706
tx43 = lf*(-935)
tx44 = lf*466
!
tx51 = lf*(-119)
tx52 = lf*(-3074)
tx53 = lf*(-1004)
tx54 = lf*2295
!
tx61 = lf*892
tx62 = lf*(-2900)
tx63 = lf*(-612)
tx64 = lf*3221
!
tx71 = lf*(-599)
tx72 = lf*(-2815)
tx73 = lf*771
tx74 = lf*2205
!
tx81 = lf*(-187)
tx82 = lf*(-2311)
tx83 = lf*948
tx84 = lf*2941
!	******************************************
ty11 = lf*(-67)
ty12 = lf*(-986)
ty13 = lf*(-937)
ty14 = lf*(-256)
!
ty21 = lf*(-1790)
ty22 = lf*2789
ty23 = lf*1134
ty24 = lf*(-256)
!
ty31 = lf*4401
ty32 = lf*(-2243)
ty33 = lf*(-563)
ty34 = lf*2115
!
ty41 = lf*(-42)
ty42 = lf*1310
ty43 = lf*(-1211)
ty44 = lf*857
!
ty51 = lf*(-1065)
ty52 = lf*927
ty53 = lf*(-321)
ty54 = lf*(-2814)
!
ty61 = lf*(-1044)
ty62 = lf*(-1279)
ty63 = lf*(-949)
ty64 = lf*(-1384)
!
ty71 = lf*(-568)
ty72 = lf*(-958)
ty73 = lf*(-373)
ty74 = lf*316
!
ty81 = lf*(-928)
ty82 = lf*(-2408)
ty83 = lf*(-366)
ty84 = lf*694
!	***************************************
tz11 = lf*3436
tz12 = lf*(-4804)
tz13 = lf*(-3996)
tz14 = lf*3802
!
tz21 = lf*5860
tz22 = lf*(-4284)
tz23 = lf*(-3343)
tz24 = lf*3802
!
tz31 = lf*4790
tz32 = lf*(-4832)
tz33 = lf*(-2806)
tz34 = lf*4265
!
tz41 = lf*3043
tz42 = lf*(-3748)
tz43 = lf*(-2785)
tz44 = lf*2988
!
tz51 = lf*(-223)
tz52 = lf*(-2842)
tz53 = lf*682
tz54 = lf*3245
!
tz61 = lf*(-899)
tz62 = lf*(-2232)
tz63 = lf*1221
tz64 = lf*2611
!
tz71 = lf*(-369)
tz72 = lf*(-2562)
tz73 = lf*(-609)
tz74 = lf*1599
!
tz81 = lf*(-152)
tz82 = lf*(-2834)
tz83 = lf*(-639)
tz84 = lf*2321
!
csys,0
nsel,s,node,,403005,403007	! IB top reactions 1
nrotat,all
txf=tx11/3
tyf=ty11/3
tzf=tz11/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,453349,453351	! IB bottom reactions 1
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,407302,407304	! IB top reactions 2
nrotat,all
txf=tx12/3+tx21/3
tyf=ty12/3+ty21/3
tzf=tz12/3+tz21/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,455743,455745	! IB bottom reactions 2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,397896,397897
nsel,a,node,,397899
nrotat,all
txf=tx22/3
tyf=ty22/3
tzf=tz22/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,445339,445340
nsel,a,node,,445342
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,400506,400507
nsel,a,node,,400509
nrotat,all
txf=tx31/3
tyf=ty31/3
tzf=tz31/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,442945,442946
nsel,a,node,,442948
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,412090,412092
nrotat,all
txf=tx32/3+tx41/3
tyf=ty32/3+ty41/3
tzf=tz32/3+tz41/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,450955,450957
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,409696,409698
nrotat,all
txf=tx42/3
tyf=ty42/3
tzf=tz42/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,447838,447840
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,380846,380847	! IB top reactions 4
nsel,a,node,,380850,380851
nrotat,all
txf=tx14/4
tyf=ty14/4
tzf=tz14/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,433939,433940	! IB bottom reactions 4
nsel,a,node,,433943,433944
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,386682,386683	! IB top reactions 3
nsel,a,node,,386686,386687
nrotat,all
txf=tx13/4
tyf=ty13/4
tzf=tz13/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,439002,439003	! IB bottom reactions 3
nsel,a,node,,439006,439007
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,386554,386555
nsel,a,node,,386558,386561,3
nrotat,all
txf=tx24/4
tyf=ty24/4
tzf=tz24/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,438874,438875
nsel,a,node,,438878,438881,3
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,373835,373836
nsel,a,node,,373839,373842,3
nrotat,all
txf=tx23/4
tyf=ty23/4
tzf=tz23/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,421572,421573
nsel,a,node,,421576,421579,3
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,377116,377117
nsel,a,node,,377120,377123,3
nrotat,all
txf=tx34/4
tyf=ty34/4
tzf=tz34/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,417169,417170
nsel,a,node,,417173,417176,3
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,395219,395220
nsel,a,node,,395223,395226,3
nrotat,all
txf=tx33/4
tyf=ty33/4
tzf=tz33/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,430209,430210
nsel,a,node,,430213,430216,3
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,395347,395348
nsel,a,node,,395351,395352
nrotat,all
txf=tx44/4
tyf=ty44/4
tzf=tz44/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,430337,430338
nsel,a,node,,430341,430342
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,390284,390285
nsel,a,node,,390288,390289
nrotat,all
txf=tx43/4
tyf=ty43/4
tzf=tz43/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,425302,425303
nsel,a,node,,425306,425307
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,302139		! OB top reactions 4
nsel,a,node,,303085,303087,2
nrotat,all
txf=tx54/3
tyf=ty54/3
tzf=tz54/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,334490		! OB bottom reactions 4
nsel,a,node,,335436,335438,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,310962
nsel,a,node,,311908,311910,2	! OB top reactions 2
nrotat,all
txf=tx52/3
tyf=ty52/3
tzf=tz52/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,343313
nsel,a,node,,344259,344261,2	! OB bottom reactions 2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,313903
nsel,a,node,,314849,314851,2
nrotat,all
txf=tx64/3
tyf=ty64/3
tzf=tz64/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,346254
nsel,a,node,,347200,347202,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,316844
nsel,a,node,,317790,317792,2
nrotat,all
txf=tx62/3
tyf=ty62/3
tzf=tz62/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,349195
nsel,a,node,,350141,350143,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,358018
nsel,a,node,,358964,358966,2
nrotat,all
txf=tx74/3
tyf=ty74/3
tzf=tz74/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,325667
nsel,a,node,,326613,326615,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,355077
nsel,a,node,,356023,356025,2
nrotat,all
txf=tx72/3
tyf=ty72/3
tzf=tz72/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,322726
nsel,a,node,,323672,323674,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,352136
nsel,a,node,,353082,353084,2
nrotat,all
txf=tx84/3
tyf=ty84/3
tzf=tz84/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,319785
nsel,a,node,,320731,320733,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,340372
nsel,a,node,,341318,341320,2
nrotat,all
txf=tx82/3
tyf=ty82/3
tzf=tz82/3
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,308021
nsel,a,node,,308967,308969,2
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,302741,302760,19		! OB top reactions 1
nsel,a,node,,311564,311583,19
nrotat,all
txf=tx51/4
tyf=ty51/4
tzf=tz51/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,335092,335111,19		! OB bottom reactions 1
nsel,a,node,,343915,343934,19
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,301392,301392+1379,1379	! OB top reactions 3
nsel,a,node,,310215,310215+1379,1379
nrotat,all
txf=tx53/4
tyf=ty53/4
tzf=tz53/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,333743,333743+1379,1379	! OB bottom reactions 3
nsel,a,node,,342566,342566+1379,1379
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,314505,314524,19
nsel,a,node,,317446,317465,19
nrotat,all
txf=tx61/4
tyf=ty61/4
tzf=tz61/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,346856,346875,19
nsel,a,node,,349797,349816,19
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,313156,313156+1379,1379
nsel,a,node,,316097,316097+1379,1379
nrotat,all
txf=tx63/4
tyf=ty63/4
tzf=tz63/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,345507,345507+1379,1379
nsel,a,node,,348448,348448+1379,1379
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,358620,358639,19
nsel,a,node,,355679,355698,19
nrotat,all
txf=tx71/4
tyf=ty71/4
tzf=tz71/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,326269,326288,19
nsel,a,node,,323328,323347,19
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,357271,357271+1379,1379
nsel,a,node,,354330,354330+1379,1379
nrotat,all
txf=tx73/4
tyf=ty73/4
tzf=tz73/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,324920,324920+1379,1379
nsel,a,node,,321979,321979+1379,1379
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,352738,352757,19
nsel,a,node,,340974,340993,19
nrotat,all
txf=tx81/4
tyf=ty81/4
tzf=tz81/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,320387,320406,19
nsel,a,node,,308623,308642,19
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
nsel,s,node,,351389,351389+1379,1379
nsel,a,node,,339625,339625+1379,1379
nrotat,all
txf=tx83/4
tyf=ty83/4
tzf=tz83/4
f,all,fx,txf
f,all,fy,tyf
f,all,fz,tzf
nsel,s,node,,319038,319038+1379,1379
nsel,a,node,,307274,307274+1379,1379
nrotat,all
f,all,fx,-txf
f,all,fy,-tyf
f,all,fz,-tzf
!
finish