resol_head.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "scr_fac_c.inc"
#include "scr01_c.inc"
#include "task_c.inc"
#include "com_xfem1.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine

resol_head (element, nodes, itask, af, iaf, idata, rdata, graphe, iflow, rflow, stack, irunn_bis, timers, multi_fvm, h3d_data, subsets, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, forneqs, pinch_data, ale_connectivity, drape_sh4n, drape_sh3n, t_monvol, sensors, ebcs_tab, diffusion, segvar, dynain_data, drapeg, user_windows, output, interfaces, dt, loads, mat_elem, python, names_and_titles, unitab, skews, liflow, lrflow, glob_therm, pblast, rbe3, coupling)

Function/Subroutine Documentation

resol_head()

subroutine resol_head	(	type(connectivity_), intent(inout)	element,
		type(nodal_arrays_), intent(inout)	nodes,
		integer	itask,
			af,
		integer, dimension(*)	iaf,
		integer, dimension(*)	idata,
			rdata,
		type(prgraph), dimension(*)	graphe,
		integer, dimension(liflow), intent(inout)	iflow,
		integer, dimension(lrflow), intent(inout)	rflow,
		type (stack_ply)	stack,
		integer	irunn_bis,
		type(timer_), intent(inout)	timers,
		type(multi_fvm_struct)	multi_fvm,
		type(h3d_database)	h3d_data,
		type(subset_), dimension(nsubs)	subsets,
		type(group_), dimension(ngrnod)	igrnod,
		type(group_), dimension(ngrbric)	igrbric,
		type(group_), dimension(ngrquad)	igrquad,
		type(group_), dimension(ngrshel)	igrsh4n,
		type(group_), dimension(ngrsh3n)	igrsh3n,
		type(group_), dimension(ngrtrus)	igrtruss,
		type(group_), dimension(ngrbeam)	igrbeam,
		type(group_), dimension(ngrspri)	igrspring,
		type(group_), dimension(ngrpart)	igrpart,
		type(surf_), dimension(nsurf)	igrsurf,
		type(surf_), dimension(nsurf)	igrslin,
			forneqs,
		type(pinch)	pinch_data,
		type(t_ale_connectivity), intent(inout)	ale_connectivity,
		type(drape_), dimension(numelc_drape)	drape_sh4n,
		type(drape_), dimension(numeltg_drape)	drape_sh3n,
		type(monvol_struct_), dimension(nvolu), intent(inout)	t_monvol,
		type(sensors_), intent(inout)	sensors,
		type(t_ebcs_tab), intent(inout)	ebcs_tab,
		type(t_diffusion), intent(inout)	diffusion,
		type(t_segvar)	segvar,
		type(dynain_database), intent(inout)	dynain_data,
		type(drapeg_)	drapeg,
		type(user_windows_), intent(inout)	user_windows,
		type(output_), intent(inout)	output,
		type(interfaces_), intent(inout)	interfaces,
		type(dt_), intent(inout)	dt,
		type(loads_), intent(inout)	loads,
		type(mat_elem_), intent(inout)	mat_elem,
		type(python_), intent(inout)	python,
		type(names_and_titles_), intent(inout)	names_and_titles,
		type(unit_type_)	unitab,
		type(skew_), intent(inout)	skews,
		integer, intent(in)	liflow,
		integer, intent(in)	lrflow,
		type (glob_therm_), intent(inout)	glob_therm,
		type (pblast_), intent(inout)	pblast,
		type (rbe3_), intent(inout)	rbe3,
		type(coupling_type), intent(inout)	coupling )

Parameters

[in]	liflow	Size of IFLOW
[in]	lrflow	Size of RFLOW
[in,out]	names_and_titles	NAMES_AND_TITLES host the input deck names and titles for outputs

Definition at line 73 of file resol_head.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE connectivity_mod
      use nodal_arrays_mod
      USE restmod
      USE dsgraph_mod
      USE table_glob_mod
      USE sph_mod
      USE soltosph_mod
      USE cluster_mod
      USE stack_mod
      USE multi_fvm_mod
      USE h3d_mod
      USE intbuf_fric_mod
      USE groupdef_mod
      USE mat_elem_mod
      USE pinchtype_mod
      USE ale_connectivity_mod
      USE monvol_struct_mod
      USE drape_mod
      USE fxb_mod
      USE eig_mod
      USE sensor_mod
      USE ebcs_mod
      USE diffusion_mod
      USE segvar_mod
      USE loads_mod
      USE state_mod
      USE user_windows_mod
      USE output_mod
      USE interfaces_mod
      USE dt_mod
      USE python_funct_mod
      USE damp_mod
      USE names_and_titles_mod
      USE unitab_mod
      USE skew_mod
      use glob_therm_mod
      use pblast_mod
      use timer_mod
      use rbe3_mod
      use coupling_adapter_mod 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C------------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "scr_fac_c.inc"
