remesh_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/.
!||====================================================================
!||    remesh_mod     ../engine/share/modules/remesh_mod.F
!||--- called by ------------------------------------------------------
!||    admdiv         ../engine/source/model/remesh/admdiv.F
!||    admfor0        ../engine/source/model/remesh/admfor0.F
!||    admgvid        ../engine/source/model/remesh/admgvid.F
!||    admini         ../engine/source/model/remesh/admini.F
!||    admmap3        ../engine/source/model/remesh/admmap3.F
!||    admmap4        ../engine/source/model/remesh/admmap4.F
!||    admnorm3       ../engine/source/model/remesh/admnorm.F
!||    admnorm4       ../engine/source/model/remesh/admnorm.F
!||    admordr        ../engine/source/model/remesh/admordr.F
!||    admregul       ../engine/source/model/remesh/admregul.F
!||    admthke        ../engine/source/model/remesh/admthke.F
!||    admvit         ../engine/source/model/remesh/admvit.F
!||    cndint         ../engine/source/model/remesh/cndint.F
!||    cndordr        ../engine/source/model/remesh/cndordr.F
!||    resol          ../engine/source/engine/resol.F
!||    rm_imp0        ../engine/source/model/remesh/rm_imp0.F
!||    rm_imp2        ../engine/source/model/remesh/rm_imp0.F
!||    rmdim_imp      ../engine/source/model/remesh/rm_imp0.F
!||    rmind_imp      ../engine/source/model/remesh/rm_imp0.F
!||    sms_admesh_0   ../engine/source/ams/sms_admesh.F
!||    sms_admesh_1   ../engine/source/ams/sms_admesh.F
!||    sms_admesh_2   ../engine/source/ams/sms_admesh.F
!||    tagoff3n       ../engine/source/interfaces/interf/chkstfn3.F
!||====================================================================
      MODULE remesh_mod
C-----------------------------------------------
C   m y _ r e a l
C-----------------------------------------------
#include      "my_real.inc"
C-----------------------------------------------
      integer
     .       , DIMENSION(:), ALLOCATABLE :: msh4sky,msh3sky
C-----------------------------------------------
C     Liste des coques actives dans les parts 
C          ou l'on fait de l'adaptive meshing.
C-----------------------------------------------
      INTEGER, DIMENSION(:),ALLOCATABLE :: lsh4act,lsh4kin,
     .                                     psh4act,psh4kin,
     .                                     lsh3act,lsh3kin,
     .                                     psh3act,psh3kin
      INTEGER nsh4act,nsh4old,nsh3act,nsh3old
C-----------------------------------------------
C     Liste des coques aux niveaux superieurs dans les parts 
C          ou l'on fait de l'adaptive meshing.
C-----------------------------------------------
      INTEGER, DIMENSION(:),ALLOCATABLE :: lsh4upl,lsh3upl,
     .                                     psh4upl,psh3upl
C-----------------------------------------------
C     Work arrays
C-----------------------------------------------
      INTEGER, DIMENSION(:),ALLOCATABLE :: ilevnod
      INTEGER, DIMENSION(:),ALLOCATABLE :: tagnod
      my_real, 
     .         DIMENSION(:,:),ALLOCATABLE :: nodnorm
      my_real, 
     .         DIMENSION(:,:),ALLOCATABLE :: acnd,arcnd
      my_real, 
     .         DIMENSION(:),ALLOCATABLE :: stcnd,strcnd
C-----------------------------------------------
C     Liste des neouds kinematiques pour implicite 
C     ISH_NS(NSH_KIN),ISH_MS(2,NSH_KIN),IAD_NJ(NSH_KIN+1),JDI_NJ(IAD_NJ(NSH_KIN+1)-1)
C-----------------------------------------------
      INTEGER, DIMENSION(:),ALLOCATABLE :: ish_ns,
     .                                     iad_nj,jdi_nj
      INTEGER, DIMENSION(:,:),ALLOCATABLE :: ish_ms
      INTEGER nsh_kin
 
      END MODULE remesh_mod