! =========================================
! Shen-Yeh Chen
! 7/01/1999
! =========================================
! This macro transfers the temperature distribution from a thermal
! analysis into structural temperature load. Only pre-selected nodes are dumped
! The output file name is x_th2st.tld
! (TH2ST == THermal 2 STructure)
!
! Syntax :
!
!  x_th2st
! 
! Output
!  file : x_th2st.tld
!
! External programs called :
!  None
! =========================================
!/NOP
*GET,X_TH2ST_NN,NODE,,NUM,MAX
*GET,X_TH2ST_NC,NODE,,COUNT
*DIM,X_TH2ST_S,,X_TH2ST_NN
*DIM,X_TH2ST_T,,X_TH2ST_NN
*DIM,X_TH2ST_NID,,X_TH2ST_NN
*VGET,X_TH2ST_S(1),NODE,1,NSEL
*VFILL,X_TH2ST_NID(1),RAMP,1,1


*VMASK,X_TH2ST_S(1)
*VGET,X_TH2ST_T(1),NODE,1,TEMP

*CFOPEN,x_th2st,tld

*VWRITE,'!',X_TH2ST_NN,X_TH2ST_NC
%c %10i, %10i

*VMASK,X_TH2ST_S(1)
*VWRITE,'BF',X_TH2ST_NID(1),'TEMP',X_TH2ST_T(1)
%s,%10i,%s,%16.7e

*CFCLOSE
X_TH2ST_T(1)=
X_TH2ST_S(1)=
X_TH2ST_NID(1)=
X_TH2ST_NN=
X_TH2ST_NC=