imp_intm.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/.
!||====================================================================
!||    imp_intm        ../engine/share/modules/imp_intm.F
!||--- called by ------------------------------------------------------
!||    ass_spmd        ../engine/source/implicit/assem_int.F
!||    ass_spmd11      ../engine/source/implicit/assem_int.F
!||    assem_ksl       ../engine/source/mpi/implicit/imp_fri.F
!||    cp_iadd         ../engine/source/mpi/implicit/imp_fri.F
!||    cp_slnr         ../engine/source/mpi/implicit/imp_fri.f
!||    diag_int        ../engine/source/mpi/implicit/imp_fri.F
!||    dim_frkm        ../engine/source/mpi/implicit/imp_fri.F
!||    dim_frkm1       ../engine/source/mpi/implicit/imp_fri.F
!||    doub_nrs        ../engine/source/mpi/implicit/imp_fri.F
!||    ffizero         ../engine/source/interfaces/int07/i7ke3.F
!||    fr_a2b          ../engine/source/mpi/implicit/imp_fri.F
!||    fr_a2bd         ../engine/source/mpi/implicit/imp_fri.F
!||    fr_u2d          ../engine/source/mpi/implicit/imp_fri.F
!||    fr_u2dd         ../engine/source/mpi/implicit/imp_fri.F
!||    i10corp3        ../engine/source/interfaces/int10/i10corp3.F
!||    i10frf3         ../engine/source/interfaces/int10/i10keg3.F
!||    i10keg3         ../engine/source/interfaces/int10/i10keg3.F
!||    i10kfor3        ../engine/source/interfaces/int10/i10keg3.F
!||    i11corkp3       ../engine/source/interfaces/int11/i11corp3.F
!||    i11corp3        ../engine/source/interfaces/int11/i11corp3.f
!||    i11frf3         ../engine/source/interfaces/int11/i11keg3.F
!||    i11keg3         ../engine/source/interfaces/int11/i11keg3.F
!||    i11kfor3        ../engine/source/interfaces/int11/i11keg3.F
!||    i24corp3        ../engine/source/interfaces/int24/i24cork3.F
!||    i24keg3         ../engine/source/interfaces/int24/i24ke3.F
!||    i7corkp3        ../engine/source/interfaces/int07/i7cork3.F
!||    i7corp3         ../engine/source/interfaces/int07/i7cork3.F
!||    i7frf3          ../engine/source/interfaces/int07/i7keg3.F
!||    i7keg3          ../engine/source/interfaces/int07/i7keg3.F
!||    i7kfor3         ../engine/source/interfaces/int07/i7keg3.F
!||    iddl_int        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_diags       ../engine/source/mpi/implicit/imp_fri.F
!||    imp_diagsn      ../engine/source/mpi/implicit/imp_fri.F
!||    imp_fr7i        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_frii        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_frkm        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_frks        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_frsl        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_frsn        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_fvkm        ../engine/source/mpi/implicit/imp_fri.F
!||    imp_fvksl       ../engine/source/mpi/implicit/imp_fri.F
!||    imp_fvkss       ../engine/source/mpi/implicit/imp_fri.F
!||    imp_init        ../engine/source/implicit/imp_init.F
!||    imp_mumps1      ../engine/source/implicit/imp_mumps.F
!||    imp_pcgh        ../engine/source/implicit/imp_pcg.F
!||    ind_fvn         ../engine/source/mpi/implicit/imp_fri.F
!||    ind_kinefr      ../engine/source/mpi/implicit/imp_fri.F
!||    ind_kinfrk      ../engine/source/mpi/implicit/imp_fri.F
!||    ind_sld         ../engine/source/mpi/implicit/imp_fri.F
!||    ini_dd0         ../engine/source/mpi/implicit/imp_fri.F
!||    ini_ddfv        ../engine/source/mpi/implicit/imp_fri.F
!||    ini_frfd        ../engine/source/mpi/implicit/imp_fri.F
!||    ini_frkc        ../engine/source/mpi/implicit/imp_fri.F
!||    ini_frud        ../engine/source/mpi/implicit/imp_fri.F
!||    ini_intm        ../engine/source/mpi/implicit/imp_fri.F
!||    ini_kic         ../engine/source/implicit/imp_solv.F
!||    ini_ksi         ../engine/source/mpi/implicit/imp_fri.F
!||    ini_slnr        ../engine/source/mpi/implicit/imp_fri.F
!||    int_matvp       ../engine/source/implicit/imp_int_k.F
!||    jdifrtok        ../engine/source/mpi/implicit/imp_fri.F
!||    mav_ltfr        ../engine/source/mpi/implicit/imp_fri.F
!||    mav_ltfr_gpu    ../engine/source/mpi/implicit/imp_fri.F
!||    mumps_set       ../engine/source/implicit/imp_mumps.F
!||    mumps_set2      ../engine/source/implicit/imp_mumps.F
!||    ndofi_nsl       ../engine/source/mpi/implicit/imp_fri.F
!||    pr_deb          ../engine/source/implicit/imp_solv.F
!||    pr_solnfo       ../engine/source/implicit/imp_solv.F
!||    rowfr_dim       ../engine/source/mpi/implicit/imp_fri.F
!||    rowfr_dim11     ../engine/source/mpi/implicit/imp_fri.F
!||    rowfr_dim24     ../engine/source/mpi/implicit/imp_fri.F
!||    rowfr_ind       ../engine/source/mpi/implicit/imp_fri.F
!||    rowfr_ind11     ../engine/source/mpi/implicit/imp_fri.F
!||    rowfr_ind24     ../engine/source/mpi/implicit/imp_fri.f
!||    scom_frk        ../engine/source/mpi/implicit/imp_fri.F
!||    scom_frk1       ../engine/source/mpi/implicit/imp_fri.F
!||    scom_frud       ../engine/source/mpi/implicit/imp_fri.F
!||    set_ind_fr      ../engine/source/mpi/implicit/imp_fri.F
!||    spmd_ifc1       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifcd       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifcf       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifrf       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifrf_gpu   ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifri       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifru       ../engine/source/mpi/implicit/imp_spmd.F
!||    spmd_ifru_gpu   ../engine/source/mpi/implicit/imp_spmd.F
!||    tag_intml       ../engine/source/mpi/implicit/imp_fri.F
!||    tag_ints        ../engine/source/mpi/implicit/imp_fri.F
!||    tra_frkm        ../engine/source/mpi/implicit/imp_fri.F
!||    upd_fr          ../engine/source/mpi/implicit/imp_fri.F
!||    upd_kml         ../engine/source/mpi/implicit/imp_fri.F
!||    upd_ksl         ../engine/source/mpi/implicit/imp_fri.F
!||====================================================================
      MODULE imp_intm
