CutSineSignal Derived Type
type, public, extends(TimeSignal) :: CutSineSignal
Periodic signal where in params(1) and params(2) are between 0 and 1. Returns half-sine if params(1)<mod(time,period)<params(2). Otherwise returns 0.
Type-Bound Procedures
procedure, public :: calculate => calculateCutSine
-
interface
private module function calculateCutSine(this, time, period, params) result(res)
Arguments
Type Intent Optional Attributes Name class(CutSineSignal), intent(inout) :: this real(kind=rk), intent(in) :: time real(kind=rk), intent(in) :: period real(kind=rk), intent(in), optional, dimension(:) :: params Return Value real(kind=rk)