B.4.5 ANY_Scalar Procedure

The main documentation of the ANY_Scalar Procedure contains additional explanation of this code listing.

  function ANY_Scalar (L)

    ! Input variable.

    type(logical), intent(in) :: L

    ! Output variable.

    type(logical) :: ANY_Scalar

    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ! ANY_Scalar is true iff L is true.

    ANY_Scalar = L

    return
  end function ANY_Scalar