restart_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/.
!||====================================================================
!||    restmod                 ../engine/share/modules/restart_mod.F
!||--- called by ------------------------------------------------------
!||    crkxfem_rrestanim       ../engine/source/output/restart/rdresb.F
!||    crkxfem_wrestanim       ../engine/source/output/restart/wrrest.F
!||    get_user_window_nodes   ../engine/source/user_interface/userwindow_interface_routines.F
!||    mat_solid_get_nod_v     ../engine/source/user_interface/uaccess.F
!||    mat_solid_get_nod_x     ../engine/source/user_interface/uaccess.F
!||    radioss2                ../engine/source/engine/radioss2.F
!||    rdresb                  ../engine/source/output/restart/rdresb.F
!||    read_joint              ../engine/source/output/restart/read_joint.F
!||    resol_head              ../engine/source/engine/resol_head.F
!||    restalloc               ../engine/source/output/restart/arralloc.F
!||    rthbufwrest             ../engine/source/output/restart/wrrest.F
!||    spmd_check_tag          ../engine/source/mpi/ams/spmd_check_tag.F
!||    upgrade_cand_opt        ../common_source/interf/upgrade_multimp.F
!||    upgrade_lcand_e2s       ../common_source/interf/upgrade_multimp.F
!||    upgrade_lcand_edg       ../common_source/interf/upgrade_multimp.F
!||    upgrade_multimp         ../common_source/interf/upgrade_multimp.F
!||    write_joint             ../engine/source/output/restart/write_joint.F
!||    wrrestp                 ../engine/source/output/restart/wrrestp.F
!||--- uses       -----------------------------------------------------
!||    cluster_mod             ../engine/share/modules/cluster_mod.F
!||    failwave_mod            ../common_source/modules/failwave_mod.F
!||    nlocal_reg_mod          ../common_source/modules/nlocal_reg_mod.F
!||    sphbox                  ../engine/share/modules/sphbox.F
!||====================================================================
      MODULE restmod
      USE cluster_mod
      USE sphbox
      USE failwave_mod
      USE nlocal_reg_mod
#include "my_real.inc"
 
        INTEGER , DIMENSION(:), ALLOCATABLE :: 
     .      iskwn,   iframe,  neth,  
     .      ibcslag,
     .      ipart,   nom_opt, npc,      ixtg,    ixtg1,
     .      ixs,     ixq,     ixc,      ixt,     ixp,     ixr,
     .      gjbufi,   
     .      ifill,   ims,     isubs,
     .      kxx,     ixx,      kxsp,    ixsp,    nod2sp,
     .      ispsym,  ispcond, isphio,   lprtsph, lonfsph, IBCL,
     .      ibfv,    IECRAN,  ilas,     laccelm, 
     .      nnlink,  lnlink,  iparg,   dd_iad,  igrv, 
     .      iexlnk,  ibvel,    lbvel,   iactiv,  ibmpc, 
     .      kinet,   ipari,   nprw,    lprw,    
     .      ICONX,   lgauge,
     .      madprt,  madsh4,  madsh3,   madsol,  madnod,  madfail, 
     .      npby,    npbyl,   lpby,     lpbyl,   lrivet,  nstrf,
     .      ljoint,  nodpor,  monvol,   lagbuf,  
     .      ipart_state,irbym ,lnrbym, weight_rm,icodrbym,
     .      inod_pxfem,iel_pxfem,
     .      iadc_pxfem, adsky_pxfem, madidx,madclnod,nom_sect,
     .      irbe2    ,lrbe2, procne_pxfem, iadsdp_pxfem,
     .      iadrcp_pxfem     ,ithvar,icfield,iloadp,inod_crkxfem,
     .      iel_crkxfem,iadc_crkxfem, adsky_crkxfem,procne_crkxfem,
     .      cne_crkxfem,iadsdp_crkxfem,iadrcp_crkxfem,ibufssg_io,
     .      ibc_ply,ibordnode,iedgesh,xnodanimel,nodedge,iedge,
     .      crknodiad,dd_r2r_elem,kxig3d,ixig3d,
     .      tag_skins6,ibcscyc,lbcscyc,
     .      interloadp,kloadpinter,loadpinter
            !rank (1 to NSPMD) of the processor that is the main of the node 
      INTEGER, DIMENSION(:), ALLOCATABLE :: id_global_vois,face_vois
 
      INTEGER, DIMENSION(:), ALLOCATABLE :: ibftemp, ibcv, ibcr, ibfflux
 
        INTEGER , DIMENSION(:), ALLOCATABLE :: 
     .      iad_rby,  iad_rby2, iad_i2m, 
     .      iadcj,     iad_rbm,  iad_rbm2, iad_sec,    iad_cut,    
     .      fr_rby,    fr_wall,  fr_rby2,  fr_i2m,     fr_mv,    fr_ll, 
     .      fr_cj,     fr_rbm,   fr_rbm2,  fr_sec,     fr_cut,    rg_cut, 
     .      fr_mad,    fr_i18,   newfront,   nbrcvois, 
     .      lnrcvois,  nbsdvois, lnsdvois, nercvois,   lercvois,  nesdvois, 
     .      lesdvois,  npsegcom, lsegcom,  nporgeo, 
     .      lnodpor,   
     .      addcni2,   procni2,   iadwal, 
     .      iadrbk,    iadi2,    iadmv2,   IADMV3,     iadll,     iadrbm, 
     .      iadi18,    ilink,    fr_rl,    llink,      iadrl,     linale,
     .      neflsw,    nnflsw,   icut,     lgrav,      fasolfr,   dd_r2r,
     .      fr_lagf,   llagf,    igeo,     ipm,        icontact,  iskwp,
     .      nskwp,     isensp,   nsensp,   iaccp,      naccp,
     .      fr_rbym,  fr_rbym2, iad_rbym   ,iad_rbym2, iadrbmk,
     .      icode_ply ,icodt_ply,iskew_ply,iad_rbe2   ,fr_rbe2,
     .      lcfield   ,lloadp,
     .      iad_edge  ,fr_edge,  fr_nbedge,igaup      ,ngaup,     nodlevxf,
     .      nodglobxfe,elcutc,   nodenr,   kxfenod2elc,enrtag,
     .      tabsensor ,addcsrect,fr_nor,   iad_frnor  , procnor,    
     .      idrape,   nativ0_sms , segquadfr,iskwp_l, ne_nercvois,  
     .      ne_lercvois,  ne_nesdvois, ne_lesdvois
 
        my_real , 
     .    DIMENSION(:), ALLOCATABLE :: 
     .      thke,
     .      dampr,   damp,    tf,      pm, 
     .      xframe,  geo,     eani,    bufmat,  bufgeo,
     .      bufsf,   rbmpc,   gjbufr,  w,       veul,    fill, 
     .      dfill,   alph,    wb,      dsave,   asave, 
     .      spbuf,
     .      vsphio,  sphveln, msnf,    forc    ,
     .      vel,     fsav,    fzero,   xlas,   accelm, 
     .      fbvel,   grav,    fr_wave, parts0,
     .      elbuf,   
     .      rwbuf,   rwsav,   rby,     rbyl,    
     .      rivet,   secbuf,  volmon,  lambda,  wa,      fv, 
     .      partsav,
     .      uwa,     val2,    phi,
     .      r,       estif,   crflsw,  flsw,    fani,
     .      xcut,    anin,    tani,    secfcum, wasph, 
     .      w16,     dretrio, lbvrs,   pv,      rconx  , rcontact,
     .      acontact,pcontact,
     .      factiv,           rbym,
     .      ms_ply,  zi_ply,  admsms,  dmelc,   dmeltg,
     .      mssa,    dmels,   mstr,    dmeltr,  msp,     dmelp,
     .      msrt,    dmelrt,  res_sms, phie,    msf,
     .      cfield,  msz2,    diag_sms,loadp,   dmint2,
     .      por,     gauge,   wagap   ,rthbuf,  knot,
     .      wige,    rdrape,  tab_mat, ms_2d ,knotlocpc,knotlocel,
     .      fcont_max,dgaploadint,dpl0cld,vel0cld
        
      my_real, 
     .    DIMENSION(:, :), ALLOCATABLE :: xcell
      my_real, 
     .    DIMENSION(:, :, :), ALLOCATABLE :: xface
 
      my_real , 
     .    DIMENSION(:), ALLOCATABLE :: fconv, fbftemp, fradia, fbfflux
 
      TYPE (cluster_) ,DIMENSION(:), ALLOCATABLE :: cluster
