#

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

#                      function list_create_boolean_list()

#

#                      This function creates a list of entities by

#                      combining the contents of the global string

#                      "lista" and "listb" using the type of operation

#                      specified by the input string "boolean" and

#                      placing the the results in the global string

#                      "listc"

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The string for 

#                      list "s_blist_a" and "s_blist_b" are then

#                      defined. The boolean operation carried out in

#                      this example is "and". The return list is

#                      verified after the boolean operation.

#

#                      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 list_create_boolean_list()

#  has the following arguments:

#

#  list_create_boolean_list

#     (  blist_a,

#        blist_b,

#        btype,

#        bret_list )

#

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

#  Variable Declarations

STRING   s_blist_a[32]

STRING   s_blist_b[32]

STRING   s_btype[7]

STRING   sv_bret_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create boolean list

s_blist_a = "Point 1:4"

s_blist_b = "Point 1 2"

s_btype   = "and"

i_return_value =                                                @

   list_create_boolean_list                                     @

      (  s_blist_a,                                             @

         s_blist_b,                                             @

         s_btype,                                               @

         sv_bret_list )

dump i_return_value

dump sv_bret_list

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_bret_list)

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

#

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

#                      function list_create_curve_ass_geo()

#

#                      This function creates a list of all curves

#                      associated with a list of geometric entities.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      curves associated with "Surface 1" is obtained

#                      using  this  function  in  "lista"  and

#                      "sv_return_list".

#

#                      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 list_create_curve_ass_geo()

#  has the following arguments:

#

#  list_create_curve_ass_geo

#     (  entity_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   s_entity_list[32]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all curves associated with "Surface 1 "

s_entity_list  = "Surface 1"

s_target       = "lista"

