libsim  Versione6.3.0

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

586 TYPE(datetime) :: half, nexthalf
587 INTEGER(kind=int_ll) :: dt, tdt
588 
589 nt = count(time_mask)
590 ALLOCATE(lvertime(nt))
591 lvertime = pack(vertime, mask=time_mask)
592 
593 IF (PRESENT(max_step)) THEN
594 ! new way
595 ! max_step = timedelta_0
596 ! DO i = 1, nt - 1
597 ! IF (lvertime(i+1) - lvertime(i) > max_step) &

Generated with Doxygen.