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
!||    hm_read_mat88           ../starter/source/materials/mat/mat088/hm_read_mat88.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_mat2d_intersect   ../starter/source/materials/mat/mat088/hm_read_mat88.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
        CONTAINS
          procedure :: copyto => copy_table_to
        END TYPE table_4d_
 
      CONTAINS
 
!||====================================================================
!||    copy_table_to   ../common_source/modules/table4d_mod.F
!||====================================================================
            SUBROUTINE copy_table_to(THIS,TARGET_TABLE)
              IMPLICIT NONE
              CLASS(table_4d_) ,INTENT(IN) :: THIS
              TYPE(table_4d_) ,INTENT(OUT):: TARGET_TABLE
              target_table%NOTABLE = this%NOTABLE
              target_table%NDIM    = this%NDIM
              IF(.NOT.ALLOCATED(target_table%X))ALLOCATE(target_table%X(SIZE(this%X)))
              target_table%X(:) = this%X(:)
              IF(.NOT.ALLOCATED(target_table%Y1D))ALLOCATE(target_table%Y1D(SIZE(this%Y1D)))
              IF(.NOT.ALLOCATED(target_table%Y2D))ALLOCATE(target_table%Y2D(SIZE(this%Y2D,1),
     .                                                                      SIZE(this%Y2D,2)))
              IF(.NOT.ALLOCATED(target_table%Y3D))ALLOCATE(target_table%Y3D(SIZE(this%Y3D,1),
     .                                                                      SIZE(this%Y3D,2),
     .                                                                      SIZE(this%Y3D,3)))
              IF(.NOT.ALLOCATED(target_table%Y4D))ALLOCATE(target_table%Y4D(SIZE(this%Y4D,1),
     .                                                                      SIZE(this%Y4D,2),
     .                                                                      SIZE(this%Y4D,3),
     .                                                                      SIZE(this%Y4D,4)))
              target_table%Y1D(:) = this%Y1D(:)
              target_table%Y2D(:,:) = this%Y2D(:,:)
              target_table%Y3D(:,:,:) = this%Y3D(:,:,:)
              target_table%Y4D(:,:,:,:) = this%Y4D(:,:,:,:)
            END SUBROUTINE copy_table_to
C-----------------------------------------------
      END MODULE table4d_mod