append_spacerInterwoven Subroutine

  1. sdr_spacer_module.f90
  2. sdr_spacer_module
  3. append_spacerInterwoven

private subroutine append_spacerInterwoven(sprInterwovenArray, spaObjArray, attr_pos, filament_cur, filament_adj, shiftSin, h_normal)

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_spacerinterwovenarray_type), intent(inout) :: sprInterwovenArray

growing array of spacers
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
integer, intent(in) :: shiftSin
real(kind=rk), intent(in) :: h_normal(3)

Calls

proc~~append_spacerinterwoven~~CallsGraph proc~append_spacerinterwoven append_spacerInterwoven interface~append~3 append proc~append_spacerinterwoven->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 proc~expand_ga_spatialobj expand_ga_spatialobj interface~expand~3->proc~expand_ga_spatialobj

Called by

proc~~append_spacerinterwoven~~CalledByGraph proc~append_spacerinterwoven append_spacerInterwoven proc~sdr_load_spacer_single sdr_load_spacer_single proc~sdr_load_spacer_single->proc~append_spacerinterwoven 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
integer, private :: nrs
type(sdr_spacerInterwoven_type), private :: loc_spacerInterwoven
type(sdr_spatialObj_type), private :: spatialObj