libsim  Versione6.3.0

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

606  half = lvertime(1) + (lvertime(2) - lvertime(1))/2
607  max_step = half - pstart
608  DO i = 2, nt - 1
609  nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
610  IF (nexthalf - half > max_step) max_step = nexthalf - half
611  half = nexthalf
612  ENDDO
613  IF (pend - half > max_step) max_step = pend - half
614  ENDIF
615 
616 ENDIF
617 
618 IF (PRESENT(weights)) THEN

Generated with Doxygen.