i_return_value =                                                @

   list_create_curve_ass_geo                                    @

      (  s_entity_list,                                         @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_curve_ass_group()

#

#                      This function creates a list of all curves

#                      associated with specified group.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      curves associated with "default_group" is

#                      obtained  using  this  function  in  "lista"

#                      and "sv_return_list".

#

#                      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 list_create_curve_ass_group()

#  has the following arguments:

#

#  list_create_curve_ass_group

#     (  group_list,

#        number_of_groups,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   sa_group_list[32](1)

INTEGER  i_number_of_groups

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all curves present in  "default_group "

sa_group_list(1)   = "default_group"

i_number_of_groups = 1

s_target           = "lista"

i_return_value =                                                @

   list_create_curve_ass_group                                  @

      (  sa_group_list,                                         @

         i_number_of_groups,                                    @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_ass_geo()

#

#                      This function creates a list of all elements

#                      associated with a list of geomeric entities.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of elements  associated with

#                      "Surface 1" is obtained using this function in

#                      "lista" and "sv_return_list".

#

#                      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 list_create_elem_ass_geo() 

#  has the following arguments:

#

#  list_create_elem_ass_geo

#     (  element_shape_code,

#        entity_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

STRING   s_entity_list[32]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all elements associated with "Surface 1"

i_element_shape_code = 4

s_entity_list        = "Surface 1"

s_target             = "lista"

i_return_value =                                                @

   list_create_elem_ass_geo                                     @

      (  i_element_shape_code,                                  @

         s_entity_list,                                         @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_ass_group()

#                      "sv_return_list".

#

#                      This function creates a list of all elements

#                      associated with specified group.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of elements  associated with

#                      "default_group" is obtained using this function

#                      in "lista" and "sv_return_list".

#

#                      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 list_create_elem_ass_group()

#  has the following arguments:

#

#  list_create_elem_ass_group

#     (  element_shape_code,

#        group_list,

#        number_of_groups,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

STRING   sa_group_list[32](1)

INTEGER  i_number_of_groups

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all elements present in "default_group"

i_element_shape_code = 4

sa_group_list(1)     = "default_group"

i_number_of_groups   = 1

s_target             = "lista"

i_return_value =                                                @

   list_create_elem_ass_group                                   @

      (  i_element_shape_code,                                  @

         sa_group_list,                                         @

         i_number_of_groups,                                    @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_ass_node()

#

#                      This function creates a list of all elements

#                      associated with a list of nodes.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of elements  associated with "Node 3"

#                      is obtained using this function in "lista" and

#                      and "sv_return_list".

#

#                      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 list_create_elem_ass_node()

#  has the following arguments:

#

#  list_create_elem_ass_node

#     (  element_shape_code,

#        node_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

STRING   s_node_list[64]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all elements associated with "Node 3".

i_element_shape_code = 4

s_node_list          = "Node 3"

s_target             = "lista"

i_return_value =                                                @

   list_create_elem_ass_node                                    @

      (  i_element_shape_code,                                  @

         s_node_list,                                           @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_att_fringe()

#

#                      This function creates a list of all finite

#                      element model shape with specified fringe value

#                      in a single group of geometric entities.

#

#                      In this example a field.db is opened and the

#                      fringe plots for displacement and translation

#                      are created. Then this function is called to

#                      create a list of elements between specified

#                      fringe values in "lista" and "sv_return_list".

#

#                      Before running this session file run field.ses

#                      to create field.db. Follow the instruction in

#                      the field.ses file for analysis.

#

#                      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 list_create_elem_att_fringe()

#  has the following arguments:

#

#  list_create_elem_att_fringe

#     (  element_shape_code,

#        fringe_limits,

#        fringe_comparison_type,

#        tolerance,

#        group_name,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

REAL     ra_fringe_limits(2)

STRING   s_fringe_comparison_type[7]

REAL     r_tolerance

STRING   s_group_name[32]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

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

#  Open the database "field.db"

uil_file_open.go("field.db")

#  Set ISO-1 viewing

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  23., -34., 0. )

dump i_return_value

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

#  Initialize parameters for fringe plot

i_return_value =                                                @

   res_init_fringe_plot(  )

dump i_return_value

#  Create plot record for fringe plot

i_return_value =                                                @

   res_create_fringe_plot_rec3                                  @

      (  1,2,1,1,1,1,0,0,1.,"",1,2,3,23,1,1,0.,30,0,1 )

dump i_return_value

#  Create a fringe plot

i_return_value =                                                @

   res_make_fringe_plot                                         @

      (  1, [1], [1], [""], [0.], ["Default, Static Subcase:"// @

         " Displacements, Translational (VEC-MAG) -MSC.Nastran"])

dump i_return_value

#  Clear memory used in fringe plot and exit fringe plot module

i_return_value =                                                @

   res_deinit_fringe_plot(  )

dump i_return_value

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

#  Create a list of all elements for a specified range of fringe value

i_element_shape_code     = 0

ra_fringe_limits(1)      = 4.762E-05

ra_fringe_limits(2)      = 8.844E-05

s_fringe_comparison_type = "range"

r_tolerance              = 4.9999999E-10

s_group_name             = "default_group"

s_target                 = "lista"

i_return_value =                                                @

   list_create_elem_att_fringe                                  @

      (  i_element_shape_code,                                  @

         ra_fringe_limits,                                      @

         s_fringe_comparison_type,                              @

         r_tolerance,                                           @

         s_group_name,                                          @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_att_mat()

#

#                      This function creates a list of elements of a

#                      particular finite element model shape from a

#                      list of material names.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created.  2 "quad"

#                      elements are created using "Surface 1".

#                      Material named "Aluminium" and element property

#                      set "prop_set" are created and associated with

#                      the finite elements. Then the list of elements

#                      associated with material "Aluminium" is

#                      obtained using this function in "lista" and

#                      "sv_return_list".

#

#                      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 list_create_elem_att_mat()

#  has the following arguments:

#

#  list_create_elem_att_mat

#     (  element_shape_code,

#        material_list,

#        num_materials,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

STRING   sa_material_list[32](1)

INTEGER  i_num_materials

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create material - "Aluminium"

i_return_value =                                                @

   material.create                                              @

      (  "Analysis code ID",1,"Analysis type ID",1,"Aluminium", @

         0,"", "Isotropic", 1, "Directionality", 1, "Linearity",@

         1, "Homogeneous", 0, "Linear Elastic", 1,"Model Opt"// @

         "ions & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],   @

         "Active Flag", 1, "Create", 10, "External Flag", FALSE,@

         "Property IDs", ["Elastic Modulus", "Poisson Ratio",   @

         "Density"], [2, 5, 16, 0],"Property Values",["10.1E6", @

         "0.33", "0.1", ""] )

dump i_return_value

#  Create element property set - "prop_set"

i_return_value =                                                @

   elementprops_create                                          @

      (  "prop_set", 51, 25, 35, 1, 1, 20, [13, 20, 36, 4037,   @

         4111,4118,4119],[5, 9, 1, 1, 1, 1, 1],["m:Aluminium",  @

         "", "0.2", "", "","", ""], "Surface 1" )

dump i_return_value

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

#  Create list of all elements with material attribute "Aluminium"

i_element_shape_code = 4

sa_material_list(1)  = "Aluminium"

i_num_materials      = 1

s_target             = "lista"

i_return_value =                                                @

   list_create_elem_att_mat                                     @

      (  i_element_shape_code,                                  @

         sa_material_list,                                      @

         i_num_materials,                                       @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_elem_att_prop()

#

#                      This function creates a list of elements of a

#                      particular finite element model shape from a

#                      list of property names.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created.  2 "quad"

#                      elements are created using "Surface 1".

#                      Material named "Aluminium" and element property

#                      set "prop_set" are created and associated with

#                      the finite elements. Then the list of elements

#                      associated with property "prop_set" is

#                      obtained  using this function in "lista" and

#                      "sv_return_list".

#

#                      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 list_create_elem_att_prop()

#  has the following arguments:

#

#  list_create_elem_att_prop

#     (  element_shape_code,

#        properties_list,

#        num_properties,

#        target,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_element_shape_code

STRING   sa_properties_list[32](1)

INTEGER  i_num_properties

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create material in the database

i_return_value =                                                @

   material.create                                              @

      (  "Analysis code ID",1,"Analysis type ID",1,"Aluminium", @

         0,"", "Isotropic", 1, "Directionality", 1, "Linearity",@

         1, "Homogeneous", 0, "Linear Elastic", 1,"Model Opt"// @

         "ions & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],   @

         "Active Flag", 1, "Create", 10, "External Flag", FALSE,@

         "Property IDs", ["Elastic Modulus", "Poisson Ratio",   @

         "Density"], [2, 5, 16, 0],"Property Values",["10.1E6", @

         "0.33", "0.1", ""] )

dump i_return_value

#  Create element property set - "prop_set"

i_return_value =                                                @

   elementprops_create                                          @

      (  "prop_set", 51, 25, 35, 1, 1, 20, [13, 20, 36, 4037,   @

         4111,4118,4119],[5, 9, 1, 1, 1, 1, 1],["m:Aluminium",  @

         "", "0.2", "", "","", ""], "Surface 1" )

dump i_return_value

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

#  Create list of all elements with property set "prop_set"

i_element_shape_code  = 4

sa_properties_list(1) = "prop_set"

i_num_properties      = 1

s_target              = "lista"

i_return_value =                                                @

   list_create_elem_att_prop                                    @

      (  i_element_shape_code,                                  @

         sa_properties_list,                                    @

         i_num_properties,                                      @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_ent_ass_group()

#

#                      In this example a new database is opened and

#                      group named "NEW_GROUP" is created. Entities

#                      are created in each group. Then this function

#                      is called to obtain the entities present in

#                      the "default_group".

#

#                      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 list_create_ent_ass_group()

#  has the following arguments:

#

#  list_create_ent_ass_group

#     (  group_count,

#        group_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_group_count

STRING   sa_group_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Label Curves and solid

curve_label(TRUE)

solid_label(TRUE)

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

#  Create Entities in "default_group"

i_return_value =                                                @

   asm_const_line_2point( "1", "[0 0 0]", "[2 0 0][0 0 2]", 0,  @

   "", 50., 1, sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<0.5 0.5 0.5>", "[0 0 0]",         @

   "Coord 0", sv_ids_of_created_entities )

dump i_return_value

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

#  Create "NEW_GROUP" and make it as current group.

i_return_value = ga_group_create( "NEW_GROUP" )

dump i_return_value

i_return_value = ga_group_current_set( "NEW_GROUP" )

dump i_return_value

#  Create Entities in "default_group"

i_return_value =                                                @

   asm_const_line_2point( "3", "[-1 0 -1]", "[-1 2 -1]", 0, "", @

   50., 1, sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_curve_2d_circle_v1( "4", 1, 0.5, "Coord 0.3", "",  @

   "[1 1 0]", TRUE, sv_ids_of_created_entities )

dump i_return_value

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

# Get the entities present in the "default_group".

i_group_count     = 1

sa_group_name (1) = "default_group"

i_entity_count    = 1

sa_entity_name(1) = "Curve"

i_return_value =                                                @

   list_create_ent_ass_group                                    @

      (  i_group_count,                                         @

         sa_group_name,                                         @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_ass_vp()

#

#                      In this example a new database is opened and

#                      few entities are created. Then this function

#                      is called to get the entities available in

#                      the default_viewport.

#

#                      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 list_create_ent_ass_vp()

#  has the following arguments:

#

#  list_create_ent_ass_vp

#     (  viewport_count,

#        viewport_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_viewport_count

STRING   sa_viewport_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Label Curves and solid

curve_label(TRUE)

solid_label(TRUE)

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

#  Create Entities

i_return_value =                                                @

   asm_const_line_2point( "1", "[0 0 0]", "[2 0 0][0 0 2]", 0,  @

   "", 50., 1, sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<0.5 0.5 0.5>", "[0 0 0]",         @

   "Coord 0", sv_ids_of_created_entities )

dump i_return_value

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

#  Get the entities present in "default_viewport"

i_viewport_count    = 1

sa_viewport_name(1) = "default_viewport"

i_entity_count      = 1

sa_entity_name(1)   = "Curve" 

i_return_value =                                                @

   list_create_ent_ass_vp                                       @

      (  i_viewport_count,                                      @

         sa_viewport_name,                                      @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_ep_name()

#

#                      In this example a new database is opened and a

#                      surface is created. The surface is meshed

#                      into 5 quad elements. A material(ALUMINIUM)

#                      and an element property(NEW_EP) is created

#                      and associated with Elements 1 to 3. Then

#                      this function is called to get the entities

#                      having NEW_EP as  the element.

#

#                      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 list_create_ent_att_ep_name()

#  has the following arguments:

#

#  list_create_ent_att_ep_name

#     (  ep_count,

#        ep_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_ep_count

STRING   sa_ep_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

quad_elem_label( TRUE )

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

#  Create a surface and mesh it.

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Create Material and Element property

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "Aluminium", 0, "", "Isotropic", 1, "Directionality",     @

   1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,    @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs", ["Elastic Modulus", "Poisson Ratio",         @

   "Density"], [2, 5, 16, 0], "Property Values", ["10E6","0.33",@

   "0.1", ""] )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP", 51, 25, 35, 1, 1, 20, [13, 20,@

   36, 4037, 4111, 4118, 4119], [5, 9, 1, 1, 1, 1, 1],          @

   ["m:Aluminium", "", "0.2", "", "", "", ""] , "Element 1:3" )

dump i_return_value

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

#  Get entities associated with element properties.

i_ep_count        = 1

sa_ep_name(1)     = "NEW_EP"

i_entity_count    = 1

sa_entity_name(1) = "Element"

i_return_value =                                                @

   list_create_ent_att_ep_name                                  @

      (  i_ep_count,                                            @

         sa_ep_name,                                            @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_ep_type()

#

#                      In this example a new database is opened and

#                      a cuboid & a surface are created. They are

#                      meshed and 2 EP are created and associated

#                      with the solid and few of the finite elements.

#                      Then this function is called to get the list

#                      of entities having generic element type

#                      "Solid" & "Shell".

#

#                      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 list_create_ent_att_ep_type()

#  has the following arguments:

#

#  list_create_ent_att_ep_type

#     (  general_count,

#        general_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_general_count

STRING   sa_general_name[32](2)

INTEGER  i_entity_count

STRING   sa_entity_name[32](2)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

quad_elem_label( TRUE )

hex_elem_label( TRUE )

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

#  Create a solid, a surface and mesh them.

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<5 1 1>", "[0 0 0]", "Coord 0",    @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 1]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_sol_3( "IsoMesh", 0, "Solid 1 ", 1, [1.],    @

   "Hex8", "1", "1", "Coord 0", "Coord 0", i_num_nodes,         @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.],    @

   "Quad4", "25", "6", "Coord 0", "Coord 0", i_num_nodes,       @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Create Material and Element property.

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "Aluminium", 0, "", "Isotropic", 1, "Directionality",     @

   1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,    @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs", ["Elastic Modulus", "Poisson Ratio",         @

   "Density"], [2, 5, 16, 0], "Property Values", ["10E6","0.33",@

   "0.1", ""] )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP_1", 71, 25, 30, 1, 1, 20, [13,  @

   21, 4124, 4126, 4125], [5, 4, 4, 4, 4], ["m:Aluminium", "",  @

   "", "", ""], "Solid 1")

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP_2", 51, 25, 35, 1, 1, 20, [13,  @

   20, 36, 4037, 4111, 4118, 4119], [5, 9, 1, 1, 1, 1, 1],      @

   ["m:Aluminium", "", "0.2", "", "", "", ""] , "Elm 9:10")

