conv_func_compute count_distinct_var6d display_volgrid6d_var index_var6d map_distinct_var6d map_inv_distinct_var6d pack_distinct_var6d varbufr2vargrib varbufr2vargrib_convert vargrib2varbufr vargrib2varbufr_convert volgrid6d_var_hor_comp_index volgrid6d_var_is_hor_comp volgrid6d_var_miss volgrid6d_var_new volgrid6d_var_normalize

pack_distinct_var6d() type(volgrid6d_var) function, dimension(dim) volgrid6d_var_class::pack_distinct_var6d ( type(volgrid6d_var), dimension(:), intent(in)  vect, integer, intent(in)  dim, logical, dimension(:), intent(in), optional  mask, logical, intent(in), optional  back  ) private compatta gli elementi distinti di vect in un array Definizione alla linea 676 del file volgrid6d_var_class.F90. ELEMENTAL FUNCTION conv_func_eq(this, that) RESULT(res) TYPE(conv_func),INTENT(IN) :: this, that LOGICAL :: res res = this%a == that%a .AND. this%b == that%b END FUNCTION conv_func_eq ELEMENTAL FUNCTION conv_func_ne(this, that) RESULT(res) TYPE(conv_func),INTENT(IN) :: this, that LOGICAL :: res res = .NOT.(this == that) END FUNCTION conv_func_ne FUNCTION conv_func_mult(this, that) RESULT(mult) TYPE(conv_func),INTENT(in) :: this TYPE(conv_func),INTENT(in) :: that TYPE(conv_func) :: mult IF (this == conv_func_miss .OR. that == conv_func_miss) THEN mult = conv_func_miss ELSE mult%a = this%a*that%a mult%b = this%a*that%b+this%b ENDIF END FUNCTION conv_func_mult ELEMENTAL SUBROUTINE conv_func_compute(this, values) TYPE(conv_func),INTENT(in) :: this REAL,INTENT(inout) :: values IF (this /= conv_func_miss) THEN IF (c_e(values)) values = values*this%a + this%b ELSE values=rmiss ENDIF END SUBROUTINE conv_func_compute SUBROUTINE volgrid6d_var_hor_comp_index(this, xind, yind) TYPE(volgrid6d_var),INTENT(in) :: this(:) INTEGER,POINTER :: xind(:), yind(:)