libsim Versione 7.1.11
|
◆ 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 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)
|