libsim  Versione 7.2.4

◆ count_distinct_ttr_mapper()

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

conta gli elementi distinti in vect

Definizione alla linea 865 del file stat_proc_engine.F90.

866 TYPE(datetime),INTENT(in) :: reftime
867 TYPE(datetime),INTENT(in) :: pstart
868 TYPE(datetime),INTENT(in) :: pend
869 
870 TYPE(timedelta) :: p1, p2
871 INTEGER(kind=int_ll) :: dmsec
872 
873 
874 IF (time_definition == 0) THEN ! time == reference time
875  time = reftime
876  p1 = pend - reftime
877  p2 = pend - pstart
878 ELSE IF (time_definition == 1) THEN ! time == verification time
879  time = pend
880  p1 = pend - reftime
881  p2 = pend - pstart
882 ELSE
883  time = datetime_miss
884 ENDIF
885 
886 IF (time /= datetime_miss) THEN
887  CALL getval(p1, amsec=dmsec) ! end of period
888  timerange%p1 = int(dmsec/1000_int_ll)
889  CALL getval(p2, amsec=dmsec) ! length of period
890  timerange%p2 = int(dmsec/1000_int_ll)
891 ELSE
892  timerange%p1 = imiss
893  timerange%p2 = imiss
894 ENDIF
895 
896 END SUBROUTINE time_timerange_set_period
897 
898 
899 END MODULE stat_proc_engine
This module contains functions that are only for internal use of the library.

Generated with Doxygen.