libsim Versione 7.2.0

◆ arrayof_ttr_mapper_packarray()

subroutine arrayof_ttr_mapper_packarray ( type(arrayof_ttr_mapper this)

Method for packing the array object reducing at a minimum the memory occupation, without destroying its contents.

The value of this::overalloc remains unchanged. After the call to the method, the object can continue to be used, extended and shortened as before. If the object is empty the array is allocated to zero length.

Parametri
thisobject to be packed

Definizione alla linea 750 del file stat_proc_engine.F90.

751TYPE(datetime),INTENT(out) :: pend
752
753TYPE(timedelta) :: p1, p2
754
755
756p1 = timedelta_new(sec=timerange%p1) ! end of period
757p2 = timedelta_new(sec=timerange%p2) ! length of period
758
759IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. &
760! (timerange%p1 > 0 .AND. timerange%p1 < timerange%p2) .OR. &
761 timerange%p1 < 0 .OR. timerange%p2 < 0) THEN ! is this too pedantic and slow?
762 pstart = datetime_miss

Generated with Doxygen.