# macro infile for finding fault and repo
# this version is for coarse mesh 
# make sure correct mo is current

# make sure sets do not exist
eltset/erefine/delete
eltset/ebox/delete
eltset/eflt/delete
region/rflt/delete
pset/pbox/delete
pset/pflt/delete

region / rflt / ge sleft and le sright
pset / p1 / region / rflt
eltset / e1 / inclusive / pset,get,p1
pset/p2/ eltset e1
eltset/eflt / inclusive / pset,get,p2

pset/p1/delete
pset/p2/delete
eltset/e1/delete

pset/p1/geom/xyz/1,0,0/ XMIN YMIN ZMIN / XMAX YMAX ZMAX
eltset/e1/inclusive/pset,get,p1
pset/p2/ eltset e1
eltset/ebox / inclusive / pset,get,p2

pset/p1/delete
pset/p2/delete
eltset/e1/delete

eltset/erefine/ union ebox eflt

finish