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

arrayof_ttr_mapper_insert_sorted() integer function, private stat_proc_engine::arrayof_ttr_mapper_insert_sorted ( type(arrayof_ttr_mapper)  this, type(ttr_mapper), intent(in)  content, logical, intent(in)  incr, logical, intent(in)  back  ) private Method for inserting an element of the array in a sorted manner. If necessary, the array is reallocated to accomodate the new element. It works under the assumption that the current content of the array is already sorted in the desired order. Parametri this array object to extend [in] content object of TYPE TYPE(ttr_mapper) to insert [in] incr insert in increasing order [in] back search position starting from end of array (optimization) Definizione alla linea 619 del file stat_proc_engine.F90. ENDIF ELSE ! analysis mode tmptime = lstart + step DO WHILE(tmptime < lend) ! < since lend has been extended CALL insert_unique(a_otime, tmptime) tmptime = tmptime + step ENDDO CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, 0, steps)) ENDIF CALL packarray(a_otime) CALL packarray(a_otimerange) otime => a_otime%array otimerange => a_otimerange%array CALL sort(otime) CALL sort(otimerange) ! delete local objects keeping the contents CALL delete(a_otime, nodealloc=.true.) CALL delete(a_otimerange, nodealloc=.true.) #ifdef DEBUG CALL l4f_log(l4f_debug, & 'recompute_stat_proc_agg, output time and timerange: '//& t2c(SIZE(otime))//', '//t2c(size(otimerange))) #endif IF (PRESENT(dtratio)) THEN ! count the possible i/o interval ratios DO k = 1, SIZE(itimerange)