#

#  Purpose          :  This file provides an example of a call to the

#                      function fem_disassoc_geo()

#

#                      This session file creates a new database by

#                      name new.db. A line is created and is meshed

#                      to create FEM entities associated with the

#                      geometry. This function is then called to

#                      disassociate all the elements from the line.

#

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#

#  The function fem_disassoc_geo()

#  has the following arguments:

#

#  fem_disassoc_geo

#     (  nodes,

#        elements,

#        geo_list )

#

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_nodes

LOGICAL  l_elements

STRING   sv_geo_list[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a line

i_return_value =                                 @

   asm_const_line_2point                         @

      (  "1", "[2 2 0]", "[8 2 0]", 0, "", 50., 1, sv_created_ids)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the line to create associated FEM entities

i_return_value =                                 @

   fem_create_mesh_curv                          @

      (  "Curve 1 ", 1., "Bar2", "1",            @

         "1", "Coord 0", "Coord 0",              @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created)

dump i_return_value

node_label( TRUE )

bar_elem_label( TRUE )

#---------------------------------------------------------------------

#  Disassociate all the elements associated with the line

#

l_nodes     = FALSE

l_elements  = TRUE

sv_geo_list = "Curve 1"

i_return_value =                                 @

   fem_disassoc_geo                              @

      (  l_nodes,                                @

         l_elements,                             @

         sv_geo_list )

dump i_return_value

#---------------------------------------------------------------------

#

#  For confirming that elements have been disassociated, access the

#  form given by "Finite Elements", set Action switch to "Show",

#  Object switch to "Element" and the Method switch to "Attributes".

#  Give Element List as "Elm 1:6".

#

#---------------------------------------------------------------------

sys_free_string(sv_geo_list)

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------

#

#  Purpose          :  This file provides an example of a call to the

#                      function fem_disassoc_ids()

#

#                      This session file creates a new database by

#                      name new.db. A line is created and is meshed

#                      to create FEM entities associated with the

#                      geometry. This function is then called to

#                      disassociate the specified FEM entities.

#

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#

#  The function fem_disassoc_ids()

#  has the following arguments:

#

#  fem_disassoc_ids

#     (  option,

#        fem_list )

#

#---------------------------------------------------------------------

#  Variable Declarations

INTEGER  i_option

STRING   sv_fem_list[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a line

i_return_value =                                 @

   asm_const_line_2point                         @

      (  "1", "[2 2 0]", "[8 2 0]", 0, "", 50., 1, sv_created_ids)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the line to create associated FEM entities

i_return_value =                                 @

   fem_create_mesh_curv                          @

      (  "Curve 1 ", 1., "Bar2", "1",            @

         "1", "Coord 0", "Coord 0",              @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created)

dump i_return_value

node_label( TRUE )

bar_elem_label( TRUE )

#---------------------------------------------------------------------

#  Disassociate some elements from the line

#

i_option    = 1

sv_fem_list = "Elem 1:4"

i_return_value =                                 @

   fem_disassoc_ids                              @

      (  i_option,                               @

         sv_fem_list )

dump i_return_value

#---------------------------------------------------------------------

#

#  For confirming that elements have been disassociated, access the

#  form given by "Finite Elements", set Action switch to "Show",

#  Object switch to "Element" and the Method switch to "Attributes".

#  Give Element List as "Elm 1:6".

#

#---------------------------------------------------------------------

sys_free_string(sv_fem_list)

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------