Houses hat signal class - periodic signal with passed period, interpeting params(1) and params(2) as the point in the period when the signal turns on/off
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(HatSignal), | intent(inout) | :: | this | |||
real(kind=rk), | intent(in) | :: | time | |||
real(kind=rk), | intent(in) | :: | period | |||
real(kind=rk), | intent(in), | optional, | dimension(:) | :: | params |
Periodic signal where in params(1) and params(2) are between 0 and 1. Returns 1 if params(1)<mod(time,period)<params(2). Otherwise returns 0.
procedure, public :: calculate => calculateHat |