#include "my_real.inc"
      TYPE int_pointer2
        INTEGER, DIMENSION(:), POINTER :: p
      END TYPE int_pointer2
cow51d1      TYPE int_pointer
cow51d1        INTEGER, DIMENSION(:), POINTER :: P
cow51d1      END TYPE int_pointer
C
      INTEGER ni2_fr,nrb_fr,ni2_frs,nrb_frs,nml,nbc_fr,nfx_fr,
     .        nrbe3_fr,nrbe3_frs,nspc_fr,nrbe2_fr,nrbe2_frs
C integer array of size NSREM: remote secondary nodes in ascending processor order
C indicating nodes list Remote to receive "proc main"
      INTEGER, DIMENSION(:), ALLOCATABLE :: fr_srem
C pointer array IND_INT of size NINTER: interface structure index to FR_SREM
      TYPE(int_pointer2), DIMENSION(:), ALLOCATABLE :: ind_int
C  51d1      TYPE(int_pointer), DIMENSION(:), ALLOCATABLE :: IND_INT
C integer array SHF_INT of size NINTER: number of SREM from previous interfaces
      INTEGER, DIMENSION(:), ALLOCATABLE :: shf_int
C NSL size int table: local send nodes (after UPD)
      INTEGER, DIMENSION(:), ALLOCATABLE :: isl