dump i_return_value

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

#  Get List of entities having generic element type "Solid" & "Shell"

i_general_count     = 2

sa_general_name(1)  = "Solid"

sa_general_name(2)  = "Shell"

i_entity_count      = 2

sa_entity_name(1)   = "Element"

sa_entity_name(2)   = "Solid"

i_return_value =                                                @

   list_create_ent_att_ep_type                                  @

      (  i_general_count,                                       @

         sa_general_name,                                       @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_lbc_name()

#

#                      In this example a new database is opened and a

#                      surface is created. The surface is meshed

#                      into 5 quad elements. An LBC ("NEW_DISP") is

#                      created with Point 1 & 4 as application region.

#                      Then this function is called to get the

#                      entities associated with "NEW_DISP".

#

#                      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 list_create_ent_att_lbc_name()

#  has the following arguments:

#

#  list_create_ent_att_lbc_name

#     (  lbc_count,

#        lbc_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_lbc_count

STRING   sa_lbc_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](2)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

node_label (TRUE )

quad_elem_label( TRUE )

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

#  Create surface and FEM mesh

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Create LBC "NEW_DISP"

i_return_value =                                                @

   loadsbcs_create( "NEW_DISP", "Displacement", "Nodal", "",    @

   "Static", [ "Point 1 4"], "Geometry", "Coord 0", 1.,         @

   ["< 0 0 0 >", "< 0 0 0 >"], ["" , ""] )

dump i_return_value

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

#  Get list of entities associated with LBC "NEW_DISP"

i_lbc_count       = 1

sa_lbc_name(1)    = "NEW_DISP"

i_entity_count    = 2

sa_entity_name(1) = "Point"

sa_entity_name(2) = "Node"

i_return_value =                                                @

   list_create_ent_att_lbc_name                                 @

      (  i_lbc_count,                                           @

         sa_lbc_name,                                           @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_lbc_type()

#

#                      In this example a new database is opened and a

#                      surface is created. The surface is meshed

#                      into 5 quad elements. 2 LBCs "NEW_DISP" and

#                      "NEW_PRESS" are created. Then this function is

#                      called to get the entities associated with

#                      lbc type "Displacement" and "Pressure".

#

#                      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 list_create_ent_att_lbc_type()

#  has the following arguments:

#

#  list_create_ent_att_lbc_type

#     (  lbc_type_count,

#        lbc_type_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_lbc_type_count

STRING   sa_lbc_type_name[32](2)

INTEGER  i_entity_count

STRING   sa_entity_name[32](2)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

node_label (TRUE )

quad_elem_label( TRUE )

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

#  Create Surface and FEM mesh

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Create LBCs

i_return_value =                                                @

   loadsbcs_create( "NEW_DISP", "Displacement", "Nodal", "",    @

   "Static", [ "Point 1 4"], "Geometry", "Coord 0", 1.,         @

   ["< 0 0 0 >", "< 0 0 0 >"], ["" , ""] )

dump i_return_value

i_return_value =                                                @

   loadsbcs_create( "NEW_PRESS", "Pressure", "Element Uniform", @

   "2D", "Static", ["Element 4 5"], "FEM", "", 1., [" 500",     @

   "", ""], ["", "", ""] )

dump i_return_value

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

#  Get the list of entities associated with load type Displacement

#  and Pressure.

i_lbc_type_count    = 2

sa_lbc_type_name(1) = "Displacement"

sa_lbc_type_name(2) = "Pressure"

i_entity_count      = 2

sa_entity_name(1)   = "Node"

sa_entity_name(2)   = "Element"

i_return_value =                                                @

   list_create_ent_att_lbc_type                                 @

      (  i_lbc_type_count,                                      @

         sa_lbc_type_name,                                      @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_mat_name()

#

#                      In this example a new database is opened and 2

#                      surfaces are created. A material("Aluminium")

#                      is created and associated with Surface 1.

#                      Then this function is called to get the

#                      entities associated with material "Aluminium"

#                      from the database.

#

#                      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 list_create_ent_att_mat_name()

#  has the following arguments:

#

#  list_create_ent_att_mat_name

#     (  material_count,

#        material_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_material_count

STRING   sa_material_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

surface_label(TRUE)

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

#  Create surface

i_return_value =                                                @

   asm_const_patch_xyz( "#", "<5 1 0>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_patch_xyz( "#", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

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

#  Create Material and Element property

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "Aluminium", 0, "", "Isotropic", 1, "Directionality",     @

   1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,    @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs", ["Elastic Modulus", "Poisson Ratio",         @

   "Density"], [2, 5, 16, 0], "Property Values", ["10E6","0.33",@

   "0.1", ""] )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP", 51, 25, 35, 1, 1, 20, [13, 20,@

   36, 4037, 4111, 4118, 4119], [5, 9, 1, 1, 1, 1, 1],          @

   ["m:Aluminium", "", "0.2", "", "", "", ""] , "Surface 1" )

dump i_return_value

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

#  Get list of entities associated with material name "Aluminium"

i_material_count    = 1

sa_material_name(1) = "Aluminium"

i_entity_count      = 1

sa_entity_name(1)   = "Surface"

