eigp.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "com09_c.inc"
#include "com_xfem1.inc"
#include "scr14_c.inc"
#include "scr17_c.inc"
#include "scr05_c.inc"
#include "scr23_c.inc"
#include "param_c.inc"
#include "sphcom.inc"
#include "units_c.inc"
#include "spmd_c.inc"
#include "task_c.inc"
#include "impl1_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine

eigp (eigipm, eigrpm, ikc0, nddl0, diag_k, lt_k, iadk, jdik, ms, in, ndof, nddl, eigibuf, x, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, pm, geo, cont, icut, skew, xcut, fint, itab, fext, fopt, anin, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, matparam_tab, dd_iad, fr_iad, dd_front, weight, eani, ipart, rby, nom_opt, igrsurf, bufsf, idata, rdata, bufmat, bufgeo, kxx, ixx, kxsp, ixsp, nod2sp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, iparg, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, nint2, iint2, ipari, intbuf_tab, d, lddl, partsav, inloc, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, weight_md, cluster, fcluster, mcluster, xfem_tab, w, nv46, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, drape_q4, drape_t3, h3d_data, subset, igrnod, fcont_max, fncontp2, ftcontp2, ale_connectivity)

Function/Subroutine Documentation

eigp()

subroutine eigp	(	integer, dimension(*)	eigipm,
			eigrpm,
		integer, dimension(*)	ikc0,
		integer	nddl0,
			diag_k,
			lt_k,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
			ms,
			in,
		integer, dimension(*)	ndof,
		integer	nddl,
		integer, dimension(*)	eigibuf,
			x,
			v,
			a,
			bufel,
		integer, dimension(*)	ixs,
		integer, dimension(*)	ixq,
		integer, dimension(*)	ixc,
		integer, dimension(*)	ixt,
		integer, dimension(*)	ixp,
		integer, dimension(*)	ixr,
		integer, dimension(*)	ixtg,
			pm,
			geo,
			cont,
		integer, dimension(*)	icut,
			skew,
			xcut,
			fint,
		integer, dimension(*)	itab,
			fext,
			fopt,
			anin,
		integer, dimension(*)	lpby,
		integer, dimension(nnpby,*)	npby,
		integer, dimension(*)	nstrf,
			rwbuf,
		integer, dimension(*)	nprw,
			tani,
		type (elbuf_struct_), dimension(ngroup)	elbuf_tab,
		type (matparam_struct_), dimension(nummat), intent(in)	matparam_tab,
		integer, dimension(nspmd+1,*)	dd_iad,
		integer, dimension(*)	fr_iad,
		integer, dimension(4,*)	dd_front,
		integer, dimension(*)	weight,
			eani,
		integer, dimension(*)	ipart,
			rby,
		integer, dimension(lnopt1,*)	nom_opt,
		type (surf_), dimension(nsurf)	igrsurf,
			bufsf,
		integer, dimension(*)	idata,
			rdata,
			bufmat,
			bufgeo,
		integer, dimension(nixx,*)	kxx,
		integer, dimension(*)	ixx,
		integer, dimension(nisp,*)	kxsp,
		integer, dimension(kvoisph,*)	ixsp,
		integer, dimension(*)	nod2sp,
			spbuf,
		integer, dimension(6,*)	ixs10,
		integer, dimension(12,*)	ixs20,
		integer, dimension(8,*)	ixs16,
			vr,
		integer, dimension(*)	monvol,
			volmon,
		integer, dimension(*)	ipm,
		integer, dimension(*)	igeo,
		integer, dimension(*)	iparg,
		integer, dimension(*)	nodglob,
		integer, dimension(2,*)	iad_elem,
		integer, dimension(*)	fr_elem,
		integer, dimension(nspmd+1,*)	fr_sec,
		integer, dimension(3,*)	fr_rby2,
		integer, dimension(4,*)	iad_rby2,
		integer, dimension(*)	fr_wall,
		integer	nint2,
		integer, dimension(*)	iint2,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
			d,
		integer, dimension(*)	lddl,
			partsav,
		integer, dimension(*)	inloc,
			fncont,
			ftcont,
			temp,
			thke,
			err_thk_sh4,
			err_thk_sh3,
		integer, dimension(nrbe2l,*)	irbe2,
		integer, dimension(nrbe3l,*)	irbe3,
		integer, dimension(*)	lrbe2,
		integer, dimension(*)	lrbe3,
		integer, dimension(3,*)	fr_rbe2,
		integer, dimension(3,*)	fr_rbe3m,
		integer, dimension(4,*)	iad_rbe2,
		integer, dimension(*)	weight_md,
		type (cluster_), dimension(ncluster)	cluster,
			fcluster,
			mcluster,
		type (elbuf_struct_), dimension(ngroup,nxel)	xfem_tab,
			w,
		integer	nv46,
		integer, dimension(*)	nercvois,
		integer, dimension(*)	nesdvois,
		integer, dimension(*)	lercvois,
		integer, dimension(*)	lesdvois,
		type (xfem_edge_), dimension(*)	crkedge,
		integer, dimension(*)	indx_crk,
		integer, dimension(4,*)	xedge4n,
		integer, dimension(3,*)	xedge3n,
		type (stack_ply)	stack,
		integer, dimension(*)	sph2sol,
			stifn,
			stifr,
		type (drape_)	drape_q4,
		type (drape_)	drape_t3,
		type(h3d_database)	h3d_data,
		type (subset_), dimension(nsubs)	subset,
		type (group_), dimension(ngrnod)	igrnod,
			fcont_max,
			fncontp2,
			ftcontp2,
		type(t_ale_connectivity), intent(in)	ale_connectivity )

