libsim Versione 7.2.0
|
◆ arrayof_ttr_mapper_append_unique()
Quick function to append an element to the array only if it is not present in the array yet. The return value is the position at which the element has been appended or at which it has been found.
Definizione alla linea 580 del file stat_proc_engine.F90. 581! delete local objects keeping the contents
582CALL delete(a_otime, nodealloc=.TRUE.)
583CALL delete(a_otimerange, nodealloc=.TRUE.)
584
585#ifdef DEBUG
586CALL l4f_log(L4F_DEBUG, &
587 'recompute_stat_proc_agg, output time and timerange: '//&
588 t2c(SIZE(otime))//', '//t2c(size(otimerange)))
589#endif
590
591IF (PRESENT(dtratio)) THEN
592! count the possible i/o interval ratios
593 DO k = 1, SIZE(itimerange)
|