th_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/.
!||====================================================================
!||    th_mod                       ../engine/share/modules/th_mod.F
!||--- called by ------------------------------------------------------
!||    freform                      ../engine/source/input/freform.F
!||    hist1                        ../engine/source/output/th/hist1.F
!||    hist2                        ../engine/source/output/th/hist2.F
!||    init_th                      ../engine/source/output/th/init_th.F
!||    init_th0                     ../engine/source/output/th/init_th0.F
!||    output_allocate_noda_pext    ../common_source/modules/output/output_mod.F90
!||    pblast_1                     ../engine/source/loads/pblast/pblast_1.F
!||    pblast_2                     ../engine/source/loads/pblast/pblast_2.f
!||    pblast_3                     ../engine/source/loads/pblast/pblast_3.F
!||    rdcomi                       ../engine/source/output/restart/rdcomm.F
!||    sortie_main                  ../engine/source/output/sortie_main.F
!||    spmd_exch_output_noda_pext   ../engine/source/mpi/output/spmd_exch_output_noda_pext.F
!||    thnod                        ../engine/source/output/th/thnod.F
!||    wrcomi                       ../engine/source/output/restart/wrcomm.F
!||    write_th                     ../engine/source/output/th/write_th.F
!||====================================================================
        MODULE th_mod
C-----------------------------------------------
C   m y _ r e a l
C-----------------------------------------------
#include      "my_real.inc"
!   -----------------------------------------------
!   D e r i v e d   T y p e   D e f i n i t i o n s
!   -----------------------------------------------
 
!   -------------------------
        TYPE th_el_type
            INTEGER :: th_elm_size
            INTEGER, DIMENSION(:,:), ALLOCATABLE :: th_elm
        END TYPE th_el_type
!   -------------------------
        TYPE th_wa_real
            my_real, DIMENSION(:), ALLOCATABLE :: wa_real
        END TYPE th_wa_real
!   -------------------------
        TYPE th_comm
            INTEGER, DIMENSION(:), ALLOCATABLE :: th_dipls
            INTEGER, DIMENSION(:), ALLOCATABLE :: th_size
        END TYPE th_comm
!   -------------------------
        TYPE th_proc_type
            TYPE(th_el_type), DIMENSION(:), ALLOCATABLE :: th_proc
        END TYPE th_proc_type
!   -------------------------
        INTEGER th_titles
!   -------------------------
        INTEGER, DIMENSION(:), ALLOCATABLE :: index_wa_eltype
 
        !   SPRING
        INTEGER, DIMENSION(10), TARGET :: wa_spring_size,total_wa_spring_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: spring_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_spring_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_spring_p0,wa_spring
        !   NODE
        INTEGER, DIMENSION(10), TARGET :: wa_nod_size,total_wa_nod_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: nod_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_nod_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_nod_p0,wa_nod
        !   SOL
        INTEGER, DIMENSION(10), TARGET :: wa_sol_size,total_wa_sol_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: sol_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_sol_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_sol_p0,wa_sol
        !   quad
        INTEGER, DIMENSION(10), TARGET :: wa_quad_size,total_wa_quad_size
        TYPE(TH_PROC_TYPE), DIMENSION(10), TARGET :: quad_struct       
        TYPE(TH_COMM), DIMENSION(10), TARGET :: wa_quad_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_quad_p0,wa_quad
        !   SHELL/SHELL3N
        INTEGER, DIMENSION(10), TARGET :: WA_COQ_SIZE,total_wa_coq_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: coq_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_coq_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_coq_p0,wa_coq
        !   TRUSS
        INTEGER, DIMENSION(10), TARGET :: wa_trus_size,total_wa_trus_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: trus_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_trus_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_trus_p0,wa_trus
        !   BEAM
        INTEGER, DIMENSION(10), TARGET :: wa_pout_size,total_wa_pout_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: POUT_STRUCT       
        TYPE(th_comm), DIMENSION(10), TARGET :: WA_POUT_COMM
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_pout_p0,wa_pout
        !   SPH
        INTEGER, DIMENSION(10), TARGET :: wa_sph_size,total_wa_sph_size
        TYPE(TH_PROC_TYPE), DIMENSION(10), TARGET :: sph_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_sph_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_sph_p0,wa_sph
 
        !   NST
        INTEGER, DIMENSION(10), TARGET :: wa_nst_size,total_wa_nst_size
        TYPE(th_proc_type), DIMENSION(10), TARGET :: nst_struct       
        TYPE(th_comm), DIMENSION(10), TARGET :: wa_nst_comm
        TYPE(th_wa_real), DIMENSION(10), TARGET :: wa_nst_p0,wa_nst
 
        INTEGER :: th_has_noda_pext
C
        END MODULE th_mod