#include      "scr01_c.inc"
#include      "task_c.inc"
#include      "com_xfem1.inc"
C-----------------------------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      type(connectivity_), intent(inout) :: ELEMENT 
      type(nodal_arrays_), intent(inout) :: NODES
      type(timer_), intent(inout) :: TIMERS
      type(coupling_type), intent(inout) :: coupling
      INTEGER, INTENT(IN) :: LIFLOW  !< Size of IFLOW
      INTEGER, INTENT(IN) :: LRFLOW  !< Size of RFLOW
 
      INTEGER,INTENT(INOUT) :: IFLOW(LIFLOW)
      INTEGER,INTENT(INOUT) :: RFLOW(LRFLOW)
C
      INTEGER ITASK,IAF(*),IDATA(*),IRUNN_BIS
C     REAL
      my_real
     .   af(*),rdata(*),                          
     .   forneqs(*)
      TYPE(PRGRAPH) :: GRAPHE(*)
      TYPE (STACK_PLY) :: STACK
      TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
      TYPE(H3D_DATABASE) :: H3D_DATA
      TYPE(UNIT_TYPE_) :: UNITAB
!
      TYPE(SUBSET_) ,DIMENSION(NSUBS)   :: SUBSETS
      TYPE(GROUP_)  ,DIMENSION(NGRNOD)  :: IGRNOD
      TYPE(GROUP_)  ,DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE(GROUP_)  ,DIMENSION(NGRQUAD) :: IGRQUAD
      TYPE(GROUP_)  ,DIMENSION(NGRSHEL) :: IGRSH4N
      TYPE(GROUP_)  ,DIMENSION(NGRSH3N) :: IGRSH3N
      TYPE(GROUP_)  ,DIMENSION(NGRTRUS) :: IGRTRUSS
      TYPE(GROUP_)  ,DIMENSION(NGRBEAM) :: IGRBEAM
      TYPE(GROUP_)  ,DIMENSION(NGRSPRI) :: IGRSPRING
      TYPE(GROUP_)  ,DIMENSION(NGRPART) :: IGRPART
      TYPE(SURF_)   ,DIMENSION(NSURF)   :: IGRSURF
      TYPE(SURF_)   ,DIMENSION(NSURF)   :: IGRSLIN
      TYPE(PINCH) :: PINCH_DATA
      TYPE(t_ale_connectivity), INTENT(INOUT) :: ALE_CONNECTIVITY
      TYPE(MONVOL_STRUCT_), DIMENSION(NVOLU), INTENT(INOUT) :: T_MONVOL
      TYPE(DRAPE_)                            :: DRAPE_SH3N(NUMELTG_DRAPE),DRAPE_SH4N(NUMELC_DRAPE)
      TYPE(DRAPEG_)                           :: DRAPEG
      TYPE(SENSORS_)  ,INTENT(INOUT)          :: SENSORS
      TYPE(t_ebcs_tab), INTENT(INOUT)         :: EBCS_TAB
      TYPE(T_DIFFUSION)    ,INTENT(INOUT)     :: DIFFUSION
      TYPE(t_segvar)                          :: SEGVAR
      TYPE(DYNAIN_DATABASE), INTENT(INOUT)    :: DYNAIN_DATA
      TYPE(USER_WINDOWS_),INTENT(INOUT)       :: USER_WINDOWS
      TYPE(OUTPUT_),INTENT(INOUT)             :: OUTPUT
      TYPE(INTERFACES_),INTENT(INOUT)         :: INTERFACES
      TYPE(DT_),INTENT(INOUT)                 :: DT
      TYPE(LOADS_)    ,INTENT(INOUT)          :: LOADS
      TYPE(MAT_ELEM_) ,INTENT(INOUT)          :: MAT_ELEM
      TYPE(PYTHON_)   , INTENT(INOUT)         :: PYTHON
      TYPE(NAMES_AND_TITLES_),INTENT(INOUT)   :: NAMES_AND_TITLES !< NAMES_AND_TITLES host the input deck names and titles for outputs
      TYPE(SKEW_), INTENT(INOUT)              :: SKEWS
      type (glob_therm_) ,intent(inout)       :: glob_therm
      type (pblast_) ,intent(inout)           :: PBLAST
      type (rbe3_) ,intent(inout)             :: RBE3
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IUN,IFUN,IUNUSED,IPV,MFUN,I
      INTEGER ITRACE(10)
      DATA iun/1/,iunused/1/
      my_real
     .  fsavd(1)
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
C-----------------------------------------------
C     TRACE BACK  
C-----------------------------------------------
      itaskp1 = 1
      itaskp1_def = 1
      itrace(1)=0          
      itrace(2)=nthread
      CALL trace_in(2,itrace,zero)