C = ISL except put to zero double nodes
      INTEGER, DIMENSION(:), ALLOCATABLE :: islm
C NML size int: local mains -in -nodes (after UPD)
      INTEGER, DIMENSION(:), ALLOCATABLE :: iml
C Table of size int (NBINTC, NSPMD): NB Local send nodes (tempo)
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: inbsl
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_srem,iad_sl
      my_real, DIMENSION(:),ALLOCATABLE :: stifs
C miscellaneous real array of size (,NSREM),H_E(4,): shape function,
C--- N_E (3,): Direction of Impact, DFI (3,): Displacement, FFI (3,) forces.
      my_real, DIMENSION(:,:),ALLOCATABLE :: h_e,n_e,dfi,ffi
C K_DIAG real array of size (3,NSL)
      my_real, DIMENSION(:,:),ALLOCATABLE :: diag_s
C integer array of size NI2_FR,NRB_FR: front nodes with kinematic------
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: ifrsr,ifrs2,ifrs4
      INTEGER, DIMENSION(:), ALLOCATABLE :: ifrs3
C Table of int IDDL of size 3*(nsl, nml) 6*(nrb_fr, 4*ni2_fr)
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: iddsl,iddml,iddmr
      INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: iddmi2,iddmi3
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: IDDMR2
C integer array of size NI2_FRS,NRB_FRS: the part of NSL------
      INTEGER, DIMENSION(:), ALLOCATABLE :: ifrsr_s,ifrs2_s,ifrs3_s
      INTEGER, DIMENSION(:), ALLOCATABLE :: ifrs4_s
C K_DIAG real array of size (6,IFRSRS)
      my_real, DIMENSION(:,:),ALLOCATABLE :: diag_mr,diag_mr2
C K_DIAG real array of size (6,4,NI2_FRS)
      my_real, DIMENSION(:,:,:),ALLOCATABLE :: diag_m2,diag_m3
C de taille (3,NBC_FR),(2,NFX_FR):imposed velocity
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: ibc_fr,ifx_fr
      INTEGER, DIMENSION(:), ALLOCATABLE :: ispc_fr
C integer of size (NRW_FR)
      INTEGER nrw_fr
      INTEGER, DIMENSION(:), ALLOCATABLE :: irw_fr
C When IntP_D> 0 The Rigidite matrix M.C.R.S .-----
      INTEGER intp_d,nddl_si,nddl_sl,nz_si,nz_sl
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_si,jdi_si,ikc_si
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_ss,jdi_sl,ikc_sl
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_sinr,jdi_sinr
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_slnr,jdi_slnr
      INTEGER, DIMENSION(:), ALLOCATABLE :: iddl_si,iddl_sl
      my_real, DIMENSION(:), ALLOCATABLE :: diag_sl,lt_si,lt_sl
      my_real, DIMENSION(:), ALLOCATABLE :: usi,fsi
      my_real, DIMENSION(:), ALLOCATABLE :: frcdi,mrcdi
C      
      END MODULE imp_intm
C
!||====================================================================
!||    imp_i7cp     ../engine/share/modules/imp_intm.F
!||--- called by ------------------------------------------------------
!||    cp_ifront    ../engine/source/implicit/produt_v.F
!||    cp_impbuf    ../engine/source/implicit/produt_v.F
!||    imp_stif24   ../engine/source/implicit/imp_solv.F
!||====================================================================
      MODULE imp_i7cp
      INTEGER lii7cp,lri7cp,lenscp(20)
#include "my_real.inc"
      INTEGER, DIMENSION(:), ALLOCATABLE :: ii7cp,newfrcp
      INTEGER, DIMENSION(:), ALLOCATABLE :: iad_stifold
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: iparicp
      my_real, DIMENSION(:), ALLOCATABLE :: ri7cp
C      
      END MODULE imp_i7cp
C