! ============================================================
! M04 - Bug hunt
! ============================================================
/CLEAR,START                        ! Locate five contaminating decisions.
/FILNAME,m04_bug_hunt,1
/UNITS,SI

beam_l=1.0
beam_h=0.10
beam_b=0.05
young=210E9
nu=0.30
mesh_h=0.05

/PREP7
ET,1,SOLID185
KEYOPT,1,2,0
MP,EX,1,young
MP,PRXY,1,nu
TYPE,1
MAT,1
BLOCK,0,beam_l,0,beam_h,0,beam_b
ESIZE,mesh_h                        ! ESIZE sets the global element size as the meshing reference.
VMESH,ALL
*GET,n_elements_case1,ELEM,0,COUNT

! ERROR 1: the geometry is changed between the compared cases.
beam_l_case2=1.10

mesh_h=0.025                        ! VCLEAR and a new VMESH call are missing.
ESIZE,mesh_h
*GET,n_elements_case2,ELEM,0,COUNT

! ERROR 3: -1000 N is applied to each node; it is not distributed.
NSEL,S,LOC,X,beam_l
F,ALL,FY,-1000
ALLSEL,ALL

probe_node=1                        ! check that it belongs to the tip.

selected_case=2                     ! no physical quantity. A singular stress would not fix it either.

/COM,DIAGNOSE: comparability, remeshing, total load, probe and criterion
FINISH