Skip to main content

SetColumn

Calling example

  • SetColumn(obj, globalnode, idof, scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode, ivar, idof, scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode, ivar, spacecompo, timecompo, scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode, ivar, spacecompo, timecompo(:), scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode, ivar, spacecompo(:), timecompo, scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode(:), ivar, spacecompo, timecompo(:), scalarval, vecval(:), nodefieldval)
  • SetColumn(obj, globalnode(:), ivar, spacecompo(:), timecompo, scalarval, vecval(:), nodefieldval)

Interface 1

INTERFACE
SUBROUTINE setColumn1(obj, globalNode, idof, scalarVal, vecVal, &
& nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode
INTEGER(I4B), INTENT(IN) :: idof
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn1
END INTERFACE

This routine sets the column of a sparse matrix. The column index is calculated by using the globalNode, idof.

  • globalNode is global node number.
  • idof is the degree of freedom number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 2

INTERFACE
SUBROUTINE setColumn2(obj, globalNode, ivar, idof, &
& scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: idof
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn2
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and idof.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • idof is the degree of freedom number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 3

INTERFACE
SUBROUTINE setColumn3(obj, globalNode, ivar, spacecompo, &
& timecompo, scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: spacecompo
INTEGER(I4B), INTENT(IN) :: timecompo
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn3
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and spacecompo, timecompo.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • spacecompo is the space component number.
  • timecompo is the time component number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 4

INTERFACE
SUBROUTINE setColumn4(obj, globalNode, ivar, spacecompo, &
& timecompo, scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: spacecompo
INTEGER(I4B), INTENT(IN) :: timecompo(:)
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn4
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and spacecompo, timecompo.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • spacecompo is the space component number.
  • timecompo is the time component number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 5

INTERFACE
SUBROUTINE setColumn5(obj, globalNode, ivar, spacecompo, &
& timecompo, scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: spacecompo(:)
INTEGER(I4B), INTENT(IN) :: timecompo
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn5
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and spacecompo, timecompo.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • spacecompo is the space component number.
  • timecompo is the time component number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 6

INTERFACE
SUBROUTINE setColumn6(obj, globalNode, ivar, spacecompo, &
& timecompo, scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode(:)
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: spacecompo
INTEGER(I4B), INTENT(IN) :: timecompo(:)
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn6
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and spacecompo, timecompo.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • spacecompo is the space component number.
  • timecompo is the time component number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.

Interface 7

INTERFACE
SUBROUTINE setColumn7(obj, globalNode, ivar, spacecompo, &
& timecompo, scalarVal, vecVal, nodeFieldVal)
IMPORT :: AbstractMatrixField_, AbstractNodeField_, I4B, DFP
CLASS(AbstractMatrixField_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: globalNode(:)
INTEGER(I4B), INTENT(IN) :: ivar
INTEGER(I4B), INTENT(IN) :: spacecompo(:)
INTEGER(I4B), INTENT(IN) :: timecompo
REAL(DFP), OPTIONAL, INTENT(IN) :: scalarVal
REAL(DFP), OPTIONAL, INTENT(IN) :: vecVal(:)
CLASS(AbstractNodeField_), OPTIONAL, INTENT(IN) :: nodeFieldVal
END SUBROUTINE setColumn7
END INTERFACE

This routine sets the col of a sparse matrix. The col index is calculated by using the globalNode, ivar and spacecompo, timecompo.

  • globalNode is global node number.
  • ivar is the physical variable number.
  • spacecompo is the space component number.
  • timecompo is the time component number.
  • scalarVal is the scalar value, if present then the col will be Set to this scalar value
  • vectorVal is the vector value, if present then the col will be Set to this vector value
  • nodeFieldVal is the field of nodal values.