Functions/Subroutines
subroutine	mvseg (OP, X, DA, TYPDIA, XA1, XA2, TYPEXT, Y, C, NPOIN, NELEM, NSEG1, NSEG2, GLOSEG1, GLOSEG2, IELM1, IELM2)

Function/Subroutine Documentation

◆ mvseg()

subroutine mvseg	(	character(len=8), intent(in)	OP,
		double precision, dimension(*), intent(inout)	X,
		double precision, dimension(*), intent(in)	DA,
		character(len=1), intent(in)	TYPDIA,
		double precision, dimension(*), intent(in)	XA1,
		double precision, dimension(*), intent(in)	XA2,
		character(len=1), intent(in)	TYPEXT,
		double precision, dimension(*), intent(in)	Y,
		double precision, intent(in)	C,
		integer, intent(in)	NPOIN,
		integer, intent(in)	NELEM,
		integer, intent(in)	NSEG1,
		integer, intent(in)	NSEG2,
		integer, dimension(*), intent(in)	GLOSEG1,
		integer, dimension(*), intent(in)	GLOSEG2,
		integer, intent(in)	IELM1,
		integer, intent(in)	IELM2
	)

Parameters

[in]	npoin	C A given constant
[in]	DA	Matrix diagonal
[in]	GLOSEG1	First point of segments
[in]	GLOSEG2	Second point of segments
[in]	IELM1	Type of line element.
[in]	IELM2	Type of column element.
[in]	NELEM	Number of elements
[in]	NPOIN	Number of linear points
[in]	NSEG1	Number of segments of the line element
[in]	NSEG2	Number of segments of the column element
[in]	OP	Operation to be done (see above)
[in]	TYPDIA	Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]	TYPEXT	Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in,out]	X	Result in assembled form
[in]	XA1	Off-diagonal term of matrix
[in]	XA2	Off-diagonal term of matrix
[in]	Y	Vector used in the operation

Definition at line 8 of file mvseg.f.

Here is the call graph for this function:

Here is the caller graph for this function: