tri25tmp_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/.
!||====================================================================
!||    tri25tmp             ../engine/share/modules/tri25tmp_mod.F
!||--- called by ------------------------------------------------------
!||    check_fi             ../engine/source/mpi/interfaces/spmd_i25slide.F
!||    deallocate_fi1_tmp   ../engine/source/mpi/interfaces/spmd_i25slide.F
!||    reallocate_fi1       ../engine/source/mpi/interfaces/spmd_i25slide.F
!||    spmd_i25_slide_gat   ../engine/source/mpi/interfaces/spmd_i25slide.F
!||--- uses       -----------------------------------------------------
!||    pointerdef           ../engine/share/modules/pointerdef_mod.F
!||====================================================================
      MODULE tri25tmp
#include "my_real.inc"
      USE pointerdef
c     USE TRI7BOX
c     TYPE int_pointer
c       INTEGER, DIMENSION(:), POINTER :: P
c     END TYPE int_pointer
c     TYPE int_pointer2
c       INTEGER, DIMENSION(:,:), POINTER :: P
c     END TYPE int_pointer2
c     TYPE real_pointer
c       my_real, DIMENSION(:), POINTER :: P
c     END TYPE real_pointer
c     TYPE real_pointer2
c       my_real, DIMENSION(:,:), POINTER :: P
c     END TYPE real_pointer2
c     TYPE real_pointer3
c       my_real, DIMENSION(:,:,:), POINTER :: P
c     END TYPE real_pointer3
c     TYPE r8_pointer
c       DOUBLE PRECISION, DIMENSION(:), POINTER :: P
c     END TYPE r8_pointer
c     TYPE r8_pointer3
c       DOUBLE PRECISION, DIMENSION(:,:,:), POINTER :: P
c     END TYPE r8_pointer3
 
      TYPE i25_tmp_struct
C On utlise PANE_OLD
 
      INTEGER i24xremp,igapxremp,i24iremp,i24irempnsne
       
      INTEGER :: current_nodfi
      INTEGER :: current_fi_size
 
C buffer envoi/reception forces interfaces
C pointer array NSVFI of size NINTER
C indicating nodes list Remote to receive "proc main"
      TYPE(int_pointer) :: nsvfi
 
C Proc main of the secnd node. Assumes that only the main processor sends
C secnds nodes
      TYPE(int_pointer) pmainfi
 
C pointer array NSNFI of size NINTER
C indicating for each interface type7 the number of secondary nodes in NSVFI
C per processor
      TYPE(int_pointer) :: 
     .  nsnfi, nsnfi_sav, itafi, kinfi, matsfi,
C tableau i20 specifique (flag nodal)
     .  nbinflfi,
     .  NODNXFI, nodamsfi, procamsfi,
C Table I20 Part Edge
     .  nsnfie,nsvfie,itafie,nodnxfie, nodamsfie, procamsfie,
C Friction model : secnd parts id
     .  ipartfricsfi,ipartfric_fie,
C type25 interface adhesion
     .  if_adhfi
C arrays front interfaces for MS, STFN, STIFN
      TYPE(int_pointer) :: icodt_fi,iskew_fi
      TYPE(real_pointer) :: 
     .  msfi, stifi, stnfi, gapfi,vscfi, fthefi, ftheskyfi,
     .  areasfi, tempfi, alphakfi, diag_smsfi,gap_lfi,condnfi,
     .  condnskyfi,
C Table I20 Part Edge
     .  MSFIE, stifie, stnfie, gapfie, vscfie, alphakfie,
     .  diag_smsfie,
C tableau I18 Kine
     .  mtfi_pene,MTFI_PENEMIN
C interface boundary arrays for X, V A or FSKY
      TYPE(real_pointer2) :: 
     .  xfi, vfi, afi, fskyfi, penfi, penfia,mtfi_v,mtfi_a,
     .  i18kafi,mtfi_n,daancfi
C Table I20 Part Edge
     .  xfie, vfie, afie, FSKYFIE, penfie, penfiae, daancfie
C Tables front interfaces 17 for
      TYPE(real_pointer2) :: 
     .  eminxfi, ksfi, frotsfi, stnfi17
C Tables Frontieres Interfaces 17 for XFI17, VFI17, AFI17
      TYPE(real_pointer3) :: 
     .  xfi17, vfi17, afi17
C Tables boundary interfaces 20 for DXANC, DVANC
      TYPE(real_pointer2) :: 
     .  dxancfi, dvancfi, dxancfie, dvancfie
C Boundary Tables Interfaces 20 for DAANC6
      TYPE(r8_pointer3) :: 
     .  daanc6fi, daanc6fie
C pointer array ISKYFI of size NINTER indicating for each interface
C the list of remote nodes associated with a force in FSKYI
      TYPE(int_pointer) :: iskyfi,
C Table I20 Part Edge
     .  iskyfie
C pointer array NSVSI of size NINTER
C Saying the noded list Remote to send to the "Prof Second"
      TYPE(int_pointer) :: nsvsi,
C Table I20 Part Edge
     .  nsvsie
C pointer array NSNSI of size NINTER
C indicating for each interface type7, 10, 11 the number of secondary nodes in NSVSI
C per processor
      TYPE(int_pointer) :: nsnsi,
C Table I20 Part Edge
     .  nsnsie
C pointer array NISUBSFI of size NINTER
C indicating for each interface type7, 10 the number of elements in LISUBSFI
C per processor
      TYPE(int_pointer) :: nisubsfi
C pointer array LISUBSFI of size NINTER
C indicating for each interface type7, 10, and for each remote node of this interface
C the list of sub-interfaces
      TYPE(int_pointer) :: lisubsfi
C pointer array INFLG_SUBSFI of size NINTER
C indicating for each interface type25 and for each remote node of this interface
C belonging to S1, S2, or Grnod
      TYPE(int_pointer), DIMENSION(:), ALLOCATABLE :: inflg_subsfi
C pointer array ADDSUBSFI of size NINTER
C indicating for each interface type7, 10, and for each remote node of this interface
C Its departure address in lisubsfi and inflg_subsfi (Table dimensioning a nsnr + 1 (Remote node + 1)
      TYPE(int_pointer) :: addsubsfi
      TYPE(real_pointer2) :: fnconti, ftconti
      TYPE(real_pointer) :: efricfi, efricgfi
      INTEGER  :: nlskyfi, nlskyfie
C Flag array to tag if NSNFI was frozen into NSNFI_SAV - Case INACTI + TSTART
      INTEGER  :: nsnfi_flag
C Type 24 & 25 Interface
      TYPE(int_pointer) :: icont_i_fi
      TYPE(int_pointer2)  :: irtlm_fi
C T24 E2E
      TYPE(int_pointer2)  :: irtse_fi
      TYPE(int_pointer2)  :: is2se_fi
      TYPE(int_pointer)   :: is2pt_fi
      TYPE(int_pointer)   :: isegpt_fi
      TYPE(int_pointer)   :: isedge_fi
 
      TYPE(real_pointer) :: time_sfi
      TYPE(real_pointer2) :: secnd_frfi
      TYPE(real_pointer2) :: pene_oldfi
      TYPE(real_pointer2) :: stif_oldfi
C Type 25 Interface
      TYPE(int_pointer2)  :: islide_fi
C Type 25 Interface FLAGREMN
      TYPE(int_pointer)  :: remnor_fi
      TYPE(int_pointer)  :: kremnor_fi
      TYPE(real_pointer)  :: stif_msdt_fi
      TYPE(real_pointer)  :: intareanfi
 
      END TYPE i25_tmp_struct
 
      END MODULE tri25tmp