Create optimal weights constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I_P), | intent(in) | :: | S | Stencils dimension. |
||
class(optimal_weights_constructor), | intent(out), | allocatable | :: | constructor | Optimal weights constructor. |
subroutine create_optimal_weights_js_constructor(S, constructor)
!< Create optimal weights constructor.
integer(I_P), intent(in) :: S !< Stencils dimension.
class(optimal_weights_constructor), allocatable, intent(out) :: constructor !< Optimal weights constructor.
allocate(optimal_weights_js_constructor :: constructor)
constructor%S = S
endsubroutine create_optimal_weights_js_constructor