metric_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/.
C  Part of interface buffer:
C  Monitoring information for interface
C-----------------------------------------------------------------------
!||====================================================================
!||    metric_mod                     ../common_source/modules/interfaces/metric_mod.F
!||--- called by ------------------------------------------------------
!||    close_interf_time              ../engine/source/system/timer_interf.F
!||    freform                        ../engine/source/input/freform.F
!||    init_interf_sorting_strategy   ../engine/source/interfaces/init_interf_sorting_strategy.F
!||    int_startime                   ../engine/source/system/timer_interf.F
!||    int_stoptime                   ../engine/source/system/timer_interf.F
!||    intbufdef_mod                  ../common_source/modules/interfaces/intbufdef_mod.F90
!||    inter_deallocate_wait          ../engine/source/interfaces/generic/inter_deallocate_wait.F
!||    inter_sort                     ../engine/source/interfaces/generic/inter_sort.F
!||    intfop2                        ../engine/source/interfaces/interf/intfop2.F
!||    inttri                         ../engine/source/interfaces/intsort/inttri.F
!||    open_interf_time               ../engine/source/system/timer_interf.F
!||    printime_interf                ../engine/source/system/timer_interf.F
!||====================================================================
      MODULE metric_mod
C----------------------------------------
 
#include "my_real.inc"
C  Flag 2 names
        INTEGER, PARAMETER :: algo_voxel        = 1
        INTEGER, PARAMETER :: algo_bucket       = 2
        INTEGER, PARAMETER :: try_algo_voxel    =-1
        INTEGER, PARAMETER :: try_algo_bucket   = 0
 
C Indexes
        INTEGER, PARAMETER ::  i_main_crit_tri  = 1
        INTEGER, PARAMETER ::  i_main_tri       = 2
        INTEGER, PARAMETER ::  i_main_opt_tri   = 3
        INTEGER, PARAMETER ::  i_main_forces    = 4
        INTEGER, PARAMETER ::  i_noint          = 5
        INTEGER, PARAMETER ::  i_multimp        = 6
        INTEGER, PARAMETER ::  i_nsn            = 7
        INTEGER, PARAMETER ::  i_nsnr           = 8
        INTEGER, PARAMETER ::  i_ncont          = 9
C Sizes
        INTEGER, PARAMETER ::  size_timer       = 4
        INTEGER, PARAMETER ::  size_metric      = 9
 
C Debug
        INTEGER, PARAMETER ::  file_id= 4999
 
        INTEGER :: global_interface_sorting_algo
 
        TYPE metric_struct_
          INTEGER :: noint
          INTEGER :: multimp
          INTEGER :: nsn
          INTEGER :: nsnr
          INTEGER :: impact
          INTEGER :: ncont
          INTEGER :: cycle0
          INTEGER :: algo ! 1: definitive voxel, 2:definitive bucket , -1:test voxel, 0: test bucket
          DOUBLE PRECISION :: tic,toc, told ! timers use choose algo
          DOUBLE PRECISION, DIMENSION(SIZE_TIMER,2) ::  time
        END TYPE
      CONTAINS
 
!||====================================================================
!||    int_printime   ../common_source/modules/interfaces/metric_mod.F
!||====================================================================
        SUBROUTINE int_printime(THIS)
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          TYPE(metric_struct_) :: THIS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
          WRITE(4999,'(6I10,4F12.5)')
     .    this%NOINT,
     .    this%CYCLE0,
     .    this%NCONT,
     .    this%IMPACT,
     .    this%MULTIMP,
     .    this%NSNR,
     .    this%TIME(i_main_crit_tri,1),
c    . THIS%TIME(I_COMMCRIT,1),
c    . THIS%TIME(I_GFRONT,1),
     .    this%TIME(i_main_tri,1),
     .    this%TIME(i_main_opt_tri,1)
c      CALL INT_FLUSHTIME(THIS)
          RETURN
        END SUBROUTINE
 
 
!||====================================================================
!||    int_flushtime   ../common_source/modules/interfaces/metric_mod.F
!||--- called by ------------------------------------------------------
!||    resol_init      ../engine/source/engine/resol_init.F
!||====================================================================
        SUBROUTINE int_flushtime(THIS)
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          TYPE(metric_struct_) :: THIS
 
          this%TIME(1:size_timer,1:2) = 0.0d0
          RETURN
        END SUBROUTINE
 
      END MODULE