libsim  Versione7.2.6

◆ 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 677 del file volgrid6d_var_class.F90.

677 ELEMENTAL FUNCTION conv_func_eq(this, that) RESULT(res)
678 TYPE(conv_func),INTENT(IN) :: this, that
679 LOGICAL :: res
680 
681 res = this%a == that%a .AND. this%b == that%b
682 
683 END FUNCTION conv_func_eq
684 
685 
686 ELEMENTAL FUNCTION conv_func_ne(this, that) RESULT(res)
687 TYPE(conv_func),INTENT(IN) :: this, that
688 LOGICAL :: res
689 
690 res = .NOT.(this == that)
691 
692 END FUNCTION conv_func_ne
693 
694 
695 FUNCTION conv_func_mult(this, that) RESULT(mult)
696 TYPE(conv_func),INTENT(in) :: this
697 TYPE(conv_func),INTENT(in) :: that
698 
699 TYPE(conv_func) :: mult
700 
701 IF (this == conv_func_miss .OR. that == conv_func_miss) THEN
702  mult = conv_func_miss
703 ELSE
704  mult%a = this%a*that%a
705  mult%b = this%a*that%b+this%b
706 ENDIF
707 
708 END FUNCTION conv_func_mult
709 
717 ELEMENTAL SUBROUTINE conv_func_compute(this, values)
718 TYPE(conv_func),INTENT(in) :: this
719 REAL,INTENT(inout) :: values
720 
721 IF (this /= conv_func_miss) THEN
722  IF (c_e(values)) values = values*this%a + this%b
723 ELSE
724  values=rmiss
725 ENDIF
726 
727 END SUBROUTINE conv_func_compute
728 
729 
737 ELEMENTAL FUNCTION conv_func_convert(this, values) RESULT(convert)
738 TYPE(conv_func),intent(in) :: this
739 REAL,INTENT(in) :: values
740 REAL :: convert
741 
742 convert = values
743 CALL compute(this, convert)
744 
745 END FUNCTION conv_func_convert
746 

Generated with Doxygen.