libsim Versione 7.1.11

◆ 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 586 del file stat_proc_engine.F90.

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)
594 IF (itimerange(k)%p2 /= 0) &
595 CALL insert_unique(a_dtratio, steps/itimerange(k)%p2) ! guaranteed to be integer
596 ENDDO
597 CALL packarray(a_dtratio)
598 dtratio => a_dtratio%array
599 CALL sort(dtratio)

Generated with Doxygen.