seatbelt_mod.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    seatbelt_mod            ../common_source/modules/seatbelt_mod.F
!||--- called by ------------------------------------------------------
!||    c_seatbelts             ../starter/source/restart/ddsplit/c_seatbelts.F
!||    create_seatbelt         ../starter/source/tools/seatbelts/create_seatbelt.F
!||    ddsplit                 ../starter/source/restart/ddsplit/ddsplit.F
!||    hist2                   ../engine/source/output/th/hist2.F
!||    hm_read_retractor       ../starter/source/tools/seatbelts/hm_read_retractor.F
!||    hm_read_slipring        ../starter/source/tools/seatbelts/hm_read_slipring.F
!||    ini_seatbelt            ../starter/source/tools/seatbelts/ini_seatbelt.F
!||    init_seatbelt_rbodies   ../starter/source/tools/seatbelts/init_seatbelt_rbodies.F90
!||    kine_seatbelt_force     ../engine/source/tools/seatbelts/kine_seatbelt_force.F
!||    kine_seatbelt_vel       ../engine/source/tools/seatbelts/kine_seatbelt_vel.F
!||    lectur                  ../engine/source/input/lectur.F
!||    material_flow           ../engine/source/tools/seatbelts/material_flow.f
!||    new_seatbelt            ../starter/source/tools/seatbelts/new_seatbelt.F
!||    r23l114def3             ../engine/source/elements/spring/r23l114def3.F
!||    rdresb                  ../engine/source/output/restart/rdresb.F
!||    resol                   ../engine/source/engine/resol.F
!||    restalloc               ../engine/source/output/restart/arralloc.F
!||    rgrhead                 ../starter/source/elements/spring/rgrhead.F
!||    rgrtails                ../starter/source/elements/spring/rgrtails.F
!||    rinit3                  ../starter/source/elements/spring/rinit3.F
!||    spmd_collect_seatbelt   ../engine/source/mpi/output/spmd_collect_seatbelt.F
!||    spmd_exch_a_seatbelt    ../engine/source/mpi/seatbelts/spmd_exch_a_seatbelt.F
!||    st_qaprint_seatbelts    ../starter/source/output/qaprint/st_qaprint_seatbelts.F
!||    update_slipring         ../engine/source/tools/seatbelts/update_slipring.F
!||    w_seatbelts             ../starter/source/restart/ddsplit/w_seatbelts.F
!||    wrrestp                 ../engine/source/output/restart/wrrestp.F
!||--- uses       -----------------------------------------------------
!||    table_mod               ../engine/share/modules/table_mod.F
!||====================================================================
      MODULE seatbelt_mod
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE table_mod
C-----------------------------------------------------------------------
#include "my_real.inc"
 
c=======================================================================
c define structure for slipring
c=======================================================================
c
        TYPE slipring_fram_struct
          INTEGER  update
          INTEGER  anchor_node
          INTEGER  node(3)
          INTEGER  orientation_node
          INTEGER  node_next(3)
          INTEGER  node2_prev
          INTEGER  strand_direction(2)
          INTEGER  locked
          INTEGER  n_remote_proc
          my_real  vector(6)
          my_real  orientation_angle
          my_real  material_flow
          my_real  material_flow_old
          my_real  dfs
          my_real  residual_length(2)
          my_real  current_length(2)
          my_real  ringslip
          my_real  beta
          my_real  gamma
          my_real  slip_force(3)
          my_real  prev_ref_length
          my_real  intvar_str1(8)
          my_real  intvar_str2(8)
        END TYPE slipring_fram_struct
C
        TYPE slipring_struct
          INTEGER  id
          INTEGER  idg
          INTEGER  nfram
          INTEGER  ifunc(4)
          INTEGER  sensid
          INTEGER  FL_FLAG
          INTEGER  rbody
          my_real  dc
          my_real  a
          my_real  fric
          my_real  fac_d(3)
          my_real  frics
          my_real  fac_s(3)
          TYPE(slipring_fram_struct),ALLOCATABLE,DIMENSION(:) :: fram
        END TYPE slipring_struct
C
        TYPE(slipring_struct),ALLOCATABLE,DIMENSION(:) :: slipring
 
c=======================================================================
c define structure for retractor
c=======================================================================
c
        TYPE retractor_struct
          INTEGER  id
          INTEGER  idg
          INTEGER  update
          INTEGER  anchor_node
          INTEGER  node(2)
          INTEGER  node_next(2)
          INTEGER  strand_direction
          INTEGER  ifunc(3)
          INTEGER  isens(2)
          INTEGER  tens_typ
          INTEGER  locked
          INTEGER  locked_freeze
          INTEGER  pretens_activ
          INTEGER  INACTI_NNOD
          INTEGER  inacti_nnod_max
          INTEGER, DIMENSION(:)   , ALLOCATABLE :: inacti_node
          INTEGER  s_table(2)
          TYPE(ttable), DIMENSION(2) :: table
          INTEGER  n_remote_proc
          my_real  vector(3)
          my_real  element_size
          my_real  force
          my_real  material_flow
          my_real  residual_length
          my_real  fac(4)
          my_real  pullout
          my_real  unlock_force
          my_real  lock_pull
          my_real  lock_offset
          my_real  lock_yield_force
          my_real  lock_pull_sav
          my_real  ringslip
          my_real  pretens_time
          my_real  pretens_pull
          my_real  pretens_pullmax
          my_real  ret_force
        END TYPE retractor_struct
 
        TYPE(retractor_struct),ALLOCATABLE,DIMENSION(:) :: retractor
 
c=======================================================================
c define structure for seatbelts (starter only)
c=======================================================================
c
        TYPE seatbelt_struct
          INTEGER  nfram
          INTEGER  nspring
          INTEGER  nshell
          INTEGER  nnod
          INTEGER, DIMENSION(:)   , ALLOCATABLE :: spring
          my_real  section
          my_real  elem_size
        END TYPE seatbelt_struct
 
        TYPE(seatbelt_struct),ALLOCATABLE,DIMENSION(:) :: seatbelt_tab
        INTEGER  n_comn_1d2d
        INTEGER, DIMENSION(:)   , ALLOCATABLE :: comn_1d2d
 
c=======================================================================
C define structure for remote anchor node
c=======================================================================
        TYPE seatbelt_remote_nodes_struct
          INTEGER, DIMENSION(:)   , ALLOCATABLE :: add_proc
          INTEGER, DIMENSION(:)   , ALLOCATABLE :: node
        END TYPE seatbelt_remote_nodes_struct
 
        TYPE(seatbelt_remote_nodes_struct) anchor_remote,anchor_remote_send
C
        INTEGER nseatbelt_th_proc
C
        TYPE seatbelt_th_exch_struct
          INTEGER id_proc
          INTEGER add_proc
          INTEGER nslipring
          INTEGER nretractor
        END TYPE seatbelt_th_exch_struct
C
        TYPE(seatbelt_th_exch_struct),ALLOCATABLE,DIMENSION(:) :: seatbelt_th_exch
C
        my_real  , DIMENSION(:,:), ALLOCATABLE:: th_slipring,th_retractor
C
c---------------
      END MODULE  seatbelt_mod