arrayof_ttr_mapper_append arrayof_ttr_mapper_append_unique arrayof_ttr_mapper_delete arrayof_ttr_mapper_insert arrayof_ttr_mapper_insert_array arrayof_ttr_mapper_insert_sorted arrayof_ttr_mapper_insert_unique arrayof_ttr_mapper_packarray arrayof_ttr_mapper_remove count_distinct_sorted_ttr_mapper count_distinct_ttr_mapper index_sorted_ttr_mapper index_ttr_mapper inssor_ttr_mapper map_distinct_ttr_mapper map_inv_distinct_ttr_mapper pack_distinct_sorted_ttr_mapper pack_distinct_ttr_mapper sort_ttr_mapper

count_distinct_ttr_mapper() integer function 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 861 del file stat_proc_engine.F90. ENDIF IF (time_definition == 0) THEN ! time == reference time decoded%reftime = time decoded%pend = time + p1 decoded%pstart = decoded%pend - p2 ELSE IF (time_definition == 1 .OR. time_definition == 2) THEN ! time == verification time decoded%pend = time decoded%pstart = time - p2 decoded%reftime = time - p1 ELSE decoded%pstart = datetime_miss decoded%pend = datetime_miss decoded%reftime = datetime_miss ENDIF END SUBROUTINE ttr_decoder_decode ! get start of period, end of period and reference time from time, ! timerange, according to time_definition. step is taken separately ! from timerange and can be "popular" SUBROUTINE time_timerange_get_period_pop(time, timerange, step, time_definition, & pstart, pend, reftime) TYPE(datetime),INTENT(in) :: time TYPE(vol7d_timerange),INTENT(in) :: timerange TYPE(timedelta),INTENT(in) :: step INTEGER,INTENT(in) :: time_definition TYPE(datetime),INTENT(out) :: reftime TYPE(datetime),INTENT(out) :: pstart TYPE(datetime),INTENT(out) :: pend TYPE(timedelta) :: p1 p1 = timedelta_new(sec=timerange%p1) ! end of period IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. & ! (timerange%p1 > 0 .AND. timerange%p1 < timerange%p2) .OR. & timerange%p1 < 0 .OR. timerange%p2 < 0) THEN ! is this too pedantic and slow? pstart = datetime_miss pend = datetime_miss reftime = datetime_miss RETURN ENDIF IF (time_definition == 0) THEN ! time == reference time reftime = time pend = time + p1 pstart = pend - step ELSE IF (time_definition == 1 .OR. time_definition == 2) THEN ! time == verification time pend = time pstart = time - step reftime = time - p1 ELSE pstart = datetime_miss pend = datetime_miss reftime = datetime_miss ENDIF END SUBROUTINE time_timerange_get_period_pop ! get start of period, end of period and reference time from time, ! timerange, according to time_definition. step is taken separately ! from timerange and can be "popular" SUBROUTINE ttr_decoder_decode_pop(time, timerange, step, time_definition, decoded) TYPE(datetime),INTENT(in) :: time TYPE(vol7d_timerange),INTENT(in) :: timerange