B.3.4 MaxVal_Integer_Scalar Procedure

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

  function MaxVal_Integer_Scalar (I)

    ! Input variable.

    type(integer), intent(in) :: I

    ! Output variable.

    type(integer) :: MaxVal_Integer_Scalar

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

    ! MaxVal_Integer_Scalar is equal to I.

    MaxVal_Integer_Scalar = I

    return
  end function MaxVal_Integer_Scalar