zeroif Interface

public interface zeroif

It returns zero if some value is positive/negative.


Module Procedures

public function zeroif_Int(val, negative, positive) result(retval)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: val
logical, intent(in), optional :: negative
logical, intent(in), optional :: positive

Return Value integer(kind=int32)

public function zeroif_Real(val, negative, positive) result(retval)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: val
logical, intent(in), optional :: negative
logical, intent(in), optional :: positive

Return Value real(kind=real64)