libsim  Versione7.2.3

◆ arrayof_ttr_mapper_insert_unique()

subroutine, private stat_proc_engine::arrayof_ttr_mapper_insert_unique ( type(arrayof_ttr_mapper this,
type(ttr_mapper), intent(in)  content,
integer, intent(in), optional  pos 
)
private

Method for inserting an element of the array at a desired position only if it is not present in the array yet.

If necessary, the array is reallocated to accomodate the new element.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(ttr_mapper) to insert
[in]posposition where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 571 del file stat_proc_engine.F90.

571  CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, 0, steps))
572 
573 ENDIF
574 
575 CALL packarray(a_otime)
576 CALL packarray(a_otimerange)
577 otime => a_otime%array
578 otimerange => a_otimerange%array
579 CALL sort(otime)
580 CALL sort(otimerange)
581 ! delete local objects keeping the contents
582 CALL delete(a_otime, nodealloc=.true.)

Generated with Doxygen.