libsim  Versione 7.1.8

◆ 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 827 del file stat_proc_engine.F90.

828 
829 ! set time, timerange%p1, timerange%p2 according to pstart, pend,
830 ! reftime and time_definition.
831 SUBROUTINE time_timerange_set_period(time, timerange, time_definition, &
832  pstart, pend, reftime)
833 TYPE(datetime),INTENT(out) :: time
834 TYPE(vol7d_timerange),INTENT(inout) :: timerange
835 INTEGER,INTENT(in) :: time_definition
836 TYPE(datetime),INTENT(in) :: reftime
837 TYPE(datetime),INTENT(in) :: pstart
838 TYPE(datetime),INTENT(in) :: pend
839 
840 TYPE(timedelta) :: p1, p2
841 INTEGER(kind=int_ll) :: dmsec
842 
843 
844 IF (time_definition == 0) THEN ! time == reference time
845  time = reftime
846  p1 = pend - reftime
847  p2 = pend - pstart
848 ELSE IF (time_definition == 1) THEN ! time == verification time
849  time = pend
850  p1 = pend - reftime
851  p2 = pend - pstart
852 ELSE
853  time = datetime_miss
854 ENDIF
855 
856 IF (time /= datetime_miss) THEN

Generated with Doxygen.