h3d_solid_scalar.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/.
!||====================================================================
!||    h3d_solid_scalar             ../engine/source/output/h3d/h3d_results/h3d_solid_scalar.F
!||--- called by ------------------------------------------------------
!||    genh3d                       ../engine/source/output/h3d/h3d_results/genh3d.F
!||--- calls      -----------------------------------------------------
!||    h3d_solid_scalar_1           ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
!||    schlieren_buffer_gathering   ../engine/source/output/anim/generate/schlieren_buffer_gathering.F
!||--- uses       -----------------------------------------------------
!||    ale_connectivity_mod         ../common_source/modules/ale/ale_connectivity_mod.F
!||    aleanim_mod                  ../engine/share/modules/aleanim_mod.F
!||    elbufdef_mod                 ../common_source/modules/mat_elem/elbufdef_mod.F90
!||    h3d_mod                      ../engine/share/modules/h3d_mod.F
!||    initbuf_mod                  ../engine/share/resol/initbuf.F
!||    matparam_def_mod             ../common_source/modules/mat_elem/matparam_def_mod.F90
!||    multi_fvm_mod                ../common_source/modules/ale/multi_fvm_mod.F90
!||    names_and_titles_mod         ../common_source/modules/names_and_titles_mod.F
!||    schlieren_mod                ../engine/share/modules/schlieren_mod.F
!||====================================================================
      SUBROUTINE h3d_solid_scalar(
     .                  ELBUF_TAB       ,SOLID_SCALAR ,IPARG       ,
     .                  IXS             ,PM          ,BUFMAT      ,
     .                  EHOUR        ,
     .                  IPM             ,
     .                  X            ,V         ,W           ,ALE_CONNECT,
     .                  NERCVOIS,NESDVOIS, LERCVOIS,LESDVOIS,
     .                  ID_ELEM      ,ITY_ELEM  ,IPARTS      ,LAYER_INPUT ,
     .                  IR_INPUT        ,IS_INPUT     ,IT_INPUT  ,IUVAR_INPUT ,H3D_PART    ,
     .                  IS_WRITTEN_SOLID,INFO1        ,KEYWORD   ,ITHERM      ,FANI_CELL   ,
     .                  MULTI_FVM       , IDMDS     ,IMDSVAR     ,
     .                  ID              ,MAT_PARAM    ,MODE         )
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE initbuf_mod
        USE elbufdef_mod
        USE schlieren_mod
        USE h3d_mod
        USE multi_fvm_mod
        USE ale_connectivity_mod
        USE aleanim_mod , ONLY : fani_cell_
        USE names_and_titles_mod, ONLY: ncharline100
        USE matparam_def_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      "mvsiz_p.inc"
#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-----------------------------------------------
        my_real
     .     solid_scalar(*),x(3,*),v(3,*),w(3,*),ehour(*),
     .     pm(npropm,*)
        my_real, INTENT(IN),TARGET :: bufmat(*)
        INTEGER, INTENT(IN) :: ITHERM
        INTEGER IPARG(NPARG,*),IXS(NIXS,*),
     .     IPM(NPROPMI,*),
     .     ID_ELEM(*),ITY_ELEM(*),IPARTS(*),ID,
     .     H3D_PART(*),IS_WRITTEN_SOLID(*),INFO1,LAYER_INPUT,IR_INPUT,IS_INPUT,IT_INPUT,
     .     IUVAR_INPUT,IDMDS,IMDSVAR,NERCVOIS(*),NESDVOIS(*),
     .          LERCVOIS(*),LESDVOIS(*)
        TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
        CHARACTER(LEN=NCHARLINE100) :: KEYWORD
        TYPE(FANI_CELL_),INTENT(IN) :: FANI_CELL
        TYPE(multi_fvm_struct), INTENT(IN) :: MULTI_FVM
        TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECT
        TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
        INTEGER ,INTENT(IN) :: MODE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,NG
C-----------------------------------------------
        DO i=1,numels
          is_written_solid(i) = 0
        ENDDO
C
        !-------------------------------------------------------!
        !     INITIALIZATION IF SCHLIEREN DEFINED               !
        !-------------------------------------------------------!
        IF(keyword == 'SCHLIEREN')THEN
          CALL schlieren_buffer_gathering(nercvois ,nesdvois ,lercvois ,lesdvois, iparg, elbuf_tab, multi_fvm,itherm)
        ENDIF
c
        DO 900 ng=1,ngroup
 
          CALL h3d_solid_scalar_1(.false.,
     .                    elbuf_tab       ,solid_scalar ,iparg       ,
     .                    ixs          ,pm          ,bufmat      ,
     .                    ehour        ,
     .                    ipm             ,
     .                    x            ,v         ,w           ,ale_connect,
     .                    id_elem      ,ity_elem  ,iparts      ,layer_input ,
     .                    ir_input        ,is_input     ,it_input  ,iuvar_input ,h3d_part    ,
     .                    is_written_solid,info1        ,keyword   ,fani_cell   ,
     .                    multi_fvm       , ng        ,idmds       ,imdsvar     ,
     .                    id           ,mat_param ,mode     )
 
 
 900    CONTINUE   ! NG
C-----------------------------------------------
        RETURN
      END