arrayof_ttr_mapper_packarray

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 this object to be packed Definizione alla linea 767 del file stat_proc_engine.F90. DO i = 2, nt - 1 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2 IF (nexthalf - half > max_step) max_step = nexthalf - half half = nexthalf ENDDO IF (pend - half > max_step) max_step = pend - half ENDIF ENDIF IF (PRESENT(weights)) THEN IF (nt == 1) THEN