libsim  Versione 7.1.6

◆ 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 ! reftime and time_definition.
829 SUBROUTINE time_timerange_set_period(time, timerange, time_definition, &
830  pstart, pend, reftime)
831 TYPE(datetime),INTENT(out) :: time
832 TYPE(vol7d_timerange),INTENT(inout) :: timerange
833 INTEGER,INTENT(in) :: time_definition
834 TYPE(datetime),INTENT(in) :: reftime
835 TYPE(datetime),INTENT(in) :: pstart
836 TYPE(datetime),INTENT(in) :: pend
837 
838 TYPE(timedelta) :: p1, p2
839 INTEGER(kind=int_ll) :: dmsec
840 
841 
842 IF (time_definition == 0) THEN ! time == reference time
843  time = reftime
844  p1 = pend - reftime
845  p2 = pend - pstart
846 ELSE IF (time_definition == 1) THEN ! time == verification time
847  time = pend
848  p1 = pend - reftime
849  p2 = pend - pstart
850 ELSE
851  time = datetime_miss
852 ENDIF
853 
854 IF (time /= datetime_miss) THEN
855  CALL getval(p1, amsec=dmsec) ! end of period
856  timerange%p1 = int(dmsec/1000_int_ll)

Generated with Doxygen.