sphbox.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/.
!||====================================================================
!||    sphbox                ../engine/share/modules/sphbox.F
!||--- called by ------------------------------------------------------
!||    forintp               ../engine/source/elements/forintp.F
!||    restmod               ../engine/share/modules/restart_mod.F
!||    soltosph_on1          ../engine/source/elements/sph/soltosph_on1.F
!||    soltosph_on12         ../engine/source/elements/sph/soltosph_on1.F
!||    soltosph_on2          ../engine/source/elements/sph/soltosph_on2.F
!||    spadasm               ../engine/source/elements/sph/spadasm.F
!||    spadasm0              ../engine/source/elements/sph/spadasm.F
!||    spbuc3                ../engine/source/elements/sph/spbuc3.F
!||    spclasv               ../engine/source/elements/sph/spclasv.F
!||    spcompl               ../engine/source/elements/sph/spcompl.f
!||    spdens                ../engine/source/elements/sph/spdens.F
!||    spforcp               ../engine/source/elements/sph/spforcp.F
!||    spgauge               ../engine/source/elements/sph/spgauge.f
!||    spgradt               ../engine/source/elements/sph/sptemp.F
!||    spgtsym               ../engine/source/elements/sph/sptemp.F
!||    sphtri                ../engine/source/elements/sph/sphtri.F
!||    splaplt               ../engine/source/elements/sph/sptemp.F
!||    splissv               ../engine/source/elements/sph/splissv.F
!||    spmd_inisph           ../engine/source/mpi/sph/spmd_sptool.F
!||    spmd_savesph          ../engine/source/mpi/sph/spmd_sptool.F
!||    spmd_spamaj           ../engine/source/mpi/sph/spmd_spamaj.F
!||    spmd_sphgat           ../engine/source/mpi/sph/spmd_sphgat.f
!||    spmd_sphgeta          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetd          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetdk         ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetf          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetg          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgeth          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetimp        ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetisph       ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetstb        ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgett          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetv          ../engine/source/mpi/sph/spmd_sphgetv.F
!||    spmd_sphgetvois_off   ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetw          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetwa         ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphgetx          ../engine/source/mpi/elements/spmd_sph.F
!||    spmd_sphvox           ../engine/source/mpi/sph/spmd_sphvox.F
!||    sponfprs              ../engine/source/elements/sph/sponfprs.F
!||    sponfro               ../engine/source/elements/sph/sponfro.F
!||    sponfv                ../engine/source/elements/sph/sponfv.F
!||    sponof2               ../engine/source/elements/sph/sponof2.F
!||    sppro3                ../engine/source/elements/sph/sppro3.F
!||    spscomp               ../engine/source/elements/sph/spcompl.F
!||    spsgsym               ../engine/source/elements/sph/spsgsym.F
!||    spstabs               ../engine/source/elements/sph/spstab.F
!||    spstabw               ../engine/source/elements/sph/spstab.F
!||    spsym_alloc           ../engine/source/elements/sph/spsym_alloc.F
!||    spsymp                ../engine/source/elements/sph/spsym.f
!||    sptrivox              ../engine/source/elements/sph/sptrivox.F
!||====================================================================
      MODULE sphbox
#include "my_real.inc"
      TYPE real_pointer5
        my_real, DIMENSION(:), POINTER :: p
      END TYPE real_pointer5
C Number of total remote particles to receive and send
      INTEGER nsphr, nsphs
C dimension of storage vector for sorting, computation and wacomp
      INTEGER, PARAMETER :: sizspt = 6, sizspc = 14, sizspw = 16
C Active particle flags side and sent
      INTEGER, DIMENSION(:), ALLOCATABLE :: isphr, isphs
C number of cells to receive/send per processor
      INTEGER, DIMENSION(:), ALLOCATABLE :: psphr, psphs
C List sorted by local cell processor to send to other processors
      INTEGER, DIMENSION(:), ALLOCATABLE :: lsphs
C symmetric particles array by symmetry plane
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: ispsymr
C Cell Remote Table for SPH
      my_real       ,DIMENSION(:,:), ALLOCATABLE :: xsphr
C DVOIS(KVOISPH) of remote particles, in case they have undergone
C a reduction
      my_real       ,DIMENSION(:), ALLOCATABLE :: dkr, dks 
C XSPHR(1) :  no local N sur proc remote
C XSPHR(2) :  h
C XSPHR(3) :  X(1)
C XSPHR(4) :  X(2)
C XSPHR(5) :  X(3)
C XSPHR(6) :  ID particule
C XSPHR(7) :  RHO
C XSPHR(8) :  Mass of the particle (rho*vol)
C XSPHR(9) :  V(1)
C XSPHR(10) : V(2)
C XSPHR(11) : V(3)
C XSPHR(12) : KXSP(2,N)/(NGROUP+1)
C XSPHR(13) : KXSP(2,N)
C XSPHR(14) : IPARTSP(N)
C Additional Cell Remote table for SPH
      my_real       ,DIMENSION(:,:), ALLOCATABLE :: wacompr
C Additional Cell Remote table for SPH (DSPHR)
c used for remote IPPV processing in sponfv
c      my_real       ,DIMENSION(:,:), ALLOCATABLE :: DSPHR
c DSPHR(1) : DXX
c DSPHR(2) : DXY
c DSPHR(3) : DXZ
c DSPHR(4) : DYX
c DSPHR(5) : DYY
c DSPHR(6) : DYZ
c DSPHR(7) : DZX
c DSPHR(8) : DZY
c DSPHR(9) : DZZ
c DSPHR(10) : VX
c DSPHR(11) : VY
c DSPHR(12) : VZ
C dim1 WACOMPR = dim1 WACOMP = SIZSPW
 
      TYPE spsym_struct
        my_real, DIMENSION(:)  , ALLOCATABLE :: buf 
      END TYPE spsym_struct
 
      END MODULE sphbox