i25main_free.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/.
!||====================================================================
!||    i25main_free          ../engine/source/interfaces/intsort/i25main_free.F
!||--- called by ------------------------------------------------------
!||    inttri                ../engine/source/interfaces/intsort/inttri.F
!||--- calls      -----------------------------------------------------
!||    i25edge_switch        ../engine/source/interfaces/int25/i25edge_switch.F
!||    i25free_bound         ../engine/source/interfaces/int25/i25free_bound.F
!||    my_barrier            ../engine/source/system/machine.F
!||    spmd_get_stif25_edg   ../engine/source/mpi/interfaces/spmd_getstif25_edg.F
!||    startime              ../engine/source/system/timer_mod.F90
!||    stoptime              ../engine/source/system/timer_mod.F90
!||--- uses       -----------------------------------------------------
!||    intbufdef_mod         ../common_source/modules/interfaces/intbufdef_mod.F90
!||    timer_mod             ../engine/source/system/timer_mod.F90
!||    tri7box               ../engine/share/modules/tri7box.F
!||====================================================================
      SUBROUTINE i25main_free(TIMERS,
     1                  ITASK, IPARI  ,INTBUF_TAB, INTLIST25, ISENDTO,
     2                  IRECVFROM)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE timer_mod
      USE intbufdef_mod   
      USE tri7box
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
#include      "macro.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "timeri_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(timer_) :: TIMERS
      INTEGER IPARI(NPARI,NINTER),ITASK,INTLIST25(*)
      INTEGER ISENDTO(NSPMD+1,*),IRECVFROM(NSPMD+1,*)
C     REAL
      TYPE(intbuf_struct_),DIMENSION(NINTER) :: INTBUF_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NIN, NRTM, IEDGE, NEDGE
C     REAL
      my_real
     .   startt, stopt
C-----------------------------------------------
      DO n = 1,ninter25
        nin = intlist25(n)
 
        nrtm   = ipari(4,nin)
        iedge  = ipari(58,nin)
        nedge  = ipari(68,nin)
C
        IF(iedge/=0)THEN
          CALL  i25edge_switch(
     .      itask+1,intbuf_tab(nin)%STFM,intbuf_tab(nin)%STFE,intbuf_tab(nin)%MVOISIN,iedge,
     .      nedge,intbuf_tab(nin)%LEDGE)
C
          CALL my_barrier
C
        END IF
C
!$omp single
        CALL i25free_bound( 
     1    nrtm,intbuf_tab(nin)%MVOISIN,intbuf_tab(nin)%IRECTM,intbuf_tab(nin)%STFM,
     .                                                    intbuf_tab(nin)%NRTM_FREE,
     2    intbuf_tab(nin)%FREE_IRECT_ID)
!$OMP END SINGLE
      END DO
C-----------------------------------------------------------
      IF (imon>0 .AND. itask==0) THEN
        CALL startime(timers,macro_timer_t25stfe)
      ENDIF
C       
!$OMP SINGLE
      DO n = 1,ninter25
       nin = intlist25(n)
       IF(ipari(macro_iedge,nin) > 0) THEN
C
C        Also needed in SMP for resetting STFE !
         CALL spmd_get_stif25_edg(
     .     intbuf_tab(nin)%STFE,    ipari(macro_nedge,nin), intbuf_tab(nin)%LEDGE,
     .     nin ,  isendto, irecvfrom, intbuf_tab(nin)%MPI_COMM, intbuf_tab(nin)%RANK, 
     .     intbuf_tab(nin)%NSPMD)
       ENDIF
      ENDDO
!$OMP END SINGLE
C
      IF (imon>0 .AND. itask==0) THEN
        CALL stoptime(timers,macro_timer_t25stfe)
      ENDIF
C-----------------------------------------------------------
      RETURN
      END