libsim Versione 7.2.1

◆ arrayof_ttr_mapper_append_unique()

integer function, private arrayof_ttr_mapper_append_unique ( type(arrayof_ttr_mapper this,
type(ttr_mapper), intent(in)  content 
)
private

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.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(ttr_mapper) to append

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)

Generated with Doxygen.