i_return_value =                                                @

   list_create_ent_att_mat_name                                 @

      (  i_material_count,                                      @

         sa_material_name,                                      @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_mat_type()

#

#                      In this example a new database is opened and 2

#                      surfaces are created. A material("Aluminium")

#                      is created and associated with Surface 1.

#                      Then this function is called to get the

#                      entities having "isotropic" as the

#                      material-type.

#

#                      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 list_create_ent_att_mat_type()

#  has the following arguments:

#

#  list_create_ent_att_mat_type

#     (  mat_type_count,

#        mat_type_name,

#        entity_count,

#        entity_name,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_mat_type_count

STRING   sa_mat_type_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

surface_label(TRUE)

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

#  Create Surface

i_return_value =                                                @

   asm_const_patch_xyz( "#", "<5 1 0>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_patch_xyz( "#", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

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

#  Create Material and Element properties.

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "Aluminium", 0, "", "Isotropic", 1, "Directionality",     @

   1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,    @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs", ["Elastic Modulus", "Poisson Ratio",         @

   "Density"], [2, 5, 16, 0], "Property Values", ["10E6","0.33",@

   "0.1", ""] )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP", 51, 25, 35, 1, 1, 20, [13, 20,@

   36, 4037, 4111, 4118, 4119], [5, 9, 1, 1, 1, 1, 1],          @

   ["m:Aluminium", "", "0.2", "", "", "", ""] , "Surface 1" )

dump i_return_value

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

#  Get the entities with "Isotropic" material type.

i_mat_type_count    = 1

sa_mat_type_name(1) = "Isotropic"

i_entity_count      = 1

sa_entity_name(1)   = "Surface"

i_return_value =                                                @

   list_create_ent_att_mat_type                                 @

      (  i_mat_type_count,                                      @

         sa_mat_type_name,                                      @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string(sv_return_list)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_ent_att_mat_value()

#

#                      In this example a new database is opened and 5

#                      surfaces are created with different Material

#                      properties. Then this function is called to

#                      get the list of entities whose poisson-ratio

#                      lie within a range of 0.05 to 0.25

#

#                      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 list_create_ent_att_mat_value()

#  has the following arguments:

#

#  list_create_ent_att_mat_value

#     (  entity_count,

#        entity_name,

#        mat_prop_name,

#        minimum,

#        maximum,

#        eval_at_temperature,

#        evaluation_strain,

#        evaluation_rate,

#        evaluation_time,

#        evaluation_frequency,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

STRING   s_mat_prop_name[32]

REAL     r_minimum

REAL     r_maximum

REAL     r_eval_at_temperature

REAL     r_evaluation_strain

REAL     r_evaluation_rate

REAL     r_evaluation_time

REAL     r_evaluation_frequency

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

surface_label(TRUE)

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

#  Create Surfaces with different Material properties

i_return_value =                                                @

   asm_const_line_2point( "#", "[0 0 0][0 1 -1][0 1 -1]"//      @

   "[0 2 -2][0 2 -2][5 0 0][5 1 -1][5 1 -1][5 2 -2][5 2 -2]",   @

   "[0 0 -1][0 0 -1][0 1 -2][0 1 -2][0 2 -3][5 0 -1][5 0 -1]"// @

   "[5 1 -2][5 1 -2][5 2 -3]", 0, "", 50., 1,                   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_2curve( "#", "Curve 1:5 ", "Curve 6:10",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_1", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["10E6", "0.11", "0.1", ""])

dump i_return_value

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_2", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["20E6", "0.22", "0.2", ""])

dump i_return_value

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_3", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["30E6", "0.33", "0.3", ""])

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_1", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_1",  @

   "", "0.1", "", "", "", ""], "Surface 1" )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_2", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_2",  @

   "", "0.2", "", "", "", ""], "Surface 2 3" )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_3", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_3",  @

   "", "0.3", "", "", "", ""], "Surface 4 5" )

dump i_return_value

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

#  Get the list of entities whose poisson ration lie within the range

#  0.05 and 0.25

i_entity_count         = 1

sa_entity_name(1)      = "Surface"

s_mat_prop_name        = "Poisson Ratio"

r_minimum              = 0.05

r_maximum              = 0.25

r_eval_at_temperature  = 0.0

r_evaluation_strain    = 0.0

r_evaluation_rate      = 0.0

r_evaluation_time      = 0.0

r_evaluation_frequency = 0.0

