|
◆ 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
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(ttr_mapper) to insert |
[in] | pos | position 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)) 575 CALL packarray(a_otime) 576 CALL packarray(a_otimerange) 577 otime => a_otime%array 578 otimerange => a_otimerange%array 580 CALL sort(otimerange) 582 CALL delete(a_otime, nodealloc=.true.)
|