#======================================================================
#
#   Author: Travis Austin
#   Date:   27 Sept 2006
#
#   Description: Com-file used to generate a mesh that will be handled
#                by a script to produce a UNV mesh for use with opencmiss.
#
#   Need 5 Files:
#
#            ippara, ipnode, ipbase, ipelem, ipgrid
#
#
#======================================================================



fem def para;r;geom/cube/c
fem def coor 3,1

#
# Read in geometry of the domain
#
fem def node;r;geom/two_elem_cube/c reg 1
fem def base;r;geom/two_elem_cube/c reg 1
fem def elem;r;geom/two_elem_cube/c reg 1

#
# Apply different grid schemes to each layer
#
fem define grid;r;geom/two_elem_cube/c reg 1
fem update grid geometry reg 1

fem define equa;r;simple reg 1 class 1
fem define cell;r;simple reg 1 class 1
fem define mate;r;simple reg 1 class 1
fem define init;r;simple reg 1 class 1

#
# Export nodes and elements
#
fem export point;cube grid offset 0
fem export grid;cube libmesh

fem quit