C
      CALL resol(timers, element,nodes,coupling,
     .  af              ,iaf            ,
     1  iskwn          ,neth           ,ipart          ,nom_opt     ,kxx              ,ixx       ,
     2  ixtg            ,ixs            ,ixq            ,ixt            ,ixp         ,ixr       ,
     3  ifill          ,mat_elem       ,
     4  ims             ,npc            ,ibcl           ,
     5  ibfv            ,iecran         ,ilas           ,laccelm        ,nnlink         ,lnlink      ,
     6  iparg           ,dd_iad         ,igrv           ,iexlnk         ,kinet       ,
     7  ipari           ,nprw           ,iconx          ,npby           ,
     8  lpby            ,lrivet         ,nstrf          ,ljoint         ,nodpor         ,monvol      ,
     9  ilink     ,
     a  llink           ,linale         ,neflsw         ,nnflsw         ,icut           ,cluster     ,
     b  itask           ,iaf(if01)      ,
     c  thke        ,damp               ,
     d  pm             ,skews          ,geo            ,eani           ,bufmat      ,bufgeo           ,bufsf     ,
     e  w               ,veul           ,fill           ,dfill          ,alph           ,wb          ,dsave            ,asave     ,
     .  msnf            , 
     f  tf              ,forc           ,vel            ,fsav           ,fzero          ,xlas        ,accelm           ,
     g  grav            ,fr_wave        ,failwave       ,parts0         ,elbuf          ,rwbuf       ,sensors,
     h  rwsav           ,rby            ,rivet          ,secbuf         ,volmon         ,lambda      ,
     i  wa              ,fv             ,partsav          ,
     j  uwa             ,val2           ,phi            ,segvar         ,r              ,crflsw      ,
     k  flsw            ,fani           ,xcut           ,anin           ,tani           ,secfcum     ,af(mf01),
     l  idata           ,rdata          ,
     m  iframe          ,kxsp           ,ixsp           ,nod2sp         ,ispsym         ,ispcond     ,
     n  xframe          ,spbuf          ,xspsym         ,vspsym         ,pv             ,
     o  fsavd           ,ibvel          ,lbvel          ,wasph          ,w16         ,
     p  isphio          ,lprtsph        ,lonfsph        ,vsphio         ,fbvel          ,lagbuf      ,ibcslag,
     q  iactiv          ,dampr          ,gjbufi         ,gjbufr         ,rbmpc          ,ibmpc       ,sphveln,
     t  nbrcvois        ,nbsdvois       ,lnrcvois       ,lnsdvois       ,nercvois       ,nesdvois    ,lercvois         ,
     u  lesdvois        ,npsegcom       ,lsegcom        ,nporgeo        ,
     v  ixtg1           ,npbyl          ,lpbyl          ,rbyl           ,igeo           ,ipm         ,
     w  madprt         ,madsh4         ,madsh3         ,madsol         ,madnod      ,madfail          ,
     x  iad_rby         ,fr_rby         ,fr_wall        ,iad_rby2       ,
     y  fr_rby2         ,iad_i2m        ,fr_i2m         ,addcni2        ,procni2        ,iadi2       ,fr_mv            ,
     z  iadmv2          ,fr_ll          ,fr_rl          ,iadcj          ,
     a  fr_cj           ,fr_sec         ,
     b  iad_sec         ,iad_cut        ,fr_cut         ,rg_cut         ,newfront       ,fr_mad      ,
     c  fxbipm          ,fxbrpm         ,fxbnod         ,fxbmod         ,fxbglm         ,fxbcpm      ,fxbcps           ,
     d  fxblm           ,fxbfls         ,fxbdls         ,fxbdep         ,fxbvit         ,fxbacc      ,fxbelm           ,
     e  fxbsig          ,fxbgrvi        ,fxbgrvr        ,eigipm         ,eigibuf        ,eigrpm      ,
     f  lnodpor         ,
     g  fr_i18          ,graphe         ,iflow          ,rflow,
     h  lgrav           ,dd_r2r         ,fasolfr        ,fr_lagf        ,
     j  llagf           ,lprw           ,icontact       ,rcontact       ,sh4tree        ,sh3tree     ,
     k  ipadmesh        ,padmesh        ,msc            ,mstg           ,inc            ,intg        ,ptg              ,
     l  iskwp           ,nskwp          ,isensp         ,nsensp         ,iaccp          ,naccp       ,ipart_state      ,
     m  acontact        ,pcontact       ,factiv         ,
     p  sh4trim         ,sh3trim        ,mscnd          ,incnd          ,
     q  ibfflux         ,fbfflux        ,rbym           ,irbym          ,lnrbym         ,icodrbym,
     r  ibcv            ,fconv          ,ibftemp        ,fbftemp        ,iad_rbym       ,fr_rbym,
     t  weight_rm       ,ms_ply         ,zi_ply         ,inod_pxfem     ,iel_pxfem      ,iadc_pxfem  ,
     u  adsky_pxfem     ,icode_ply      ,icodt_ply      ,iskew_ply      ,admsms      ,
     v  madclnod        ,nom_sect       ,mcpc           ,mcptg          ,dmelc          ,dmeltg      ,mssa             ,
     w  dmels           ,mstr           ,dmeltr         ,msp            ,dmelp          ,msrt        ,dmelrt           ,
     x  ibcr            ,fradia         ,res_sms        ,table          ,irbe2          ,lrbe2       ,iad_rbe2         ,
     y  fr_rbe2         ,phie           ,msf            ,
     z  procne_pxfem    ,iadsdp_pxfem   ,iadrcp_pxfem   ,icfield        ,lcfield        ,cfield      ,
     1  msz2            ,diag_sms       ,iloadp         ,lloadp      ,loadp            ,
     2  inod_crkxfem    ,iel_crkxfem    ,iadc_crkxfem   ,adsky_crkxfem  ,
     3  cne_crkxfem     ,procne_crkxfem ,iadsdp_crkxfem ,iadrcp_crkxfem ,ibufssg_io     ,
     4  ibc_ply         ,dmint2         ,ibordnode      ,
     5  mat_elem%ELBUF  ,por            ,nodedge        ,iad_edge       ,
     6  fr_edge         ,fr_nbedge      ,crknodiad      ,lgauge         ,gauge          ,
     7  igaup           ,ngaup          ,nodlevxf       ,dd_r2r_elem    ,
     8  nodglobxfe      ,sph2sol        ,sol2sph        ,irst           ,
     9  dmsph           ,wagap          ,mat_elem%XFEM_TAB,elcutc       ,nodenr         ,
     a  kxfenod2elc     ,enrtag         ,
     b  rthbuf          ,kxig3d         ,ixig3d         ,knot           ,wige           ,
     c  wsmcomp        ,stack          ,
     d  cputime_mp_glob ,cputime_mp     ,tab_ump        ,poin_ump       ,sol2sph_typ    ,
     e  irunn_bis       ,addcsrect      ,iad_frnor      ,fr_nor         ,procnor        ,
     f  interfaces%SPMD_ARRAYS%IAD_FREDG,interfaces%SPMD_ARRAYS%FR_EDG  ,drape_sh4n     ,drape_sh3n     ,tab_mat        , 
     g  nativ0_sms      ,multi_fvm      ,segquadfr      ,ms_2d          ,
     h  h3d_data        ,subsets        ,igrnod         ,igrbric        ,
     i  igrquad         ,igrsh4n        ,igrsh3n        ,igrtruss       ,igrbeam        ,
     j  igrspring       ,igrpart        ,igrsurf        ,forneqs        ,
     k  nloc_dmg        ,iskwp_l        ,knotlocpc      ,knotlocel      ,pinch_data     ,tag_skins6  ,ale_connectivity ,
     l  xcell           , xface         ,ne_nercvois    ,ne_nesdvois    ,ne_lercvois    ,ne_lesdvois ,ibcscyc          ,lbcscyc   ,
     m  t_monvol        ,id_global_vois ,face_vois      ,dynain_data    ,fcont_max   ,ebcs_tab         ,diffusion ,
     n  kloadpinter     ,loadpinter     ,dgaploadint    ,drapeg         ,user_windows ,output          ,interfaces,
     o  dt              ,loads          ,python         ,dpl0cld        ,vel0cld        ,
     p  ndamp_vrel      ,id_damp_vrel   ,fr_damp_vrel   ,ndamp_vrel_rbyg,names_and_titles,unitab,liflow,lrflow,
     r  glob_therm      ,pblast         ,rbe3)
C
      CALL trace_out(2)
C
      RETURN