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                     ../starter/share/modules1/restart_mod.F
!||--- called by ------------------------------------------------------
!||    contrl                      ../starter/source/starter/contrl.F
!||    leclas                      ../starter/source/loads/laser/leclas.F
!||    lecsec42                    ../starter/source/tools/sect/hm_read_sect.F
!||    lectur                      ../starter/source/starter/lectur.F
!||    new_link                    ../starter/source/coupling/rad2rad/new_link.F
!||    r2r_check                   ../starter/source/coupling/rad2rad/r2r_check.F
!||    r2r_check_seg               ../starter/source/coupling/rad2rad/routines_r2r.F
!||    r2r_clean_inter             ../starter/source/coupling/rad2rad/r2r_clean_inter.F
!||    r2r_count                   ../starter/source/coupling/rad2rad/r2r_count.F
!||    r2r_domdec                  ../starter/source/coupling/rad2rad/r2r_domdec.F
!||    r2r_exist                   ../starter/source/coupling/rad2rad/routines_r2r.F
!||    r2r_group                   ../starter/source/coupling/rad2rad/r2r_group.F
!||    r2r_input                   ../starter/source/coupling/rad2rad/r2r_input.F
!||    r2r_monvol                  ../starter/source/coupling/rad2rad/r2r_prelec.F
!||    r2r_prelec                  ../starter/source/coupling/rad2rad/r2r_prelec.F
!||    r2r_prelec_name             ../starter/source/coupling/rad2rad/r2r_prelec_name.F
!||    r2r_split                   ../starter/source/coupling/rad2rad/r2r_split.F
!||    r2r_void                    ../starter/source/coupling/rad2rad/r2r_void.F
!||    r2r_void_1d                 ../starter/source/coupling/rad2rad/r2r_void.F
!||    read_ebcs                   ../starter/source/boundary_conditions/ebcs/read_ebcs.F
!||    set_user_window_nodes       ../starter/source/user_interface/user_windows_tools.F
!||    split_ebcs                  ../starter/source/boundary_conditions/ebcs/split_ebcs.F
!||    st_qaprint_ebcs             ../starter/source/output/qaprint/st_qaprint_ebcs.F
!||    tag_elem_void_r2r           ../starter/source/coupling/rad2rad/tagelem_r2r.F
!||    tag_elem_void_r2r_lin       ../starter/source/coupling/rad2rad/tagelem_r2r.F
!||    tagnod_r2r_s                ../starter/source/coupling/rad2rad/tagnod_r2r.F
!||    uelt_spmd_additional_node   ../starter/source/user_interface/uaccess.F
!||    upgrade_remnode2            ../starter/source/interfaces/interf1/upgrade_remnode.F
!||--- uses       -----------------------------------------------------
!||====================================================================
      MODULE restmod
#include "my_real.inc"
 
        USE unitab_mod
        INTEGER , DIMENSION(:), ALLOCATABLE :: 
     .      icode,      iskew,    iskwn,            neth,  
     .      ibcslag,
     .      ipart,      nom_opt, npc,      ixur,    ixtg,    ixtg1,
     .      ixs,        ixq,     ixc,      ixt,     ixp,     ixr,
     .      itab,       itabm1,  gjbufi,   
     .      ifill,      ims,
     .      kxx,        ixx,     kxsp,     nod2sp,  iexmad, 
     .      ispsym,     ispcond, isphio,   lprtsph, lonfsph, ibcl,
     .      ibfv,       ilas,    laccelm,  
     .      nnlink,     lnlink,  iparg,   dd_iad,  igrv, 
     .      iexlnk,     ibvel,   lbvel,    iactiv,  ibmpc, 
     .      kinet,      ipari,   nprw,     lprw,    
     .      iconx,      lgauge,
     .      npby,       lpby,    lrivet,   nstrf,
     .      ljoint,     nodpor,  monvol,   lagbuf, 
     .      ipart_state,irbe3,   lrbe3  ,  icodep , iskewp ,
     .      nom_sect,   irbe2   ,lrbe2,
     .      ithvar,     icfield, iloadp  , ixig3d  , kxig3d , interloadp,
     .      kloadpinter,loadpinter
