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
-
| this | array object to extend |
[in] | content | object 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)))
591 IF (
PRESENT(dtratio))
THEN
593 DO k = 1,
SIZE(itimerange)
594 IF (itimerange(k)%p2 /= 0) &
595 CALL insert_unique(a_dtratio, steps/itimerange(k)%p2)
597 CALL packarray(a_dtratio)
598 dtratio => a_dtratio%array