Create More libMesh Data

File contents

#======================================================================
#
#   Author: Travis Austin
#   Date:   21 Dec 2006
#
#   Description: Com-file used to generate data on a duodenum mesh with
#                a USER_CELL file that will be handled by a script to 
#                produce a UNV mesh for use with opencmiss.
#
#   Need 5 Files:
#
#            ippara, ipnode, ipbase, ipelem, ipgrid, ipcell, ipmatc
#
#
#======================================================================



fem def para;r;duo
fem def coor 3,1

#
# Read in geometry of the domain
#
fem def node;r;duo reg 1
fem def base;r;duo reg 1
fem def elem;r;duo reg 1

#
# Apply different grid schemes to each layer
#
fem define grid;r;duo reg 1
fem update grid geometry reg 1

fem group grid element 321..480 as LM reg 1
fem group grid element 161..320 as ICC reg 1
fem group grid element 1..160 as CM reg 1

fem define equa;r;duo reg 1 class 1
fem define cell;r;duo_test reg 1 class 1
fem define mate;r;duo_test reg 1 class 1 cell
fem define mate;r;duo reg 1 class 1
fem define init;r;duo reg 1 class 1

#
# Export nodes and elements
#
fem export point;cell_type grid material offset 0
exit