B.4.4 ALL_Scalar Procedure

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

  function ALL_Scalar (L)

    ! Input variable.

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

    ! Output variable.

    type(logical) :: ALL_Scalar

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

    ! ALL_Scalar is true iff L is true.

    ALL_Scalar = L

    return
  end function ALL_Scalar