/COM,ANSYS RELEASE 9.0 UP20041104 09:05:22 01/18/2005
/NOPR
/TITLE,
_LSNUM= 1
ANTYPE, 4
TRNOPT,FULL,,DAMP
BFUNIF,TEMP, 83.0000000
AUTOTS,ON
NSUBST, 10, 10, 0,
KBC, 1
KUSE, 0
TIME, 0.89
TREF, 0.00000000
ALPHAD, 0.00000000
BETAD, 0.00000000
DMPRAT, 0.00000000
TIMINT,ON ,THER
TINTP,R8.1, 5.000000000E-03,,,
TINTP,R8.1, -1.00000000 , 0.500000000 , -1.00000000 ,,,,
TINTP,R8.1, 5.000000000E-03, 0.00000000
CRPLIM, 0.100000000 , 0
CRPLIM, 0.00000000 , 1
NCNV, 1, 0.00000000 , 0, 0.00000000 , 0.00000000
NEQIT, 0
ERESX,DEFA
OUTRES, ALL, ALL,
ACEL, 0.00000000 , 0.00000000 , 0.00000000
OMEGA, 0.00000000 , 0.00000000 , 0.00000000 , 0
DOMEGA, 0.00000000 , 0.00000000 , 0.00000000
CGLOC, 0.00000000 , 0.00000000 , 0.00000000
CGOMEGA, 0.00000000 , 0.00000000 , 0.00000000
DCGOMG, 0.00000000 , 0.00000000 , 0.00000000
IRLF, 0
ctemp = 85
D,1208,TEMP,ctemp,0
D,1209,TEMP,ctemp,0
D,1210,TEMP,ctemp,0
D,1211,TEMP,ctemp,0
D,1213,TEMP,ctemp,0
D,1214,TEMP,ctemp,0
D,1215,TEMP,ctemp,0
D,1216,TEMP,ctemp,0
D,8822,TEMP,ctemp,0
D,8823,TEMP,ctemp,0
D,8824,TEMP,ctemp,0
D,8825,TEMP,ctemp,0
D,8827,TEMP,ctemp,0
D,8828,TEMP,ctemp,0
D,8829,TEMP,ctemp,0
D,8830,TEMP,ctemp,0
D,9099,TEMP,ctemp,0
D,9101,TEMP,ctemp,0
D,9104,TEMP,ctemp,0
D,9106,TEMP,ctemp,0
D,9109,TEMP,ctemp,0
D,9111,TEMP,ctemp,0
D,9114,TEMP,ctemp,0
D,9116,TEMP,ctemp,0
D,9379,TEMP,ctemp,0
D,9381,TEMP,ctemp,0
D,9384,TEMP,ctemp,0
D,9386,TEMP,ctemp,0
D,9389,TEMP,ctemp,0
D,9391,TEMP,ctemp,0
D,9394,TEMP,ctemp,0
D,9396,TEMP,ctemp,0
D,24330,TEMP,ctemp,0
D,24331,TEMP,ctemp,0
D,24332,TEMP,ctemp,0
D,24333,TEMP,ctemp,0
D,24342,TEMP,ctemp,0
D,24343,TEMP,ctemp,0
D,24344,TEMP,ctemp,0
D,24345,TEMP,ctemp,0
D,24357,TEMP,ctemp,0
D,24359,TEMP,ctemp,0
D,24362,TEMP,ctemp,0
D,24364,TEMP,ctemp,0
D,24367,TEMP,ctemp,0
D,24369,TEMP,ctemp,0
D,24372,TEMP,ctemp,0
D,24374,TEMP,ctemp,0
D,24377,TEMP,ctemp,0
D,24378,TEMP,ctemp,0
D,24379,TEMP,ctemp,0
D,24380,TEMP,ctemp,0
D,24387,TEMP,ctemp,0
D,24388,TEMP,ctemp,0
D,24389,TEMP,ctemp,0
D,24390,TEMP,ctemp,0
D,24392,TEMP,ctemp,0
D,24394,TEMP,ctemp,0
D,24397,TEMP,ctemp,0
D,24399,TEMP,ctemp,0
D,24402,TEMP,ctemp,0
D,24404,TEMP,ctemp,0
D,24407,TEMP,ctemp,0
D,24409,TEMP,ctemp,0
D,40228,TEMP,ctemp,0
D,40229,TEMP,ctemp,0
D,40230,TEMP,ctemp,0
D,40231,TEMP,ctemp,0
D,40240,TEMP,ctemp,0
D,40241,TEMP,ctemp,0
D,40242,TEMP,ctemp,0
D,40243,TEMP,ctemp,0
D,40255,TEMP,ctemp,0
D,40257,TEMP,ctemp,0
D,40260,TEMP,ctemp,0
D,40262,TEMP,ctemp,0
D,40265,TEMP,ctemp,0
D,40267,TEMP,ctemp,0
D,40270,TEMP,ctemp,0
D,40272,TEMP,ctemp,0
D,40275,TEMP,ctemp,0
D,40276,TEMP,ctemp,0
D,40277,TEMP,ctemp,0
D,40278,TEMP,ctemp,0
D,40285,TEMP,ctemp,0
D,40286,TEMP,ctemp,0
D,40287,TEMP,ctemp,0
D,40288,TEMP,ctemp,0
D,40290,TEMP,ctemp,0
D,40292,TEMP,ctemp,0
D,40295,TEMP,ctemp,0
D,40297,TEMP,ctemp,0
D,40300,TEMP,ctemp,0
D,40302,TEMP,ctemp,0
D,40305,TEMP,ctemp,0
D,40307,TEMP,ctemp,0
D,56126,TEMP,ctemp,0
D,56127,TEMP,ctemp,0
D,56128,TEMP,ctemp,0
D,56129,TEMP,ctemp,0
D,56138,TEMP,ctemp,0
D,56139,TEMP,ctemp,0
D,56140,TEMP,ctemp,0
D,56141,TEMP,ctemp,0
D,56153,TEMP,ctemp,0
D,56155,TEMP,ctemp,0
D,56158,TEMP,ctemp,0
D,56160,TEMP,ctemp,0
D,56163,TEMP,ctemp,0
D,56165,TEMP,ctemp,0
D,56168,TEMP,ctemp,0
D,56170,TEMP,ctemp,0
D,56173,TEMP,ctemp,0
D,56174,TEMP,ctemp,0
D,56175,TEMP,ctemp,0
D,56176,TEMP,ctemp,0
D,56183,TEMP,ctemp,0
D,56184,TEMP,ctemp,0
D,56185,TEMP,ctemp,0
D,56186,TEMP,ctemp,0
D,56188,TEMP,ctemp,0
D,56190,TEMP,ctemp,0
D,56193,TEMP,ctemp,0
D,56195,TEMP,ctemp,0
D,56198,TEMP,ctemp,0
D,56200,TEMP,ctemp,0
D,56203,TEMP,ctemp,0
D,56205,TEMP,ctemp,0
D,72024,TEMP,ctemp,0
D,72025,TEMP,ctemp,0
D,72026,TEMP,ctemp,0
D,72027,TEMP,ctemp,0
D,72036,TEMP,ctemp,0
D,72037,TEMP,ctemp,0
D,72038,TEMP,ctemp,0
D,72039,TEMP,ctemp,0
D,72051,TEMP,ctemp,0
D,72053,TEMP,ctemp,0
D,72056,TEMP,ctemp,0
D,72058,TEMP,ctemp,0
D,72061,TEMP,ctemp,0
D,72063,TEMP,ctemp,0
D,72066,TEMP,ctemp,0
D,72068,TEMP,ctemp,0
D,72071,TEMP,ctemp,0
D,72072,TEMP,ctemp,0
D,72073,TEMP,ctemp,0
D,72074,TEMP,ctemp,0
D,72081,TEMP,ctemp,0
D,72082,TEMP,ctemp,0
D,72083,TEMP,ctemp,0
D,72084,TEMP,ctemp,0
D,72086,TEMP,ctemp,0
D,72088,TEMP,ctemp,0
D,72091,TEMP,ctemp,0
D,72093,TEMP,ctemp,0
D,72096,TEMP,ctemp,0
D,72098,TEMP,ctemp,0
D,72101,TEMP,ctemp,0
D,72103,TEMP,ctemp,0
D,87922,TEMP,ctemp,0
D,87923,TEMP,ctemp,0
D,87924,TEMP,ctemp,0
D,87925,TEMP,ctemp,0
D,87934,TEMP,ctemp,0
D,87935,TEMP,ctemp,0
D,87936,TEMP,ctemp,0
D,87937,TEMP,ctemp,0
D,87949,TEMP,ctemp,0
D,87951,TEMP,ctemp,0
D,87954,TEMP,ctemp,0
D,87956,TEMP,ctemp,0
D,87959,TEMP,ctemp,0
D,87961,TEMP,ctemp,0
D,87964,TEMP,ctemp,0
D,87966,TEMP,ctemp,0
D,87969,TEMP,ctemp,0
D,87970,TEMP,ctemp,0
D,87971,TEMP,ctemp,0
D,87972,TEMP,ctemp,0
D,87979,TEMP,ctemp,0
D,87980,TEMP,ctemp,0
D,87981,TEMP,ctemp,0
D,87982,TEMP,ctemp,0
D,87984,TEMP,ctemp,0
D,87986,TEMP,ctemp,0
D,87989,TEMP,ctemp,0
D,87991,TEMP,ctemp,0
D,87994,TEMP,ctemp,0
D,87996,TEMP,ctemp,0
D,87999,TEMP,ctemp,0
D,88001,TEMP,ctemp,0
D,103820,TEMP,ctemp,0
D,103821,TEMP,ctemp,0
D,103822,TEMP,ctemp,0
D,103823,TEMP,ctemp,0
D,103832,TEMP,ctemp,0
D,103833,TEMP,ctemp,0
D,103834,TEMP,ctemp,0
D,103835,TEMP,ctemp,0
D,103847,TEMP,ctemp,0
D,103849,TEMP,ctemp,0
D,103852,TEMP,ctemp,0
D,103854,TEMP,ctemp,0
D,103857,TEMP,ctemp,0
D,103859,TEMP,ctemp,0
D,103862,TEMP,ctemp,0
D,103864,TEMP,ctemp,0
D,103867,TEMP,ctemp,0
D,103868,TEMP,ctemp,0
D,103869,TEMP,ctemp,0
D,103870,TEMP,ctemp,0
D,103877,TEMP,ctemp,0
D,103878,TEMP,ctemp,0
D,103879,TEMP,ctemp,0
D,103880,TEMP,ctemp,0
D,103882,TEMP,ctemp,0
D,103884,TEMP,ctemp,0
D,103887,TEMP,ctemp,0
D,103889,TEMP,ctemp,0
D,103892,TEMP,ctemp,0
D,103894,TEMP,ctemp,0
D,103897,TEMP,ctemp,0
D,103899,TEMP,ctemp,0
D,119718,TEMP,ctemp,0
D,119719,TEMP,ctemp,0
D,119720,TEMP,ctemp,0
D,119721,TEMP,ctemp,0
D,119730,TEMP,ctemp,0
D,119731,TEMP,ctemp,0
D,119732,TEMP,ctemp,0
D,119733,TEMP,ctemp,0
D,119745,TEMP,ctemp,0
D,119747,TEMP,ctemp,0
D,119750,TEMP,ctemp,0
D,119752,TEMP,ctemp,0
D,119755,TEMP,ctemp,0
D,119757,TEMP,ctemp,0
D,119760,TEMP,ctemp,0
D,119762,TEMP,ctemp,0
D,119765,TEMP,ctemp,0
D,119766,TEMP,ctemp,0
D,119767,TEMP,ctemp,0
D,119768,TEMP,ctemp,0
D,119775,TEMP,ctemp,0
D,119776,TEMP,ctemp,0
D,119777,TEMP,ctemp,0
D,119778,TEMP,ctemp,0
D,119780,TEMP,ctemp,0
D,119782,TEMP,ctemp,0
D,119785,TEMP,ctemp,0
D,119787,TEMP,ctemp,0
D,119790,TEMP,ctemp,0
D,119792,TEMP,ctemp,0
D,119795,TEMP,ctemp,0
D,119797,TEMP,ctemp,
/gopr
Hrate = 5.450E+07
count = 0
e_STRT = 1
e_STOP = 1920
eend = 0
m = 1919
n = 639
j=1
k=1
l=1
*do,j,e_STRT,e_STOP
*do,k,1,8
*get,N_node,elem,j,node,k
BFE,j,HGEN,k,Hrate
*enddo
*enddo
j=1
k=1
e_STOP = 5089-4622
*do,l,1,7
incr = 4622
e_STRT = e_STOP + incr
e_STOP = e_STRT + m
*do,j,e_STRT,e_STOP
*do,k,1,8
*get,N_node,elem,j,node,k
BFE,j,HGEN,k,Hrate
*enddo
*enddo
*enddo
l=1
j=1
k=1
e_STOP = 10177-5902
*do,l,1,7
incr = 5902
e_STRT = e_STOP + incr
e_STOP = e_STRT + n
*do,j,e_STRT,e_STOP
*do,k,1,8
*get,N_node,elem,j,node,k
BFE,j,HGEN,k,Hrate
*enddo
*enddo
*enddo