libsim Versione 7.2.4

◆ arrayof_ttr_mapper_packarray()

subroutine, private arrayof_ttr_mapper_packarray ( type(arrayof_ttr_mapper) this)
private

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.

751IF (PRESENT(weights)) THEN
752 IF (nt == 1) THEN
753 weights(1) = 1.0
754 ELSE
755 CALL getval(pend - pstart, amsec=tdt)
756 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
757 CALL getval(half - pstart, amsec=dt)
758 weights(1) = dble(dt)/dble(tdt)
759 DO i = 2, nt - 1
760 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
761 CALL getval(nexthalf - half, amsec=dt)
762 weights(i) = dble(dt)/dble(tdt)

Generated with Doxygen.