Routine to multiply scalat times vector
\verbatim -- in lua file, one can define as following: variable = {{ name = 'coeff', ncomponents = 1, vartype = "st_fun", st_fun = 0.25 }, { name = 'newVel', ncomponents = 3, vartype = "operation", operation = {kind='multiply_scalar_times_vector', input_varname={coeff, velocity }} -- scalar, vector } ... } \endverbatim
The interface has to comply to the abstract interface tem_varSys_module#tem_varSys_proc_element.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(tem_varSys_op_type), | intent(in) | :: | fun | Description of the method to obtain the variables, here some preset values might be stored, like the space time function to use or the required variables. |
||
| type(tem_varSys_type), | intent(in) | :: | varSys | The variable system to obtain the variable from. |
||
| integer, | intent(in) | :: | elempos(:) | Position of the TreeID of the element to get the variable for in the global treeID list. |
||
| type(tem_time_type), | intent(in) | :: | time | Point in time at which to evaluate the variable. |
||
| type(treelmesh_type), | intent(in) | :: | tree | global treelm mesh info |
||
| integer, | intent(in) | :: | nElems | Number of values to obtain for this variable (vectorized access). |
||
| integer, | intent(in) | :: | nDofs | Number of degrees of freedom within an element. |
||
| real(kind=rk), | intent(out) | :: | res(:) | Resulting values for the requested variable. Linearized array dimension: (n requested entries) x (nComponents of this variable) x (nDegrees of freedom) Access: (iElem-1)fun%nComponentsnDofs + (iDof-1)*fun%nComponents + iComp |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | private | :: | scalar(nElems*nDofs) | ||||
| real(kind=rk), | private | :: | vector(nElems*nDofs*fun%nComponents) | ||||
| integer, | private | :: | iComp | ||||
| integer, | private | :: | iElem | ||||
| integer, | private | :: | iDof |