libsim  Versione7.2.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 591 del file stat_proc_engine.F90.

591  ENDDO
592 
593  ENDIF
594 
595 ELSE ! analysis mode
596  tmptime = lstart + step
597  DO WHILE(tmptime < lend) ! < since lend has been extended
598  CALL insert_unique(a_otime, tmptime)
599  tmptime = tmptime + step
600  ENDDO
601  CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, 0, steps))
602 
603 ENDIF

Generated with Doxygen.