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 tableau de pointeurs NSVFI de taille NINTER
C indiquant liste noeuds remote a recevoir du "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 tableau de pointeurs NSNFI de taille NINTER
C indiquant pour chaque interface type7 le nb de noeuds secnd dans NSVFI
C par processeur
      TYPE(int_pointer) :: 
     .  nsnfi, nsnfi_sav, itafi, kinfi, matsfi,
C tableau i20 specifique (flag nodal)
     .  nbinflfi,
     .  nodnxfi, nodamsfi, procamsfi,
C tableau i20 partie edge
     .  nsnfie,nsvfie,itafie,nodnxfie, nodamsfie, procamsfie,
C Friction model : secnd parts id
     .  ipartfricsfi,ipartfric_fie,
C type25 interface adhesion
     .  if_adhfi
C tableaux frontieres interfaces pour 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 tableau i20 partie edge
     .  msfie, STIFIE, stnfie, gapfie, vscfie, alphakfie,
     .  diag_smsfie,
C tableau I18 Kine
     .  mtfi_pene,mtfi_penemin
C tableaux frontieres interfaces pour X, V A ou FSKY
      TYPE(real_pointer2) :: 
     .  xfi, vfi, AFI, fskyfi, penfi, PENFIA,mtfi_v,mtfi_a,
     .  i18kafi,mtfi_n,daancfi
C tableau i20 partie edge
     .  xfie, vfie, afie, fskyfie, penfie, penfiae, daancfie
C tableaux frontieres interfaces 17 pour
      TYPE(real_pointer2) :: 
     .  eminxfi, ksfi, frotsfi, stnfi17
C tableaux frontieres interfaces 17 pour XFI17, VFI17, AFI17
      TYPE(real_pointer3) :: 
     .  xfi17, vfi17, afi17
C tableaux frontieres interfaces 20 pour DXANC,DVANC
      TYPE(real_pointer2) :: 
     .  dxancfi, dvancfi, dxancfie, dvancfie
C tableaux frontieres interfaces 20 pour DAANC6
      TYPE(r8_pointer3) :: 
     .  daanc6fi, daanc6fie
C tableau de pointeurs ISKYFI de taille NINTER indiquant pour chaque interface
C la liste des noeuds remote associe a une force dans FSKYI
      TYPE(int_pointer) :: iskyfi,
C tableau i20 partie edge
     .  iskyfie
C tableau de pointeurs NSVSI de taille NINTER
C indiquant liste noeuds remote a envoyer au "proc secnd"
      TYPE(int_pointer) :: nsvsi,
C tableau i20 partie edge
     .  nsvsie
C tableau de pointeurs NSNSI de taille NINTER
C indiquant pour chaque interface type7, 10, 11 le nb de noeuds secnd dans NSVSI
C par processeur
      TYPE(int_pointer) :: nsnsi,
C tableau i20 partie edge
     .  nsnsie
C tableau de pointeurs NISUBSFI de taille NINTER
C indiquant pour chaque interface type7, 10 le nbre d elt dans LISUBSFI
C par processeur
      TYPE(int_pointer) :: nisubsfi
C tableau de pointeurs LISUBSFI de taille NINTER
C indiquant pour chaque interface type7, 10, et pour chaque noeud remote de cette interface
C la liste des sous interfaces
      TYPE(int_pointer) :: lisubsfi
C tableau de pointeurs INFLG_SUBSFI de taille NINTER
C indiquant pour chaque interface type25 et pour chaque noeud remote de cette interface
C l appartenance a S1, S2, ou GRNOD
      TYPE(int_pointer), DIMENSION(:), ALLOCATABLE :: inflg_subsfi
C tableau de pointeurs ADDSUBSFI de taille NINTER
C indiquant pour chaque interface type7, 10, et pour chaque noeud remote de cette interface
C son adresse de depart dans LISUBSFI et INFLG_SUBSFI(tableau dimensionne a NSNR+1 (noeud remote + 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