# test pset for zone and zonn files
# option -all- will write one file for all psets
# for single file, cat into single file
# write zonn or zone only once at top
# do not write stop until end of file



define X0 0. 
define X1 100. 
define Y0 0. 
define Y1 100. 
define Z0 1.
define Z1 100.

define / NX / 11 
define / NY / 2 
define / NZ / 11 

cmo/create/cmohex///hex
createpts/brick/xyz/NX NY NZ /X0 Y0 Z0 / X1 Y1 Z1 / &
       1,1,1/ 1,1,0/ 1. 1. 1. 
resetpts itp

cmo/copyatt/cmohex cmohex/ imt zic
cmo/printatt/ cmohex / imt minmax

pset/p1/ attribute imt/1,0,0/ lt 10.
pset/p2/ attribute imt/1,0,0/ gt 90.
pset/p3/ attribute imt/1,0,0/ eq 50.

cmo setatt cmohex idebug 10

# LIST the sets
pset/-all- list
pset/ list
pset/ / list


#######################################
# Write all vertex, zonn and zone, ascii and binary

# vertex ascii
pset/-all-/ write / out_pset_asc 
pset/-all-/ write / out_pset_bin / binary 
pset/-all-/ zone  / out_pset_asc 
pset/-all-/ zone  / out_pset_bin  / binary
pset/-all-/ zonn  / out_pset_bin  / binary
pset/-all-/ zonn  / out_pset_asc 

#######################################
# Write single vertex zonn and zone

pset/ p1 / zone  / out_sngl_p1 / ascii / 10 
pset/ p2 / zonn  / out_sngl_p2 / ascii / 20 
pset/ p3 / write / out_sngl_p3 / ascii / 30 

#######################################
# Read single vertex zonn and zone

read / zone / out_sngl_p1.zone / cmohex / iset10
cmo printatt cmohex iset10 minmax
read / zonn / out_sngl_p2.zonn / cmohex / iset20
cmo printatt cmohex iset20 minmax


#######################################
# Write ELEMENTS
eltset/e1/ inclusive pset,get,p1
eltset/e1/write/ out_eltset_asc / ascii 

# Read ELEMENTS
# test read_element for zone file
# there is no option to write element zone
# use one created outside of lagrit

read zone_element input_element.zone cmohex ezone
cmo printatt cmohex ezone minmax

finish