n=0
max=...

:start_over
*DO,cycle,1,max 

!.....................execute loop thermal-structural:

.
. thermal cmds
.
.


*IF,n,gt,0,:jump_to   

!
/SOLU 
physics,read,struct    
antype,stat,new
ldread,temp,,,,,,rth    
SOLCONTROL,0
NLGEOM,ON
AUTOTS,ON
OUTPR,,LAST
OUTRES,,ALL
TIME,20      
DELTIM,1,1,2
NSUBST,20
SOLVE
!
n=n+1
GO,:start_over

:jump_to
!
/SOLU 
physics,read,struct    
antype,stat,rest
ldread,temp,,,,,,rth    
SOLCONTROL,0
NLGEOM,ON
AUTOTS,ON
OUTPR,,LAST
OUTRES,,ALL
TIME,20      
DELTIM,1,1,2
NSUBST,20
SOLVE

!.....................execute loop thermal structural:

*ENDDO