C Double Precision array FBSAV6 (sensor 11 or 12 and parith/on)
      DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: fbsav6
      TYPE (spsym_struct)  :: xspsym,vspsym,wsmcomp
      TYPE (failwave_str_) :: failwave 
      TYPE (nlocal_str_)   :: nloc_dmg 
C Mat+ Prop timers (DDW/MONON)
      INTEGER, DIMENSION(:), ALLOCATABLE :: poin_ump
      INTEGER, DIMENSION(:,:), ALLOCATABLE ::tab_ump
      my_real, DIMENSION(:,:), ALLOCATABLE :: cputime_mp_glob
      my_real, DIMENSION(:), ALLOCATABLE :: cputime_mp
c      my_real, DIMENSION(:,:), ALLOCATABLE :: PSKID
C=======================================================================
C     Specific Adaptive Meshing :
C=======================================================================
C     SH4TREE(KSHTREE,NUMELC), SH3TREE(KSHTREE,NUMELTG)
C     1: father
C     2: 1st son (2nd son = 1st + 1, 3rd son = 1st + 2, 4th son = 1st + 3)
C     3:   = LEVEL SI ACTIVE
C         = -(LEVEL+1) SINON
C     4: group Number
C-----------------------------------------------
      INTEGER, DIMENSION(:,:),ALLOCATABLE :: sh4tree,sh3tree
C-----------------------------------------------
C     IPADMESH(1,IP) = initial level of elements
C     PADMESH(1,IP) = cos(angle criteria)
C     PADMESH (2,IP) = criteria for error on thickness
C-----------------------------------------------
      INTEGER, DIMENSION(:,:),ALLOCATABLE :: ipadmesh
      my_real, 
     .         DIMENSION(:,:),ALLOCATABLE :: padmesh
C-----------------------------------------------
      INTEGER, DIMENSION(:),ALLOCATABLE :: sh4trim, sh3trim
C-----------------------------------------------
C     MSC(N) = mass of shell element N
C     INC(N) = inertia of shell element N
C-----------------------------------------------
      my_real, 
     .         DIMENSION(:),ALLOCATABLE :: msc,mstg,inc,intg
      my_real, 
     .         DIMENSION(:,:),ALLOCATABLE :: ptg
C-----------------------------------------------
C     Condensation
C-----------------------------------------------
      my_real, 
     .         DIMENSION(:),ALLOCATABLE :: mscnd,incnd
C-----------------------------------------------
C     Thermic
C-----------------------------------------------
      my_real, 
     .         DIMENSION(:),ALLOCATABLE :: mcpc, mcptg
C=======================================================================
 
      END MODULE restmod
 
C=======================================================================