arrayof_ttr_mapper_append arrayof_ttr_mapper_append_unique arrayof_ttr_mapper_delete arrayof_ttr_mapper_insert arrayof_ttr_mapper_insert_array arrayof_ttr_mapper_insert_sorted arrayof_ttr_mapper_insert_unique arrayof_ttr_mapper_packarray arrayof_ttr_mapper_remove count_distinct_sorted_ttr_mapper count_distinct_ttr_mapper index_sorted_ttr_mapper index_ttr_mapper inssor_ttr_mapper map_distinct_ttr_mapper map_inv_distinct_ttr_mapper pack_distinct_sorted_ttr_mapper pack_distinct_ttr_mapper sort_ttr_mapper

pack_distinct_ttr_mapper() type(ttr_mapper) function, dimension(dim) pack_distinct_ttr_mapper ( type(ttr_mapper), dimension(:), intent(in) vect, integer, intent(in) dim, logical, dimension(:), intent(in), optional mask, logical, intent(in), optional back ) compatta gli elementi distinti di vect in un array Definizione alla linea 971 del file stat_proc_engine.F90. INTEGER,INTENT(in) :: stat_proc TYPE(datetime),INTENT(in) :: pstart TYPE(datetime),INTENT(in) :: pend TYPE(datetime),INTENT(in) :: reftime TYPE(timedelta) :: p1, p2 INTEGER(kind=int_ll) :: dmsec IF (time_definition == 0) THEN ! time == reference time time = reftime p1 = pend - reftime p2 = pend - pstart ELSE IF (time_definition == 1 .OR. time_definition == 2) THEN ! time == verification time time = pend p1 = pend - reftime p2 = pend - pstart ELSE time = datetime_miss ENDIF timerange%timerange = stat_proc IF (time /= datetime_miss) THEN CALL getval(p1, amsec=dmsec) ! end of period timerange%p1 = int(dmsec/1000_int_ll) CALL getval(p2, amsec=dmsec) ! length of period timerange%p2 = int(dmsec/1000_int_ll) ELSE timerange%p1 = imiss timerange%p2 = imiss ENDIF END SUBROUTINE time_timerange_set_period END MODULE stat_proc_engine