C 2D to avoid integer limitation
      INTEGER, DIMENSION(:,:),ALLOCATABLE :: ixsp
 
      INTEGER , DIMENSION(:), ALLOCATABLE :: 
     .      iad_elem, iad_rby,  iad_rby2, iad_i2m, 
     .      iadcj,    iad_rbm,  iad_rbm2, iad_sec,  iad_cut,  fr_elem, 
     .      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,   weight,   newfront, nodglob,  nbrcvois, 
     .      lnrcvois, nbsdvois, lnsdvois, nercvois, lercvois, nesdvois, 
     .      lesdvois, npsegcom, lsegcom,  nporgeo, 
     .      lnodpor,  icodt,    icodr,    isky,     adsky,    procne, 
     .      addcni2,  procni2,  iadsdp,   iadrcp,   iads,     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,
     .                                    iad_rbe3m,fr_rbe3m,
     .      fr_rbe3mp, irbym   ,lnrbym,   front_rm,
     .      icodrbym,  inoise  ,inod_pxfem,iel_pxfem,    iad_rbe2,
     .      fr_rbe2,  lcfield,lloadp,inod_crkxfem,iel_crkxfem,ibordnode,
     .      iedgesh,  nodedge, iedge,    iad_edge,  fr_edge,  fr_nbedge,
     .      igaup,    ngaup,   nodlevxf, nodglobxfe,elcutc,   nodenr,
     .      kxfenod2elc,enrtag,tabsensor,addcsrect ,fr_nor,   iad_frnor, 
     .      procnor,  fr_edg,  iad_fredg,idrape    ,segquadfr
      INTEGER, DIMENSION(:), ALLOCATABLE :: ibftemp, ibcv, ibcr, ibfflux
 
      INTEGER, DIMENSION(:), POINTER ::
     .    iframe, madprt,  madsh4,  madsh3,   madsol,  madnod, madfail,
     .    npbyl, lpbyl, nige
      TARGET :: 
     .    iskwn,ipari,ipart,npc,ixtg,ixs,ibcl,igrv,ibmpc,npby,lpby,
     .    nom_opt,itabm1,icfield, iloadp,iedgesh,iel_crkxfem
 
 
        DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: bufgeo
        my_real , 
     .    DIMENSION(:), ALLOCATABLE :: 
     .      x,       d,       v,       vr,      dr,      thke,
     .      dampr,            ms,      in,      tf,      pm, 
     .      skew,             geo,     eani,    bufmat,  
     .      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,   fani_cell,
     .      rwbuf,   rwsav,   rby,      
     .      rivet,   secbuf,  volmon,  lambda,  wa,      fv, 
     .      a,       ar,      stifn,   viscn,   stifr,   partsav,
     .      fsky,    fskym,   fskyi,   uwa,     val2,    phi,
     .      r,       estif,   crflsw,  flsw,    fani,
     .      xcut,    anin,    tani,    secfcum, wasph, 
     .      w16,     dretrio, lbvrs,   pv,      rconx,   rcontact,
     .      acontact,pcontact,
     .      factiv,  mcp,     temp,    frbe3,
     .      rbym,    fnoise,  ms0,     admsms,
     .      dmelc,   dmeltg,  mssa,    dmels,   mstr,    dmeltr,   
     .      msp,     dmelp,   msrt,    dmelrt,  res_sms,
     .      kvol,    cfield, diag_sms, loadp,   gauge,
     .      dflow,   vflow,   wflow   ,knot,    wige,
     .      rdrape,  knotlocpc,knotlocel,dpl0cld,vel0cld
      my_real , 
     .    DIMENSION(:), ALLOCATABLE :: fconv, fbftemp, fradia, fbfflux
     
      TARGET :: 
     .    thke,dampr,skew,eani,forc,wb,rby,volmon,cfield,
     .    loadp,x
 
      INTEGER, DIMENSION(:), ALLOCATABLE :: poin_ump
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: tab_ump
      
      my_real, DIMENSION(:), POINTER ::
     .    rbyl,   damp,    xframe,
     .    rige,   xige,    vige
       my_real , 
     .    DIMENSION(:), ALLOCATABLE :: 
     .      ms_ply,   zi_ply
 
C Simple Precision array XDP
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: xdp
C Double Precision array FBSAV6 (sensor 11 or 12 and parith/on)
      DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: fbsav6
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-----------------------------------------------
C     OUTPUT
C-----------------------------------------------
      my_real, 
     .         DIMENSION(:),ALLOCATABLE :: rthbuf
C=======================================================================
C UNITS
      TYPE (unit_type_) :: unitab
C
      END MODULE restmod
 
!||====================================================================
!||    intbufmod              ../starter/share/modules1/restart_mod.F
!||--- called by ------------------------------------------------------
!||    inintr                 ../starter/source/interfaces/interf1/inintr.F
!||    lectur                 ../starter/source/starter/lectur.F
!||    upgrade_remnode        ../starter/source/interfaces/interf1/upgrade_remnode.F
!||    upgrade_remnode2       ../starter/source/interfaces/interf1/upgrade_remnode.F
!||    upgrade_remnode_e2s    ../starter/source/interfaces/interf1/upgrade_remnode.F
!||    upgrade_remnode_edg    ../starter/source/interfaces/interf1/upgrade_remnode.F
!||    upgrade_remnode_edg2   ../starter/source/interfaces/interf1/upgrade_remnode.F
!||====================================================================
      MODULE intbufmod
#include "my_real.inc"
! module a cleaner dans le code
c        INTEGER , DIMENSION(:), ALLOCATABLE :: INBUF
c        TARGET :: INBUF
c       my_real,
c     .         DIMENSION(:),ALLOCATABLE :: BUFIN
c        TARGET :: BUFIN
 
      END MODULE intbufmod