libsim  Versione8.0.0

◆ count_distinct_sorted_ttr_mapper()

integer function stat_proc_engine::count_distinct_sorted_ttr_mapper ( type(ttr_mapper), dimension(:), intent(in)  vect,
logical, dimension(:), intent(in), optional  mask 
)

conta gli elementi distinti in un sorted array

Definizione alla linea 838 del file stat_proc_engine.F90.

838 END SUBROUTINE time_timerange_get_period
839 
840 
841 ! get start of period, end of period and reference time from time,
842 ! timerange, according to time_definition.
843 SUBROUTINE ttr_decoder_decode(time, timerange, time_definition, decoded)
844 TYPE(datetime),INTENT(in) :: time
845 TYPE(vol7d_timerange),INTENT(in) :: timerange
846 INTEGER,INTENT(in) :: time_definition
847 TYPE(ttr_decoder),INTENT(out) :: decoded
848 
849 TYPE(timedelta) :: p1, p2
850 
851 
852 p1 = timedelta_new(sec=timerange%p1) ! end of period
853 p2 = timedelta_new(sec=timerange%p2) ! length of period
854 
855 IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. &
856 ! (timerange%p1 > 0 .AND. timerange%p1 < timerange%p2) .OR. &
857  timerange%p1 < 0 .OR. timerange%p2 < 0) THEN ! is this too pedantic and slow?
858  decoded%pstart = datetime_miss
859  decoded%pend = datetime_miss
860  decoded%reftime = datetime_miss
861  RETURN
862 ENDIF
863 
864 IF (time_definition == 0) THEN ! time == reference time
865  decoded%reftime = time
866  decoded%pend = time + p1

Generated with Doxygen.