!http://www.imtek.uni-freiburg.de/simulation/mor4ansys/
!http://Evgenii.Rudnyi.Ru/


/SOLU
allsel
TUNIF,0
ANTYPE,TRANS
eqslv,solver
outres,NSOL,all,out 
time,finaltime 

*if,autostep,eq,0,then
autots,off 
NSUBST,nstep
*else
autots,on 
DELTIM,firststep,minstep,maxstep
*endif
KBC,1
TSRES,ERASE

*if,autostep,eq,2,then
autots,off 
nsubst,1
*DO,i,1,nstep
f=(i-1)/(nstep-1)*(log10(finaltime)-log10(firststep))+log10(firststep)
time,10**f
solve
*ENDDO
*else
SOLVE
*endif

FINISH

/Post1
*cfopen,%filename%.txt,names
*vwrite,'Time'
(A8)
*vwrite,n1name
(A8)
*vwrite,n2name
(A8)
*vwrite,n3name
(A8)
*vwrite,n4name
(A8)
*cfclos
set,first
*get,n,active,0,set,nset
*cfopen,filename,txt
*vwrite,'%%Matrix','Market m','atrix ar','ray real',' general'
(5A8)
*vwrite,chrval(5),chrval(n)
(2A10)
*do,i,1,n
 *get,tt,active,0,set,time
 t1=temp(n1)
 t2=temp(n2)
 t3=temp(n3)
 t4=temp(n4)
 *vwrite,tt,t1,t2,t3,t4
 (5E25.9)
 set,next
*enddo
*cfclos
fini

/EXIT,NOSAVE