libsim Versione 7.2.6
|
◆ arrayof_ttr_mapper_insert_unique()
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.
Definizione alla linea 560 del file stat_proc_engine.F90. 561! don't know a priori how many different (thus incompatible) reference
562! times we have, so some assumption of regularity has to be made. For
563! this reason msteps, the minimum step between two times, is
564! computed. We choose to compute it as a difference between itime
565! elements, it could be also computed as difference of itimerange%p1
566! elements. But what if it is not modulo steps?
567 mstepms = steps*1000_int_ll
568 DO i = 2, SIZE(itime)
569 CALL getval(itime(i)-itime(i-1), amsec=stepms)
570 IF (stepms > 0_int_ll .AND. stepms < mstepms) THEN
571 msteps = stepms/1000_int_ll
572 IF (mod(steps, msteps) == 0) mstepms = stepms
|