table4d_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/.
!||====================================================================
!||    table4d_mod            ../common_source/modules/table4d_mod.F
!||--- called by ------------------------------------------------------
!||    asso_plas76            ../engine/source/materials/mat/mat076/asso_plas76.F
!||    asso_qplas76c          ../engine/source/materials/mat/mat076/asso_qplas76c.F
!||    condamage              ../engine/source/materials/mat/mat190/condamage.F
!||    conversion             ../engine/source/materials/mat/mat190/conversion.F
!||    eos_param_mod          ../common_source/modules/mat_elem/eos_param_mod.F90
!||    fail_param_mod         ../common_source/modules/mat_elem/fail_param_mod.F90
!||    func_table_copy        ../starter/source/materials/tools/func_table_copy.F90
!||    law70_table            ../starter/source/materials/mat/mat070/law70_table.F
!||    mat_table_table_copy   ../starter/source/materials/tools/mat_table_table_copy.F90
!||    matparam_def_mod       ../common_source/modules/mat_elem/matparam_def_mod.F90
!||    no_asso_lplas76c       ../engine/source/materials/mat/mat076/no_asso_lplas76c.F
!||    no_asso_plas76         ../engine/source/materials/mat/mat076/no_asso_plas76.F
!||    no_asso_qplas76c       ../engine/source/materials/mat/mat076/no_asso_qplas76c.F
!||    read_mat_table         ../engine/source/materials/tools/read_mat_table.F
!||    sigeps128c             ../engine/source/materials/mat/mat128/sigeps128c.F90
!||    sigeps128s             ../engine/source/materials/mat/mat128/sigeps128s.F90
!||    sigeps129s             ../engine/source/materials/mat/mat129/sigeps129s.F90
!||    table_mat_vinterp      ../engine/source/materials/tools/table_mat_vinterp.F
!||    table_mat_vinterp_c1   ../engine/source/materials/tools/table_mat_vinterp_c1.F90
!||    table_rresti_mat       ../engine/source/materials/tools/table_rresti_mat.F
!||    table_slope            ../starter/source/materials/tools/table_slope.F
!||    visc_param_mod         ../common_source/modules/mat_elem/visc_param_mod.F90
!||    write_mat_table        ../engine/source/materials/tools/write_mat_table.F
!||--- uses       -----------------------------------------------------
!||    table_mod              ../engine/share/modules/table_mod.F
!||====================================================================
      MODULE table4d_mod
c
        USE table_mod
C-----------------------------------------------
#include      "my_real.inc"
C-----------------------------------------------
C   D e r i v e d   T y p e   D e f i n i t i o n s
C=======================================================================
        TYPE table_4d_
          INTEGER :: notable
          INTEGER :: ndim
          TYPE(ttable_xy), DIMENSION(:) ,ALLOCATABLE :: x
          my_real, DIMENSION(:)         ,ALLOCATABLE :: y1d
          my_real, DIMENSION(:,:)       ,ALLOCATABLE :: y2d
          my_real, DIMENSION(:,:,:)     ,ALLOCATABLE :: y3d
          my_real, DIMENSION(:,:,:,:)   ,ALLOCATABLE :: y4d
        END TYPE table_4d_
C-----------------------------------------------
      END MODULE table4d_mod