B.2.5 MinVal_Real_Scalar Procedure

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

  function MinVal_Real_Scalar (R)

    ! Input variable.

    type(real), intent(in) :: R

    ! Output variable.

    type(real) :: MinVal_Real_Scalar

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

    ! MinVal_Real_Scalar is equal to R.

    MinVal_Real_Scalar = R

    return
  end function MinVal_Real_Scalar