*HEADING
 Substructure generations: FAN=HUB+4xBLADES  
**
   Z100: a substructure for a single blade;
**
*NODE
   57,   5.79830,   4.08144,   2.00000
   61,   4.08144,   5.79830,   2.00000
 9999,   3.00000,   3.00000,   2.00000
*NGEN,LINE=C,NSET=NBLADE
 57,61,1,9999
*NODE
   91,   6.34825,   4.61208,   2.00000
   92,   6.04542,   5.17363,   2.04275 
   93,   5.64799,   5.65929,   2.11107
   94,   5.16740,   6.05420,   2.19011
   95,   4.61648,   6.34954,   2.25973
   96,   6.97098,   5.04709,   2.00000
   97,   6.60952,   5.64419,   2.08975
   98,   6.14537,   6.18965,   2.22829
   99,   5.61424,   6.64337,   2.39622
  100,   5.04534,   6.97776,   2.55559
  101,   7.71735,   5.22982,   2.00000
  102,   7.23607,   5.92235,   2.13475
  103,   6.57818,   6.65456,   2.33376
  104,   5.87275,   7.29336,   2.58456
  105,   5.23136,   7.72660,   2.83877
  106,   8.44058,   5.48119,   2.00000
  107,   7.86154,   6.25188,   2.17913
  108,   7.04773,   7.13818,   2.43316
  109,   6.20063,   7.93303,   2.76013
  110,   5.49725,   8.45477,   3.10513
  111,   8.94199,   6.04637,   2.00000
  112,   8.35346,   6.80121,   2.24584
  113,   7.55742,   7.64823,   2.59979
  114,   6.73147,   8.41155,   3.04013
  115,   6.03050,   8.93642,   3.47975
  116,   8.88910,   6.78398,   2.00000
  117,   8.41737,   7.43225,   2.26100
  118,   7.89643,   8.00249,   2.59810
  119,   7.35361,   8.48209,   3.02957
  120,   6.78399,   8.88910,   3.50000
**
*ELEMENT,TYPE=S4R
 73,57,91,92,58
 77,91,96,97,92
*ELGEN,ELSET=CYLBLADE
 73,4,1,1
 77,4,1,1,5,5,4
**
*SHELL SECTION,ELSET=CYLBLADE,MATERIAL=MAT
 0.125, 3
*MATERIAL,NAME=MAT
*DENSITY
 7850.,
*ELASTIC,TYPE=ISOTROPIC
 2.E+11, 0.29
*nset, nset=nlook
59,93,98,103,108,113,118
**
** PRELOAD
**
*STEP,NLGEOM,INC=1000
*STATIC
 .1,1.
*BOUNDARY
 NBLADE,ENCASTRE
*DLOAD
 CYLBLADE, CENT, 6.3e6, 3., 3., 0., 0., 0., -1.
**
*EL PRINT,FREQ=0 
*NODE PRINT,FREQ=99, NSET=NLOOK
U,
RF,
*END STEP
**
*STEP
*FREQUENCY,SIM=NO
 20,
*EL PRINT,FREQ=0 
*NODE PRINT,FREQ=0 
*BOUNDARY, OP=NEW
  57, 1, 6, 0.
  58, 1, 6, 0.
  59, 1, 6, 0.
  60, 1, 6, 0.
  61, 1, 6, 0.
 118, 1, 6, 0.
*END STEP
**
**
*STEP
*SUBSTRUCTURE GENERATE,TYPE=Z100,LIBRARY=FAN,RECOVERY MATRIX=YES,MASS MATRIX=YES,OVERWRITE
*RETAINED NODAL DOFS,SORTED=NO
  57,
  58,
  59,
  60,
  61,
 118,
**
*SELECT EIGENMODES, GENERATE
 1,20,1
*BOUNDARY,OP=NEW
*SUBSTRUCTURE LOAD CASE,NAME=SCENTFGL
*DLOAD
 CYLBLADE, CENT, 6.3e6, 3., 3., 0., 0., 0., -1.
**
*SUBSTRUCTURE LOAD CASE,NAME=SDLOAD
*DLOAD
 CYLBLADE,P,100.
**
*END STEP