surface_buffer.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/.
!||====================================================================
!||    surface_buffer                ../starter/source/model/sets/surface_buffer.F
!||--- called by ------------------------------------------------------
!||    create_surface_from_element   ../starter/source/model/sets/create_surface_from_element.F
!||--- calls      -----------------------------------------------------
!||    quad_surface_buffer           ../starter/source/model/sets/quad_surface_buffer.F
!||    shell_surface_buffer          ../starter/source/model/sets/shell_surface_buffer.F
!||    shell_surface_buffer_remesh   ../starter/source/model/sets/shell_surface_buffer_remesh.F
!||    solid_surface_buffer          ../starter/source/model/sets/solid_surface_buffer.F
!||--- uses       -----------------------------------------------------
!||====================================================================
      SUBROUTINE surface_buffer(
     .                          IXS       ,IXS10    ,IXC       ,SH4TREE   ,SH3TREE   ,
     .                          IXTG      ,KNOD2ELS ,NOD2ELS   ,KNOD2ELC  ,NOD2ELC   ,
     .                          KNOD2ELTG ,NOD2ELTG ,NSEG      ,IEXT      ,IPARTC    ,
     .                          IPARTS    ,IPARTG   ,CLAUSE    ,BUFTMPSURF,IAD_SURF  ,
     .                          OPT_O     ,IPART    ,KNOD2ELQ  ,NOD2ELQ   ,X         ,
     .                          IXQ       ,KEYSET)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE setdef_mod
      USE names_and_titles_mod , ONLY : ncharfield
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
#include      "remesh_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IXS(NIXS,*),KNOD2ELS(*),NOD2ELS(*),IXS10(6,*),
     .        KNOD2ELC(*),NOD2ELC(*),KNOD2ELTG(*),NOD2ELTG(*),
     .        IXC(NIXC,*),IXTG(NIXTG,*),IPARTC(*),IPARTG(*),
     .        BUFTMPSURF(*),IPARTS(*),SH4TREE(*),SH3TREE(*),
     .        IPART(LIPART1,*),KNOD2ELQ(*),NOD2ELQ(*),IXQ(NIXQ,*)
      INTEGER IEXT,NSEG,IAD_SURF,OPT_O
      CHARACTER(LEN=NCHARFIELD) :: KEYSET
      my_real X(3,*)
!
      TYPE (SET_) ::  CLAUSE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C=======================================================================
!------------------
!             counting / buffering CLAUSE surface segments from elems ( EXT / ALL )
!---
!
!     ---  solid ---
      IF ( clause%NB_SOLID > 0 ) CALL solid_surface_buffer(
     .                            ixs      ,ixs10    ,ixc      ,ixtg      ,clause   ,
     .                            knod2els ,nod2els  ,knod2elc ,nod2elc   ,knod2eltg,
     .                            nod2eltg ,nseg     ,iext     ,buftmpsurf,iparts   ,
     .                            iad_surf ,keyset)
!
!     ---  shell + sh3n ---
!
      IF (nadmesh == 0) THEN
        IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer(
     .                             ixc     ,nixc      ,2         ,5         ,3     ,
     .                             nseg    ,iad_surf  ,opt_o     ,buftmpsurf,clause)
        IF ( clause%NB_SH3N > 0 .AND. numeltria == 0) 
     .                            CALL shell_surface_buffer(
     .                             ixtg     ,nixtg     ,2        ,4         ,7     ,
     .                             nseg     ,iad_surf  ,opt_o    ,buftmpsurf,clause)
      ELSE
        IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer_remesh(
     .                             ixc     ,nixc      ,2   ,5      ,3     ,
     .                             nseg    ,iad_surf  ,buftmpsurf,clause    ,ipartc ,
     .                             ipart   ,ksh4tree  ,sh4tree   )
        IF ( clause%NB_SH3N > 0 .AND. numeltria == 0) 
     .                            CALL shell_surface_buffer_remesh(
     .                             ixtg     ,nixtg     ,2         ,4         ,7     ,
     .                             nseg     ,iad_surf  ,buftmpsurf,clause    ,ipartg,
     .                             ipart    ,ksh3tree  ,sh3tree   )
      ENDIF ! IF (NADMESH == 0)
!
!     ---  quad --- external surface only ( EXT )
!
      IF ( clause%NB_QUAD > 0 ) CALL quad_surface_buffer(
     .                           ixq     ,iad_surf ,buftmpsurf ,nseg  ,knod2elq ,
     .                           nod2elq ,iext     ,x          ,clause)
!---
      RETURN
      END