Create alpha coefficients constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I_P), | intent(in) | :: | S | Stencils dimension. |
||
class(alpha_coefficients_constructor), | intent(out), | allocatable | :: | constructor | Alpha coefficients constructor. |
subroutine create_alpha_coefficients_js_constructor(S, constructor)
!< Create alpha coefficients constructor.
integer(I_P), intent(in) :: S !< Stencils dimension.
class(alpha_coefficients_constructor), allocatable, intent(out) :: constructor !< Alpha coefficients constructor.
allocate(alpha_coefficients_js_constructor :: constructor)
constructor%S = S
endsubroutine create_alpha_coefficients_js_constructor