libsim  Versione 7.1.6

◆ arrayof_ttr_mapper_append_unique()

integer function, private stat_proc_engine::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 #endif
588 
589 IF (PRESENT(dtratio)) THEN
590 ! count the possible i/o interval ratios
591  DO k = 1, SIZE(itimerange)
592  IF (itimerange(k)%p2 /= 0) &
593  CALL insert_unique(a_dtratio, steps/itimerange(k)%p2) ! guaranteed to be integer
594  ENDDO
595  CALL packarray(a_dtratio)
596  dtratio => a_dtratio%array
597  CALL sort(dtratio)
598 ! delete local object keeping the contents
599  CALL delete(a_dtratio, nodealloc=.true.)

Generated with Doxygen.