user0_example.for

来自「两维弹性边界元程序」· FOR 代码 · 共 32 行

!For User to select EXAMPLES
***************************************************
	Subroutine User_Example
	Common/Example/NthExample
!NthExample=0, user is develop his/her own UserA-L.
!otherwise, one of the example is called for illustration and training.
!NthExample=1: A square block with an edge and an internal crack
!	Features: single finite body, edge crack, internal crack,
!			  post-processing of displacement and stress at 
!		      internal points
!NthExample=2: Wing-crack growth in an infinite plane
!	Features: infinite body, internal crack, crack growth,
!			  fiction, crack contact, far-field loading
!NthExample=3: Quantum wire in a multilayered heterostructure
!	Features: multiple finite bodies, eigenstrain, post-processing
!			  stress, strain and strain energy along boundary
!NthExample=4: Crack growth near inclusions in an infinite space
!	Features: infinite body with multiple inhomogeneities,
!			  internal crack, crack growth, eigenstrain, 
!			  far-field loading
!More examples will be generated in later VERSIONs.
!Feedbacks and Opinions are welcome.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Original and deformed geometries in all these examples can be 
! viewed by plottingthe default output files, 
! ZAEleNods.txt (#,x1,x2), and ZDefmd.txt (x1,x2,x1+u1,x2+u2)
*================================================================
	NthExample=3
*================================================================
	return
	end