inaddmodule Module Reference

Data Types
interface	inadd

Functions/Subroutines
subroutine	lhsinadd (sam, SSM, SMM, SMASS, RMASS, diagMass, dataCheck, IOPadd, IPSW, LPU, IERR, gFull)
subroutine	rhsinadd (sam, RHS, ILC, IPSW, LPU, IERR)
subroutine	checkmatrix (iel, ieltyp, ek, ipsw, lpu, nErr)
subroutine, public	extractsubmat (sam, SSM, SMM, SMIE, SMEE, SKIE, SKEE, IPSW, LPU, IERR, extractSKie)
real(dp) function	dsum (n, A, inc)
real(dp) function	lumpsolidmass (n, MC, ML)
subroutine	expand56 (n, V5, V6)
subroutine	add11 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add21 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add22 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add_andes3 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, LPU, IERR)
subroutine	add_andes4 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, LPU, IERR)
subroutine	add31 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add32 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add41 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add42 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add43 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add44 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	expsolid (EKF, EKO, NENOD)
subroutine	add45 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add46 (IOP, IEL, NEDOF, EK, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add50 (sam, IEL, NEDOF, EM, Mt, Mr, diagMass, IPSW, LPU, IERR)
subroutine	add51 (sam, IEL, NEDOF, EM, EMASS, diagMass, IPSW, LPU, IERR)
subroutine	add70 (IEL, NEDOF, EK, Kt, Kr, IPSW, LPU, IERR)
subroutine	add72 (IEL, NEDOF, EK, IPSW, LPU, IERR)
subroutine	load21 (IEL, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load22 (IEL, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load41 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load42 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load43 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load44 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load45 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)
subroutine	load46 (IEL, IFACE, P, NEDOF, ES, IPSW, LPU, IERR)

Variables
integer, dimension(3), save	unitbad = 0
	File unit for groups of bad elements. More...

Function/Subroutine Documentation

add11()

subroutine inaddmodule::add11	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add21()

subroutine inaddmodule::add21	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add22()

subroutine inaddmodule::add22	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add31()

subroutine inaddmodule::add31	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add32()

subroutine inaddmodule::add32	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add41()

subroutine inaddmodule::add41	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add42()

subroutine inaddmodule::add42	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add43()

subroutine inaddmodule::add43	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add44()

subroutine inaddmodule::add44	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add45()

subroutine inaddmodule::add45	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add46()

subroutine inaddmodule::add46	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EK,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add50()

subroutine inaddmodule::add50	(	type(samtype), intent(in)	sam,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(in)	Mt,
		real(dp), intent(in)	Mr,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add51()

subroutine inaddmodule::add51	(	type(samtype), intent(in)	sam,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(*), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add70()

subroutine inaddmodule::add70	(	integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), intent(in)	Kt,
		real(dp), intent(in)	Kr,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add72()

subroutine inaddmodule::add72	(	integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add_andes3()

subroutine inaddmodule::add_andes3	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

add_andes4()

subroutine inaddmodule::add_andes4	(	integer, intent(in)	IOP,
		integer, intent(in)	IEL,
		integer, intent(out)	NEDOF,
		real(dp), dimension(neldof,neldof), intent(out)	EK,
		real(dp), dimension(neldof,neldof), intent(out)	EM,
		real(dp), intent(out)	EMASS,
		logical, intent(in)	diagMass,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

checkmatrix()

subroutine inaddmodule::checkmatrix	(	integer, intent(in)	iel,
		integer, intent(in)	ieltyp,
		real(dp), dimension(:,:), intent(in)	ek,
		integer, intent(in)	ipsw,
		integer, intent(in)	lpu,
		integer, dimension(2), intent(inout)	nErr
	)

dsum()

real(dp) function inaddmodule::dsum	(	integer, intent(in)	n,
		real(dp), dimension(n), intent(in)	A,
		integer, intent(in)	inc
	)

expand56()

subroutine inaddmodule::expand56	(	integer, intent(in)	n,
		real(dp), dimension(:), intent(in)	V5,
		real(dp), dimension(:), intent(out)	V6
	)

expsolid()

subroutine inaddmodule::expsolid	(	real(dp), dimension(nenod*3,nenod*3), intent(out)	EKF,
		real(dp), dimension(:), intent(in)	EKO,
		integer, intent(in)	NENOD
	)

extractsubmat()

subroutine, public inaddmodule::extractsubmat	(	type(samtype), intent(in)	sam,
		type(sysmatrixtype), intent(inout)	SSM,
		type(sysmatrixtype), intent(inout)	SMM,
		type(sparsematrixtype), intent(out)	SMIE,
		real(dp), dimension(:,:), intent(out)	SMEE,
		type(sparsematrixtype), intent(out)	SKIE,
		real(dp), dimension(:,:), intent(out)	SKEE,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR,
		logical, intent(in), optional	extractSKie
	)

lhsinadd()

subroutine inaddmodule::lhsinadd ( type(samtype), intent(in)  sam, type(sysmatrixtype), intent(inout)  SSM, type(sysmatrixtype), intent(inout)  SMM, real(dp), intent(inout)  SMASS, real(dp), intent(in)  RMASS, logical, intent(in)  diagMass, logical, intent(in)  dataCheck, integer, intent(in)  IOPadd, integer, intent(in)  IPSW, integer, intent(in)  LPU, integer, intent(out)  IERR, real(dp), dimension(:,:), intent(out), optional  gFull  )

private

load21()

subroutine inaddmodule::load21	(	integer, intent(in)	IEL,
		real(dp), dimension(3,nenod), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(6*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load22()

subroutine inaddmodule::load22	(	integer, intent(in)	IEL,
		real(dp), dimension(3,nenod), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(6*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load41()

subroutine inaddmodule::load41	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(3,6), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(3*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load42()

subroutine inaddmodule::load42	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(3,8), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(3*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load43()

subroutine inaddmodule::load43	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(3,8), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(3*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load44()

subroutine inaddmodule::load44	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(3,4), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(3*nenod), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load45()

subroutine inaddmodule::load45	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(:), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(:), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

load46()

subroutine inaddmodule::load46	(	integer, intent(in)	IEL,
		integer, intent(in)	IFACE,
		real(dp), dimension(:), intent(in)	P,
		integer, intent(out)	NEDOF,
		real(dp), dimension(:), intent(out)	ES,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

lumpsolidmass()

real(dp) function inaddmodule::lumpsolidmass	(	integer, intent(in)	n,
		real(dp), dimension(n*n), intent(inout)	MC,
		real(dp), dimension(n), intent(inout)	ML
	)

rhsinadd()

subroutine inaddmodule::rhsinadd ( type(samtype), intent(in)  sam, real(dp), dimension(:), intent(out)  RHS, integer, intent(in)  ILC, integer, intent(in)  IPSW, integer, intent(in)  LPU, integer, intent(out)  IERR  )

private

Variable Documentation

unitbad

integer, dimension(3), save inaddmodule::unitbad = 0

private

File unit for groups of bad elements.