append_spacerNonInterwoven Subroutine

  1. sdr_spacer_module.f90
  2. sdr_spacer_module
  3. append_spacerNonInterwoven

private subroutine append_spacerNonInterwoven(cylArray, spaObjArray, attr_pos, filament_cur, filament_adj)

This routine converts sdr_spacer_type to spacerInterwoven_type for as each filament and add it to the growing array of spacerInterwoven_type

Arguments

TypeIntentOptionalAttributesName
type(grw_cylinderarray_type), intent(inout) :: cylArray

growing array of cylinders
type(grw_spatialobjarray_type), intent(inout) :: spaObjArray

growing array of geometrical objects.
integer, intent(in) :: attr_pos

Position of the attribute to connect this object to.
type(spacer_filament_type), intent(in) :: filament_cur
type(spacer_filament_type), intent(in) :: filament_adj

Calls

proc~~append_spacernoninterwoven~~CallsGraph proc~append_spacernoninterwoven append_spacerNonInterwoven proc~append_cylinder2spaobj append_cylinder2SpaObj proc~append_spacernoninterwoven->proc~append_cylinder2spaobj interface~append~3 append proc~append_cylinder2spaobj->interface~append~3 proc~append_ga_spatialobj_vec append_ga_spatialobj_vec interface~append~3->proc~append_ga_spatialobj_vec proc~append_ga_spatialobj append_ga_spatialobj interface~append~3->proc~append_ga_spatialobj interface~expand~3 expand proc~append_ga_spatialobj_vec->interface~expand~3 proc~append_ga_spatialobj->interface~expand~3

Called by

proc~~append_spacernoninterwoven~~CalledByGraph proc~append_spacernoninterwoven append_spacerNonInterwoven proc~sdr_load_spacer_single sdr_load_spacer_single proc~sdr_load_spacer_single->proc~append_spacernoninterwoven proc~sdr_load_spacer sdr_load_spacer proc~sdr_load_spacer->proc~sdr_load_spacer_single proc~sdr_load_geom_table_single sdr_load_geom_table_single proc~sdr_load_geom_table_single->proc~sdr_load_spacer proc~sdr_load_geom_table sdr_load_geom_table proc~sdr_load_geom_table->proc~sdr_load_geom_table_single

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(tem_cylinder_type), private :: loc_cylinder
integer, private :: nrs