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

pack_distinct_ttr_mapper() type(ttr_mapper) function, dimension(dim) stat_proc_engine::pack_distinct_ttr_mapper ( type(ttr_mapper), dimension(:), intent(in)  vect, integer, intent(in)  dim, logical, dimension(:), intent(in), optional  mask, logical, intent(in), optional  back  ) compatta gli elementi distinti di vect in un array Definizione alla linea 983 del file stat_proc_engine.F90. time = reftime p1 = pend - reftime p2 = pend - pstart ELSE IF (time_definition == 1 .OR. time_definition == 2) THEN ! time == verification time time = pend p1 = pend - reftime p2 = pend - pstart ELSE time = datetime_miss ENDIF timerange%timerange = stat_proc IF (time /= datetime_miss) THEN CALL getval(p1, amsec=dmsec) ! end of period timerange%p1 = int(dmsec/1000_int_ll) CALL getval(p2, amsec=dmsec) ! length of period timerange%p2 = int(dmsec/1000_int_ll) ELSE timerange%p1 = imiss timerange%p2 = imiss ENDIF END SUBROUTINE time_timerange_set_period END MODULE stat_proc_engine