i_return_value =                                                @

   list_create_ent_att_mat_value                                @

      (  i_entity_count,                                        @

         sa_entity_name,                                        @

         s_mat_prop_name,                                       @

         r_minimum,                                             @

         r_maximum,                                             @

         r_eval_at_temperature,                                 @

         r_evaluation_strain,                                   @

         r_evaluation_rate,                                     @

         r_evaluation_time,                                     @

         r_evaluation_frequency,                                @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string(sv_return_list)

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

#

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

#                      function list_create_ent_att_vp_vis()

#

#                      In this example a new database is opened and

#                      few entities are created. After a pause one

#                      of the curve is erased and this function is

#                      called to get the list of entities available

#                      in "default_viewport".

#

#                      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 list_create_ent_att_vp_vis()

#  has the following arguments:

#

#  list_create_ent_att_vp_vis

#     (  viewport_count,

#        viewport_name,

#        entity_count,

#        entity_name,

#        pick_type,

#        pick_erased,

#        return_list )

#

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

#  Variable Declarations

INTEGER  i_viewport_count

STRING   sa_viewport_name[32](1)

INTEGER  i_entity_count

STRING   sa_entity_name[32](1)

INTEGER  i_pick_type

INTEGER  i_pick_erased

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Label Curves and solid

curve_label(TRUE)

solid_label(TRUE)

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

#  Create 2 curves and a solid

i_return_value =                                                @

   asm_const_line_2point( "1", "[0 0 0]", "[2 0 0][0 0 2]", 0,  @

   "", 50., 1, sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<0.5 0.5 0.5>", "[0 0 0]",         @

   "Coord 0", sv_ids_of_created_entities )

dump i_return_value

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

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Erase Curve 1

gm_visibility_widget( "Curve 1 ", FALSE )

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

#  Get the list of entities in "default_viewport"

i_return_value =                                                @

   list_create_ent_ass_vp(  1, ["default_viewport"], 1,         @

   ["Curve"], sv_return_list )

dump i_return_value

dump sv_return_list

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

#  Get the list of all entities in "default_viewport" even if it

#  is erased.

i_viewport_count    = 1

sa_viewport_name(1) = "default_viewport"

i_entity_count      = 1

sa_entity_name(1)   = "Curve"

i_pick_type         = 1

i_pick_erased       = 1    /* Also get erased entities */

i_return_value =                                                @

   list_create_ent_att_vp_vis                                   @

      (  i_viewport_count,                                      @

         sa_viewport_name,                                      @

         i_entity_count,                                        @

         sa_entity_name,                                        @

         i_pick_type,                                           @

         i_pick_erased,                                         @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_fem_con_fem()

#

#                      In this example a new database is opened and

#                      a surface with 5 quad elements is created.

#                      Then this function is called to get the list

#                      of elements associated with Node 1 and

#                      element adjacent to Element 3.

#

#                      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 list_create_fem_con_fem()

#  has the following arguments:

#

#  list_create_fem_con_fem

#     (  in_list,

#        get_node_con_to_node_by_elem,

#        get_node_con_to_node_by_mpc,

#        get_node_used_by_elem,

#        get_node_used_by_mpc,

#        get_elem_using_node,

#        get_elem_adj_to_elem,

#        get_elem_adj_to_mpc,

#        get_mpc_using_node,

#        get_mpc_adj_to_elem,

#        get_mpc_adj_to_mpc,

#        return_list )

#

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

#  Variable Declarations

STRING   s_in_list[128]

INTEGER  i_get_node_con_to_node_by_elem

INTEGER  i_get_node_con_to_node_by_mpc

INTEGER  i_get_node_used_by_elem

INTEGER  i_get_node_used_by_mpc

INTEGER  i_get_elem_using_node

INTEGER  i_get_elem_adj_to_elem

INTEGER  i_get_elem_adj_to_mpc

INTEGER  i_get_mpc_using_node

INTEGER  i_get_mpc_adj_to_elem

INTEGER  i_get_mpc_adj_to_mpc

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

node_label (TRUE )

quad_elem_label( TRUE )

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

#  Create Surface with 5 elements

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Get the element associated with Node 1 and Elements adjacent

#  to Elm 3.

s_in_list                        = "Node 1 Elm 3"

i_get_node_con_to_node_by_elem   = 0

i_get_node_con_to_node_by_mpc    = 0

i_get_node_used_by_elem          = 0

i_get_node_used_by_mpc           = 0

i_get_elem_using_node            = 1

i_get_elem_adj_to_elem           = 1

i_get_elem_adj_to_mpc            = 0

i_get_mpc_using_node             = 0

i_get_mpc_adj_to_elem            = 0

i_get_mpc_adj_to_mpc             = 0

i_return_value =                                                @

   list_create_fem_con_fem                                      @

      (  s_in_list,                                             @

         i_get_node_con_to_node_by_elem,                        @

         i_get_node_con_to_node_by_mpc,                         @

         i_get_node_used_by_elem,                               @

         i_get_node_used_by_mpc,                                @

         i_get_elem_using_node,                                 @

         i_get_elem_adj_to_elem,                                @

         i_get_elem_adj_to_mpc,                                 @

         i_get_mpc_using_node,                                  @

         i_get_mpc_adj_to_elem,                                 @

         i_get_mpc_adj_to_mpc,                                  @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

sys_free_string( sv_ids_of_created_entities)

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

#

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

#                      function list_create_node_ass_elem()

#

#                      This function creates a list of all nodes

#                      associated with a list of elements.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of nodes  associated with "Element 1"

#                      is obtained using this function in "lista" and

#                      and "sv_return_list".

#

#                      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 list_create_node_ass_elem()

#  has the following arguments:

#

#  list_create_node_ass_elem

#     (  element_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   s_element_list[64]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all nodes associated with "Element 1"

s_element_list = "Element 1"

s_target       = "lista"

i_return_value =                                                @

   list_create_node_ass_elem                                    @

      (  s_element_list,                                        @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_node_ass_geo()

#

#                      This function creates a list of all nodes

#                      associated with a list of geometric entities.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of nodes  associated with "Curve 1"

#                      is obtained using this function in "lista" and

#                      and "sv_return_list".

#

#                      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 list_create_node_ass_geo()

#  has the following arguments:

#

#  list_create_node_ass_geo

#     (  geometry_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   s_geometry_list[64]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all nodes associated with "Curve 1"

s_geometry_list = "Curve 1"

s_target        = "lista"

i_return_value =                                                @

   list_create_node_ass_geo                                     @

      (  s_geometry_list,                                       @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_node_ass_group()

#

#                      This function creates a list of all nodes

#                      associated with a list of specified groups.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of nodes present in "default_group"

#                      is obtained using this function in "lista" and

#                      and "sv_return_list".

#

#                      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 list_create_node_ass_group()

#  has the following arguments:

#

#  list_create_node_ass_group

#     (  group_list,

#        number_of_groups,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   sa_group_list[32](1)

INTEGER  i_number_of_groups

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all nodes present in "default_group".

sa_group_list(1)   = "default_group"

i_number_of_groups = 1

s_target           = "lista"

i_return_value =                                                @

   list_create_node_ass_group                                   @

      (  sa_group_list,                                         @

         i_number_of_groups,                                    @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_node_att_fringe()

#

#                      This function creates a list of all nodes with

#                      specified fringe value in a single group of 

#                      geometric entities.

#

#                      In this example a field.db is opened and the

#                      fringe plots for displacement and translation

#                      are created. Then this function is called to

#                      create a list of elements between specified

#                      fringe values in "lista" and "sv_return_list".

#

#                      Before running this session file run field.ses

#                      to create field.db. Follow the instruction in

#                      the field.ses file for analysis.

#

#                      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 list_create_node_att_fringe()

#  has the following arguments:

#

#  list_create_node_att_fringe

#     (  fringe_limits,

#        fringe_comparison_type,

#        tolerance,

#        group_name,

#        target,

#        return_list )

#

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

#  Variable Declarations

REAL     ra_fringe_limits(2)

STRING   s_fringe_comparison_type[7]

REAL     r_tolerance

STRING   s_group_name[32]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

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

#  Open the database "field.db"

uil_file_open.go("field.db")

#  Set ISO-1 viewing

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  23., -34., 0. )

dump i_return_value

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

#  Initialize parameters for fringe plot

i_return_value =                                                @

   res_init_fringe_plot(  )

dump i_return_value

#  Create plot record for fringe plot

i_return_value =                                                @

   res_create_fringe_plot_rec3                                  @

      (  1,2,1,1,1,1,0,0,1.,"",1,2,3,23,1,1,0.,30,0,1 )

dump i_return_value

#  Create a fringe plot

i_return_value =                                                @

   res_make_fringe_plot                                         @

      (  1, [1], [1], [""], [0.], ["Default, Static Subcase:"// @

         " Displacements, Translational (VEC-MAG) -MSC.Nastran"])

dump i_return_value

#  Clear memory used in fringe plot and exit fringe plot module

i_return_value =                                                @

   res_deinit_fringe_plot(  )

dump i_return_value

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

#  Create a list of all nodes for a specified range of fringe value

ra_fringe_limits(1)      = 1.361E-05

ra_fringe_limits(2)      = 7.4839998E-05 

s_fringe_comparison_type = "range"

r_tolerance              = 5.0000002E-19

s_group_name             = "default_group"

s_target                 = "lista"

i_return_value =                                                @

   list_create_node_att_fringe                                  @

      (  ra_fringe_limits,                                      @

         s_fringe_comparison_type,                              @

         r_tolerance,                                           @

         s_group_name,                                          @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_node_att_value()

#

#                      This function creates a list of all nodes

#                      within a given coordinate range.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. 2 "quad"

#                      elements are created using "Surface 1". Then

#                      the list of nodes with X coordinate value = 0

#                      is obtained using this function in "lista" and

#                      and "sv_return_list".

#

#                      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 list_create_node_att_value()

#  has the following arguments:

#

#  list_create_node_att_value

#     (  coord_values,

#        coord_values_active,

#        coord_comparison_type,

#        tolerance,

#        coord_name,

#        target,

#        return_list )

#

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

#  Variable Declarations

REAL     ra_coord_values(6)

LOGICAL  la_coord_values_active(3)

STRING   sa_coord_comparison_type[7](3)

REAL     ra_tolerance(3)

STRING   s_coord_name[32]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_mesh_s_nodes[VIRTUAL]

STRING   sv_mesh_s_elems[VIRTUAL]

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0",               @

         "Curve 1 ", sv_sgm_surface )

dump i_return_value

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

#  Create FEM entities

i_return_value =                                                @

   fem_create_mesh_surf_2                                       @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.], "Quad4", "1", "1",@

         "Coord 0", "Coord 0", i_num_nodes, i_num_elems,        @

         sv_mesh_s_nodes, sv_mesh_s_elems )

dump i_return_value

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

#  Create list of all nodes with X = 0

ra_coord_values(1)          = 0.0

la_coord_values_active(1)   = TRUE

sa_coord_comparison_type(1) = "equal"

ra_tolerance(1)             = 0.05

s_coord_name                = "Coord 0"

s_target                    = "lista"

i_return_value =                                                @

   list_create_node_att_value                                   @

      (  ra_coord_values,                                       @

         la_coord_values_active,                                @

         sa_coord_comparison_type,                              @

         ra_tolerance,                                          @

         s_coord_name,                                          @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_mesh_s_nodes)

sys_free_string( sv_mesh_s_elems)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_point_ass_geo()

#

#                      This function creates a list of all points from

#                      a list of geometric entities.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      points associated with "Curve 1" is obtained

#                      using  this  function  in  "lista"  and

#                      "sv_return_list".

#

#                      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 list_create_point_ass_geo()

#  has the following arguments:

#

#  list_create_point_ass_geo

#     (  entity_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   s_entity_list[8]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all points associated with "Curve 1".

s_entity_list  = "Curve 1"

s_target       = "lista"

i_return_value =                                                @

   list_create_point_ass_geo                                    @

      (  s_entity_list,                                         @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_point_ass_group()

#

#                      This function creates a list of all points

#                      associated with specified group.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      points associated with "default_group" is

#                      obtained  using  this  function  in  "lista"

#                      and "sv_return_list".

#

#                      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 list_create_point_ass_group()

#  has the following arguments:

#

#  list_create_point_ass_group

#     (  group_list,

#        number_of_groups,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   sa_group_list[32](1)

INTEGER  i_number_of_groups

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all points present in "default_group "

sa_group_list(1)   = "default_group"

i_number_of_groups = 1

s_target           = "lista"

i_return_value =                                                @

   list_create_point_ass_group                                  @

      (  sa_group_list,                                         @

         i_number_of_groups,                                    @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_surface_ass_geo()

#

#                      This function creates a list of all surfaces

#                      from a list of geometric entities.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      surfaces associated with "Curve 1" is obtained

#                      using  this  function  in  "lista" and

#                      "sv_return_list".

#

#                      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 list_create_surface_ass_geo()

#  has the following arguments:

#

#  list_create_surface_ass_geo

#     (  entity_list,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   s_entity_list[64]

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all surfaces from "Curve 1 "

s_entity_list  = "Curve 1"

s_target       = "lista"

i_return_value =                                                @

   list_create_surface_ass_geo                                  @

      (  s_entity_list,                                         @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

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

#                      function list_create_surface_ass_group()

#

#                      This function creates a list of all surfaces

#                      associated with specified group.

#

#                      In this example a new database is opened. Geom-

#                      etry consisting of a single curve and surface

#                      of dimension  2 X 1 is created. The list of

#                      surfaces associated with "default_group" is

#                      obtained  using  this  function  in  "lista"

#                      and "sv_return_list".

#

#                      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 list_create_surface_ass_group()

#  has the following arguments:

#

#  list_create_surface_ass_group

#     (  group_list,

#        number_of_groups,

#        target,

#        return_list )

#

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

#  Variable Declarations

STRING   sa_group_list[32](1)

INTEGER  i_number_of_groups

STRING   s_target[6]

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_point[VIRTUAL]

STRING   sv_asm_line[VIRTUAL]

STRING   sv_sgm_surface[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Geometric entities

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "1","[0 0 0]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_grid_xyz                                           @

      (  "2","[0 0 1]","Coord 0",sv_asm_point)

dump i_return_value

i_return_value =                                                @

   asm_const_line_2point                                        @

      (  "1","Point 1 ","Point 2",0,"",50., 1, sv_asm_line )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude                                    @

      (  "1","<2 0 0>",1.,0.,"[0 0 0]","Coord 0","Curve 1 ",    @

         sv_sgm_surface )

dump i_return_value

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

#  Create list of all surfaces present in  "default_group "

sa_group_list(1)   = "default_group"

i_number_of_groups = 1

s_target           = "lista"

i_return_value =                                                @

   list_create_surface_ass_group                                @

      (  sa_group_list,                                         @

         i_number_of_groups,                                    @

         s_target,                                              @

         sv_return_list )

dump i_return_value

dump sv_return_list

dump lista

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

#  Free allocated memory

sys_free_string( sv_asm_point)

sys_free_string( sv_asm_line)

sys_free_string( sv_sgm_surface)

sys_free_string( sv_return_list)

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

#

#  Purpose          :  This file provides an example of 2 calls to the

#                      function list_create_target_list()

#

#                      This function allocates space for a string,

#                      sets the value of the allocated string using an

#                      input string and assigns the allocated string

#                      to one of two global string variables named

#                      "lista" or "listb" based on the settings of the

#                      two matching internal global variables named

#                      "lista_nomerge" and "listb_nomerge".

#

#                      In this example a new database is opened and

#                      a cube of dimension 1 X 1 X 1 is created. Then

#                      the input string "s_entity_list" is assigned a

#                      value. The string is then targeted to global

#                      string "lista" using this function. The value

#                      of the global string "lista" is checked before

#                      and after the calling of this function. Once

#                      again the string "s_entity_list" is assigned

#                      and targeted to "lista" for appending. The

#                      global variable "lista_nomerge" is assigned

#                      TRUE for not sorting the new "lista".

#

#                      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 list_create_target_list()

#  has the following arguments:

#

#  list_create_target_list

#     (  target,

#        entity_list )

#

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

#  Variable Declarations

STRING   s_target[6]

STRING   s_entity_list[64]

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set IS0-1 Viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Create Cube of dimension 1 X 1 X 1

i_return_value =                                                @

   asm_const_hpat_xyz                                           @

      ( "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_hpat_ids )

dump i_return_value

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

#  Value of global string "lista" before targeting

dump lista

#  Target input string to "lista"

s_target       = "lista"

s_entity_list  = "Point 1 4 3"

i_return_value =                                                @

   list_create_target_list                                      @

      (  s_target,                                              @

         s_entity_list )

dump i_return_value

dump s_entity_list

#  Value of global string "lista" after targeting

dump lista

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

#  Dot not sort the boolean list

lista_nomerge = TRUE

#  Target input string to "lista" again.

s_target       = "lista"

s_entity_list  = "Point 2 5 7 8 6"

i_return_value =                                                @

   list_create_target_list                                      @

      (  s_target,                                              @

         s_entity_list )

dump i_return_value

dump s_entity_list

#  Value of global string "lista" after targeting

dump lista

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

#  Free allocated memory

sys_free_string( sv_hpat_ids)

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

#

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

#                      function list_filter_by_elem_dim()

#

#                      In this example a new database is opened and

#                      5 quad elements with different dimensions are

#                      created.  Then this function is called to get

#                      the list of elements within a certain

#                      dimension range from an input list.

#

#                      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 list_filter_by_elem_dim()

#  has the following arguments:

#

#  list_filter_by_elem_dim

#     (  input_list,

#        criterion,

#        segment_count,

#        minimum,

#        maximum,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[32]

STRING   s_criterion[32]

INTEGER  i_segment_count

REAL     r_minimum

REAL     r_maximum

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_created_entities_list[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

quad_elem_label( TRUE )

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

#  Create quad elements

i_return_value =                                                @

   fem_create_elems( "Quad", "Quad4", "1", "Standard", TRUE,    @

   "[0 0 0][2 0 0][3 0 0][5 0 0][6 0 0]", "[2 0 0][3 0 0]"//    @

   "[5 0 0][6 0 0][9 0 0]", "[2 1 0][3 1 0][5 1 0][6 1 0]"//    @

   "[9 1 0]", "[0 1 0][2 1 0][3 1 0][5 1 0][6 1 0]", "", "", "",@

   "", sv_created_entities_list )

dump i_return_value

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

#  Get the list of elements whose edge lengths are in specified

#  range

s_input_list     = "Element 1:5"

s_criterion      = "EdgeLengthMax"

i_segment_count  = 0

r_minimum        = 1.5

r_maximum        = 2.5

i_return_value =                                                @

   list_filter_by_elem_dim                                      @

      (  s_input_list,                                          @

         s_criterion,                                           @

         i_segment_count,                                       @

         r_minimum,                                             @

         r_maximum,                                             @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_entities_list)

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

#

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

#                      function list_filter_by_ent_shape()

#

#                      In this example a new database is opened and

#                      different types of finite elements are created.

#                      Then this function is called to get the

#                      list of curves, surfaces, beams elements,

#                      quad elements and hex elements from an input

#                      list.

#

#                      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 list_filter_by_ent_shape()

#  has the following arguments:

#

#  list_filter_by_ent_shape

#     (  input_list,

#        geometric_points,

#        geometric_curves,

#        geometric_surfaces,

#        geometric_solids,

#        element_points,

#        element_beams,

#        element_tria,

#        element_quad,

#        element_tet,

#        element_wedge,

#        element_hex,

#        node,

#        mpc,

#        any_other,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

INTEGER  i_geometric_points

INTEGER  i_geometric_curves

INTEGER  i_geometric_surfaces

INTEGER  i_geometric_solids

INTEGER  i_element_points

INTEGER  i_element_beams

INTEGER  i_element_tria

INTEGER  i_element_quad

INTEGER  i_element_tet

INTEGER  i_element_wedge

INTEGER  i_element_hex

INTEGER  i_node

INTEGER  i_mpc

INTEGER  i_any_other

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

bar_elem_label( TRUE )

tri_elem_label( TRUE )

quad_elem_label( TRUE )

hex_elem_label( TRUE )

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

#  Create Solid and various types of elements

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<2 1 1>", "[0 0 0]", "Coord 0",    @

   sv_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude( "1", "<-2 0 0>", 1., 0.,          @

   "[0 0 0]", "Coord 0", "Solid 1.1.3 ", sv_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude( "2", "<0 0 -2>", 1., 0.,          @

   "[0 0 0]", "Coord 0", "Solid 1.4.1 ", sv_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 2 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Tria3", "10", "5", "Coord 0", "Coord 0", i_num_nodes,       @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_sol_3( "IsoMesh", 0, "Solid 1 ", 1, [1.],    @

   "Hex8", "16", "9", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Bar ", "Bar2", "11", "Standard", FALSE,   @

   "Node 14 ", "Node 7 ", "", "", "", "", "", "",               @

   sv_created_entities )

dump i_return_value

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

#  Get entities with mentioned relations

s_input_list         = "Node 1:27 Elm 1:11 Point 1:12 " //      @

                        "Surface 1 2 Solid 1"

i_geometric_points   = 0

i_geometric_curves   = 1

i_geometric_surfaces = 1

i_geometric_solids   = 0

i_element_points     = 0

i_element_beams      = 1

i_element_tria       = 0

i_element_quad       = 1

i_element_tet        = 0

i_element_wedge      = 0

i_element_hex        = 1

i_node               = 0

i_mpc                = 0

i_any_other          = 0

i_return_value =                                                @

   list_filter_by_ent_shape                                     @

      (  s_input_list,                                          @

         i_geometric_points,                                    @

         i_geometric_curves,                                    @

         i_geometric_surfaces,                                  @

         i_geometric_solids,                                    @

         i_element_points,                                      @

         i_element_beams,                                       @

         i_element_tria,                                        @

         i_element_quad,                                        @

         i_element_tet,                                         @

         i_element_wedge,                                       @

         i_element_hex,                                         @

         i_node,                                                @

         i_mpc,                                                 @

         i_any_other,                                           @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string(sv_return_list)

sys_free_string(sv_created_entities)

sys_free_string(sv_created_nodes)

sys_free_string(sv_created_elems)

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

#

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

#                      function list_filter_by_ep_type()

#

#                      In this example a new database is opened and

#                      a solid & a surface are created. The created

#                      solid and surface are meshed into hex and

#                      quad elements respectively. 2 Element

#                      properties are created and associated with

#                      some of the finite elements. Then this

#                      function is called to get entities of "Shell"

#                      type from a set of input 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 list_filter_by_ep_type()

#  has the following arguments:

#

#  list_filter_by_ep_type

#     (  input_list,

#        ep_type_count,

#        ep_type_name,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

INTEGER  i_ep_type_count

STRING   sa_ep_type_name[32](1)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

quad_elem_label( TRUE )

hex_elem_label( TRUE )

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

#  Create solid and surface

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<5 1 1>", "[0 0 0]", "Coord 0",    @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 1]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_sol_3( "IsoMesh", 0, "Solid 1 ", 1, [1.],    @

   "Hex8", "1", "1", "Coord 0", "Coord 0", i_num_nodes,         @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "25", "6", "Coord 0", "Coord 0", i_num_nodes,       @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

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

#  Create Material and Element properties.

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "Aluminium", 0, "", "Isotropic", 1, "Directionality",     @

   1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,    @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs", ["Elastic Modulus", "Poisson Ratio",         @

   "Density"], [2, 5, 16, 0], "Property Values", ["10E6","0.33",@

   "0.1", ""] )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP_1", 71, 25, 30, 1, 1, 20, [13,  @

   21, 4124, 4126, 4125], [5, 4, 4, 4, 4], ["m:Aluminium", "",  @

   "", "", ""], "Elm 1:3" )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "NEW_EP_2", 51, 25, 35, 1, 1, 20, [13,  @

   20, 36, 4037, 4111, 4118, 4119], [5, 9, 1, 1, 1, 1, 1],      @

   ["m:Aluminium", "", "0.2", "", "", "", ""] , "Elm 9:10")

dump i_return_value

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

#  Get the list of elements having element-property as "Shell"

s_input_list       = "Element 1:10"

i_ep_type_count    = 1

sa_ep_type_name(1) = "Shell"

i_return_value =                                                @

   list_filter_by_ep_type                                       @

      (  s_input_list,                                          @

         i_ep_type_count,                                       @

         sa_ep_type_name,                                       @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string(sv_return_list)

sys_free_string(sv_ids_of_created_entities)

sys_free_string(sv_created_nodes)

sys_free_string(sv_created_elems)

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

#

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

#                      function list_filter_by_ep_value()

#

#                      In this example a new database is opened and

#                      5 surface are created. The surface are meshed

#                      into quad elements. 3 different element

#                      properties (with different thickness values)

#                      are associated with different elements. Then

#                      this function is called to get the list of

#                      elements whose thickness lie between 0.15 and

#                      0.25 units from a set of input 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 list_filter_by_ep_value()

#  has the following arguments:

#

#  list_filter_by_ep_value

#     (  input_list,

#        element_property,

#        component,

#        minimum,

#        maximum,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

STRING   s_element_property[32]

INTEGER  i_component

REAL     r_minimum

REAL     r_maximum

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_node[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

quad_elem_label(TRUE)

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

#  Create curve, surfaces and finite elements.

i_return_value =                                                @

   asm_const_line_2point( "#", "[0 0 0][0 1 -1][0 1 -1]"//      @

   "[0 2 -2][0 2 -2][5 0 0][5 1 -1][5 1 -1][5 2 -2][5 2 -2]",   @

   "[0 0 -1][0 0 -1][0 1 -2][0 1 -2][0 2 -3][5 0 -1][5 0 -1]"// @

   "[5 1 -2][5 1 -2][5 2 -3]", 0, "", 50., 1,                   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_2curve( "#", "Curve 1:5 ", "Curve 6:10",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1:5 ", 1,     @

   [1.], "Quad4", "1", "1", "Coord 0", "Coord 0",               @

   i_num_nodes, i_num_elems, sv_created_node, sv_created_elems )

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

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_1", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["10E6", "0.11", "0.1", ""])

dump i_return_value

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_2", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["20E6", "0.22", "0.2", ""])

dump i_return_value

i_return_value =                                                @

   material.create( "Analysis code ID", 1, "Analysis type ID",  @

   1, "MAT_3", 0, "", "Isotropic", 1, "Directionality", 1,      @

   "Linearity", 1, "Homogeneous", 0, "Linear Elastic", 1,       @

   "Model Options & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0],@

   "Active Flag", 1, "Create", 10, "External Flag", FALSE,      @

   "Property IDs",["Elastic Modulus","Poisson Ratio","Density"],@

   [2, 5, 16, 0], "Property Values", ["30E6", "0.33", "0.3", ""])

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_1", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_1",  @

   "", "0.1", "", "", "", ""], "Element 1:5" )

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_2", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_2",  @

   "", "0.2", "", "", "", ""], "Element 6:15")

dump i_return_value

i_return_value =                                                @

   elementprops_create( "EP_3", 51, 25, 35, 1, 1, 20, [13, 20,  @

   36, 4037, 4111, 4118, 4119], [5,9,1,1, 1, 1, 1],["m:MAT_3",  @

   "", "0.3", "", "", "", ""], "Element 16:25" )

dump i_return_value

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

#  Get elements whose thickness lie between 0.15 and 0.25

s_input_list        = "Element 1:25"

s_element_property  = "Thickness"

i_component         = 0

r_minimum           = 0.15

r_maximum           = 0.25

i_return_value =                                                @

   list_filter_by_ep_value                                      @

      (  s_input_list,                                          @

         s_element_property,                                    @

         i_component,                                           @

         r_minimum,                                             @

         r_maximum,                                             @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

sys_free_string( sv_created_node)

sys_free_string( sv_created_elems)

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

#

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

#                      function list_filter_by_fem_type()

#

#                      In this example a new database is opened and

#                      different types of finite elements are created.

#                      Then this function is called to get the

#                      list of elements which are of type Hex8 and

#                      Bar2 from an input list.

#

#                      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 list_filter_by_fem_type()

#  has the following arguments:

#

#  list_filter_by_fem_type

#     (  input_list,

#        fem_type_count,

#        fem_type_name,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

INTEGER  i_fem_type_count

STRING   sa_fem_type_name[32](2)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_entities[VIRTUAL]

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

bar_elem_label( TRUE )

tri_elem_label( TRUE )

quad_elem_label( TRUE )

hex_elem_label( TRUE )

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

#  Create different type of elments

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<2 1 1>", "[0 0 0]", "Coord 0",    @

   sv_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude( "1", "<-2 0 0>", 1., 0.,          @

   "[0 0 0]", "Coord 0", "Solid 1.1.3 ", sv_created_entities )

dump i_return_value

i_return_value =                                                @

   sgm_const_surface_extrude( "2", "<0 0 -2>", 1., 0.,          @

   "[0 0 0]", "Coord 0", "Solid 1.4.1 ", sv_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 2 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Tria3", "10", "5", "Coord 0", "Coord 0", i_num_nodes,       @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_sol_3( "IsoMesh", 0, "Solid 1 ", 1, [1.],    @

   "Hex8", "16", "9", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Bar ", "Bar2", "11", "Standard", FALSE,   @

   "Node 14 ", "Node 7 ", "", "", "", "", "", "",               @

   sv_created_entities )

dump i_return_value

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

#  Get elements which are of type Hex8 and Bar2

s_input_list        = "Node 1:27 Elm 1:11"

i_fem_type_count    = 2

sa_fem_type_name(1) = "ElmHex8"

sa_fem_type_name(2) = "ElmBar2"

i_return_value =                                                @

   list_filter_by_fem_type                                      @

      (  s_input_list,                                          @

         i_fem_type_count,                                      @

         sa_fem_type_name,                                      @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_created_entities)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

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

#

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

#                      function list_filter_by_lbc_type()

#

#                      In this example a new database is opened and

#                      a surface with displacement and pressure

#                      loads is created. Then this function is

#                      called to get the list of elements which have

#                      loads of type "Displacement" and "Pressure"

#                      from an input list.

#

#                      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 list_filter_by_lbc_type()

#  has the following arguments:

#

#  list_filter_by_lbc_type

#     (  input_list,

#        lbc_type_count,

#        lbc_type_name,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

INTEGER  i_lbc_type_count

STRING   sa_lbc_type_name[32](2)

STRING   sv_return_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_ids_of_created_entities[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_created_nodes[VIRTUAL]

STRING   sv_created_elems[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

node_label ( TRUE )

quad_elem_label( TRUE )

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

#  Create Surface and LBCs

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<5 0 1>", "[0 0 0]", "Coord 0",   @

   sv_ids_of_created_entities )

dump i_return_value

i_return_value =                                                @

   fem_create_mesh_surf_2( "IsoMesh", 0, "Surface 1 ", 1, [1.], @

   "Quad4", "1", "1", "Coord 0", "Coord 0", i_num_nodes,        @

   i_num_elems, sv_created_nodes, sv_created_elems )

dump i_return_value

i_return_value =                                                @

   loadsbcs_create( "NEW_DISP", "Displacement", "Nodal", "",    @

   "Static", [ "Point 1 4"], "Geometry", "Coord 0", 1.,         @

   ["< 0 0 0 >", "< 0 0 0 >"], ["" , ""] )

dump i_return_value

i_return_value =                                                @

   loadsbcs_create( "NEW_PRESS", "Pressure", "Element Uniform", @

   "2D", "Static", ["Element 4 5"], "FEM", "", 1., [" 500",     @

   "", ""], ["", "", ""] )

dump i_return_value

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

#  Get elements which have loads of type "Displacement" and

#  "Pressure".

s_input_list        = "Node 1:12 Elm 1:5"

i_lbc_type_count    = 2 

sa_lbc_type_name(1) = "Displacement"

sa_lbc_type_name(2) = "Pressure"

i_return_value =                                                @

   list_filter_by_lbc_type                                      @

      (  s_input_list,                                          @

         i_lbc_type_count,                                      @

         sa_lbc_type_name,                                      @

         sv_return_list )

dump i_return_value

dump sv_return_list

sys_free_string( sv_return_list)

sys_free_string( sv_ids_of_created_entities)

sys_free_string( sv_created_nodes)

sys_free_string( sv_created_elems)

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

#

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

#                      function list_filter_by_lbc_value()

#

#                      In this example a new database is opened and

#                      a surface with Pressure LBCs of different

#                      values is created. Then this function is

#                      called to get the list of elements which have

#                      pressure values are between 150 and 250 units

#                      from an input list.

#

#                      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 list_filter_by_lbc_value()

#  has the following arguments:

#

#  list_filter_by_lbc_value

#     (  input_list,

#        load_case_name,

#        lbc_var_name,

#        component,

#        minimum,

#        maximum,

#        evaluation_time,

#        evaluation_frequency,

#        sub_entity,

#        return_list )

#

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

#  Variable Declarations

STRING   s_input_list[128]

STRING   s_load_case_name[32]

STRING   s_lbc_var_name[32]

INTEGER  i_component

REAL     r_minimum