Definition at line 39 of file eigp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod         
      USE cluster_mod
      USE intbufdef_mod
      USE crackxfem_mod
      USE stack_mod
      USE h3d_mod
      USE groupdef_mod
      USE multi_fvm_mod
      USE drape_mod
      USE ale_connectivity_mod
      USE matparam_def_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.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      "com06_c.inc"
#include      "com08_c.inc"
#include      "com09_c.inc"
#include      "com_xfem1.inc"
#include      "scr14_c.inc"
#include      "scr17_c.inc"
#include      "scr05_c.inc"
#include      "scr23_c.inc"
#include      "param_c.inc"
#include      "sphcom.inc"
#include      "units_c.inc"
#include      "spmd_c.inc"
#include      "task_c.inc"
#include      "impl1_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER EIGIPM(*), IKC0(*), NDDL0, IADK(*), JDIK(*), NDOF(*),
     .    NDDL, EIGIBUF(*), IXS(*), IXQ(*), IXC(*), IXT(*), IXP(*),     
     .    IXR(*), IXTG(*), ICUT(*), ITAB(*), LPBY(*), NPBY(NNPBY,*),    
     .    NSTRF(*), NPRW(*),INDX_CRK(*),XEDGE4N(4,*),XEDGE3N(3,*),                                   
     .    DD_IAD(NSPMD+1,*), FR_IAD(*), DD_FRONT(4,*), WEIGHT(*),       
     .    IPART(*), NOM_OPT(LNOPT1,*),     
     .    IDATA(*), KXX(NIXX,*), IXX(*),              
     .    KXSP(NISP,*), IXSP(KVOISPH,*), NOD2SP(*), IXS10(6,*),         
     .    IXS20(12,*), IXS16(8,*), MONVOL(*), IPM(*), IGEO(*),          
     .    IPARG(*), NODGLOB(*), IAD_ELEM(2,*), FR_ELEM(*),              
     .    FR_SEC(NSPMD+1,*), FR_RBY2(3,*), IAD_RBY2(4,*),               
     .    FR_WALL(*), NINT2, IINT2(*), IPARI(NPARI,*),         
     .    LDDL(*), INLOC(*), WEIGHT_MD(*),NV46,NERCVOIS(*),
     .    NESDVOIS(*),LERCVOIS(*),LESDVOIS(*),SPH2SOL(*)
      INTEGER IRBE2(NRBE2L,*),IRBE3(NRBE3L,*),LRBE2(*),LRBE3(*),
     .    FR_RBE2(3,*),FR_RBE3M(3,*),IAD_RBE2(4,*)
      my_real
     .        eigrpm(*), diag_k(*), lt_k(*), ms(*), in(*), x(3,*),
     .        v(3,*), a(3,*), bufel(*), pm(npropm,*), geo(*), cont(3,*),
     .        skew(lskew,*), xcut(*), fint(*), fext(*), fopt(6,*),
     .        anin(*),rwbuf(*), tani(*), eani(*), rby(nrby,*), bufsf(*),
     .        rdata(*), bufmat(*), bufgeo(*), spbuf(*), volmon(*),
     .        d(3,*), vr(3,*), partsav(npsav,*), fncont(*),
     .        ftcont(*),temp(*),thke(*), err_thk_sh4(*), err_thk_sh3(*),
     .        fcluster(*),mcluster(*),w(*),stifn(*),stifr(*),fcont_max(*),
     .        fncontp2(3,*),ftcontp2(3,*)
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP,NXEL) :: XFEM_TAB
      TYPE (CLUSTER_) ,DIMENSION(NCLUSTER)    :: CLUSTER
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
      TYPE (XFEM_EDGE_)   , DIMENSION(*) :: CRKEDGE
      TYPE (STACK_PLY) :: STACK
      TYPE(H3D_DATABASE) :: H3D_DATA
      TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
      TYPE (GROUP_)  , DIMENSION(NGRNOD) :: IGRNOD
      TYPE (SURF_)   , DIMENSION(NSURF)  :: IGRSURF
      TYPE (DRAPE_)   :: DRAPE_Q4, DRAPE_T3
      TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
      TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MATPARAM_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
 
      RETURN