bulkfakeigeo3.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/.
!||====================================================================
!||    bulkfakeigeo3   ../starter/source/elements/ige3d/bulkfakeigeo3.F
!||--- called by ------------------------------------------------------
!||    lectur          ../starter/source/starter/lectur.F
!||--- uses       -----------------------------------------------------
!||====================================================================
      SUBROUTINE bulkfakeigeo3(ELBUF_TAB,IPARG,PM,KXIG3D,IGRSURF,STIFINT)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod
      USE groupdef_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARG(NPARG,NGROUP),
     .        KXIG3D(NIXIG3D,*)
C     REAL
      my_real
     .   pm(npropm,*),stifint(*)
      TYPE(elbuf_struct_), TARGET, DIMENSION(NGROUP) :: ELBUF_TAB
      TYPE (SURF_)   , DIMENSION(NSURF)   :: IGRSURF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: J, K, N, NG, IEL, ITEL, NUMFAKECP, ITSURF
      my_real :: av1,cv1, vol(numelig3d), vnige(numfakenodigeo), bnige(numfakenodigeo)
      TYPE(g_bufel_) ,POINTER :: GBUF 
C-----------------------------------------------------------------------
C 
C     isogeometric elements :
c
      DO ng=1,ngroup
       IF (iparg(5,ng) == 101) THEN
        DO itel=1,iparg(2,ng)
          gbuf => elbuf_tab(ng)%GBUF
          vol(itel+iparg(3,ng)) = gbuf%VOL(itel)
        ENDDO
       ENDIF
      ENDDO
 
      vnige = 0
      bnige = 0
c
      DO itsurf=1,nsurf
        IF(igrsurf(itsurf)%NSEG_IGE>0) THEN !we are on an isogeometric surface
          DO j=1,igrsurf(itsurf)%NSEG_IGE
            iel=igrsurf(itsurf)%ELEM_IGE(j)
            av1 = vol(iel)/56
            cv1 = pm(32,kxig3d(1,iel))*av1
            DO k=1,4
              numfakecp=igrsurf(itsurf)%NODES_IGE(j,k) 
              vnige(numfakecp-numnod)=vnige(numfakecp-numnod)+av1
              bnige(numfakecp-numnod)=bnige(numfakecp-numnod)+cv1
            ENDDO
          ENDDO
        ENDIF
      ENDDO
c
      DO n=1,numfakenodigeo
        bnige(n)=bnige(n)/max(em30,vnige(n))
        stifint(numnod+n)=stifint(numnod+n)+bnige(n)*(2.*vnige(n))**third
      ENDDO
 
Cnote: the volume can be distributed differently depending on whether the points are at the corners, in the middle
Cor on an edge, with px, py, pz you can find the place of each one
CThis is for 20-node elements, there are 3/192 * volume at corners and 14/192 * volume at the mid-nodes
C
Cnote: it seems that numfakenodigeo is too large here and so the arrays are too large and end with 0
 
      RETURN
      END