* duplicate an existing mesh to make a mesh twice as big
define/ngrains/5
define/xmn/0.
define/xmx/2.6
define/ymn/-1.
define/ymx/1.
define/zmn/0./
define/zmx/1.
read avs input_doublemesh.inp 3dmesh
cmo/copy/newmesh/3dmesh
math/times/newmesh/yic/1,0,0/newmesh/yic/-1.0/
math/add/newmesh/imt1/1,0,0/newmesh/imt1/ngrains
math/add/newmesh/itetclr/1,0,0/newmesh/itetclr/ngrains
addmesh/glue/doublemesh/3dmesh/newmesh
geometry/create/biggeom
cmo/geometry/doublemesh/biggeom
cmo/setatt//nconbnd/0
surface/top/   reflect/plane/0.,0.,zmx/1.,0.,zmx/1.,1.,zmx/
surface/bottom/reflect/plane/0.,0.,zmn/1.,0.,zmn/1.,1.,zmn/
surface/left/  reflect/plane/xmn,0.,0./xmn,1.,0./xmn,1.,1./
surface/right/ reflect/plane/xmx,0.,0./xmx,1.,0./xmx,1.,1./
surface/front/ reflect/plane/0.,ymx,0./1.,ymx,0./1.,ymx,1./
surface/back/  reflect/plane/0.,ymn,0./1.,ymn,0./1.,ymn,1./
resetpts/itp
cmo/setatt//icr1/1,0,0/0
boundary/dirichlet/icr1/1/top
boundary/dirichlet/icr1/2/bottom/
boundary/dirichlet/icr1/3/right/
boundary/dirichlet/icr1/4/left/
boundary/dirichlet/icr1/5/front/
boundary/dirichlet/icr1/6/back/
boundary/dirichlet/icr1/7/top/back
boundary/dirichlet/icr1/8/top/front
boundary/dirichlet/icr1/9/top/left
boundary/dirichlet/icr1/10/top/right
boundary/dirichlet/icr1/11/front/right
boundary/dirichlet/icr1/12/front/left
boundary/dirichlet/icr1/13/front/bottom
boundary/dirichlet/icr1/14/bottom/right
boundary/dirichlet/icr1/15/bottom/left
boundary/dirichlet/icr1/16/bottom/back
boundary/dirichlet/icr1/17/back/left
boundary/dirichlet/icr1/18/back/right
boundary/dirichlet/icr1/19/top/back/left
boundary/dirichlet/icr1/20/top/back/right
boundary/dirichlet/icr1/21/top/front/left
boundary/dirichlet/icr1/22/top/front/right
boundary/dirichlet/icr1/23/bottom/back/left
boundary/dirichlet/icr1/24/bottom/back/right
boundary/dirichlet/icr1/25/bottom/front/left
boundary/dirichlet/icr1/26/bottom/front/right
*
dump/avs/output_doublemesh.inp
* begin compare 
cmo/status
cmo/printatt//-all-/minmax
quality
* end compare
finish