finish				!							
/clear											
/title,	test										
/prep7											
											
											
!*************************************************************************************											
											
											
ET,	1	,	SHELL93								
											
											
											
											
											
MP,	EX	,	1	,	69000000000						
MP,	PRXY	,	1	,	0.33						
TB,	MELAS	,	1	,	1	,	4				
TBPT,	DEFI	,	0.003043	,	210000000						
TBPT,	DEFI	,	0.005	,	220000000						
TBPT,	DEFI	,	0.01	,	235000000						
TBPT,	DEFI	,	0.035	,	250000000						
											
											
											
R,	1	,	0.0005								
											
											
											
											
!*************************************************************************************											
											
											
K,	1	,	0	,	0	,	0				
K,	2	,	0.003	,	0	,	0				
K,	3	,	0.003	,	0.01	,	0				
K,	4	,	0	,	0.01	,	0				
											
											
A,	1	,	2	,	3	,	4				
											
											
AATT,	1	,	1	,	1						
											
amesh,	1										
											
LSEL,	S	,	LOC	,	Y	,	0				
NSLL,	S	,	1								
D,	all	,	all								
											
											
alls											
!*************************************************************************************											
											
FINISH											
/SOLU											
antype,	static										
											
											
LSEL,	S	,	LOC	,	Y	,	0.01				
NSLL,	S	,	1								
F,	all	,	FZ	,	-1.1						
											
alls											
											
!*************************************************************************************											
nsub,20,1000,1											
NLGEOM,ON											
OUTRES,ALL,ALL											
NEQIT,1000											
AUTOTS,ON											
											
/ESHAPE,1											
											
											
SAVE, Step1,db											
TIME,1											
SOLVE                  ! SOLVE SECOND LOAD STEP											
											
/POST1											
PLNSOL, S,EQV, 0,1.0											
											
											
/SOLU											
ANTYPE,,REST											
LSEL,	S	,	LOC	,	Y	,	0.01				
NSLL,	S	,	1								
F,	all	,	FZ	,	0						
alls											
TIME,2											
SOLVE                  ! SOLVE SECOND LOAD STEP											
FINISH											
											
											
											
											
											
/POST1											
/DSCALE,ALL,100											
											
PLNSOL, S,EQV, 0,1