Create interpolator constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(interpolator_constructor), | intent(inout) | :: | self | Interpolator constructor. |
||
class(smoothness_indicators_constructor), | intent(in) | :: | is | Smoothness indicators constructor. |
||
class(alpha_coefficients_constructor), | intent(in) | :: | alpha | Alpha coefficients constructor. |
||
class(optimal_weights_constructor), | intent(in) | :: | weights | Optimal weights constructor. |
||
class(polynomials_constructor), | intent(in) | :: | polynom | Polynomilas constructor. |
subroutine create_interpolator_constructor(self, is, alpha, weights, polynom)
!< Create interpolator constructor.
class(interpolator_constructor), intent(inout) :: self !< Interpolator constructor.
class(smoothness_indicators_constructor), intent(in) :: is !< Smoothness indicators constructor.
class(alpha_coefficients_constructor), intent(in) :: alpha !< Alpha coefficients constructor.
class(optimal_weights_constructor), intent(in) :: weights !< Optimal weights constructor.
class(polynomials_constructor), intent(in) :: polynom !< Polynomilas constructor.
call self%destroy
allocate(self%is, source=is )
allocate(self%alpha, source=alpha )
allocate(self%weights, source=weights)
allocate(self%polynom, source=polynom)
endsubroutine create_interpolator_constructor