libsim  Versione 7.2.1

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

591 IF (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)
600 ! delete local object keeping the contents
601  CALL delete(a_dtratio, nodealloc=.true.)
602 
603 #ifdef DEBUG

Generated with Doxygen.