libsim Versione 7.2.4

◆ count_distinct_sorted_ttr_mapper()

integer function 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 821 del file stat_proc_engine.F90.

822TYPE(timedelta),INTENT(in) :: step
823INTEGER,INTENT(in) :: time_definition
824TYPE(datetime),INTENT(out) :: reftime
825TYPE(datetime),INTENT(out) :: pstart
826TYPE(datetime),INTENT(out) :: pend
827
828TYPE(timedelta) :: p1
829
830
831p1 = timedelta_new(sec=timerange%p1) ! end of period
832
833IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. &
834! (timerange%p1 > 0 .AND. timerange%p1 < timerange%p2) .OR. &
835 timerange%p1 < 0 .OR. timerange%p2 < 0) THEN ! is this too pedantic and slow?
836 pstart = datetime_miss
837 pend = datetime_miss
838 reftime = datetime_miss
839 RETURN
840ENDIF
841
842IF (time_definition == 0) THEN ! time == reference time
843 reftime = time
844 pend = time + p1
845 pstart = pend - step
846ELSE IF (time_definition == 1) THEN ! time == verification time
847 pend = time
848 pstart = time - step
849 reftime = time - p1
850ELSE

Generated with Doxygen.