|
◆ arrayof_ttr_mapper_insert_sorted()
integer function, private stat_proc_engine::arrayof_ttr_mapper_insert_sorted |
( |
type(arrayof_ttr_mapper) |
this, |
|
|
type(ttr_mapper), intent(in) |
content, |
|
|
logical, intent(in) |
incr, |
|
|
logical, intent(in) |
back |
|
) |
| |
|
private |
Method for inserting an element of the array in a sorted manner.
If necessary, the array is reallocated to accomodate the new element. It works under the assumption that the current content of the array is already sorted in the desired order.
- Parametri
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(ttr_mapper) to insert |
[in] | incr | insert in increasing order |
[in] | back | search position starting from end of array (optimization) |
Definizione alla linea 628 del file stat_proc_engine.F90.
628 CALL getval(nexthalf - half, amsec=dt) 629 weights(i) = dble(dt)/dble(tdt) 632 CALL getval(pend - half, amsec=dt) 633 weights(nt) = dble(dt)/dble(tdt) 637 END SUBROUTINE compute_stat_proc_agg_sw 641 SUBROUTINE time_timerange_get_period(time, timerange, time_definition, & 642 pstart, pend, reftime) 643 TYPE(datetime), INTENT(in) :: time 644 TYPE(vol7d_timerange), INTENT(in) :: timerange 645 INTEGER, INTENT(in) :: time_definition 646 TYPE(datetime), INTENT(out) :: reftime 647 TYPE(datetime), INTENT(out) :: pstart 648 TYPE(datetime), INTENT(out) :: pend 650 TYPE(timedelta) :: p1, p2 653 p1 = timedelta_new(sec=timerange%p1) 654 p2 = timedelta_new(sec=timerange%p2) 656 IF (time == datetime_miss .OR. .NOT. c_e(timerange%p1) .OR. .NOT. c_e(timerange%p2) .OR. & 658 timerange%p1 < 0 .OR. timerange%p2 < 0) THEN Restituiscono il valore dell'oggetto nella forma desiderata.
|